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.8  2000/05/11 19:34:50  peterg
+## *** empty log message ***
+##
 ## Revision 1.7  1999/08/29 06:14:27  peterg
 ## No longer remove "PASCAL_MAIN"
 ##
 ## Revision 1.6  1999/04/20 06:17:15  peterg
 ## Fudge to avoid a bizzare bug (?) in p2c which corrupts "zero_matrix"
@@ -57,41 +60,45 @@
 echo Creating $1_$2.c
 
 # 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
+mv $1_$2.c mtt_junk.c
 
 # Change p2c.h include.
-mv $1_$2.c mtt_junk1
-cat mtt_junk1 | grep -v 'p2c/p2c.h'> mtt_junk2
+#mv $1_$2.c mtt_junk1#
+#cat mtt_junk1 | grep -v 'p2c/p2c.h'> mtt_junk2
 
 # pretty heading
 DATE=`date`
 
 cat <<EOF  >$1_$2.c
 /* C program  $1_$2.c */
 /* Generated by MTT on $DATE */
 
 /* Compile with cc -lm $1_$2.c */
-
-/* The following is the header file included here for completeness */
 EOF
 
-cat $MTTPATH/trans/c/p2c.h >> $1_$2.c
+#cat<<EOF >>$1_$2.c
+#/* The following is the header file included here for completeness */
+#EOF
 
-cat <<EOF >> $1_$2.c
-/* End of the header file. */
+#cat $MTTPATH/trans/c/p2c.h >> $1_$2.c
 
-
-EOF
+#cat <<EOF >> $1_$2.c
+#/* End of the header file. */
+#
+#
+#EOF
 
 ## The sed item is to avoid a bizzare bug (?) in p2c which corrupts "zero_matrix"
 ###cat mtt_junk2 | sed 's/zero_matrix/mttmat/g'>> $1_$2.c
 
-## Sort out the pascal EOF 
-cat mtt_junk2 | sed 's/P_eof/feof/'>> $1_$2.c
+## Sort out the pascal EOF, PASCAL_MAIN etc
+cat mtt_junk.c |\
+ grep -v PASCAL_MAIN >> $1_$2.c
 
 if [ -n "$info" ]; then
     cat mtt_p2c.log
 fi