Index: mttroot/mtt/bin/trans/abg2lbl_fig2txt
==================================================================
--- mttroot/mtt/bin/trans/abg2lbl_fig2txt
+++ mttroot/mtt/bin/trans/abg2lbl_fig2txt
@@ -11,10 +11,14 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.17  2001/06/13 10:41:06  gawthrop
+## Further changes towards aouto creation of lbl files.
+## Prettified lbl files
+##
 ## Revision 1.16  2001/06/11 19:43:49  gawthrop
 ## MTT is now much more sophisticated in generating lbl files
 ## Labels can contain maths
 ## Repetative components are now broken
 ##
@@ -145,10 +149,11 @@
 #Write out the outline lbl file
 grep -v  '\[[0-9]*\]'  $1_unique_raw_list | \
 awk --field-separator ':' '
  BEGIN {
     OldComponent="None";
+    default_cr = "lin";
  }
  { 
   Component = $1;
   Name = $2;
   Arg = $3;
@@ -205,29 +210,31 @@
       arg[Component] = Arg;
       if (match(Arg,"=")>0) # Its an equation type cr
         cr[Component] = "cr"
       else # assume a linear cr
         cr[Component] = "lin";
-
     }
+
   ## Heading
   if (Component !~ OldComponent) print "\n## Component type", Component
 
   ## Component
     printf("\t%s\t", Name);
     if (Component in cr)
       printf("%s\t\t", cr[Component])
     else 
-      printf("none\t\t");
+      printf("%s\t\t",default_cr);
 
    if (Component in arg)
       printf("%s\t\t\n", arg[Component])
     else {
 	print "lbl2args_txt2out", Component | "/bin/sh"; close("/bin/sh")
     }
 
     OldComponent=Component;
+    delete arg[Component]; # Zap the element
+    delete cr[Component]; # Zap the element
   }
   END{
     print "\n## Port aliases" >> "mtt_junk_alias.txt";
     for (k=1;k<=j;k++){
       if (port_alias[k] ~ "\\["){ # Only do ports