Index: mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
==================================================================
--- mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
+++ mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
@@ -11,10 +11,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.30  1998/04/12 15:01:17  peterg
+## Converted to uniform port notation - always use []
+##
 ## Revision 1.29  1998/04/12 12:35:32  peterg
 ## Named and unnamed SS handled in a uniform manner - in particular, the
 ## attributes are passed through
 ## wrote_component function used.
 ##
@@ -178,12 +181,11 @@
     name = label[i,1];
     cr   = label[i,2];
     arg  = label[i,3];
     
     if (length(x[name])==0) {
-# print error unless its a port component
-      if (match(name,port_regexp)==0)
+        # print error - its in lbl but not fig file
         printf(warning_l, name);
     }
     else {
       component_index++;
       print x[name], y[name], info[name] >> b_file;
@@ -638,18 +640,20 @@
     name = a[3];
     printf("'%s'\n", name) >> b_file;
   }
   printf("];\n\n") >> b_file;
 
-# Print the (external) port list
+# Print the (external) port list - ignore spurious ports (in lbl, not fig)
   printf("port_list = [\n") >> b_file;
   for (i = 1; i <= i_label; i++) {
     name = label[i,1];
-    if (match(name,port_regexp))
-      printf("'%s'\n", name) >> b_file;
+    if (length(x[name])>0) {
+      if (match(name,port_regexp))
+	printf("'%s'\n", name) >> b_file;
+    }
   }
   printf("];\n\n") >> b_file;
   
 }