XMessagePrivate.mesa
Copyright (C) 1985, 1986 by Xerox Corporation. All rights reserved.
Tim Diebert: January 6, 1987 5:16:04 pm PST
DIRECTORY
CountedVM USING [Handle],
MessageFileFormat USING [Domain, MessageTable, TextBase],
NSString USING [String],
Rope USING [ROPE],
XMessage
USING [ClientData, DestroyMsgsProc];
XMessagePrivate: DEFINITIONS = BEGIN
ROPE: TYPE ~ Rope.ROPE;
Variant: TYPE = {rawData, file, pilotFile};
Object:
PUBLIC
TYPE =
RECORD [
proc: XMessage.DestroyMsgsProc,
clientData: XMessage.ClientData,
body:
SELECT tag: Variant
FROM
rawData => [
array: SEQUENCE maxMsgIndex: CARDINAL OF NSString.String],
file => [
fileInfo: FileInfo,
cvmH: CountedVM.Handle,
domain: MessageFileFormat.Domain,
textBase: MessageFileFormat.TextBase,
messageTable: MessageFileFormat.MessageTable],
pilotFile => [
domain: MessageFileFormat.Domain,
textBase: MessageFileFormat.TextBase,
messageTable: MessageFileFormat.MessageTable],
ENDCASE];
FileInfo: TYPE = REF FileInfoObject;
FileInfoObject:
TYPE =
RECORD [
stuff: REF ANY, -- I know I know.....
nDomains: CARDINAL];
END.