11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Inform user
echo "Creating $1_sympar.txt"
rm -f mtt_error
# Separation characters
SEPS=';+*/()-'
# Replace by ,
REPS=',,,,,,,'
# This is the main transformation using gawk
tr $SEPS $REPS < $1_abg.m | \
awk '
function exact_match(name1, name2) {
return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
}
|
|
|
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Inform user
echo "Creating $1_sympar.txt"
rm -f mtt_error
# Separation characters
SEPS=';+*/()-='
# Replace by ,
REPS=',,,,,,,,'
# This is the main transformation using gawk
tr $SEPS $REPS < $1_abg.m | \
awk '
function exact_match(name1, name2) {
return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
}
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
}
}
return matched;
}
BEGIN {
var = "[%|#]VAR";
not_an_arg = "effort flow state internal external zero unknown";
arg_line = "arg = ";
}
{
## Explicit VAR declarations
if (match($1,var)>0) print $2 "\t" system_name;
## Implicit declarations from the arg list
|
|
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
}
}
return matched;
}
BEGIN {
var = "[%|#]VAR";
not_an_arg = "effort flow state internal external zero unknown mtt_e mtt_f";
arg_line = "arg = ";
}
{
## Explicit VAR declarations
if (match($1,var)>0) print $2 "\t" system_name;
## Implicit declarations from the arg list
|