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.5 1997/03/20 12:05:31 peterg
# Now just writes out the cr name.
#
# Revision 1.4 1996/11/09 20:38:45 peterg
# Put in new lib pat
#
## Revision 1.3 1996/11/04 14:51:14 peterg
## Added none to no cr list
##
# Revision 1.2 1996/11/02 10:22:22 peterg
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
+
+
|
BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero none";
numeric = "[0-9]";
symbolic = "\044"; # Ascii $
symbol_count = 0;
symbols = "";
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
cr = $2;
first_char = substr(cr,1,1);
if ( (matches(not_a_cr,cr )==0) \
&& (match(not_a_cr,$3)==0) \
&& (match($3,"\\$")==0) \
&& (match(first_char,numeric)==0) \
&& (length(cr )>0) \
&& (matches(symbols,cr ) ==0) ) {
symbol_count++;
symbols = sprintf("%s %s", symbols, cr );
}
}
|