Index: mttroot/mtt/bin/trans/abg2lbl_fig2txt ================================================================== --- mttroot/mtt/bin/trans/abg2lbl_fig2txt +++ mttroot/mtt/bin/trans/abg2lbl_fig2txt @@ -11,10 +11,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +# Revision 1.1 1997/03/18 13:55:01 peterg +# Initial revision +# ############################################################### # P.J.Gawthrop March 1997 # Copyright (c) P.J.Gawthrop, 1997 @@ -49,12 +52,19 @@ sed 's/\\001//' | \ sort | \ tee $1_raw_list | \ sort -u> $1_unique_raw_list -grep -v '\[[0-9]*\]' $1_raw_list | awk --field-separator ':' \ - '{if ($1 ~ "SS") \ +#Write out non-unique names +#echo 'Non-unique names (if any):' +#diff $1_unique_raw_list $1_raw_list | grep '>' | sed 's/>/ /' + +#Write out the outline lbl file +grep -v '\[[0-9]*\]' $1_unique_raw_list | awk --field-separator ':' \ + '{if (($1 !~ "0")&&($1 !~ "1")) \ + {if ($1 ~ "SS") \ print "% Component type", $1, "\n\t" $2 "\t\texternal\texternal"; else \ - print "% Component type", $1, "\n\t" $2 "\t\tlin\t\targ1,arg2" }' \ + print "% Component type", $1, "\n\t" $2"\t\tlin\t\targ1,arg2"} \ + }' \ >>$1_lbl.txt