Index: mttroot/mtt/bin/trans/abg2sympar_m2txt ================================================================== --- mttroot/mtt/bin/trans/abg2sympar_m2txt +++ mttroot/mtt/bin/trans/abg2sympar_m2txt @@ -13,14 +13,13 @@ # Inform user echo "Creating $1_sympar.txt" rm -f mtt_error # Separation characters -SEPS=';+*/()-=' +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))) @@ -48,22 +47,23 @@ ## 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); + args=substr($3,2,length($3)-3); print $3, args N=split(args, arg, ","); for (i=1;i<=N;i++){ + print arg[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=$1 |\ +}' 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