8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# Label file to symbolic parameters conversion
# Copyright (C) 2000 by Peter J. Gawthrop
# Inform user
#echo "Creating $1_sympar.txt"
rm -f mtt_error
tr $SEPS $REPS < $1_abg.m | \
|
<
>
>
>
>
>
>
>
>
>
>
<
>
|
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
|
# Label file to symbolic parameters conversion
# Copyright (C) 2000 by Peter J. Gawthrop
# Inform user
#echo "Creating $1_sympar.txt"
# Separation characters
SEPS='=*;+/()-'
# Replace by ,
REPS=',,,,,,,,'
SystemName=$2
UseLabelFile=$3
if [ -n "$UseLabelFile" ]; then ## Take input from lbl.txt
strip_comments < $1_lbl.txt | awk '{printf("%s %s \"%s\",\n",$1,$2,$3)}' > mtt_stripped_file
else ## Take input from _abg.m
cat $1_abg.m | grep "arg =" | tr $SEPS $REPS > mtt_stripped_file
fi
rm -f mtt_error
# This is the main transformation using gawk
cat mtt_stripped_file | \
awk '
function exact_match(name1, name2) {
return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
}
function matches(names, name) {
n_matches = split(names,match_name);
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
arg_line = "arg = ";
}
{
## 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);
if (length(args)>0)
printf("%s\t%s\n", args,system_name)
}
}' system_name=$2 |\
grep -v '^\$' | mtt_strip_args |\
sort -u #> $1_sympar.txt 2>mtt_error.txt
# Now invoke the standard error handling.
#mtt_error mtt_error.txt
|
|
|
<
>
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
arg_line = "arg = ";
}
{
## 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);
if (length(args)>0)
printf("%s\t%s\n", args,system_name)
## }
}' system_name=$SystemName |\
grep -v '^\$' | mtt_strip_args |\
sort -u #> $1_sympar.txt 2>mtt_error.txt
# Now invoke the standard error handling.
#mtt_error mtt_error.txt
|