Eskil

Diff
Login

Differences From Artifact [a95021a1af]:

To Artifact [e7eab59407]:


1
2



3
4

5
6
7
8
9
10
11
12
13
14
15
1

2
3
4
5

6
7
8


9
10
11
12
13
14
15

-
+
+
+

-
+


-
-







##Eskil Plugin : Compare set of words

#
# This plugin compares the set of words in files.

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

# This plugin compares the set of words in files.

# 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} {
    while {[gets $chi line] >= 0} {
        foreach word [regexp -all -inline {\w+} $line] {