Index: mttroot/mtt/bin/trans/name2index ================================================================== --- mttroot/mtt/bin/trans/name2index +++ mttroot/mtt/bin/trans/name2index @@ -13,10 +13,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.4 1997/12/04 22:10:18 peterg +## Handles argument list - variable names. +## ## Revision 1.3 1997/05/22 09:42:48 peterg ## Returns 0 if no names. ## ## Revision 1.2 1997/05/22 09:28:22 peterg ## Removed trailing , in output. @@ -26,11 +29,11 @@ ## ############################################################### awk ' { - name_index[$4"_"$3]=$2; + name_index[$4]=$2; } END{ M=split(names,xynames,":"); if (M==0) printf("0\n")