Index: mttroot/mtt/bin/trans/lbl2alias_txt2txt ================================================================== --- mttroot/mtt/bin/trans/lbl2alias_txt2txt +++ mttroot/mtt/bin/trans/lbl2alias_txt2txt @@ -12,10 +12,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.4 1998/07/03 15:21:26 peterg +## Replace sub by gsub -- need to replace ALL , +## ## Revision 1.3 1998/07/03 13:49:03 peterg ## Flips the order of alias and name when $ is involved. ## ## Revision 1.2 1998/07/03 07:54:39 peterg ## Tidied @@ -39,21 +42,23 @@ echo "# Generated by MTT at `date`" >> $1_alias.txt #Write out the variables grep '[%|#]ALIAS' $1_lbl.txt |\ awk '{ - if (match($2,"\\$")==0){ - alias=$2; name =$3 - } - else{ - alias=$3; name =$2 - } - gsub(",","__",alias); #Replace , - n=split(alias,a,"|"); - for (i=1; i<=n; i++) - print a[i] "\t" name; - } + if (match($2,"/")==0){ + if (match($2,"\\$")==0){ + alias=$2; name =$3 + } + else{ + alias=$3; name =$2 + } + gsub(",","__",alias); #Replace , + n=split(alias,a,"|"); + for (i=1; i<=n; i++) + print a[i] "\t" name; + } + } END{ print "###_END_OF_ALIAS_###" }' >> $1_alias.txt