Overview
| Comment: | Added -noglobal option |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
91565f88a1a4e56fe4b418c4c9cdd7ef |
| User & Date: | gawthrop@users.sourceforge.net on 2000-04-08 10:23:38.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-04-08
| ||
| 10:43:26 | Initial revision check-in: 5a522e1ac8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 10:23:38 | Added -noglobal option check-in: 91565f88a1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-04-07
| ||
| 19:11:59 | reduce --> $SYMBOLIC check-in: ff30ff3cbd user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/lang_header
from [855d4ed75e]
to [1aec1a82a3].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #!/bin/sh # Generates function header for a computer language # PJ Gawthrop May 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.7 1999/01/20 22:19:21 peterg ## Puts emacs mode line at top of .m files ## ## Revision 1.6 1998/07/27 20:30:39 peterg ## Mods for dm rep - no globals ... ## ## Revision 1.5 1998/07/25 20:42:30 peterg | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #!/bin/sh # Generates function header for a computer language # PJ Gawthrop May 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.8 1999/02/16 04:14:53 peterg ## Small change to modeline generation ## ## Revision 1.7 1999/01/20 22:19:21 peterg ## Puts emacs mode line at top of .m files ## ## Revision 1.6 1998/07/27 20:30:39 peterg ## Mods for dm rep - no globals ... ## ## Revision 1.5 1998/07/25 20:42:30 peterg |
| ︙ | ︙ | |||
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
## This still needs worjk doing for c generation!!
##
## Revision 1.1 1998/05/23 16:17:40 peterg
## Initial revision
##
###############################################################
# Set up the language specific stuff
system=$1
rep=$2
language=$3
args=$4
output=$5
extras=$6
case $language in
m)
| > > > > > > > > > > > > | | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
## This still needs worjk doing for c generation!!
##
## Revision 1.1 1998/05/23 16:17:40 peterg
## Initial revision
##
###############################################################
# Args
while [ -n "`echo $1 | grep '^-'`" ]; do
case $1 in
-noglobal)
noglobal=noglobal;
;;
*)
echo $1 is an unknown option
exit;;
esac
shift
done
# Set up the language specific stuff
system=$1
rep=$2
language=$3
args=$4
output=$5
extras=$6
case $language in
m)
modeline='% -*-octave-*- Put Emacs into octave-mode%';
ext='m';
Lc='#';
Rc='#';
Lb='(';
Rb=')';
;;
c)
|
| ︙ | ︙ | |||
156 157 158 159 160 161 162 | cat <<EOF $Lc Extra bits here $Rc $extras EOF fi # Globals | > | > | 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 |
cat <<EOF
$Lc Extra bits here $Rc
$extras
EOF
fi
# Globals
if [ -z "$noglobal" ]; then
sympar2global_txt2lang $1 $language
fi
## if [ "$language" = "c" ] || [ "$language" = "m" ]; then
## if [ "$rep" != "sm" ]&&[ "$rep" != "dm" ]&&[ "$rep" != "switch" ]; then
## # Common part - ode (c and m)
## # Use octave for this bit - needs the definition file
## $MATRIX -q <<EOF
## %System structure
|
| ︙ | ︙ |