31 lines
751 B
OpenEdge ABL
31 lines
751 B
OpenEdge ABL
|
37200 #include "rundecs.h"
|
||
|
|
37210 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
37220 (**)
|
||
|
|
37230 (**)
|
||
|
|
37240 FUNCTION RELSUP(REF: OBJECTP): UNDRESSP; EXTERN;
|
||
|
|
37250 (**)
|
||
|
|
37260 (**)
|
||
|
|
37270 FUNCTION IS(LEFT, RIGHT: OBJECTP): INTEGER;
|
||
|
|
37280 (*PIDTYREL*)
|
||
|
|
37290 BEGIN
|
||
|
|
37300 IF RELSUP(LEFT)=RELSUP(RIGHT) THEN
|
||
|
|
37310 IS := -1
|
||
|
|
37320 ELSE IS := 0
|
||
|
|
37330 END;
|
||
|
|
37340 (**)
|
||
|
|
37350 (**)
|
||
|
|
37360 FUNCTION ISNT(LEFT, RIGHT: OBJECTP): INTEGER;
|
||
|
|
37370 (*PIDTYREL+1*)
|
||
|
|
37380 BEGIN
|
||
|
|
37390 IF RELSUP(LEFT)<>RELSUP(RIGHT) THEN
|
||
|
|
37400 ISNT := -1
|
||
|
|
37410 ELSE ISNT := 0
|
||
|
|
37420 END;
|
||
|
|
37430 (**)
|
||
|
|
37440 (**)
|
||
|
|
37450 (*-02() BEGIN END ; ()-02*)
|
||
|
|
37460 (*+01()
|
||
|
|
37470 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
37480 END (*OF EVERYTHING*).
|
||
|
|
37490 ()+01*)
|