1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: abg2sympar_m2txt
# Label file to symbolic parameters conversion
# Copyright (C) 2000 by Peter J. Gawthrop
echo "Creating $1_sympar.txt"
rm -f mtt_error
# Separation characters
SEPS='=*;+/()-'
# Replace by ,
REPS=',,,,,,,,'
# This is the main transformation using gawk
|
<
|
|
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: abg2sympar_m2txt
# Label file to symbolic parameters conversion
# Copyright (C) 2000 by Peter J. Gawthrop
# Inform user
#echo "Creating $1_sympar.txt"
rm -f mtt_error
# Separation characters
SEPS='=*;+/()-'
# Replace by ,
REPS=',,,,,,,,'
# This is the main transformation using gawk
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
}
{
## Explicit VAR declarations
if (match($1,var)>0) print $2 "\t" system_name;
## Implicit declarations from the arg list
if (match($1,"arg")>0) {
args=substr($3,2,length($3)-3); print $3, args
N=split(args, arg, ",");
for (i=1;i<=N;i++){
print arg[i];
}' system_name=$1 |\
grep -v '^\$' |\
sort -u > $1_sympar.txt 2>mtt_error.txt
# Now invoke the standard error handling.
mtt_error mtt_error.txt
|
|
<
|
|
|
|
|
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
}
{
## Explicit VAR declarations
if (match($1,var)>0) print $2 "\t" system_name;
## Implicit declarations from the arg list
if (match($1,"arg")>0) {
args=substr($3,2,length($3)-3);
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] "\t" system_name;
}
}
}
}' system_name=$2 |\
grep -v '^\$' #|\
#sort -u > $1_sympar.txt 2>mtt_error.txt
# Now invoke the standard error handling.
# mtt_error mtt_error.txt
|