Index: mttroot/mtt/bin/trans/mtt_p2c ================================================================== --- mttroot/mtt/bin/trans/mtt_p2c +++ mttroot/mtt/bin/trans/mtt_p2c @@ -14,10 +14,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.1 1998/07/25 16:28:38 peterg +## Initial revision +## ############################################################### # Options info='' @@ -33,17 +36,17 @@ # Inform user echo Creating $1_$2.c # Use p2c to do the translation - but zap the PASCAL_MAIN which we don't want. -p2c -V $1_$2.p > mtt_p2c.log 2>/dev/null +p2c -V $1_$2.p 2>/dev/null -mv $1_$2.p mtt_junk -grep -v 'PASCAL_MAIN' < mtt_junk > $1_$2.p +mv $1_$2.c mtt_junk +grep -v 'PASCAL_MAIN' < mtt_junk > $1_$2.c # Info if needed if [ -n "$info" ]; then cat $1_ode2odes.log else rm -f $1_ode2odes.log fi