
DIRECTORY
Feedback, FeedbackTypes, FileNames, FS, GGFileOps, Imager, Interpress, IO, IPMaster, IPInterpreter, PFS, Rope, SystemNames;

GGFileOpsImpl: CEDAR PROGRAM
IMPORTS Feedback, FileNames, FS, Imager, Interpress, IO, IPMaster, IPInterpreter, PFS, Rope, SystemNames
EXPORTS GGFileOps = BEGIN

MsgRouter: TYPE = FeedbackTypes.MsgRouter;

GetGenericFileName: PUBLIC PROC [opRope, fileName, wDir, defaultExt: Rope.ROPE, illegalExts: LIST OF Rope.ROPE, router: MsgRouter, emergency: BOOL _ FALSE] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE, versionSpecified: BOOL _ FALSE] = {
cp: FS.ComponentPositions;
extRope: Rope.ROPE;
versionSpecified _ Rope.SkipTo[s: fileName, skip: "!"]#Rope.Length[fileName];
IF Rope.Equal[fileName, NIL] THEN {
success _ FALSE;
IF NOT emergency THEN Feedback.PutF[router, oneLiner, $Complaint, "%g failed: no file name specified", [rope[opRope]] ];
RETURN;
};
[fullName, cp, ] _ FS.ExpandName[fileName, wDir ! FS.Error => {
success _ FALSE;
IF NOT emergency THEN Feedback.PutF[router, oneLiner, $Complaint, "%g failed: FS Error during name expansion of %g", [rope[opRope]], [rope[fileName]] ];
CONTINUE;
}
];
IF NOT success THEN RETURN;
extRope _ Rope.Substr[base: fullName, start: cp.ext.start, len: cp.ext.length];
FOR ropeList: LIST OF Rope.ROPE _ illegalExts, ropeList.rest UNTIL ropeList=NIL DO
IF Rope.Equal[ropeList.first, extRope, FALSE] THEN {
success _ FALSE;
IF NOT emergency THEN Feedback.PutF[router, oneLiner, $Complaint, "%g failed: %g extension for %g files not allowed", [rope[opRope]], [rope[extRope]], [rope[defaultExt]] ];
RETURN;
};
ENDLOOP;
IF cp.ext.length=0 THEN fullName _ Rope.Cat[fullName, ".", defaultExt];
fullName _ FileNames.ResolveRelativePath[fullName];
};

FNameToGName: PUBLIC PROC [name: Rope.ROPE] RETURNS [Rope.ROPE] = {
gHost, gDir: Rope.ROPE;
IF Rope.Match["[]*", name] THEN {
gHost _ Rope.Cat["[", SystemNames.MachineName[], "]"];
gDir _ Rope.Cat[gHost, "<", --File.GetVolumeName[File.SystemVolume[]],-- ">"];
IF Rope.Match["[]<>*", name]
THEN RETURN [Rope.Replace[base: name, start: 0, len: 4, with: gDir]]
ELSE RETURN [Rope.Replace[base: name, start: 0, len: 2, with: gHost]];
};
RETURN [name];
};

PeriodBreakProc: SAFE PROC [char: CHAR] RETURNS [IO.CharClass] = {
SELECT char FROM
'.	=> RETURN[sepr];
ENDCASE => RETURN[other];
};
FilenameMinusExtension: PUBLIC PROC [wholeName: Rope.ROPE] RETURNS [firstPart: Rope.ROPE] = {
wholeStream: IO.STREAM _ IO.RIS[wholeName];
[firstPart, ----] _ IO.GetTokenRope[wholeStream, PeriodBreakProc];
};

GetInterpressFileName: PUBLIC PROC [opRope, ipName: Rope.ROPE, currentWDir: Rope.ROPE, router: MsgRouter] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE] = {
[fullName, success, ----] _ GetGenericFileName[opRope, ipName, currentWDir, "ip", LIST["gargoyle", "script", "mesa", "tioga"], router];
};

GetGargoyleFileName: PUBLIC PROC [opRope, ggName: Rope.ROPE, currentWDir: Rope.ROPE, router: MsgRouter, emergency: BOOL _ FALSE] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE, versionSpecified: BOOL _ FALSE] = {
[fullName, success, versionSpecified] _ GetGenericFileName[opRope, ggName, currentWDir, "gargoyle", LIST["ip", "interpress", "script", "mesa", "tioga"], router, emergency];
};

GetScriptFileName: PUBLIC PROC [opRope, scriptName: Rope.ROPE, currentWDir: Rope.ROPE, router: MsgRouter] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE] = {
[fullName, success, ----] _ GetGenericFileName[opRope, scriptName, currentWDir, "script", LIST["gargoyle", "ip", "interpress", "mesa", "tioga"], router];
};

OpenInterpressOrComplain: PUBLIC PROC [opRope: Rope.ROPE, router: MsgRouter, fullName: Rope.ROPE] RETURNS [ipMaster: Interpress.Master, success: BOOL _ TRUE] = {
LogIt: Interpress.LogProc = {
Feedback.PutF[router, oneLiner, $Log, "%g: %g", [rope[opRope]], [rope[explanation]] ];
};

ipMaster _ Interpress.Open[fileName: fullName, log: LogIt !
IPInterpreter.Error => { -- raised if the file is non-existant
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: %g for %g", [rope[opRope]], [rope[explanation]], [rope[fullName]] ]; 
GOTO Quit; 
};
FS.Error => {
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: %g for %g", [rope[opRope]], [rope[error.explanation]], [rope[fullName]] ]; 
GOTO Quit; 
};
PFS.Error => { -- yuck: maybe Interpress.Open shouldn't raise either FS or PFS errors!
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: %g for %g", [rope[opRope]], [rope[error.explanation]], [rope[fullName]] ]; 
GOTO Quit; 
};
IPMaster.Error => { -- ErrorDesc: TYPE = RECORD[code: ATOM, explanation: ROPE]
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: %g for %g", [rope[opRope]], [rope[error.explanation]], [rope[fullName]] ]; 
GOTO Quit;
}; -- need this even with LogProc#NIL
Imager.Error => { -- ErrorDesc: TYPE = RECORD [code: ATOM, explanation: ROPE]
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: %g for %g", [rope[opRope]], [rope[error.explanation]], [rope[fullName]] ]; 
GOTO Quit;
};
IO.Error, IO.EndOfStream => {
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: IO Stream Error for %g", [rope[opRope]], [rope[fullName]] ];
GOTO Quit;
};
];
IF ipMaster.pages=0 THEN {
Feedback.PutF[router, oneLiner, $Complaint, "%g failed: zero pages in %g", [rope[opRope]], [rope[fullName]] ];
GOTO Quit;
};
EXITS
Quit => success _ FALSE;
};

END.

   آ  GGFileOpsImpl.mesa
Contents:  Routines that manipulate file names or open and close files.
Copyright س 1986, 1988, 1989, 1990 by Xerox Corporation.  All rights reserved.
Pier, July 3, 1991 5:55 pm PDT
Bier, March 10, 1990 5:34:06 pm PST
Doug Wyatt, February 21, 1990 5:43 pm PST

Generic File Name Operations
code copied from CommandTool.OtherCommandsImpl.mesa
Convenience File Name Operations for Gargoyle Use
Generic File Opening Operations
 ‌تں  –"cedar" style•NewlineDelimiter
ک Icodeڑœ™ڑœG™GKڑœN™NK™K™#K™)—K™ ڑدk	ک	Jڑœ$‌œ!‌œ‌œک{—Kک ڑدnœ‌œ‌کKڑ‌œ‌œ‌œ‌œکhKڑ‌œ‌ک—ک Kڑœ‌œک*—Kک K™ڑ‍œ‌œ+‌œ‌œ‌œ‌œ ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œکùKڑœ‌œکKڑœ‌œکKڑœMکMڑ‌œ‌œ‌œک#Kڑœ
‌œکK•StartOfExpansionز[gargoyleData: REF ANY, msgType: GGError.MsgType, format: ROPE _ NIL, v1: IO.Value _ [null[]], v2: IO.Value _ [null[]], v3: IO.Value _ [null[]], v4: IO.Value _ [null[]], v5: IO.Value _ [null[]]]ڑ‌œ‌œ‌œcکxKڑ‌œکKڑœک—ڑœ‌œ‌œک?Kڑœ
‌œکK–ز[gargoyleData: REF ANY, msgType: GGError.MsgType, format: ROPE _ NIL, v1: IO.Value _ [null[]], v2: IO.Value _ [null[]], v3: IO.Value _ [null[]], v4: IO.Value _ [null[]], v5: IO.Value _ [null[]]]ڑ‌œ‌œ‌œƒککKڑ‌œک	KکKڑœک—Kڑ‌œ‌œ	‌œ‌œکK–9[base: ROPE, start: INT _ 0, len: INT _ 2147483647]ڑœOکOڑ‌œ‌œ‌œ‌œ‌œ
‌œ‌کRڑ‌œ%‌œ‌œک4Kڑœ
‌œکKڑ‌œ‌œ‌œ—ک¬Kڑ‌œکKک—Kڑ‌œک—Kڑ‌œ‌œ0کGKڑœ3ک3KکKک —ڑ‍œ‌œ‌œ‌œ‌œ‌œکCK™3Kڑœ‌œکڑ‌œ‌œک!Kڑœ6ک6Kڑœدc,œکNڑ‌œکKڑ‌œ‌œ9کDKڑ‌œ‌œ;کF—Kک—Kڑ‌œکKکKک —ڑ‍œ‌œ‌œ‌œ‌œ‌œکBڑ‌œ‌کJڑœ‌œکJڑ‌œ‌œک—Jڑœک—ڑ‍œ‌œ‌œ‌œ‌œ‌œک]Jڑ	œ‌œ‌œ‌œ‌œک+Jڑœںœ‌œ,کBJڑœک—Jک K™1ڑ‍œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œک§Kڑœںœ:‌œ1ک‡KکKک —ڑ‍œ‌œ‌œ‌œ‌œ ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œکقKڑœd‌œDک¬KکKک —ڑ‍œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œک§KڑœںœB‌œ;ک™Kک—Kک K™ڑ‍œ‌œ‌œ‌œ$‌œ‌œ(‌œک،ڑ‍œکKڑœVکVKک—Kک ڑœ;ک;ڑœں%ک>Kڑœ}ک}Kڑ‌œکKڑœک—ڑ‌œکKڑœƒکƒKڑ‌œکKڑœک—ڑ‌œںGکVKڑœƒکƒKڑ‌œکKڑœک—ڑœں:کNKڑœƒکƒKڑ‌œک
Kڑœں"ک%—ڑœں;کMKڑœƒکƒKڑ‌œک
Kڑœک—ڑ‌œ‌œکKڑœtکtKڑ‌œک
Kڑœک—Kڑœک—ڑ‌œ‌œکKڑœnکnKڑ‌œک
Kڑœک—ڑ‌کKڑœ‌œک—KکKک —Kڑ‌œکKک — …—    à  A  