24 lines
599 B
OpenEdge ABL
24 lines
599 B
OpenEdge ABL
47400 #include "rundecs.h"
|
|
47410 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
47420 (**)
|
|
47430 (**)
|
|
47440 FUNCTION SETCC(POINT: OBJECTP): OBJECTP;
|
|
47450 (*PCREATEREF+4*)
|
|
47460 (*A POSSIBLE PROCESS PARAMETER FOR DCL*)
|
|
47470 BEGIN
|
|
47480 WITH POINT^ DO
|
|
47490 IF (SORT=REFSL1) OR (SORT=REFSLN) THEN
|
|
47500 CCOUNT := 1; (*SET CCOUNT FOR OVERLAP SEARCH*)
|
|
47510 SETCC := POINT;
|
|
47520 END;
|
|
47530 (**)
|
|
47540 (**)
|
|
47550 (*-02()
|
|
47560 BEGIN
|
|
47570 END ;
|
|
47580 ()-02*)
|
|
47590 (*+01()
|
|
47600 BEGIN (*OF MAIN PROGRAM*)
|
|
47610 END (*OF EVERYTHING*).
|
|
47620 ()+01*)
|