Index: mttroot/mtt/bin/trans/cmp2lbl_txt ================================================================== --- mttroot/mtt/bin/trans/cmp2lbl_txt +++ mttroot/mtt/bin/trans/cmp2lbl_txt @@ -12,10 +12,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.2 2002/12/06 11:45:57 gawthrop +## Strips comments from _cmp.txt before processing +## ## Revision 1.1 2002/12/01 14:54:52 gawthrop ## Replaces defunct abg2lbl_fig2txt ## ## ## Old log from abg2lbl_fig2txt @@ -200,18 +203,26 @@ gawk --field-separator ':' ' BEGIN { OldComponent="None"; default_cr = "lin"; } - { +(NF == 1) { + Component = $1 " (anonymous => default parameters)"; + Name = "# " $1; + cr[Component] = "\t"; + arg[Component] = "\t"; +} +(NF > 1) { Component = $1; Name = $2; Arg = $3; - +} +{ ##Aliases if (Component == "SS") { port_alias[++j] = Name; + Component_type = Component; } else { alias[++i] = Name; if (length(sensitivity)>0) { s_arg = sprintf("%ss",Name);