<> <> DIRECTORY ImagerBasic USING [ImagingDevice, DeviceProcs], Imager USING [Context]; ImagerDeviceImpl: CEDAR PROGRAM IMPORTS EXPORTS Imager = BEGIN OPEN ImagerBasic; <> RegisterDevice: PUBLIC PROC [name: ImagingDevice, procs: DeviceProcs] = { -- Atom.PutProp[imagingDevice, deviceClassProp, NEW[DeviceClassRec _ [initializationProcedure, deviceParameters, procs]]]; }; EnumerateRegisteredDevices: PUBLIC PROC [] RETURNS [LIST OF ImagingDevice] = { RETURN [ NIL ]; }; SetDevice: PUBLIC PROC [context: Context, device: ImagingDevice] = {}; <> GetDevice: PUBLIC PROC [context: Context] RETURNS [ImagingDevice] = { RETURN [ context.device ]; }; <> <> END.