48 lines
1.4 KiB
OpenEdge ABL
48 lines
1.4 KiB
OpenEdge ABL
82800 #include "rundecs.h"
|
|
82810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
82820 (**)
|
|
82830 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
|
|
82840 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
|
|
82850 (*+01() (*$X4*) ()+01*)
|
|
82860 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN;
|
|
82870 (**)
|
|
82880 (*******POSITION ENQUIRIES*******)
|
|
82890 (**)
|
|
82900 FUNCTION CHARNUMBER(RF:OBJECTP): INTEGER;
|
|
82910 VAR F:OBJECTP;
|
|
82920 BEGIN TESTF(RF,F);
|
|
82930 WITH F^.PCOVER^ DO
|
|
82940 IF [OPENED]<=STATUS THEN CHARNUMBER := COFCPOS
|
|
82950 ELSE ERRORR(NOTOPEN);
|
|
82960 IF FPTST(RF^) THEN GARBAGE(RF);
|
|
82970 END;
|
|
82980 (**)
|
|
82990 (**)
|
|
83000 FUNCTION LINENUMBER(RF:OBJECTP): INTEGER;
|
|
83010 VAR F:OBJECTP;
|
|
83020 BEGIN TESTF(RF,F);
|
|
83030 WITH F^.PCOVER^ DO
|
|
83040 IF [OPENED]<=STATUS THEN LINENUMBER := LOFCPOS
|
|
83050 ELSE ERRORR(NOTOPEN);
|
|
83060 IF FPTST(RF^) THEN GARBAGE(RF);
|
|
83070 END;
|
|
83080 (**)
|
|
83090 (**)
|
|
83100 FUNCTION PAGENUMBER(RF:OBJECTP): INTEGER;
|
|
83110 VAR F:OBJECTP;
|
|
83120 BEGIN TESTF(RF,F);
|
|
83130 WITH F^.PCOVER^ DO
|
|
83140 IF [OPENED]<=STATUS THEN PAGENUMBER := POFCPOS
|
|
83150 ELSE ERRORR(NOTOPEN);
|
|
83160 IF FPTST(RF^) THEN GARBAGE(RF);
|
|
83170 END;
|
|
83180 (**)
|
|
83190 (*-02()
|
|
83200 BEGIN (*OF A68*)
|
|
83210 END; (*OF A68*)
|
|
83220 ()-02*)
|
|
83230 (*+01()
|
|
83240 BEGIN (*OF MAIN PROGRAM*)
|
|
83250 END (* OF EVERYTHING *).
|
|
83260 ()+01*)
|