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

CS.mesa

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;