CHNameP2V0AuxImpl.Mesa
Copyright Ó 1986, 1991 by Xerox Corporation. All rights reserved.
Generated by Demers.pa at January 15, 1987 5:55:39 pm PST
using Sirocco [2.0] of January 6, 1987 4:07:33 pm PST
CHNameP2V0AuxImpl:
CEDAR
PROGRAM
IMPORTS Rope
EXPORTS CHNameP2V0Aux ~ {
OPEN CHNameP2V0, CHNameP2V0Aux;
ROPE: TYPE ~ Rope.ROPE;
ExposeTwoPartName:
PUBLIC
PROC [arg: TwoPartName, level:
NAT]
RETURNS [res:
ROPE] ~ {
res ¬ "[";
res ¬ Rope.Cat[res, "organization~", arg.organization, ", "];
res ¬ Rope.Cat[res, "domain~", arg.domain, "]"];
};
ExposeThreePartName:
PUBLIC
PROC [arg: ThreePartName, level:
NAT]
RETURNS [res:
ROPE] ~ {
res ¬ "[";
res ¬ Rope.Cat[res, "organization~", arg.organization, ", "];
res ¬ Rope.Cat[res, "domain~", arg.domain, ", "];
res ¬ Rope.Cat[res, "object~", arg.object, "]"];
};