Overview
| Comment: | Now puts in explicit VAR statements. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f2d53c1709d028fab232bbb947a58602 |
| User & Date: | gawthrop@users.sourceforge.net on 2000-03-16 12:53:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-03-16
| ||
| 13:49:55 | Fixed bug in writing system_name check-in: da10810bec user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 12:53:53 | Now puts in explicit VAR statements. check-in: f2d53c1709 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 12:53:26 |
Added copy of the %VAR declarations Put in the endfunction statement check-in: b9eab4c7d0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/abg2sympar_m2txt from [81b5367656] to [11d208b239].
| ︙ | ︙ | |||
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
break;
}
}
return matched;
}
BEGIN {
not_an_arg = "effort flow state internal external zero unknown 0 1";
arg_line = "arg = ";
}
{
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) ){
| > > > > > | | | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
break;
}
}
return matched;
}
BEGIN {
var = "[%|#]VAR";
not_an_arg = "effort flow state internal external zero unknown 0 1";
arg_line = "arg = ";
}
{
## Explicit VAR declarations
if (match($1,var)>0) print $2 "\t" 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) ){
print arg[i] "\t" name;
}
}
}
}'name=$1 |\
sort -u > $1_sympar.txt 2>mtt_error.txt
# Now invoke the standard error handling.
mtt_error mtt_error.txt
|