-- File: WalnutParse.mesa

-- Contents: Types for Parsing messages
-- Last edit by:
  --   Rick on: xxx
  --   Willie-Sue on: September 9, 1983 2:48 pm

DIRECTORY
  Rope;
  
WalnutParse: CEDAR DEFINITIONS =

BEGIN

-- Global types

ROPE: TYPE = Rope.ROPE;

Qualification: TYPE = {unqualified, dotQualified, arpaQualified};
MessageFieldIndex: TYPE = {            -- order is significant
      replyToF, senderF, fromF, toF, ccF, cF, bccF, dateF, subjectF, categoriesF,
      inReplyToF, voiceF}; 
  
MessageFType: TYPE = {simpleRope, rCatList, rNameList};
MessageInfo: TYPE = RECORD[name: ROPE, fType: MessageFType];

messageParseArray: ARRAY MessageFieldIndex OF MessageInfo;

ParseStatus: TYPE = {ok, syntaxError};

-- handy procedures
 -- from WalnutSendMailImpl

CanonicalName: PROC[simpleName, registry: ROPE] RETURNS[name: ROPE];

END.