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
@@ -10,10 +10,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+# Revision 1.12  1996/08/24  16:30:12  peter
+# Fixed error in nonport_regexp.
+#
 ## Revision 1.11  1996/08/19 10:48:57  peter
 ## Added `-' to the component regexp.
 ##
 ## Revision 1.10  1996/08/19 09:03:13  peter
 ## Parses repetative components: ie suffixed by *n.
@@ -419,12 +422,12 @@
 
 # Do the port components, in order, first
   for (i = 1; i <= i_port_component; i++) {
     port_type = "SS";
     name = sprintf("[%1.0f]", i);
-    cr   = i;
-    arg  = "";
+    cr   = "MTT_port";
+    arg  = i;
 
     if (length(x_port[i])==0)
       printf(warning_p);
     else {
       j++;
@@ -432,10 +435,11 @@
       printf("if i==%1.0f\n", j) 	>> c_file;
       printf("\tcomp_type = %s%s%s;\n", q, port_type, q) >> c_file;
       printf("\tname = %s%s%s;\n", q, name, q) >> c_file;
       printf("\tcr = %s%s%s;\n", q, cr, q) >> c_file;
       printf("\targ = %s%s%s;\n", q, arg, q) >> c_file;
+      printf("\trepetitions = 1;\n") >> c_file;
       print "end" >> c_file
 	}
     
   }