PeanutParse.mesa
Last edited by Doug Wyatt, November 23, 1983 1:27 pm
DIRECTORY
Rope;
PeanutParse: CEDAR DEFINITIONS =
BEGIN
Global types
ROPE: TYPE = Rope.ROPE;
Name: TYPE = REF NameRecord;
NameRecord: TYPE = RECORD [simpleName, registry, arpaHost: ROPENIL];
Qualification: TYPE = {unqualified, dotQualified, arpaQualified};
MessageFieldIndex: TYPE = {replyToF, senderF, fromF, toF, ccF, cF, bccF, dateF, subjectF, categoriesF, inReplyToF, voiceF}; -- order is significant
MessageFType: TYPE = {simpleRope, rCatList, rNameList};
MessageInfo: TYPE = RECORD[name: ROPE, fType: MessageFType];
messageParseArray: ARRAY MessageFieldIndex OF MessageInfo;
ParseStatus: TYPE = {ok, syntaxError};
CanonicalName:
PROC[simpleName, registry: ROPE] RETURNS[name: ROPE];
END.