Eskil

gz.tcl at trunk
Login

File plugins/gz.tcl artifact f64090b040 on branch trunk


##Eskil Plugin : Compare gzip file
#
# This plugin unpacks input gzip file before comparing.

# Example file for a plugin.
# A plugin's first line must start exactly like this one.
# The text after : is the summary you can get at the command line

# A plugin must define this procedure to do the job.
# side: left or right
# chi:  An input channel for reading the original file.
# cho:  An output channel for writing the processed file.
proc PreProcess {side chi cho} {
    zlib push gunzip $chi
    chan copy $chi $cho

    # Signal that the file after processing should be used both
    # for comparison and for displaying.
    return 1
}