DIRECTORY Rope, WalnutParseMsg, WalnutWindow; WalnutQuery: CEDAR DEFINITIONS = BEGIN LORA: TYPE = LIST OF REF ANY; ROPE: TYPE = Rope.ROPE; REFTEXT: TYPE = REF TEXT; LOR: TYPE = LIST OF ROPE; FilterToMsgSet: PROC [filter: REF ANY, msgSetName: ROPE, status: Status _ NIL] RETURNS [WalnutWindow.OutCome]; Status: TYPE = REF StatusRec; StatusRec: TYPE = RECORD [ phase: Phase _ idle, total, enumerated, accepted, added: NAT _ 0]; Phase: TYPE = {idle, preparing, enumerating, adding}; NewViewedStatus: PROC [name: ROPE _ NIL] RETURNS [status: Status --with a RecordViewer on it--]; Test: TYPE = REF TestRep; TestRep: TYPE = RECORD [ Eval: PROC [msg: Message, data: REF ANY] RETURNS [BOOL], data: REF ANY]; Message: TYPE = REF MessageRep; MessageRep: TYPE = RECORD [ msgID: ROPE, msList: LOR, headers: Headers]; Headers: TYPE = WalnutParseMsg.MsgHeaders; END. @WalnutQuery.mesa Spreitzer, July 25, 1985 8:34:22 pm PDT Κμ– "cedar" style˜codešœ™K™'—K˜KšΟk œ$˜-K˜KšΠbx œœ œ˜ K˜Kš˜K˜Kš œœœœœœ˜Kšœœœ˜Kšœœœœ˜Kš œœœœœ˜K˜KšΟnœœ œœœœœ˜nK˜Kšœœœ ˜šœ œœ˜K˜Kšœ$œ˜-—K˜Kšœœ*˜5K˜Kš ŸœœœœœΟcœ˜`K˜Kšœœœ ˜šœ œœ˜Kš Ÿœœœœœœ˜8Kšœœœ˜—K˜Kšœ œœ ˜šœ œœ˜Kšœœ˜ Kšœœ˜ K˜—K˜Kšœ œ˜*K˜Kšœ˜—…—d