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.27  1998/04/04 10:54:58  peterg
+## Remove a debugging print statement
+##
 ## Revision 1.26  1998/04/04 07:29:26  peterg
 ## SS now only port component
 ##
 ## Revision 1.25  1998/04/03 15:07:20  peterg
 ## Now correctly write 0/1 port names
@@ -215,11 +218,11 @@
 
   if (isa_PORT) {
     print str
   }
 
-# A port component is SS,0 or 1 followed by : followed by a port string
+# A port component is an SS  followed by a port string
   isa_port_component = 0;
   if (match(str, delimiter)) {
     split(str,a,delimiter);
     isa_port_component = (match(a[1], port_component_regexp))&&
       (match(a[2], port_regexp)>0)
@@ -250,12 +253,11 @@
     port_label  = substr(a[2],2,length(a[2])-2);
     x_port[i_port_component] = x_coord;
     y_port[i_port_component] = y_coord;
     info_port[i_port_component] = fig_info();
     port_labels[i_port_component] = port_label;
-    comp_type[port_label] = type;
-  }
+      }
 
 # Do the plain components
   if (isa_plain_component) {
     i_text++;
 
@@ -577,11 +579,11 @@
 
 
 # Do the port components, in order of appearance, first
   for (i = 1; i <= i_port_component; i++) {
     name = sprintf("[%s]", port_labels[i]);
-    port_type = comp_type[port_labels[i]];
+    port_type = "SS";
     cr   = "MTT_port";
     arg  = i;
 
     if (length(x_port[i])==0)
       printf(warning_p);