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,16 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+# 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.
+#
 # Revision 1.17  1997/01/02  11:21:17  peterg
 # Now assumes all components bonds etc at depth zero in fig file.
 # Ie anything at depth>0 is ignored.
 # Thanks to Donald for suggesting this.
 #
@@ -386,12 +392,12 @@
       for (i=2; i<=NF; i++)
 	printf(" %s", $i)  >> bnd_file;
     printf("\n") >> bnd_file
       }
 
-# Components
-  if ( (isa_component==1) ) {
+# Components & ports
+  if ( isa_component||isa_port ) {
         for (i=1; i<=NF; i++)
 	printf(" %s", $i)  >> cmp_file;
     printf("\n") >> cmp_file
 }
 }