

DIRECTORY
Rope USING [ROPE];

SystemNames: CEDAR DEFINITIONS ~ {

ROPE: TYPE ~ Rope.ROPE;


UserName: PROC RETURNS [ROPE];

MachineName: PROC RETURNS [ROPE];


Release: TYPE ~ { current, previous, next };

ReleaseName: PROC [release: Release ¬ $current] RETURNS [ROPE];
ReleaseDir: PROC [dir: ROPE ¬ NIL, release: Release ¬ $current] RETURNS [ROPE];

ReleaseSubDir: PROC [subDirs: ROPE ¬ NIL, release: Release ¬ $current] RETURNS [ROPE];

ReleaseOption: TYPE ~ {releaseDir, releaseSubDir, releaseOmitted};

MachineLocalDir: PROC [subDirs: ROPE ¬ NIL, option: ReleaseOption ¬ $releaseSubDir,
release: Release ¬ $current] RETURNS [ROPE];
CedarDir: PROC [subDirs: ROPE ¬ NIL, release: Release ¬ $current, dir: ROPE ¬ NIL]
RETURNS [ROPE];
SimpleHomeDirectory: PROC RETURNS [ROPE];

UserCedarDir: PROC [subDirs: ROPE, option: SystemNames.ReleaseOption ¬ $releaseOmitted,
release: SystemNames.Release ¬ $current] RETURNS [ROPE];

}.
   ز  SystemNames.mesa
Copyright س 1987, 1989, 1991 by Xerox Corporation.  All rights reserved.
Doug Wyatt, January 24, 1987 6:57:16 pm PST
JKF September 13, 1988 3:14:50 pm PDT
Willie-Sue, March 15, 1989 5:07:43 pm PST
Willie-s, August 19, 1991 2:10 pm PDT
Michael Plass, August 19, 1991 1:12 pm PDT
... returns the short name of the current user; "wyatt", for example.
... returns the short name of the current machine; "chorus", for example.
... returns the Cedar release number (without patch number) as a rope.
Examples:
ReleaseName[] --> "7.3"
ReleaseName[$previous] --> "7.2"

... appends a release number to the directory as follows:
Examples:
ReleaseDir[] --> "Cedar7.3"
ReleaseDir["DATools", $previous] --> "DATools7.2"
... inserts the release number in front of the subdirectory as follows:
Examples:
ReleaseSubDir[] --> "7.3"
ReleaseSubDir["Top"] --> "7.3/Top"
ReleaseSubDir["Foo/Bar", $previous] --> "7.2/Foo/Bar"
Examples (for sunos & unix):
LocalDir[] --> "/tmp/Cedar/7.3/"
LocalDir["Commands"] --> "/tmp/Cedar/7.3/Commands/"
LocalDir["Users/Wyatt", $releaseOmitted] --> "/tmp/Cedar/Users/Wyatt/"

Examples:
CedarDir[] --> "/Cedar7.3/"
CedarDir["Top"] --> "/Cedar7.3/Top/"
CedarDir["Top", $previous] --> "/Cedar7.2/Top/"
CedarDir[dir: "CedarChest", subDirs: "Top"] --> "/CedarChest7.3/Top/"

in the sunos world, this is the user's unix home directory, with a trailing /
... constructs a path in the current user's cedar home directory, which is .cedar (this is a directory in which programs can put files that the user does not need to know about;  it can be a vux or an ux directory)
Examples:
UserCedarDir[] --> "~/.cedar/"
UserCedarDir["tipc"] --> "~/.cedar/tipc/"
UserCedarDir["System", $releaseDir] --> "~/.cedar/7.3/System/"
‌ت»  •NewlineDelimiter
–(cedarcode) styleک codeڑœ™Kڑœ
دeœ=™HK™+K™%K™)K™%K™*—Kک ڑدk	ک	Kڑœ‍œ‍œک—Kک ڑدnœ‍œ‍œک"Kک Kڑ‍œ‍œ‍œکک Kک —ڑںœ‍œ‍œ‍œکKڑœE™EKک —ڑںœ‍œ‍œ‍œک!KڑœI™IKک —Kک ڑœ	‍œک,Kک —ڑںœ‍œ‍œ‍œک?K™F™	K™K™ —K™ —ڑں
œ‍œ‍œ‍œ‍œ‍œکOK™9™	Kڑœدc™Kڑœ1™1——Kک ڑںœ‍œ‍œ‍œ‍œ‍œکVK™G™	Kڑœ 	™Kڑœ ™"Kڑœ5™5—Kک —ڑœ‍œ/کBKک —ڑںœ‍œ‍œ‍œG‍œ‍œک€ڑœ™Kڑœ ™ Kڑœ ™3Kڑœ. 
œ™F—K™ —ڑںœ‍œ‍œ‍œ$‍œ‍œ‍œ‍œکbڑœ	™	Kڑœ™Kڑœ$™$Kڑœ/™/KڑœE™E—K™ —ڑںœ‍œ‍œ‍œک)K™MKک —ڑ
ںœ‍œ‍œ`‍œ‍œکگKڑœض™ضڑœ	™	Kڑœ ™Kڑœ ™)Kڑœ$ œ ™>——Kک Kڑœک—— …—    ¢  /  