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.6 1997/03/22 15:15:44 peterg
# Ignores symbolic ($i) crs.
#
# 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
|
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
56
57
58
59
60
61
62
63
64
65
66
|
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
|
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) \
if ( (matches(not_a_cr,cr)==0) && (match(cr,numeric)==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 );
}
}
}
END {
# create the _cr file
print cr;
if (symbol_count>0) {
split(symbols,symbol);
for (i = 1; i <= symbol_count; i++) {
#printf("$MTTPATH/lib/cr/r/%s.cr ", symbol[i]);
printf("%s\n", symbol[i]);
}
}
}
}
}
|