8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.11 1998/05/13 12:39:23 peterg
## Added `unknown' to list od names to avoid
##
## Revision 1.10 1998/03/26 13:03:23 peterg
## Changed SS field fudge.
##
## Revision 1.9 1998/02/16 16:09:57 peterg
|
>
>
>
|
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.12 1998/07/04 11:09:46 peterg
## Cleaned up - assumes new lbl style for SS
##
## Revision 1.11 1998/05/13 12:39:23 peterg
## Added `unknown' to list od names to avoid
##
## Revision 1.10 1998/03/26 13:03:23 peterg
## Changed SS field fudge.
##
## Revision 1.9 1998/02/16 16:09:57 peterg
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
for (i = 1; i <= n_args; i++) {
first_char = substr(arg[i],1,1);
if ( (matches(not_an_arg,arg[i])==0) \
&& (match(first_char,numeric)==0) \
&& (match(arg[i],"\\$")==0) \
&& (length(arg[i])>0) \
&& (matches(symbols,arg[i]) ==0) ) {
print arg[i];
}
}
}
}
|
|
|
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
for (i = 1; i <= n_args; i++) {
first_char = substr(arg[i],1,1);
if ( (matches(not_an_arg,arg[i])==0) \
&& (match(first_char,numeric)==0) \
&& (match(arg[i],"\\$")==0) \
&& (length(arg[i])>0) \
&& (matches(symbols,arg[i]) ==0) ) {
print arg[i] "\t" name;
}
}
}
}
|