123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- 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*)
|