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
45
46
47
48
49
50
51
52
|
## 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)
modeline='% -*-octave-*- Put Emacs into octave-mode';
ext='m';
Lc='#';
Rc='#';
Lb='(';
Rb=')';
;;
c)
|
>
>
>
>
>
>
>
>
>
>
>
>
|
|
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
163
164
165
166
167
168
169
170
|
cat <<EOF
$Lc Extra bits here $Rc
$extras
EOF
fi
# Globals
sympar2global_txt2lang $1 $language
## 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
|
>
|
>
|
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
|