
<<CS.mesa>>
<<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
<<last edit by Satterthwaite, May 12, 1986 11:44:05 am PDT>>

DIRECTORY
BasicTime: TYPE USING [GMT],
Rope: TYPE USING [ROPE],
TimeStamp: TYPE USING [Stamp];

CS: CEDAR DEFINITIONS ~ {

<<variables>>
z: VAR ZONE;            -- use this zone to allocate all REF's

<<rope utilities>>
RootName: PROC[name: Rope.ROPE] RETURNS[root: Rope.ROPE];
ShortName: PROC[name: Rope.ROPE] RETURNS[Rope.ROPE];
DirectoryPart: PROC[name: Rope.ROPE] RETURNS[Rope.ROPE];
PartialName: PROC[name: Rope.ROPE] RETURNS[BOOL];
EndsIn: PROC[str: Rope.ROPE, suf: Rope.ROPE] RETURNS[BOOL];

GMTFromRope: PROC[r: Rope.ROPE] RETURNS[val: BasicTime.GMT];
RopeFromGMT: PROC[val: BasicTime.GMT] RETURNS[Rope.ROPE];
StampFromRope: PROC[r: Rope.ROPE] RETURNS[TimeStamp.Stamp];
RopeFromStamp: PROC[stamp: TimeStamp.Stamp] RETURNS[Rope.ROPE];

<<initialization>>
Init: PROC;

}.

