11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
+
+
+
+
+
+
+
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.18 2002/06/17 08:50:00 geraint
# %% Changed pattern to prevent 'max(' from being translated to 'mamttx('.
# %%
# %% Revision 1.17 2002/04/28 18:41:27 geraint
# %% Fixed [ 549658 ] awk should be gawk.
# %% Replaced calls to awk with call to gawk.
# %%
# %% Revision 1.16 2002/04/18 17:51:11 gawthrop
# %% Put default values in _simpar.m in case of missing values in txt file
# %%
# %% Revision 1.15 2002/03/26 12:00:37 geraint
# %% Escaped characters to eliminate awk warnings.
# %%
# %% Revision 1.14 2001/07/13 04:54:04 geraint
|
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
-
-
+
+
|
statement = $1;
if (NF<2) print " " statement
if (NF>1) print statement " # " $2
}' | sed\
-e 's/\[\([0-9]*\)\]/(\1)/g' \
-e 's/\([^a-zA-Z_0-9]\)t\([^a-zA-Z_0-9]\)/\1mttt\2/g' \
-e 's/x(/mttx(/g' \
-e 's/u(/mttu(/g' \
-e 's/\([^a-zA-Z_0-9]\)x(/\1mttx(/g' \
-e 's/\([^a-zA-Z_0-9]\)u(/\1mttu(/g' \
-e 's/mttmtt/mtt/g' \
| tolower >> $outfile
if [ -n "$arraycode" ]; then
new_style=`strip_comments < $1_$2.txt| grep "$name(">/dev/null; echo $?`
if [ "$new_style" = "1" ]; then
|