DeviceClassTypes.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Bier, October 31, 1991 2:17 pm PST
Contents: Class definitions and opaque type definitions for routines on input devices, such as keyboard, mouse, pen, trackball, etc.
DeviceClassTypes: CEDAR DEFINITIONS = BEGIN
Device: TYPE = DeviceTypes.Device;
DeviceClass: TYPE = REF DeviceClassObj;
DeviceClassObj:
TYPE =
RECORD [
name: ATOM,
getDeviceState: GetDeviceStateProc
];
DeviceState: TYPE = DeviceTypes.DeviceState;
GetDeviceStateProc:
TYPE =
PROC [device: Device]
RETURNS [state: DeviceState];
Allocates storage representing the state of a device. Each DeviceState is immutable, so they may be freely stored in long-term storage.
END.