[ivy]<Satterthwaite>SML>CS.mesa!10

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