CDObjectProcs.mesa a Chipndale module
by Ch. Jacobi September 14, 1983 3:22 pm
last edited Christian Jacobi November 21, 1983 3:06 pm
CDObjectProcs: CEDAR DEFINITIONS =
BEGIN
RegisterFurther:
PROC [key:
REF, technology:
CD.Technology←
NIL, default:
REF←
NIL];
--if default#NIl use only values type compatible with default
StoreFurther:
PROC [p:
REF CD.ObjectProcs, key:
REF, value:
REF];
--slow, value must be type compatible with default
FetchFurther:
PROC [p:
REF READONLY CD.ObjectProcs, key:
REF]
RETURNS [value:
REF];
--fast
END.