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.3  1998/07/27 20:32:51  peterg
+## Now gives immediate warnings
+##
 ## Revision 1.2  1998/07/25 16:35:43  peterg
 ## Sorted out log files etc
 ##
 ## Revision 1.1  1998/07/25 16:28:38  peterg
 ## Initial revision
@@ -43,12 +46,12 @@
 
 # Use p2c to do the translation 
 p2c -V  $1_$2.p  | grep Warning # > mtt_p2c.log 2>> mtt_p2c.log
 cat $1_$2.log >> mtt_p2c.log
 
-# zap the PASCAL_MAIN which we don't want. 
+# zap the PASCAL_MAIN which we don't want and change p2c.h include.
 mv $1_$2.c mtt_junk
-grep -v 'PASCAL_MAIN' < mtt_junk > $1_$2.c
+grep -v 'PASCAL_MAIN' < mtt_junk  | sed 's@<p2c/p2c.h>@"p2c.h"@' >$1_$2.c
 
 if [ -n "$info" ]; then
     cat mtt_p2c.log
 fi