1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#! /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.4 2001/05/08 15:18:10 gawthrop
## Added trig and hyperbolic functions to argument exclusion list
##
## Revision 1.3 2000/10/17 12:33:13 peterg
## Added mtt_mod to the zapped list
##
## Revision 1.2 2000/10/16 09:06:26 peterg
## Write out the system as a second columns as well
##
## 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=',,,,,,,,,'
# This is the main transformation using gawk
tr $SEPS $REPS | \
awk '
function exact_match(name1, name2) {
return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
}
|
>
>
>
|
|
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#! /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.5 2001/06/13 14:50:13 gawthrop
## Operator ^ now ok in args in abg and/or lbl
##
## Revision 1.4 2001/05/08 15:18:10 gawthrop
## Added trig and hyperbolic functions to argument exclusion list
##
## Revision 1.3 2000/10/17 12:33:13 peterg
## Added mtt_mod to the zapped list
##
## Revision 1.2 2000/10/16 09:06:26 peterg
## Write out the system as a second columns as well
##
## 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='[,*]'
# This is the main transformation using gawk
tr $SEPS $REPS | \
awk '
function exact_match(name1, name2) {
return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
}
|