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