12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
+
+
+
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10 2000/09/15 09:01:41 peterg
## Updated internal comments
##
## Revision 1.9 2000/05/16 18:56:58 peterg
## Now realised that libp2c.a avoids many probs - so simplified it.
##
## Revision 1.8 2000/05/11 19:34:50 peterg
## *** empty log message ***
##
## Revision 1.7 1999/08/29 06:14:27 peterg
|
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
+
|
cat <<EOF >$1_$2.c
/* C program $1_$2.c */
/* Generated by MTT on $DATE */
/* Compile with gcc -lm -lp2c $1_$2.c -o $1_$2.out */
/* Note that p2c must be correctly installed so that p2c.h and libp2c.a are accessible */
#include "$1.h"
EOF
#cat<<EOF >>$1_$2.c
#/* The following is the header file included here for completeness */
#EOF
#cat $MTTPATH/trans/c/p2c.h >> $1_$2.c
|
101
102
103
104
105
106
107
108
|
105
106
107
108
109
110
111
112
113
|
-
+
+
|
cat mtt_junk.c |\
grep -v PASCAL_MAIN >> $1_$2.c
if [ -n "$info" ]; then
cat mtt_p2c.log
fi
# Remove the garbage
rm -f mtt_junk.c
|