8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
+
+
+
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.2 1996/11/02 10:22:22 peterg
# Now ignores SS lines.
#
###############################################################
function exact_match(name1, name2) {
return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
}
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
-
+
|
return matched;
}
BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero";
not_a_cr = "effort flow state internal external zero none";
numeric = "[0-9]";
symbol_count = 0;
symbols = "";
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
cr = $2;
|