<> <> <> 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.