57 lines
1.5 KiB
OpenEdge ABL
57 lines
1.5 KiB
OpenEdge ABL
47700 #include "rundecs.h"
|
|
47710 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
47720 (**)
|
|
47730 (**)
|
|
47740 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERN ;
|
|
47750 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN;
|
|
47760 (**)
|
|
47770 (**)
|
|
47780 FUNCTION SKIPS: INTEGER;
|
|
47790 (*PSKIP*)
|
|
47800 BEGIN SKIPS := INTUNDEF END;
|
|
47810 (**)
|
|
47820 (*-01()
|
|
47830 FUNCTION SKIPS2: A68LONG ;
|
|
47840 VAR TEMP: REALTEGER ;
|
|
47850 BEGIN
|
|
47860 WITH TEMP DO
|
|
47870 BEGIN
|
|
47880 INT := INTUNDEF ;
|
|
47890 INT2 := INTUNDEF ;
|
|
47900 SKIPS2 := LONG
|
|
47910 END
|
|
47920 END ;
|
|
47930 ()-01*)
|
|
47940 (**)
|
|
47950 FUNCTION SKIPPIL: OBJECTP;
|
|
47960 (*PSKIP+1*)
|
|
47970 BEGIN SKIPPIL := UNDEFIN END;
|
|
47980 (**)
|
|
47990 (**)
|
|
48000 FUNCTION SKIPSTR (TEMPLATE: DPOINT):OBJECTP;
|
|
48010 (*PSKIPSTRUCT*)
|
|
48020 BEGIN SKIPSTR := CRSTRUCT(TEMPLATE) END;
|
|
48030 (**)
|
|
48040 (**)
|
|
48050 FUNCTION NILP: OBJECTP;
|
|
48060 (*PNIL*)
|
|
48070 BEGIN NILP := NILPTR END;
|
|
48080 (**)
|
|
48090 (**)
|
|
48100 (*-01() (*-05()
|
|
48110 PROCEDURE VOID(POINT: OBJECTP);
|
|
48120 (*PVOIDNORMAL - USUALLY CODED INLINE*)
|
|
48130 BEGIN IF FPTST(POINT^) THEN GARBAGE(POINT) END;
|
|
48140 (**)
|
|
48150 (**)
|
|
48160 PROCEDURE VOIDN(NAK: NAKED);
|
|
48170 (*PVOIDNAKED - USUALLY CODED INLINE*)
|
|
48180 BEGIN IF FPTST(NAK.STOWEDVAL^) THEN GARBAGE(NAK.STOWEDVAL) END;
|
|
48190 ()-05*) ()-01*)
|
|
48200 (**)
|
|
48210 (**)
|
|
48220 (*-02() BEGIN END ; ()-02*)
|
|
48230 (*+01()
|
|
48240 BEGIN (*OF MAIN PROGRAM*)
|
|
48250 END (*OF EVERYTHING*).
|
|
48260 ()+01*)
|