1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
##Eskil Plugin : Compare after filtering lines
## Option -grepre : Regexp to filter on
# Example file for a plugin.
# A plugin must start exactly like this one.
# The text after : is the summary you can get at the command line
# A plugin may declare command line options that should be allowed through
# to ::argv
# This plugin only compares lines that match a pattern.
# Example usage:
# eskil -plugin grep -grepre "<t>" f1 f2
|
|
>
>
>
>
|
<
<
<
<
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
##Eskil Plugin : Compare after filtering lines
## Option -grepre : Regexp to filter on
#
# This plugin only compares lines that match a regexp pattern.
# Example usage:
# eskil -plugin grep -grepre "<t>" f1 f2
# 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 may declare command line options that should be allowed through
# to ::argv
# 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} {
if {[catch {llength $::Info}]} {
puts $cho "Grep plugin needs -plugininfo parameter to be a list"
|