1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: strip args
# Strips unwanted bits from a list of arguments
# Label file to symbolic parameters conversion
# Copyright (C) 2000 by Peter J. Gawthrop
## $Id$ ##
## $Log$ ##
# Inform user
#echo "Creating $1_sympar.txt"
# Separation characters
SEPS='=*;+/()-'
# Replace by ,
REPS=',,,,,,,,'
|
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: strip args
# Strips unwanted bits from a list of arguments
# Label file to symbolic parameters conversion
# Copyright (C) 2000 by Peter J. Gawthrop
## $Id$ ##
## $Log$
## Revision 1.1 2000/10/16 09:04:04 peterg
## Initial revision
## ##
# Inform user
#echo "Creating $1_sympar.txt"
# Separation characters
SEPS='=*;+/()-'
# Replace by ,
REPS=',,,,,,,,'
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
BEGIN {
not_an_arg = "effort flow state internal external zero unknown\
mtt_e mtt_f sqrt exp log sign none abs";
}
{
args=$1
N=split(args, arg, ",");
for (i=1;i<=N;i++){
if ( (length(arg[i])>0)&&(matches(not_an_arg,arg[i])==0)&&(match(arg[i],"^[0-9]+[.]*")==0) ){
print arg[i]
}
}
}' |\
grep -v '^\$'
|
>
|
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
BEGIN {
not_an_arg = "effort flow state internal external zero unknown\
mtt_e mtt_f sqrt exp log sign none abs";
}
{
args=$1
sys=$2
N=split(args, arg, ",");
for (i=1;i<=N;i++){
if ( (length(arg[i])>0)&&(matches(not_an_arg,arg[i])==0)&&(match(arg[i],"^[0-9]+[.]*")==0) ){
printf("%s\t%s\n", arg[i], sys);
}
}
}' |\
grep -v '^\$'
|