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
|
+
+
+
+
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.32 1999/08/29 06:54:42 peterg
## Added code (mtt_parameters, get args etc) to allow arguments to the
## a.out file
##
## Revision 1.31 1999/08/02 13:40:03 peterg
## Added zero-state and zero_input to include list
## Removed zero_matrix
##
## Revision 1.30 1999/04/20 06:16:46 peterg
## Removed calls to _switch.m
##
|
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
|
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
|
-
-
+
+
|
if ($1=="for"){
sub(/:/," TO ",$0)
sub(/=/,":=",$0)
printf("%s DO BEGIN\n", $0)
}
else{
sub(/=/,":=",$0)
sub(/endif/,"END{IF}",$0)
sub(/endfor/,"END{FOR}",$0)
sub(/endif/,"END;{IF}",$0)
sub(/endfor/,"END;{FOR}",$0)
sub(/else/,"END ELSE BEGIN",$0)
gsub(/\^/,"**",$0)
gsub(/&&/," AND ",$0)
gsub(/\|\|/," OR ",$0)
printf("%s\n",$0)
}
}
|