Index: mttroot/mtt/bin/trans/abg2sympar_m2txt ================================================================== --- mttroot/mtt/bin/trans/abg2sympar_m2txt +++ mttroot/mtt/bin/trans/abg2sympar_m2txt @@ -37,24 +37,29 @@ } 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]; + 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