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
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.ObjectClass, key:
REF, value:
REF];
--slow, value must be type compatible with default
FetchFurther:
PROC [p:
REF READONLY CD.ObjectClass, key:
REF]
RETURNS [value:
REF];
--fast