

DIRECTORY
EnvironmentVariables USING [Get],
IO,
RefText,
Rope,
SystemNames USING [Release, ReleaseOption],
SystemVersion USING [release],
ThisMachine USING [Name];

SystemNamesImpl: CEDAR MONITOR
IMPORTS EnvironmentVariables, IO, RefText, Rope, SystemVersion, ThisMachine
EXPORTS SystemNames ~ { 

ROPE: TYPE ~ Rope.ROPE;

Release: TYPE ~ SystemNames.Release;
ReleaseOption: TYPE ~ SystemNames.ReleaseOption;

ReleaseArray: TYPE ~ ARRAY Release OF ROPE;
releaseNames: REF ReleaseArray ~ NEW[ReleaseArray м ALL[NIL]];

defaultDir: ROPE ~ "Cedar";
machineLocalDir: ROPE ~ "tmp";

Initialize: PROC ~ {
Version: TYPE ~ RECORD [major, minor: INT];
current: Version ~ [major: SystemVersion.release.major, minor: SystemVersion.release.minor];
previous: Version ~ IF current.minor>0 THEN [major: current.major, minor: current.minor-1]
ELSE [major: 0, minor: 0]; -- must edit this by hand each major release
next: Version ~  [major: current.major, minor: current.minor+1];
versions: ARRAY Release OF Version м [previous: previous, current: current, next: next];
FOR r: Release IN Release DO
v: Version ~ versions[r];
releaseNames[r] м Rope.Flatten[IO.PutFR["%g.%g", IO.int[v.major], IO.int[v.minor]]];
ENDLOOP;
};

ReleaseName: PUBLIC PROC [release: Release м current] RETURNS [ROPE] ~ {
RETURN [releaseNames[release]];
};
userName: ROPE м NIL;
UserName: PUBLIC ENTRY PROC RETURNS [name: ROPE] ~ {
IF userName = NIL THEN userName м EnvironmentVariables.Get["USER"];
name м userName;
};

homeDirectory: ROPE м NIL;
SimpleHomeDirectory: PUBLIC ENTRY PROC RETURNS [wdir: Rope.ROPE] ~ {
IF homeDirectory = NIL THEN {
temp: ROPE м EnvironmentVariables.Get["HOME"];
IF temp.Fetch[temp.Length[]-1] # '/ THEN temp м temp.Concat["/"];
homeDirectory м temp;
};
wdir м homeDirectory;
};

MachineName: PUBLIC PROC RETURNS [machine: ROPE м NIL] ~ {
machine м ThisMachine.Name[];
IF machine=NIL THEN machine м "AnonymousMachine";
};

ReleaseDir: PUBLIC PROC [dir: ROPE, release: Release] RETURNS [ROPE] ~ {
releaseName: ROPE ~ releaseNames[release];
IF dir = NIL THEN dir м defaultDir;
RETURN[Rope.Flatten[Rope.Concat[dir, releaseName]]];
};

ReleaseSubDir: PUBLIC PROC [subDirs: ROPE, release: Release] RETURNS [ROPE] ~ {
releaseName: ROPE ~ releaseNames[release];
IF Rope.IsEmpty[subDirs] THEN RETURN[releaseName]
ELSE RETURN[Rope.Flatten[Rope.Cat[releaseName, "/", subDirs]]];
};

MachineLocalDir: PUBLIC PROC [subDirs: ROPE, option: ReleaseOption,
release: Release м current] RETURNS [ROPE] ~ {
RETURN[ConstructDir[machineLocalDir, subDirs, option, release]];
};
CedarDir: PUBLIC PROC [subDirs: ROPE, release: Release, dir: ROPE] RETURNS [ROPE] ~ {
IF dir=NIL THEN dir м defaultDir;
RETURN[ConstructDir[dir, subDirs, $releaseDir, release]];
};
UserCedarDir: PUBLIC PROC [subDirs: ROPE, option: ReleaseOption, release: Release]
RETURNS [ROPE] ~ {
dir: ROPE м NIL;
SELECT option FROM
releaseDir => dir м ReleaseDir[dir, release];
releaseOmitted => NULL;
ENDCASE => ERROR;
RETURN[ConstructName[dir, subDirs, TRUE]];
};

ConstructDir: PROC [ dir, subDirs: ROPE, option: ReleaseOption, release: Release]
RETURNS [ROPE] ~ {
SELECT option FROM
releaseDir => dir м ReleaseDir[dir, release];
releaseSubDir => subDirs м ReleaseSubDir[subDirs, release];
releaseOmitted => NULL;
ENDCASE => ERROR;
RETURN[ConstructName[dir: dir, subDirs: subDirs]];
};
ConstructName: PROC [dir, subDirs: ROPE м NIL, userRelative: BOOL м FALSE]
RETURNS [fName: ROPE] = {
GetTildeRope: PROC RETURNS [r: Rope.ROPE] = {
r м SimpleHomeDirectory[];
IF r = NIL THEN ERROR -- can't happen. presumably the user logged on.
ELSE RETURN[Rope.Concat[r, ".cedar"]];
};

scratch: REF TEXT ~ RefText.ObtainScratch[120];
text: REF TEXT м scratch;
IF userRelative THEN text м RefText.AppendRope[text, GetTildeRope[]];
text м RefText.AppendChar[text, '/ ];
IF NOT Rope.IsEmpty[dir] THEN {
text м RefText.AppendRope[text, dir];
text м RefText.AppendChar[text, '/ ];
};
IF NOT Rope.IsEmpty[subDirs] THEN {
text м RefText.AppendRope[text, subDirs];
text м RefText.AppendChar[text, '/ ];
};
fName м Rope.FromRefText[text];
RefText.ReleaseScratch[scratch];
};


Initialize[];

}.
     SystemNamesImpl.mesa
Copyright ╙ 1987, 1989, 1991, 1992, 1993 by Xerox Corporation.  All rights reserved.
Doug Wyatt, January 24, 1987 7:03:35 pm PST
Willie-sue, August 19, 1991 2:12 pm PDT
JKF December 20, 1988 11:01:09 am PST
Carl Hauser, December 9, 1988 5:41:01 pm PST
Michael Plass, May 11, 1989 5:45:31 pm PDT
Christian Jacobi, March 31, 1993 3:20 pm PST

This impl of SystemNames simply gets the needed info from the environment string instead of going through YellowPages


ie return something like: "/palain/wyatt/Cedar"
Э╩√  ХNewlineDelimiter
Ц(cedarcode) styleШ codeЪЬЩKЪЬ
╧eЬIЩTKЪЬ(╧kЩ+KЪЬ'Щ'KЪЮЬ"Щ%KЩ,KЩ*KЩ,KЩ KЪЬuЩuЧKШ ЪЮ	Ш	KЪЬЮЬШ!KЪЮЬШKЪЬШKЪЬШKЪЬЮЬШ+KЪЬЮЬШKЪЬЮЬЬШKШ ЧЪ╧nЬЮЬЮШKЪЮЬЬЮЮЮЬ+ШKKЪЮЬШKШ ЪЮЬЮЬЮЬШKШ ЧKЪЬ	ЮЬШ$ЪЬЮЬШ0KШ ЧKЪ	ЬЮЬЮЬ	ЮЬЮЬШ+Ъ	ЬЮЬЮЬЮЬЮЬШ>KШ ЧKЪЬЮЬШЪЬЮЬ	ШKШ ЧЪЯ
ЬЮЬШKЪЬ	ЮЬЮЬЮЬШ+KЪЬ\Ш\KЪЬЮЬЮЬ/ЮЬ╧c,ШвKЪЬ@Ш@KЪЬ
ЮЬ	ЮЬ>ШXЪЮЬЮЬ	ЮШKШKЪЬЮЬЮЬЮЬШTKЪЮЬШЧKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШHKЪЮЬШKШKЩ ЧKЪЬ
ЮЬЮЬШЪЯЬЮЬЮЬЮЬЮЬЮЬШ4KЪЮЬЮЬЮЬ-ШCKЪЬШKШKШ ЧKЪЬЮЬЮЬШЪЯЬЮЬЮЬЮЬЮЬЮЬШDЪЮЬЮЬЮЬШKЪЬЮЬ$Ш.KЪЮЬ"ЮЬШAKЪЬШKШЧKЪЬШKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШ:KЪЬШKЪЮЬ	ЮЬЮЬШ1KШKШ ЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬШHKЪЬЮЬШ*KЪЮЬЮЬЮЬШ#KЪЮЬ.Ш4ШKШ ЧЧЪЯЬЮЬЮЬЮЬЮЬЮЬШOKЪЬЮЬШ*KЪ
ЮЬЮЬЮЬЮЬЮЬ4ШqKШKШ ЧЪЯЬЮЬЮЬЮЬ5ЮЬЮЬШrKЪЮЬ:Ш@KШKЩ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШUKЪЮЬЮЬЮЬШ!KЪЮЬ3Ш9KШKЩ ЧЪЯЬЮЬЮЬЮЬ+ЮЬЮЬШeKЪЬЮЬЮЬШЪЮЬЮШKЪЬ-Ш-KЪЬЮЬШKЪЮЬЮЬШЧKЪЮЬЮЬШ*KШKШ ЧЪ
ЯЬЮЬЮЬ+ЮЬЮЬШdЪЮЬЮШKЪЬ-Ш-KЪЬ;Ш;KЪЬЮЬШKЪЮЬЮЬШЧKЪЮЬ,Ш2KШKЩ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬ	ЮЬШdЪЯЬЮЬЮЬ
ЮЬШ-KЪЬ/Щ/KЪЬШKЪЮЬЮЬЮЬЮЬа/ЬЮЬЮЬШlKШKШ ЧIcode2ЪЬ	ЮЬЮЬШ/LЪЬЮЬЮЬШLЪЮЬЮЬ1ШELШ%ЪЮЬЮЬЮЬШLЪЬ%Ш%LШ%LШЧЪЮЬЮЬЮЬШ#LЪЬ)Ш)LШ%LШЧLШLШ LЪЬШЧKШ KШ KЪЬШKШ KЪЬШЧЧ ЕЧ      #  