43 lines
1.2 KiB
OpenEdge ABL
43 lines
1.2 KiB
OpenEdge ABL
38300 #include "rundecs.h"
|
|
38310 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
38320 (**)
|
|
38330 (**)
|
|
38340 FUNCTION LINIT1(TOO: INTEGER; PTR: BYLPP): BOOLEAN ;
|
|
38350 (*PLOOPINIT*)
|
|
38360 BEGIN
|
|
38370 FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT +1 ;
|
|
38380 WITH PTR^ DO
|
|
38390 BEGIN
|
|
38400 LOOPTYP := 1;
|
|
38410 BYPART := GETSTKTOP(SZINT, 0);
|
|
38420 FROMPART := GETSTKTOP(SZINT, SZINT);
|
|
38430 TOPART := TOO;
|
|
38440 IF BYPART>0 THEN LINIT1 := TOPART>=FROMPART
|
|
38450 ELSE IF BYPART<0 THEN LINIT1 := TOPART<=FROMPART
|
|
38460 ELSE LINIT1 := TRUE;
|
|
38470 END;
|
|
38480 END;
|
|
38490 (**)
|
|
38500 (**)
|
|
38510 (*-01()
|
|
38520 FUNCTION LOOPINC(PTR: BYLPP): BOOLEAN ;
|
|
38530 BEGIN
|
|
38540 WITH PTR^ DO
|
|
38550 BEGIN
|
|
38560 FROMPART := FROMPART+BYPART;
|
|
38570 IF BYPART>0 THEN LOOPINC := TOPART>=FROMPART
|
|
38580 ELSE IF BYPART<0 THEN LOOPINC := TOPART<=FROMPART
|
|
38590 ELSE LOOPINC := TRUE;
|
|
38600 END;
|
|
38610 END ;
|
|
38620 ()-01*)
|
|
38630 (**)
|
|
38640 (**)
|
|
38650 (*-02()
|
|
38660 BEGIN
|
|
38670 END ;
|
|
38680 ()-02*)
|
|
38690 (*+01()
|
|
38700 BEGIN (*OF MAIN PROGRAM*)
|
|
38710 END (*OF EVERYTHING*).
|
|
38720 ()+01*)
|