Index: mttroot/mtt/bin/trans/abg2sub_fig2sh
==================================================================
--- mttroot/mtt/bin/trans/abg2sub_fig2sh
+++ mttroot/mtt/bin/trans/abg2sub_fig2sh
@@ -12,10 +12,13 @@
   ###############################################################
   ## Version control history
   ###############################################################
   ## $Id$
   ## $Log$
+  ## Revision 1.3  2001/10/15 14:27:34  gawthrop
+  ## Now handles [1:N] style port labels
+  ##
   ## Revision 1.2  2001/07/23 23:26:23  gawthrop
   ## Removed some boring user feedback
   ##
   ## Revision 1.1  2001/06/11 19:47:49  gawthrop
   ## Makes the sub.sh file directly from the abg.fig file
@@ -22,31 +25,54 @@
   ## Used for making lbl files (abg2lbl_fig2txt)
   ##
   ##
   ###############################################################
 
-# Copyright (C) 1996--2001 by Peter J. Gawthrop
+# Copyright (C) 1996--2002 by Peter J. Gawthrop
+
+
+
+get_valid_components()
+
+{
+awk '
+function modulo10(x) {
+  return x-int(x/10)*10
+    }
+BEGIN{
+  polyline = 2;
+  text = 4;
+  compound_object = 6;
+
+}
+{
+object = $1;
+zero_depth =  (modulo10($4)==0)&&(object==text);
+if (zero_depth) print $0
+
+}' < $1_abg.fig
 
+}
 #if [ -f "$1_sub.sh" ]; then
 #    echo Using "$1_sub.sh"
 #    exit
 #else
     #Inform user
     echo Creating $1_sub.sh    
 #fi
 
-
 echo '# Commands to generate subsystem representations'>  $1_sub.sh
 echo "# File $1_sub.sh"			>> $1_sub.sh
 echo "# Generated by MTT on `date`."	>> $1_sub.sh
 echo					>> $1_sub.sh
 
-# Get a list of all components for the _abg file
-cat $1_abg.fig |\
+# Get a list of all components from the _abg file
+get_valid_components $1 |\
 grep -v '\[[0-9]*:[0-9]*\]' |\
-grep ':' |\
+grep -v '\[.*\]' |\
 awk '{if ($1==4) split($14,a,":"); print a[1]}'  |\
+sed 's/\\001//' |\
 sort -u > mtt_tmp1
 
 # Remove all components starting with 0 or 1
 grep -v '^[01]' < mtt_tmp1 > mtt_tmp4