DIRECTORYRope USING [ROPE];MTTreeOps: CEDAR DEFINITIONS= BEGINdiscretionaryBlank: CHAR = '\201;TreeToRope: PROC [tree: REF ANY, squeezeWhiteSpace: BOOL _ FALSE, insertDiscretionaryBlanks: BOOL _ FALSE] RETURNS [r: Rope.ROPE];TreeToSimpleRope: PROC [tree: REF ANY] RETURNS [r: Rope.ROPE];DomainType: TYPE = {registry, arpaDomain, unknown};DefaultDomain: PROC [tree: REF ANY] RETURNS [domainType: DomainType, domain: REF ANY];XeroxDomain: PROC RETURNS [domain: REF ANY --P1.DomainNode-- ];ToArpa: PROC [tree: REF ANY, defaultDomainType: DomainType, defaultDomain: REF ANY] RETURNS [newTree: REF ANY];ToGrapevine: PROC [tree: REF ANY, defaultDomainType: DomainType, defaultDomain: REF ANY] RETURNS [newTree: REF ANY];END.  †  MTTreeOps.mesaLast Edited by: HGM, April 20, 1985 10:00:08 pm PSTLast Edited by: Nichols, July 14, 1983 3:12 pmLast Edited by: Taft, February 5, 1984 1:48:47 pm PSTConvert the name list tree into a rope to put back into the mail header.  If squeezeWhiteSpace is TRUE, then ignore the whiteSpace in the tree and insert the appropriate amount (i.e. no blanks except after certain commas and between words.  If insertDiscretionaryBlanks is TRUE, put discretionaryBlank chars whereever a line break is legal.Convert the name list tree into a rope, skipping comments and white space.Given a name list tree, find the domain that should be used to default unqualified names in the header. The client is responsible for passing the name tree from the right header (From or Sender). The default domain is the domain (registry or Arpanet host) of the first qualified name in the tree. If domainType = arpaDomain, then domain points to an P1.DomainNode.  If domainType = registry, then domain points to an MT1.TerminalNode.Given a name tree, return the tree modified to allow it to be sent on to the Arpanet.  This is a destructive operation.  The default domain passed in is added to unqualified names and @Xerox.Arpa is added to Grapevine names.Given a name tree, return the tree modified to allow it to be sent to the Grapevine.  This is a destructive operation. @Xerox.Arpa is removed from Grapevine names.Ê‚  ˜ head™Ibody™3L™.L™5code2šÏk	˜	Mšœœœ˜——šœœ˜Mšœ˜Mšœœ	˜!šÏn
œœœœœœœœœ
œ˜‚MšœÔ™Ô—šžœœœœœ
œ˜>MšœJ™J—Mšœœ#˜3šžœœœœœ"œœ˜VM™²—Mšžœœœ
œœÏcœ˜?šžœœœœ0œœœœœ˜oM™à—šžœœœœ0œœœœœ˜tM™£—Mšœ˜—— …—    Ü  	ä  