11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.50 2000/05/19 17:46:41 peterg
## New version of state with par argument
##
## Revision 1.49 2000/05/18 09:45:45 peterg
## Fixed missing ;
##
## Revision 1.48 2000/05/18 09:39:38 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.51 2000/08/01 12:25:24 peterg
## Some changes to include files
##
## Revision 1.50 2000/05/19 17:46:41 peterg
## New version of state with par argument
##
## Revision 1.49 2000/05/18 09:45:45 peterg
## Fixed missing ;
##
## Revision 1.48 2000/05/18 09:39:38 peterg
|
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
|
if ($1=="if") {
sub(/==/, "=", $0)
gsub(/&&/," AND ",$0)
gsub(/\|\|/," OR ",$0)
printf("%s THEN BEGIN\n", $0)
}
else {
if ((match($1,"mtt_write")>0)&&(length(Stdin)>0)) {
sub(/mtt_write/, "if NOT eof THEN mtt_write");
}
if ($1=="for"){
if (($2=="it")&&(length(Stdin)>0)){
printf("WHILE NOT eof DO BEGIN {Integration loop}\n")
}
else {
sub(/:/," TO ",$0)
sub(/=/,":=",$0)
|
|
|
<
>
|
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
|
if ($1=="if") {
sub(/==/, "=", $0)
gsub(/&&/," AND ",$0)
gsub(/\|\|/," OR ",$0)
printf("%s THEN BEGIN\n", $0)
}
else {
#if ((match($1,"mtt_write")>0)&&(length(Stdin)>0)) {
# sub(/mtt_write/, "if NOT eof THEN mtt_write");
#}
if ($1=="for"){
if (($2=="it")&&(length(Stdin)>0)){
printf("WHILE NOT eof DO BEGIN {Integration loop}\n")
}
else {
sub(/:/," TO ",$0)
sub(/=/,":=",$0)
|