skip.p 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. 47700 #include "rundecs.h"
  2. 47710 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
  3. 47720 (**)
  4. 47730 (**)
  5. 47740 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERN ;
  6. 47750 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN;
  7. 47760 (**)
  8. 47770 (**)
  9. 47780 FUNCTION SKIPS: INTEGER;
  10. 47790 (*PSKIP*)
  11. 47800 BEGIN SKIPS := INTUNDEF END;
  12. 47810 (**)
  13. 47820 (*-01()
  14. 47830 FUNCTION SKIPS2: A68LONG ;
  15. 47840 VAR TEMP: REALTEGER ;
  16. 47850 BEGIN
  17. 47860 WITH TEMP DO
  18. 47870 BEGIN
  19. 47880 INT := INTUNDEF ;
  20. 47890 INT2 := INTUNDEF ;
  21. 47900 SKIPS2 := LONG
  22. 47910 END
  23. 47920 END ;
  24. 47930 ()-01*)
  25. 47940 (**)
  26. 47950 FUNCTION SKIPPIL: OBJECTP;
  27. 47960 (*PSKIP+1*)
  28. 47970 BEGIN SKIPPIL := UNDEFIN END;
  29. 47980 (**)
  30. 47990 (**)
  31. 48000 FUNCTION SKIPSTR (TEMPLATE: DPOINT):OBJECTP;
  32. 48010 (*PSKIPSTRUCT*)
  33. 48020 BEGIN SKIPSTR := CRSTRUCT(TEMPLATE) END;
  34. 48030 (**)
  35. 48040 (**)
  36. 48050 FUNCTION NILP: OBJECTP;
  37. 48060 (*PNIL*)
  38. 48070 BEGIN NILP := NILPTR END;
  39. 48080 (**)
  40. 48090 (**)
  41. 48100 (*-01() (*-05()
  42. 48110 PROCEDURE VOID(POINT: OBJECTP);
  43. 48120 (*PVOIDNORMAL - USUALLY CODED INLINE*)
  44. 48130 BEGIN IF FPTST(POINT^) THEN GARBAGE(POINT) END;
  45. 48140 (**)
  46. 48150 (**)
  47. 48160 PROCEDURE VOIDN(NAK: NAKED);
  48. 48170 (*PVOIDNAKED - USUALLY CODED INLINE*)
  49. 48180 BEGIN IF FPTST(NAK.STOWEDVAL^) THEN GARBAGE(NAK.STOWEDVAL) END;
  50. 48190 ()-05*) ()-01*)
  51. 48200 (**)
  52. 48210 (**)
  53. 48220 (*-02() BEGIN END ; ()-02*)
  54. 48230 (*+01()
  55. 48240 BEGIN (*OF MAIN PROGRAM*)
  56. 48250 END (*OF EVERYTHING*).
  57. 48260 ()+01*)