Index: mttroot/mtt/bin/trans/cr_txt2r ================================================================== --- mttroot/mtt/bin/trans/cr_txt2r +++ mttroot/mtt/bin/trans/cr_txt2r @@ -14,10 +14,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.5 1998/03/09 13:36:00 peterg +## Cosmetic change +## ## Revision 1.4 1998/03/06 15:54:41 peterg ## Put message bcak in in simpler form ## ## Revision 1.3 1998/03/06 15:51:06 peterg ## Zapped the irritating error message @@ -46,25 +49,26 @@ ############################################################### if [ -f "$1_cr.r" ]; then echo "Using $1_cr.r" else - # Inform user echo "Creating $1_cr.r" echo "% Constitutive relation file for $1 ($1_cr.r)" > $1_cr.r echo "% Generated by MTT at `date`" >> $1_cr.r echo >> $1_cr.r - # Include subsystem CR files - where they exist. - ls *_cr.r |\ + # Recursively create subsystem CR files + sh $1_sub.sh 'cr_txt2r ' '' + + # Include subsystem CR files + sh $1_sub.sh 'echo ' '_cr.r' |\ awk '{ - if ($1 != SYS) print "in \"" $1 "\";" - }' SYS=$1_cr.r >> $1_cr.r + }' >> $1_cr.r # Copy .cr files awk '{ if (NF>0) { print "mtt -q -u crcopy " $1;