11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.18 1999/11/14 22:22:17 peterg
# %% Removed checks for implicit - now done at command-line level.
# %%
# %% Revision 1.17 1999/11/04 04:54:24 peterg
# %% Removed recreation of smx file.
# %%
# %% Revision 1.16 1999/03/06 02:18:10 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.19 2000/02/11 13:35:16 peterg
# %% Added the new MTTpar generation
# %%
# %% Revision 1.18 1999/11/14 22:22:17 peterg
# %% Removed checks for implicit - now done at command-line level.
# %%
# %% Revision 1.17 1999/11/04 04:54:24 peterg
# %% Removed recreation of smx file.
# %%
# %% Revision 1.16 1999/03/06 02:18:10 peterg
|
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
echo "% Global variable list" >> $1_$2.m
sympar2global_txt2m $1 >> $1_$2.m
;;
esac
#Write out the variables in m format.
cat $1_$2.txt | grep -v METHOD |\
awk -F# 'BEGIN{
quote = "\047";
doublequote = "\042";
}
{
N=split($1,a,"=");
if (N==2) {
LHS = a[1];
|
|
|
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
echo "% Global variable list" >> $1_$2.m
sympar2global_txt2m $1 >> $1_$2.m
;;
esac
#Write out the variables in m format.
cat $1_$2.txt | grep -v METHOD |\
gawk -F# 'BEGIN{
quote = "\047";
doublequote = "\042";
}
{
N=split($1,a,"=");
if (N==2) {
LHS = a[1];
|
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
-e 's/u(/mttu(/g' \
-e 's/mttmtt/mtt/g' \
-e 's/#/%/g' \
>> $1_$2.m
if [ "$2" = "numpar" ]; then
awk '{
printf(" MTTpar(%i) \t= %s;\n",++i, tolower($1));
}'< $1_sympar.txt >>$1_numpar.m
fi
|
|
|
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
-e 's/u(/mttu(/g' \
-e 's/mttmtt/mtt/g' \
-e 's/#/%/g' \
>> $1_$2.m
if [ "$2" = "numpar" ]; then
gawk '{
printf(" MTTpar(%i) \t= %s;\n",++i, tolower($1));
}'< $1_sympar.txt >>$1_numpar.m
fi
|