DIRECTORY
Atom, BasicTime, Buttons, Commander, CommandTool, FS, IO, IOClasses, List, Process, Rope, TapeToolInternal, TIPUser, ViewerClasses;

MebesDirectory: CEDAR PROGRAM
IMPORTS Atom, BasicTime, Commander, CommandTool, FS, IO, IOClasses, List, Process, Rope  =
BEGIN


RunID: Rope.ROPE;
log: IO.STREAM;
favoriteDirectory: Rope.ROPE _ "/Cherry/MPChip/";
directoryPrefix: Rope.ROPE;

Letter: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] =
BEGIN RETURN[c IN ['A..'Z]]; END;

Digit: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] =
BEGIN RETURN[c IN ['0..'9]]; END;

AlphaNum: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] =
BEGIN RETURN[Digit[c] OR Letter[c]]; END;

IsRun: PROC [ rope: Rope.ROPE ] RETURNS [ BOOL ] =
{RETURN[(rope.Length = 3) AND Digit[rope.Fetch[0]] AND AlphaNum[rope.Fetch[1]]
AND Letter[rope.Fetch[2]]]};

IsLayer: PROC [ rope: Rope.ROPE ] RETURNS [ BOOL ] =
{RETURN[(rope.Length = 5) AND Digit[rope.Fetch[0]] AND Digit[rope.Fetch[1]]
AND (rope.Fetch[2] = '-) AND Letter[rope.Fetch[3]]
AND AlphaNum[rope.Fetch[4]]]};

IsDie: PROC [ rope: Rope.ROPE ] RETURNS [ BOOL ] =
{RETURN[(rope.Length = 1) AND Letter[rope.Fetch[0]]]};

Abort: PROCEDURE [name: Rope.ROPE] =
BEGIN
log.PutF["... %g", IO.rope[name]];
ERROR ABORTED;
END;

FileServerName: PROCEDURE [die, layer: Rope.ROPE] RETURNS [ Rope.ROPE ] =
BEGIN
RETURN[IO.PutFR["%gMPC%g%g%g.mebes", IO.rope[directoryPrefix], IO.rope[RunID], IO.rope[die], IO.rope[IF layer.Length = 0 THEN "" ELSE Rope.Cat["-", layer]]]];
END;

LocalName: PROCEDURE [die, layer: Rope.ROPE] RETURNS [ Rope.ROPE ] =
BEGIN
RETURN[IO.PutFR["MPC%g%g%g.mebes", IO.rope[RunID], IO.rope[die], IO.rope[IF layer.Length = 0 THEN "" ELSE Rope.Cat["-", layer]]]];
END;

TapeHeaderName: PROCEDURE [die, layer: Rope.ROPE] RETURNS [ Rope.ROPE ] =
BEGIN
RETURN[IO.PutFR["MPC%g%g%g.%g    ", IO.rope[RunID], IO.rope[die], IO.rope[layer.Substr[len: 2]], IO.rope[layer.Substr[start: 3]]]];  -- hyphen in layer becomes period
END;

Compare: PROC [ from, to: IO.STREAM, closeFrom, closeTo: BOOL _ TRUE ] RETURNS [ different: BOOL ] =
BEGIN
DO
IF from.GetChar[ ! IO.EndOfStream => GOTO CheckToLength ] # to.GetChar[ ! IO.EndOfStream => GOTO FoundDifference ] THEN GOTO FoundDifference;
REPEAT
CheckToLength => different _ NOT to.EndOf[];
FoundDifference => different _ TRUE;
ENDLOOP;
IF closeTo THEN to.Close[];
IF closeFrom THEN from.Close[];
END;


CopyToServer: PROC [localName, serverName: Rope.ROPE _ NIL, fromStream: IO.STREAM _ NIL] =
BEGIN

serverPresent: BOOL _ FALSE;
localPresent: BOOL _ FALSE;
serverCreated, localCreated: BasicTime.GMT;

IF serverName # NIL THEN
BEGIN
serverPresent _ TRUE;
serverCreated _ FS.FileInfo[serverName
! FS.Error =>
IF error.code = $unknownFile THEN {serverPresent _ FALSE; CONTINUE} ELSE REJECT
].created;
END;

IF localName # NIL THEN
BEGIN
localPresent _ TRUE;
localCreated _ FS.FileInfo[localName
! FS.Error =>
IF error.code = $unknownFile THEN {localPresent _ FALSE; CONTINUE} ELSE REJECT
].created;
END;

IF fromStream # NIL THEN
BEGIN
different: BOOL _ TRUE;
fromStream.SetIndex[0];

IF localPresent THEN
BEGIN
different _ Compare[to: FS.StreamOpen[localName], from: fromStream, closeFrom: FALSE];
fromStream.SetIndex[0];
END;

IF different THEN
BEGIN
log.PutF["... creating local file %g", IO.rope[localName]];
IOClasses.Copy[from: fromStream, to: FS.StreamOpen[localName, $create], closeFrom: FALSE];
localPresent _ TRUE;
localCreated _ FS.FileInfo[localName].created;
END;
END;

SELECT TRUE FROM
localPresent AND serverName # NIL AND (NOT serverPresent OR BasicTime.Period[from: serverCreated, to: localCreated]>0) =>
BEGIN
log.PutF["... copying local file to %g", IO.rope[serverName]];
[] _ FS.Copy[
from: localName,
to: serverName,
wantedCreatedTime: localCreated
! FS.Error =>
{log.PutF[" ... copy failed because %g", IO.rope[error.explanation]]; GOTO Abort}
];
END;
ENDCASE => NULL;
EXITS
Abort => ERROR ABORTED;
END;


DoMebesDirectory: PROC [cmd: Commander.Handle] RETURNS [result: REF _ NIL, msg: Rope.ROPE _ NIL] -- Commander.CommandProc -- = 
BEGIN

MPCTokenProc: PROC [char: CHAR] RETURNS [IO.CharClass] -- IO.BreakProc -- =
{RETURN[SELECT char FROM
IN [IO.NUL .. IO.SP], ',, ':,  '; => sepr,
'[, '], '(, '), '{, '}, '", '+, '*, '/, '@, '_ => break,
'- => other,
ENDCASE => other]};
mebesTapeHeaderFile, filesToTape: IO.STREAM;
tech: Rope.ROPE;
dice: LIST OF Rope.ROPE _ NIL;
layers: LIST OF Rope.ROPE _ NIL;
now: BasicTime.Unpacked = BasicTime.Unpack[BasicTime.Now[]];
r: REF ANY;
tapeTool: TapeToolInternal.TapeTool _ NIL;
args: CommandTool.ArgumentVector = CommandTool.Parse[cmd];
updateServer: BOOL _ FALSE;
makeTape: BOOL _ FALSE;

log _ cmd.out;

BEGIN
ENABLE ABORTED => GOTO Punt;
log.PutRope["\nMebesDirectory 6.0 --- July 31, 1985 ..."];

RunID _ NIL;

IF args.argc<2 THEN
BEGIN
log.PutRope[cmd.procData.doc];
RETURN;
END;

FOR i: NAT IN [1..args.argc) DO
SELECT TRUE FROM
args[i].Equal["-updateServer", FALSE] => updateServer _ TRUE;
args[i].Equal["-makeTape", FALSE] => makeTape _ TRUE;
RunID = NIL AND IsRun[args[i]] => RunID _ args[i];
IsDie[args[i]] => dice _ CONS[args[i], dice];
IsLayer[args[i]] => layers _ CONS[args[i], layers];
ENDCASE =>
{log.PutF["... illegal argument \"%g\"...aborted", IO.rope[args[i]]]; RETURN};
ENDLOOP;

IF RunID = NIL THEN {log.PutRope["... no run id (e.g. 49A) ... aborted"]; RETURN};
directoryPrefix _ Rope.Cat[favoriteDirectory, RunID, "/"];

IF dice = NIL THEN
BEGIN
otherInput: IO.STREAM = FS.StreamOpen[IO.PutFR["%gDice.cm", IO.rope[directoryPrefix]]];
DO
t: Rope.ROPE = otherInput.GetTokenRope[MPCTokenProc ! IO.EndOfStream => EXIT].token;
IF NOT IsDie[t] THEN Abort[IO.PutFR["\"%g\" is improper die code, should be single capital letter", IO.rope[t]]];
dice _ CONS[t, dice];
ENDLOOP;
otherInput.Close[];
END;
TRUSTED {dice _ LOOPHOLE[List.Reverse[LOOPHOLE[dice]]]};

IF layers = NIL THEN
BEGIN
otherInput: IO.STREAM _ FS.StreamOpen[IO.PutFR["%gTech.cm", IO.rope[directoryPrefix]]];
tech _ otherInput.GetTokenRope[MPCTokenProc].token;
otherInput.Close[];

otherInput _ FS.StreamOpen[IO.PutFR["%gTechnology/%g-TapeLayers.cm", IO.rope[favoriteDirectory], IO.rope[tech]]];
DO
t: Rope.ROPE = otherInput.GetTokenRope[MPCTokenProc ! IO.EndOfStream => EXIT].token;
IF NOT IsLayer[t] THEN
Abort[IO.PutFR["\"%g\" is improper Mebes layer code, should be of form DD-AA", IO.rope[t]]];
layers _ CONS[t, layers];
ENDLOOP;
otherInput.Close[];
END;
TRUSTED {layers _ LOOPHOLE[List.Reverse[LOOPHOLE[layers]]]};



mebesTapeHeaderFile _ IO.ROS[];
mebesTapeHeaderFile.PutRope["\000\002\000"];  -- 2 is Cedar version, was 1 before
TRUSTED
{nFiles: [0..99] _ List.Length[LOOPHOLE[dice]]*List.Length[LOOPHOLE[layers]];
mebesTapeHeaderFile.PutChar[LOOPHOLE[nFiles]]
};
FOR i: LIST OF Rope.ROPE _ dice, i.rest WHILE i#NIL DO
FOR j: LIST OF Rope.ROPE _ layers, j.rest WHILE j#NIL DO
mebesTapeHeaderFile.PutRope[TapeHeaderName[i.first, j.first]];
ENDLOOP;
ENDLOOP;
mebesTapeHeaderFile.PutF["%02d%02d%02d\011",
IO.int[LOOPHOLE[now.month, CARDINAL] + 1],
IO.int[now.day],
IO.int[now.year MOD 100]];
FOR Bytecount: INT IN [mebesTapeHeaderFile.GetIndex..2048) DO
TRUSTED {mebesTapeHeaderFile.PutChar[LOOPHOLE[0, CHAR]]};
ENDLOOP;
CopyToServer[localName: IO.PutFR["MPC%g.mebes", IO.rope[RunID]], fromStream: IO.RIS[IO.RopeFromROS[mebesTapeHeaderFile]]];



filesToTape _ IO.ROS[];
filesToTape.PutRope[FileServerName["", ""]]; -- of the header file
FOR i: LIST OF Rope.ROPE _ dice, i.rest WHILE i#NIL DO
FOR j: LIST OF Rope.ROPE _ layers, j.rest WHILE j#NIL DO
filesToTape.PutF[" %g", IO.rope[FileServerName[i.first, j.first]]];
ENDLOOP;
ENDLOOP;
CopyToServer[localName: IO.PutFR["MPC%g.cedarTape", IO.rope[RunID]], fromStream: IO.RIS[IO.RopeFromROS[filesToTape]]];



IF updateServer THEN
BEGIN
CopyToServer[
localName: IO.PutFR["MPC%g.cedarTape", IO.rope[RunID]],
serverName: IO.PutFR["%g/MPC%g.cedarTape", IO.rope[directoryPrefix], IO.rope[RunID]]];
CopyToServer[
localName: IO.PutFR["MPC%g.mebes", IO.rope[RunID]],
serverName: FileServerName["", ""]];
FOR i: LIST OF Rope.ROPE _ dice, i.rest WHILE i#NIL DO
FOR j: LIST OF Rope.ROPE _ layers, j.rest WHILE j#NIL DO
CopyToServer[localName: LocalName[i.first, j.first], serverName: FileServerName[i.first, j.first]];
ENDLOOP;
ENDLOOP;
END;


IF makeTape AND (r _ Atom.GetProp[$TapeTool, $state]) # NIL AND (tapeTool _ NARROW[r]).open THEN
BEGIN

SetRope: PROC [ textViewer: ViewerClasses.Viewer, text: Rope.ROPE ] =
BEGIN
textViewer.class.set[textViewer, text, TRUE];
Process.Pause[Process.MsecToTicks[500]];
END;

PushButton: PROC [button: Buttons.Button] =
BEGIN
button.class.notify[button, LIST[ NEW[TIPUser.TIPScreenCoordsRec _ [mouseX: 1, mouseY: 1, color: button.column = color]], $Mark, $Hit ]];
END;

fileNames: IO.STREAM = IO.ROS[];
log.PutRope[".... generating tape"];
SetRope[tapeTool.blockingViewer, "2048"];
PushButton[tapeTool.RewindButton];
IOClasses.Copy[from: FS.StreamOpen[IO.PutFR["%gMPC%g.cedarTape", IO.rope[directoryPrefix], IO.rope[RunID]]],
to: fileNames, closeTo: FALSE];
SetRope[tapeTool.fileNameViewer, IO.RopeFromROS[fileNames]];
PushButton[tapeTool.WriteButton];
Process.Pause[Process.SecondsToTicks[1]];
WHILE tapeTool.active DO Process.Pause[Process.SecondsToTicks[1]] ENDLOOP;
log.PutRope[".... done (you can unload tape now)"];
END
ELSE log.PutRope[".... tape not generated... done"];

EXITS Punt => log.PutF[" ... aborted"];
END;

END;

Commander.Register["MebesDirectory", DoMebesDirectory, "\n.. makes a list of Mebes files, creates a Mebes tape label file, can write Mebes files to a file server, and can (with a cooperating TapeTool) write a Mebes tape.  The format is\n\nMebesDirectory [-UpdateServer] [-MakeTape] [Die*] [Layer*] RunID\n\n  where the items in [] are optional, and [x*] means any number of x's separated by spaces. Die takes the form of a single capital letter, Layer takes the form DD-AA (e.g., 20-PO), and RunId takes a form like 49A or 8BB.  If any Die or Layer appears explicitly, the list in the command line overrides the MPC defaults.\n"];

END.-- of MebesDirectory



ØMebesDirectory.mesa
Permute input text into MebesDirectory file, and command file 
Created by Alan Paeth, PARC, August 2, 1982
Last Edited by: McCreight, July 31, 1985 6:15:26 pm PDT
variables

procedures/code


open typescript, look for a command line,  herald
Create the Mebes tape header file ...
pad 2048-byte block with 0's
Make a list of files to be transferred to the tape
Copy relevant local files to the server...
Copy files from the server to the tape...

�ʘJš
œ™Jš
œ>™>Jš
œ+™+Jš
œ7™7J˜š
Ïk	˜	Jšœ2�œ�œK˜ƒ
J˜—šœ�œ
�˜Jš�œ*�œ�œ#˜ZJš
�˜J˜Jš
œ	™	J˜Jšœ�œ
˜Jšœ�œ
�œ
˜Jšœ�œ˜1Jšœ�œ
˜J™Jš
œ™J˜š
Ïnœ�	œ�	œ�œ�œ˜4Jš�œ
�œ�œ�œ
˜!J˜—š
žœ�	œ�	œ�œ�œ˜3Jš�œ
�œ�œ�œ
˜!J˜—š
žœ�	œ�	œ�œ�œ˜6Jš�œ
�œ
�œ
�œ
˜)J˜—š
žœ�œ�œ�œ�œ˜2šœ
�œ�œ�œ˜NJš�œ˜—J˜—š
žœ�œ�œ�œ�œ˜4šœ
�œ�œ�œ˜KJš�œ�œ˜2Jš�œ˜—J˜—š
žœ�œ�œ�œ�œ˜2Jšœ
�œ�œ˜6J˜—šžœ�	œ
�œ˜$Jš
�˜Jšœ�œ
˜"Jš�œ
�œ
˜Jš�œ
˜J˜—š
žœ�	œ�œ�œ�œ˜IJš
�˜Jš�œ
�œ�œ�œ�œ�œ�œ�œ�œ˜ž
Jš�œ
˜J˜—š
ž	œ�	œ�œ�œ�œ˜DJš
�˜Jš�œ
�œ�œ�œ�œ�œ�œ�œ˜‚
Jš�œ
˜J˜—š
žœ�	œ�œ�œ�œ˜IJš
�˜Jš
�œ
�œ�œ�œ�œ�œ"Ïc!˜¦
Jš�œ
˜J˜—šžœ�œ
�œ
�œ�œ�œ�œ�œ˜dJš
�˜š
�˜Jš�œ�œ�œ!�œ�œ�œ
�œ˜�
š
�˜Jšœ�œ˜,Jšœ�œ
˜$—Jš�œ
˜—Jš�œ	�œ˜Jš�œ�œ˜Jš�œ
˜J˜J˜—šžœ�œ�œ�œ�œ
�œ�œ˜ZJš
�˜J˜Jšœ�œ�œ
˜Jšœ�œ�œ
˜Jšœ'�œ
˜+J˜š�œ�œ
�˜Jš
�˜Jšœ�œ
˜šœ�œ˜&šœ�œ	˜
Jš�œ�œ�œ�œ�œ
�˜O—Jš
œ
˜
—Jš�œ
˜J˜—š�œ
�œ
�˜Jš
�˜Jšœ�œ
˜šœ�œ˜$šœ�œ	˜
Jš�œ�œ�œ�œ�œ
�˜N—Jš
œ
˜
—Jš�œ
˜J˜—š�œ�œ
�˜Jš
�˜Jšœ�œ�œ
˜Jš
œ˜J˜š�œ�˜Jš
�˜Jšœ�œ5�œ˜VJš
œ˜Jš�œ
˜J˜—š�œ�˜Jš
�˜Jšœ'�œ˜;Jšœ%�œ,�œ˜ZJšœ�œ
˜Jšœ�œ˜.Jš�œ
˜—Jš�œ
˜J˜—š�œ
�œ
�˜šœ
�œ�œ
�œ�œ�œ>˜yJš
�˜Jšœ)�œ˜>šœ�œ˜
Jš
œ˜Jš
œ˜Jš
œ˜šœ�œ	˜
Jšœ)�œ�œ˜Q—Jš
œ˜—Jš�œ
˜—Jš�œ�œ
˜—š
�˜Jšœ	�œ
�œ
˜—Jš�œ
˜J˜J˜—šžœ�œ�œ
�œ�œ�œ�œŸœ˜Jš
�˜J˜šžœ�œ�œ�œ�œŸœ˜Kšœ
�œ
�œ�˜Jš
�œ�œ
�œ�œ
�œ˜*Jš
œ8˜8Jš
œ˜Jš�œ˜—J™—Jšœ"�œ
�œ
˜,Jšœ�œ
˜Jš	œ�œ
�œ�œ�œ
˜Jš	œ�œ
�œ�œ�œ
˜ Jš
œ<˜<Jšœ�œ
�œ
˜Jšœ&�œ
˜*Jš
œ:˜:Jšœ�œ�œ
˜Jšœ
�œ�œ
˜J˜Jš
œ˜˜Jš
�˜Jš�œ
�œ�œ˜—™Jš
œ1™1Jš
œ:˜:J˜Jšœ�œ
˜J˜š�œ
�˜Jš
�˜Jš
œ˜Jš�œ
˜Jš�œ
˜J˜—š�œ�œ
�œ�˜š�œ
�œ
�˜Jšœ�œ�œ
˜=Jšœ�œ�œ
˜5Jšœ�œ
�œ#˜2Jšœ�œ˜-Jšœ�œ˜3š�œ˜
Jšœ3�œ�œ˜N——Jš�œ
˜J˜—Jš�œ	�œ
�œ7�œ˜RJš
œ:˜:J˜š�œ�œ
�˜Jš
�˜Jšœ�œ
�œ�œ�œ�œ˜Wš
�˜Jšœ�œ*�œ�œ˜TJš
�œ
�œ
�œ�œG�œ˜qJšœ�œ
˜Jš�œ
˜—J˜Jš�œ
˜—š�œ	�œ�œ
˜8J˜—š�œ
�œ
�˜Jš
�˜Jšœ�œ
�œ�œ�œ�œ˜WJš
œ3˜3J˜J˜Jš	œ
�œ�œ(�œ�œ˜qš
�˜Jšœ�œ*�œ�œ˜Tš�œ
�œ�˜Jšœ�œG�œ˜\—Jšœ	�œ˜Jš�œ
˜—J˜Jš�œ
˜—Jš�œ�œ�œ˜<J˜J˜Jš
œ%™%J˜Jšœ�œ
�œ˜Jšœ.Ÿ#˜Qš
�˜Jšœ�œ�œ
˜MJšœ�œ	˜-J˜—š
�œ�œ
�œ�œ�œ�œ
�˜6š
�œ�œ
�œ�œ�œ�œ
�˜8J˜>Jš�œ
˜—Jš�œ
˜—š
œ,˜,Jš�œ�œ�œ˜*Jš�œ˜Jš�œ�œ˜—J™š�œ�œ
�œ&�˜=Jš�œ�œ�œ˜9Jš�œ
˜—Jšœ�œ�œ�œ
�œ
�œ$˜zJ˜J˜Jš
œ2™2J˜Jšœ�œ
�œ˜Jšœ-Ÿ˜Bš
�œ�œ
�œ�œ�œ�œ
�˜6š
�œ�œ
�œ�œ�œ�œ
�˜8Jšœ�œ)˜CJš�œ
˜—Jš�œ
˜—Jšœ�œ�œ�œ
�œ
�œ˜vJ˜J˜Jš
œ*™*J˜š�œ�˜Jš
�˜š
œ
˜
Jšœ�œ�œ˜7Jšœ�œ�œ�œ˜V—š
œ
˜
Jšœ�œ�œ˜3Jš
œ$˜$—š
�œ�œ
�œ�œ�œ�œ
�˜6š
�œ�œ
�œ�œ�œ�œ
�˜8J˜cJš�œ
˜—Jš�œ
˜—š�œ
˜J˜J˜——Jš
œ)™)J™š�œ
�œ)�œ
�œ
�œ
�˜`Jš
�˜J˜šžœ�œ0�œ˜EJš
�˜Jšœ'�œ˜-Jš
œ(˜(Jš�œ
˜J˜—šž
œ�œ˜+Jš
�˜Jšœ�œ�œd˜‰
Jš�œ
˜J˜—Jš	œ�œ
�œ�œ
�œ˜ Jš
œ$˜$Jš
œ)˜)Jš
œ"˜"š	œ�œ�œ�œ�œ˜lJšœ�œ˜—Jšœ!�œ˜<Jš
œ!˜!Jš
œ)˜)Jš�œ�œ*�œ
˜JJš
œ3˜3Jš
�˜—Jš�œ0˜4J˜Jš�œ"˜'Jš�œ
˜—J˜Jš�œ
˜—J˜Jš
œö˜öJ˜Jš�œ
Ÿ˜J˜J˜——…—&ø6ì