<<>> <> <> <> DIRECTORY PBasics, CirioNub ; CirioNubPrivate: CEDAR DEFINITIONS ~ { <> Wrapper: TYPE ~ --WORD16-- MACHINE DEPENDENT RECORD [ tag: PBasics.HWORD, len: PBasics.HWORD ]; Tag: TYPE ~ MACHINE DEPENDENT { null (0), -- not used! procID(1), -- len = 4, val = CirioNub.ProcID[...] retCode(2), -- len = 4, val = CARD32[CirioNub.ReturnCode[...]] card32(3), -- len = 4, val = CARD32 int32(4), -- len = 4, val = INT32 string(5), -- len = n, val = n CHARs block8(6), -- len = n, val = n arbitrary BYTEs block16(7), -- len = 2*n, val = n arbitrary CARD16s block32(8), -- len = 4*n, val = n arbitrary CARD32s last(CARD16.LAST) }; }.