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.6 1998/07/27 20:30:39 peterg
## Mods for dm rep - no globals ...
##
## Revision 1.5 1998/07/25 20:42:30 peterg
## No assignements for switch either
##
## Revision 1.4 1998/07/25 10:43:10 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.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
## No assignements for switch either
##
## Revision 1.4 1998/07/25 10:43:10 peterg
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
Rb=']';
;;
*)
echo Language $language not supported - sorry; exit 1
esac
# Appropriate emacs mode line
echo $modeline
|
>
|
>
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
Rb=']';
;;
*)
echo Language $language not supported - sorry; exit 1
esac
# Appropriate emacs mode line
cat <<EOF
$modeline
EOF
######### Octave (matlab) code
if [ "$language" = m ]; then
cat <<EOF
function $output = $1_$rep($args);
% $output = $1_$rep($args);
%System $system, representation $rep, language $language;
|