182 lines
6.3 KiB
OpenEdge ABL
182 lines
6.3 KiB
OpenEdge ABL
|
55100 #include "rundecs.h"
|
||
|
|
55110 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
55120 (**)
|
||
|
|
55130 (**)
|
||
|
|
55140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
|
||
|
|
55150 PROCEDURE SLCMN(STOWEDVAL: OBJECTP; INDEX, SLICDEX: INTEGER); EXTERN;
|
||
|
|
55160 (**)
|
||
|
|
55170 (**)
|
||
|
|
55180 FUNCTION GETSLN(NEWREFSLN:OBJECTP): OBJECTP;
|
||
|
|
55190 VAR OLDREF:OBJECTP;
|
||
|
|
55200 BEGIN
|
||
|
|
55210 WITH NEWREFSLN^ DO
|
||
|
|
55220 BEGIN
|
||
|
|
55230 OLDREF := PVALUE;
|
||
|
|
55240 ANCESTOR := OLDREF^.ANCESTOR;
|
||
|
|
55250 WITH ANCESTOR^ DO FINC;
|
||
|
|
55260 OSCOPE := OLDREF^.OSCOPE;
|
||
|
|
55270 CCOUNT := 1;
|
||
|
|
55280 END;
|
||
|
|
55290 IF FPTST(OLDREF^) THEN GARBAGE(OLDREF);
|
||
|
|
55300 GETSLN := NEWREFSLN;
|
||
|
|
55310 END;
|
||
|
|
55320 (**)
|
||
|
|
55330 (**)
|
||
|
|
55340 (*THE FOLLOWING PROCEDURES ARE USUALLY WRITTEN IN ASSEMBLER*)
|
||
|
|
55350 (**)
|
||
|
|
55360 (*-01()
|
||
|
|
55370 PROCEDURE STARTSL(NOROWS, DEPTH: INTEGER);
|
||
|
|
55380 (*PSTARTSLICE*)
|
||
|
|
55390 (* SOURDESC, SLICDESC, SOURDEX, SLICDEX, ADJACC *)
|
||
|
|
55400 BEGIN
|
||
|
|
55410 SOURDEX:= 0;
|
||
|
|
55420 SLICDEX:= 0;
|
||
|
|
55430 SOURDESC := ASPTR(GETSTKTOP(SZADDR, DEPTH));
|
||
|
|
55440 ENEW(SLICDESC, REFSLNCONST+NOROWS*SZPDS);
|
||
|
|
55450 ADJACC := SOURDESC^.LBADJ;
|
||
|
|
55460 WITH SLICDESC^ DO
|
||
|
|
55470 BEGIN
|
||
|
|
55480 (*-02() FIRSTWORD := SORTSHIFT * ORD(REFSLN); ()-02*)
|
||
|
|
55490 (*+02() PCOUNT:=0; SORT:=REFSLN; ()+02*)
|
||
|
|
55500 ROWS := NOROWS-1;
|
||
|
|
55510 MDBLOCK := SOURDESC^.MDBLOCK;
|
||
|
|
55520 SIZE := SOURDESC^.SIZE
|
||
|
|
55530 END;
|
||
|
|
55540 END;
|
||
|
|
55550 (**)
|
||
|
|
55560 (**)
|
||
|
|
55570 PROCEDURE TRIMS (* SOURDESC, SLICDESC, SOURDEX, SLICDEX, ADJACC,
|
||
|
|
55580 REVISEDLB, SLICEPDS *);
|
||
|
|
55590 (* ALL PARAMETERS ARE GLOBAL SINCE THERE ARE TOO MANY TO BE PASSED IN *)
|
||
|
|
55600 (* THE X REGISTERS AND THE PROCEDURES ARE NON RECURSIVE *)
|
||
|
|
55610 BEGIN
|
||
|
|
55620 WITH SLICEPDS DO
|
||
|
|
55630 BEGIN
|
||
|
|
55640 ADJACC := ADJACC+(REVISEDLB-LI)*DI;
|
||
|
|
55650 UI:= UI+REVISEDLB-LI;
|
||
|
|
55660 LI := REVISEDLB;
|
||
|
|
55670 SLICDESC^.DESCVEC[SLICDEX] := SLICEPDS;
|
||
|
|
55680 END;
|
||
|
|
55690 SOURDEX:= SOURDEX+1;
|
||
|
|
55700 SLICDEX:= SLICDEX+1;
|
||
|
|
55710 END;
|
||
|
|
55720 (* *)
|
||
|
|
55730 PROCEDURE SLICEA(DEPTH: INTEGER) (* SOURDESC, SOURDEX, SLICEPDS*);
|
||
|
|
55740 (*PTRIM - [ ]*)
|
||
|
|
55750 BEGIN
|
||
|
|
55760 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
55770 SLICDESC^.DESCVEC[SLICDEX] := SLICEPDS;
|
||
|
|
55780 SOURDEX := SOURDEX+1;
|
||
|
|
55790 SLICDEX := SLICDEX+1;
|
||
|
|
55800 END;
|
||
|
|
55810 (* *)
|
||
|
|
55820 PROCEDURE SLICEB(DEPTH: INTEGER) (*SOURDESC, SLICDESC, SOURDEX, SLICDEX, STACKPOS *);
|
||
|
|
55830 (*PTRIM+1 - [@N]*)
|
||
|
|
55840 BEGIN
|
||
|
|
55850 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
55860 REVISEDLB := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
55870 TRIMS;
|
||
|
|
55880 END;
|
||
|
|
55890 (* *)
|
||
|
|
55900 PROCEDURE SLICEC(DEPTH: INTEGER) (* ARGUEMENTS AS ABOVE *);
|
||
|
|
55910 (*PTRIM+2 - [ :U]*)
|
||
|
|
55920 BEGIN
|
||
|
|
55930 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
55940 REVISEDLB := 1;
|
||
|
|
55950 IF GETSTKTOP(SZINT, DEPTH)>SLICEPDS.UI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH), SOURDEX);
|
||
|
|
55960 SLICEPDS.UI := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
55970 TRIMS;
|
||
|
|
55980 END;
|
||
|
|
55990 (* *)
|
||
|
|
56000 PROCEDURE SLICED(DEPTH: INTEGER) (* AS ABOVE *);
|
||
|
|
56010 (*PTRIM+3 - [:U@N]*)
|
||
|
|
56020 BEGIN
|
||
|
|
56030 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
56040 REVISEDLB := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
56050 IF GETSTKTOP(SZINT, DEPTH+SZINT)>SLICEPDS.UI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, SZINT), SOURDEX);
|
||
|
|
56060 SLICEPDS.UI := GETSTKTOP(SZINT, DEPTH+SZINT);
|
||
|
|
56070 TRIMS;
|
||
|
|
56080 END;
|
||
|
|
56090 (* *)
|
||
|
|
56100 PROCEDURE SLICEE(DEPTH: INTEGER) (* AS ABOVE *);
|
||
|
|
56110 (*PTRIM+4 - [L: ]*)
|
||
|
|
56120 BEGIN
|
||
|
|
56130 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
56140 REVISEDLB:= 1;
|
||
|
|
56150 IF GETSTKTOP(SZINT, DEPTH)<SLICEPDS.LI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH), SOURDEX);
|
||
|
|
56160 SLICEPDS.LI := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
56170 TRIMS;
|
||
|
|
56180 END;
|
||
|
|
56190 (* *)
|
||
|
|
56200 PROCEDURE SLICEF(DEPTH: INTEGER) (* AS ABOVE *);
|
||
|
|
56210 (*PTRIM+5 - [L: @N]*)
|
||
|
|
56220 BEGIN
|
||
|
|
56230 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
56240 REVISEDLB := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
56250 IF GETSTKTOP(SZINT, DEPTH+SZINT)<SLICEPDS.LI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH+SZINT), SOURDEX);
|
||
|
|
56260 SLICEPDS.LI := GETSTKTOP(SZINT, DEPTH+SZINT);
|
||
|
|
56270 TRIMS;
|
||
|
|
56280 END;
|
||
|
|
56290 (* *)
|
||
|
|
56300 PROCEDURE SLICEG(DEPTH: INTEGER) (* AS ABOVE *);
|
||
|
|
56310 (*PTRIM+6 - [L:U]*)
|
||
|
|
56320 BEGIN
|
||
|
|
56330 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
56340 REVISEDLB:= 1;
|
||
|
|
56350 IF GETSTKTOP(SZINT, DEPTH)>SLICEPDS.UI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH), SOURDEX);
|
||
|
|
56360 SLICEPDS.UI := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
56370 IF GETSTKTOP(SZINT, DEPTH+SZINT)<SLICEPDS.LI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH+SZINT), SOURDEX);
|
||
|
|
56380 SLICEPDS.LI := GETSTKTOP(SZINT, DEPTH+SZINT);
|
||
|
|
56390 TRIMS;
|
||
|
|
56400 END;
|
||
|
|
56410 (* *)
|
||
|
|
56420 PROCEDURE SLICEH(DEPTH: INTEGER) (* AS ABOVE *);
|
||
|
|
56430 (*PTRIM+7 - [L:U@N]*)
|
||
|
|
56440 BEGIN
|
||
|
|
56450 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
56460 REVISEDLB := GETSTKTOP(SZINT, DEPTH);
|
||
|
|
56470 IF GETSTKTOP(SZINT, DEPTH+SZINT)>SLICEPDS.UI THEN SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH+SZINT), SOURDEX);
|
||
|
|
56480 SLICEPDS.UI := GETSTKTOP(SZINT, DEPTH+SZINT);
|
||
|
|
56490 IF GETSTKTOP(SZINT, DEPTH+2*SZINT)<SLICEPDS.LI THEN
|
||
|
|
56500 SLCMN(SOURDESC, GETSTKTOP(SZINT, DEPTH+2*SZINT), SOURDEX);
|
||
|
|
56510 SLICEPDS.LI := GETSTKTOP(SZINT, DEPTH+2*SZINT);
|
||
|
|
56520 TRIMS;
|
||
|
|
56530 END;
|
||
|
|
56540 (* *)
|
||
|
|
56550 PROCEDURE SLICEI(DEPTH: INTEGER) (* AS ABOVE *);
|
||
|
|
56560 (*PTRIM+8 - [:]*)
|
||
|
|
56570 BEGIN
|
||
|
|
56580 SLICEPDS := SOURDESC^.DESCVEC[SOURDEX];
|
||
|
|
56590 REVISEDLB:= 1;
|
||
|
|
56600 TRIMS;
|
||
|
|
56610 END;
|
||
|
|
56620 (* *)
|
||
|
|
56630 PROCEDURE SLICEJ(DEPTH: INTEGER) (* NOW INCLUDING ADJACC *);
|
||
|
|
56640 (*PTRIM+9 - [K]*)
|
||
|
|
56650 BEGIN
|
||
|
|
56660 WITH SOURDESC^.DESCVEC[SOURDEX] DO
|
||
|
|
56670 BEGIN
|
||
|
|
56680 IF (GETSTKTOP(SZINT, DEPTH)<LI) OR (GETSTKTOP(SZINT, DEPTH)>UI) THEN
|
||
|
|
56690 SLCMN (SOURDESC , GETSTKTOP (SZINT , DEPTH) , SOURDEX ) ;
|
||
|
|
56700 ADJACC := ADJACC-GETSTKTOP(SZINT, DEPTH)*DI;
|
||
|
|
56710 END;
|
||
|
|
56720 SOURDEX:= SOURDEX+1;
|
||
|
|
56730 END;
|
||
|
|
56740 (**)
|
||
|
|
56750 (**)
|
||
|
|
56760 FUNCTION ENDSL(PRIMARY: OBJECTP) (* SLICDESC, ADJACC +) : OBJECTP;
|
||
|
|
56770 (*PENDSLICE*)
|
||
|
|
56780 BEGIN
|
||
|
|
56790 SLICDESC^.LBADJ := ADJACC;
|
||
|
|
56800 SLICDESC^.PVALUE := PRIMARY;
|
||
|
|
56810 ENDSL := SLICDESC
|
||
|
|
56820 END;
|
||
|
|
56830 ()-01*)
|
||
|
|
56840 (**)
|
||
|
|
56850 (**)
|
||
|
|
56860 (*-02() BEGIN END ; ()-02*)
|
||
|
|
56870 (*+01()
|
||
|
|
56880 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
56890 END (*OF EVERYTHING*).
|
||
|
|
56900 ()+01*)
|