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
25
|
+
+
+
+
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7 1997/04/22 12:50:15 peterg
## New much simpler version -- does not check for multiple crs -- these
## are removed later anyway.
##
# 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
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
+
+
+
-
-
-
+
+
+
+
+
-
+
|
}
BEGIN {
comment = "%";
arg_delimiter = ",";
not_a_cr = "effort flow state internal external zero none";
is_a_SS = "internal external zero";
numeric = "[0-9]";
symbolic = "\044"; # Ascii $
symbol_count = 0;
symbols = "";
print "lin"
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
cr = $2;
first_char = substr(cr,1,1);
if ( (matches(not_a_cr,cr)==0) && (match(cr,numeric)==0) )
cr = $2
first_char = substr(cr,1,1);
if ( (matches(not_a_cr,cr)==0) &&
(match(numeric,first_char)==0) &&
(matches(is_a_SS,$3)==0))
print cr;
}
|