CDObjectProcs.mesa a Chipndale module
Copyright © 1983, 1984 by Xerox Corporation. All rights reserved.
by Ch. Jacobi September 14, 1983 3:22 pm
last edited Christian Jacobi October 24, 1984 2:20:55 pm PDT
DIRECTORY
CD,
SafeStorage;
CDObjectProcs: CEDAR DEFINITIONS =
BEGIN
RegisterFurther: PROC [key: REF, technology: CD.Technology←NIL, baseType: SafeStorage.Type ← SafeStorage.anyType];
--if baseType#anyType, use only ref's to baseType for storage
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.