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.19  1997/03/19  09:49:39  peterg
+# Ports now written in cmp file.
+#
 # Revision 1.18  1997/03/19  09:42:08  peterg
 # Now writes out the following additional fig  files:
 # _head.fig	The fig header
 # _bnd.fig	The bonds actually used
 # _cmp.fig	The components actually used.
@@ -264,11 +267,13 @@
 	  label[i_label,2] = CR;
 	  label[i_label,3] = args
 	    }
 
 # Give it a new entry if already used
+#  -- also tell user as it is an error now(?)
       if (name_used) {
+	printf(warning_u, name);
 	i_label++;
 	i_name++;
 	name = sprintf("%1.0f", i_name);
 	label[i_label,1] = name; 
 	label[i_label,2] = CR;
@@ -453,11 +458,12 @@
   bnd_file = sprintf("%s_bnd.fig", sys_name);
   head_file = sprintf("%s_head.fig", sys_name);
 
   warning_f = "WARNING %s \t in fig file but not lbl file  - using\n";
   warning_l = "WARNING %s \t in lbl file but not fig file  - ignoring\n";
-  warning_p = "WARNING system ports are not consecutively numbered\n";
+  warning_p = "ERROR system ports are not consecutively numbered\n";
+  warning_u = "ERROR %s has already appeared in the fig file\n";
 
   data_symbol = "----";
   out_data_symbol = "\t";
   default_cr = "";
   default_args = "";