XlKeyButPrivate.mesa
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Christian Jacobi, February 19, 1991 4:14:01 pm PST
Christian Jacobi, March 7, 1991 4:29 pm PST
Private part of XlKeyBut, hides machine dependent conversion to/from 16 bit representation used by the X protocol. Does not do byte swapping.
DIRECTORY XlKeyBut;
XlKeyButPrivate: CEDAR DEFINITIONS =
BEGIN
SetToWire: PROC [k: XlKeyBut.SetOfKeyButMask] RETURNS [CARD16] = INLINE {
x: MSBIT WORD32 MACHINE DEPENDENT RECORD [
unused (0: 0..15): CARD16,
use (0: 16..31): CARD16
] = LOOPHOLE[k];
RETURN [x.use];
};
SetFromWire: PROC [k: CARD16] RETURNS [s: XlKeyBut.SetOfKeyButMask] = INLINE {
long: CARD32 = k;
RETURN [LOOPHOLE[long]];
};
END.