# Copyright (c) P.J.Gawthrop, 1997.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6  2004/02/11 10:10:04  gawthrop
## Includes a _pic.fig file (schematic) if such exists
##
## Revision 1.5  2004/02/10 16:12:21  gawthrop
## Don't give details of Se De Sf Df INTF
##
## Revision 1.4  2002/04/28 18:41:26  geraint
## Fixed [ 549658 ] awk should be gawk.
## Replaced calls to awk with call to gawk.
##

ignore(){ 
   gawk '
BEGIN{
ignored = " Se De Sf Df INTF ";
}
{
     subsys = sprintf(" %s ", $1);
     if (match(ignored,subsys0)==0)
     if (match(ignored,subsys)==0)
       print $1 
  }'
}

#Look for a command line argument
while [ -n "`echo $1 | grep '^-'`" ]; do
  case $1 in

 \label{sec:$1_sub} 
 \index{\textbf{$1} -- subsystems} 
EOF
cat $1_sub.tex   >> $filename

#Now do the subsystems (if at top level)
if [ -z "$2" ]; then
 sub2subs $1 | sort -u | ignore \
    sub2subs $1 | sort -u | ignore |\
  gawk '{print "abg2tex", pdf, $1, filename}' pdf=$pdf filename=$filename | sh
fi