8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
# Arguments
system=$1
rep=$2
language=$3
args=$4
|
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 2000/10/10 21:02:27 peterg
## Initial revision
##
###############################################################
# Arguments
system=$1
rep=$2
language=$3
args=$4
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
ext='m';
Lc='##';
Rc='';
Lb='(';
Rb=')';
function="function"
declaration="[$output] = $1_$rep($args);"
;;
*)
echo Language $language not supported - sorry; exit 1
esac
# Header information
cat<<EOF
$modeline
$function $declaration
$Lc $declaration
$Lc System $system, representation $rep, language $language; $Rc
$Lc File $1_$rep.$ext; $Rc
$Lc Generated by MTT on `date`; $Rc
EOF
# Parameters
cat <<EOF
$Lc Parameters
EOF
sympar2par_txt2m $1
|
>
>
>
>
>
>
>
>
>
>
|
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
ext='m';
Lc='##';
Rc='';
Lb='(';
Rb=')';
function="function"
declaration="[$output] = $1_$rep($args);"
noglobals=true; # Fudge to make mtt_m2p work
;;
*)
echo Language $language not supported - sorry; exit 1
esac
# Header information
cat<<EOF
$modeline
$function $declaration
$Lc $declaration
$Lc System $system, representation $rep, language $language; $Rc
$Lc File $1_$rep.$ext; $Rc
$Lc Generated by MTT on `date`; $Rc
EOF
if [ -n "$noglobals" ]; then
cat<<EOF
## Horrible fudge to make mtt_m2p work
global ...
mtt_no_globals ;
EOF
fi
# Parameters
cat <<EOF
$Lc Parameters
EOF
sympar2par_txt2m $1
|