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.9 2000/04/08 10:23:38 peterg
## Added -noglobal option
##
## 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
|
>
>
>
|
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.10 2000/04/18 11:14:32 peterg
## - parameters option
##
## Revision 1.9 2000/04/08 10:23:38 peterg
## Added -noglobal option
##
## 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
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
## Initial revision
##
###############################################################
# Args
while [ -n "`echo $1 | grep '^-'`" ]; do
case $1 in
-noglobal)
noglobal=noglobal;
;;
-parameters)
parameters=parameters;
;;
*)
echo $1 is an unknown option
exit;;
|
|
|
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
## Initial revision
##
###############################################################
# Args
while [ -n "`echo $1 | grep '^-'`" ]; do
case $1 in
-noglobals)
noglobals=noglobals;
;;
-parameters)
parameters=parameters;
;;
*)
echo $1 is an unknown option
exit;;
|
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
cat <<EOF
$Lc Extra bits here $Rc
$extras
EOF
fi
# Globals
if [ -z "$noglobal" ]; then
sympar2global_txt2lang $1 $language
else
cat<<EOF
global ...
mtt_no_globals ..
;
EOF
fi
# Explicit parameters
if [ -n "$parameters" ]; then
sympar2par_txt2m $1
fi
|
|
|
|
|
|
<
|
|
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
|
cat <<EOF
$Lc Extra bits here $Rc
$extras
EOF
fi
# Globals
if [ -z "$noglobals" ]; then
sympar2global_txt2lang $1 $language
#else
#cat<<EOF
#global ...
#mtt_no_globals ;
#EOF
fi
# Explicit parameters
if [ -n "$parameters" ]; then
sympar2par_txt2m $1
fi
|