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.9 1998/03/08 21:01:40 peterg
## Now does multiple crs
##
## Revision 1.8 1998/03/06 09:15:28 peterg
## Ignores SS fields (assumes that if first field is a symbol then other
## field is and SS-style field.
##
## 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.
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
-
+
+
|
}
}
return matched;
}
BEGIN {
comment = "%";
comment = "%|#";
cr_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 = "";
# Include lin cr anyway.
print "lin"
}
{
if ( (match($1,comment)==0) && (NF>=3) ) {
crs = $2
n_crs = split(crs,cr,cr_delimiter);
for (i = 1; i <= n_crs; i++) {
|