DIRECTORY
DeviceTypes;

Devices: CEDAR DEFINITIONS = BEGIN

Device: TYPE = DeviceTypes.Device;
DeviceClass: TYPE = DeviceTypes.DeviceClass;
DeviceState: TYPE = DeviceTypes.DeviceState;

QuaClass: PROC [ref: REF] RETURNS [class: DeviceClass];
NameOfClass: PROC [class: DeviceClass] RETURNS [name: ATOM];
ClassOfDevice: PROC [device: Device] RETURNS [class: DeviceClass];

RegisterClass: PROC [class: DeviceClass, name: ATOM];
ClassFromName: PROC [name: ATOM] RETURNS [class: DeviceClass ¬ NIL];

StateOfDevice: PROC [device: Device] RETURNS [DeviceState];
END.

     
Devices.mesa
Copyright Ó 1991, 1992 by Xerox Corporation.  All rights reserved.
Bier, November 6, 1991 1:18 pm PST
Contents:  Routines on devices and device classes (e.g., keyboards, mice, pens, etc.).

Narrows ref to DeviceClass.  Clients can't do this themselves because DeviceTypes.DeviceClass is an Opaque type.  Returns NIL if ref is the wrong type.

For keyboards and mice, this returns the state with all keys up.  For pointing devices, the device begins at position [0,0] in 2D, [0,0,0] in 3D, etc.

 ÊV  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ	Ïeœ6™BKšœ"™"KšœV™VK™ —šÏk	˜	Kšœ˜—K˜ KšÏnœžœžœž˜"K˜ Kšœžœ˜"Kšœžœ˜,Kšœžœ˜,K˜ šŸœžœžœžœ˜7Kšœ—™—K™ —KšŸœžœžœžœ˜<KšŸœžœžœ˜BK˜ KšŸœžœžœ˜5Kš
Ÿœžœžœžœžœ˜DK˜ šŸœžœžœ˜;K™–K™ —Kšžœ˜K˜ — …—    2  Œ  