Overview
Comment: | Initial revision |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
5a3e6a877379a062263d84c3287cb278 |
User & Date: | gawthrop@users.sourceforge.net on 1998-07-25 16:28:38 |
Other Links: | branch diff | manifest | tags |
Context
1998-07-25
| ||
16:35:12 | Incorporated mtt_p2c (uses p2c) check-in: 4611cb58d2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
16:28:38 | Initial revision check-in: 5a3e6a8773 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
16:14:44 | *** empty log message *** check-in: ed48555f41 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/bin/trans/mtt_p2c version [cffc50768b].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #! /bin/sh ###################################### ##### Model Transformation Tools ##### ###################################### # Bourne shell script: mtt_p2c # Pascal to c converter for MTT # Uses the wonderful GNU p2c by Dave Gillespie, daveg@csvax.cs.caltech.edu. # P.J.Gawthrop July 1998 # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ############################################################### # Options info='' while [ -n "`echo $1 | grep '^-'`" ]; do case $1 in -I ) info=info;; *) echo "$1 is an invalid argument - ignoring" ;; esac shift done # 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 mv $1_$2.p mtt_junk grep -v 'PASCAL_MAIN' < mtt_junk > $1_$2.p # Info if needed if [ -n "$info" ]; then cat $1_ode2odes.log else rm -f $1_ode2odes.log fi |