DIRECTORY
Commander USING [CommandProc, Register],
CommanderOps,
Convert USING [CardFromRope, Error],
IO,
PFS, 
PFSClass,
PFSPrefixMap,
PFSNames,
Rope,
UserProfile USING [Token],
XNSRemoteFileDeserialize;

XNSFileCommandsImpl: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, Convert, IO, PFS, PFSClass, PFSPrefixMap, PFSNames, Rope, UserProfile, XNSRemoteFileDeserialize
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
STREAM: TYPE ~ IO.STREAM;
PATH: TYPE ~ PFSNames.PATH;

ChangeFileType: Commander.CommandProc = {
fileName: ROPE м CommanderOps.NextArgument[cmd];
arg: ROPE;
newFileType: CARD32;
fs: PFSClass.FSHandle;
nameOnFS: PATH;
attributes: PFS.CreateOptions;
openFile: PFS.OpenFile;
IF fileName = NIL THEN {
msg м "No fileName supplied\n";
GOTO failed;
};
IF ( arg м CommanderOps.NextArgument[cmd] ) = NIL THEN {
msg м "No newFileType supplied\n";
GOTO failed;
};

IF arg.Fetch[0] = 't THEN {
SELECT TRUE FROM
arg.Equal["tUnspecified", FALSE] => newFileType м 0;
arg.Equal["tDirectory", FALSE] => newFileType м 1;
arg.Equal["tText", FALSE] => newFileType м 2;
ENDCASE => {
msg м IO.PutFR1["Unknown filetype (%g) supplied\n", [rope[arg]]];
GOTO failed;
};
}
ELSE {
ok: BOOL м TRUE;
newFileType м Convert.CardFromRope[arg
! Convert.Error => { ok м FALSE; CONTINUE} ];
IF NOT ok THEN {
msg м IO.PutFR1["Could not parse (%g) as a cardinal\n", [rope[arg]] ];
GOTO failed;
};
};
msg м ServerAndStuff[fileName].err;
IF msg # NIL THEN GOTO failed;
attributes.fileType м [newFileType];
openFile м PFS.Open[PFS.PathFromRope[fileName]];
PFS.SetAttributes[openFile, attributes];
PFS.Close[openFile];

EXITS
failed=> result м $Failure; 

};

PrintFileType: Commander.CommandProc = {
fileName: ROPE м CommanderOps.NextArgument[cmd];
arg: ROPE;
fileType: CARD32;
fs: PFSClass.FSHandle;
nameOnFS: PATH;
attributes: PFS.CreateOptions;
openFile: PFS.OpenFile;
IF fileName = NIL THEN {
msg м "No fileName supplied\n";
GOTO failed;
};

msg м ServerAndStuff[fileName].err;
IF msg # NIL THEN GOTO failed;
openFile м PFS.Open[PFS.PathFromRope[fileName]];
fileType м PFS.GetInfo[openFile].fileType;
IO.PutF1[cmd.out, "type is %g.\n", IO.card[fileType]];
PFS.Close[openFile];

EXITS
failed=> result м $Failure; 

};


Deserialize: Commander.CommandProc = {
desDir, arrow, server, directory, source: ROPE м NIL;
destinationDirectory, fileName, nameOnFS: PATH;
sourceStr: STREAM;
arg: ROPE;
fs: PFSClass.FSHandle;

arg м CommanderOps.NextArgument[cmd];
IF arg = NIL THEN { msg м "No arguments\n"; GOTO Die };
arrow м CommanderOps.NextArgument[cmd];
IF arrow = NIL THEN {
desDir м UserProfile.Token["XNSMail.DeserializeDir", NIL];
IF ( desDir = NIL ) THEN {
msg м "No destination directory supplied\n";
GOTO Die;
};
source м arg;
}
ELSE {
desDir м arg;
IF NOT arrow.Equal["_"] THEN {
msg м IO.PutFR1["Expected a _ but saw a %g\n", [rope[arrow]] ];
GOTO Die;
};
IF ( source м CommanderOps.NextArgument[cmd] ) = NIL THEN {
msg м "No source name after _\n";
GOTO Die;
};
};

destinationDirectory м PFS.PathFromRope[desDir];
IF NOT PFSNames.IsADirectory[destinationDirectory] THEN {
msg м IO.PutFR1["%g is not a directory\n", [rope[desDir]] ];
GOTO Die;
};

fileName м PFSNames.ExpandName[name: PFS.PathFromRope[source],
wDir: PFS.GetWDir[] ];
[fs, nameOnFS, msg] м ServerAndStuff[desDir];
IF msg # NIL THEN GOTO Die;
BEGIN ENABLE UNWIND => { sourceStr.Close[] };
sourceStr м PFS.StreamOpen[fileName];
XNSRemoteFileDeserialize.XNSDeserialize[fs, nameOnFS, sourceStr, NIL];
END;

sourceStr.Close[];
cmd.out.PutF["\n%g has been deserialized to %g\n", [rope[PFS.RopeFromPath[fileName]]], [rope[PFS.RopeFromPath[destinationDirectory]]] ];
EXITS
Die =>  result м $Failure;

};

ServerAndStuff: PROC[fileName: ROPE]
RETURNS[ fs: PFSClass.FSHandle, nameOnFS: PATH, err: ROPE м NIL ] = {
translation: PFSPrefixMap.PrefixTableEntry м PFSPrefixMap.TranslateAndGetHints[PFS.PathFromRope[fileName]];
IF NOT translation.translation.IsAbsolute[] THEN {
err м Rope.Cat["The prefix map produced a relative translation for ", fileName, " and an absolute translation is required."];
RETURN
};
fs м PFSClass.GetFS[translation.fsName
! PFSClass.Error => { err м msg; CONTINUE } ];
IF fs # NIL THEN IF fs.flavor # $XNS THEN
err м IO.PutFR1["Wrong flavor of file (%g) - not XNS\n", [atom[fs.flavor]] ];
nameOnFS м translation.nameOnFS;
};

cftDoc: ROPE ~ "fileName { tUnspecified tDirectory tText } | fileName newType(as number)";
deserializeDoc: ROPE ~ "directory _ serialized-fileName | serialized-fileName (uses profile option XNSMail.DeserializeDir as the destination directory)";
pftDoc: ROPE ~ "fileName";

Init: PROC = {

Commander.Register["ChangeFileType", ChangeFileType, cftDoc];
Commander.Register["Deserialize", Deserialize, deserializeDoc];
Commander.Register["PrintFileType", PrintFileType, pftDoc];

};

Init[];

END. ..
  T  
XNSFileCommandsImpl.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
Willie-s, January 31, 1992 5:51 pm PST
Weiser, March 31, 1991 5:47 pm PST


Copied Types and Constants
[cmd: Handle] RETURNS [result: REF _ NIL, msg: ROPE _ NIL]
CommandObject = [in, out, err: STREAM, commandLine, command: ROPE, ...]
[cmd: Handle] RETURNS [result: REF _ NIL, msg: ROPE _ NIL]
CommandObject = [in, out, err: STREAM, commandLine, command: ROPE, ...]
[cmd: Handle] RETURNS [result: REF _ NIL, msg: ROPE _ NIL]
CommandObject = [in, out, err: STREAM, commandLine, command: ROPE, ...]

Э╩╪  Ц(cedarcode) styleХNewlineDelimiter
Щ ЪЬЩJЪЬ
╧eЬ7ЩBJЩ&JЩ"JЩ ЧcodeЪ╧k	Ш	KЪЬ
ЮЬШ(KШKЪЬЮЬШ$KЪЮЬШKЪЮЬШKШ	KШKШ	KЪЬШKЪЬЮЬ	ШKЪЬШKШ ЧЪ╧nЬЮЬЮШ"KЪЮЬ#ЮЬЮЬOШАKЪЬЮШЧKЩ headЩKЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKШ ЧЪЯЬШ)ЪЬЮЬ
ЮЬЮЬЮЬЮЬЩ:KЪЬЮЬЮЬЩGЧKЪЬ
ЮЬ"Ш0KЪЬЮЬШ
KЪЬЮЬШKШKЪЬ
ЮЬШKЪЬЮЬШKЪЬ
ЮЬ
ШЪЮЬЮЬЮЬШKШKЪЮЬШKШЧЪЮЬ,ЮЬЮЬШ8KШ"KЪЮЬШKШKШ ЧЪЮЬЮЬШЪЮЬЮЬЮШKЪЬЮЬШ4KЪЬЮЬШ2KЪЬЮЬШ-ЪЮЬШKЪЬЮЬ9ШAKЪЮЬШKШЧЧKШЪЮЬШKЪЬЮЬЮЬШKЪЬAЮЬЮЬШTЪЮЬЮЬЮЬШKЪЬЮЬ>ШFKЪЮЬШKШЧKЪЬШЧЧKШ#KЪЮЬЮЬЮЬЮЬШKШ$KЪЬЮЬЮЬШ0KЪЮЬ%Ш(KЪЮЬШKШ ЪЮШKШЧKШ KШKШ ЧЪЯЬШ(ЪЬЮЬ
ЮЬЮЬЮЬЮЬЩ:KЪЬЮЬЮЬЩGЧKЪЬ
ЮЬ"Ш0KЪЬЮЬШ
KЪЬ
ЮЬШKШKЪЬ
ЮЬШKЪЬЮЬШKЪЬ
ЮЬ
ШЪЮЬЮЬЮЬШKШKЪЮЬШKШЧKШ KШ#KЪЮЬЮЬЮЬЮЬШKЪЬЮЬЮЬШ0KЪЬЮЬЮЬШ*KЪЮЬ!ЮЬШ6KЪЮЬШKШ ЪЮШKШЧKШ KШKШ KШ ЧЪЯЬШ&ЪЬЮЬ
ЮЬЮЬЮЬЮЬЩ:KЪЬЮЬЮЬЩGЧKЪЬ*ЮЬЮЬШ5KЪЬ*ЮЬШ/KЪЬЮЬШKЪЬЮЬШ
KЪЬШKШ KШ%KЪЮЬЮЬЮЬЮЬШ7KШ'ЪЮЬ	ЮЬЮЬШKЪЬ5ЮЬШ:ЪЮЬЮЬЮЬЮШKШ,KЪЮЬШ	KШЧKШKШЪЮЬШKШЪЮЬЮЬЮЬШKЪЬЮЬ7Ш?KЪЮЬШ	KШЧЪЮЬ/ЮЬЮЬЮШ;KШ!KЪЮЬШ	KШЧKШЧЧKШ KЪЬЮЬШ0ЪЮЬЮЬ-ЮЬШ9KЪЬЮЬ4Ш<KЪЮЬШ	KШЧKШ KЪЬ%ЮЬЮЬШUKЩ KШ-KЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬШ-KЪЬЮЬШ%KЪЬAЮЬШFKЪЮЬШЧKШ KЪЬШKЪЬ9ЮЬ!ЮЬ(ШИЪЮШKШЧKШ KШKШ ЧЪЯЬЮЬЮЬЮЬ#ЮЬЮЬЮЬШjKЪЬ*Ь%ЮЬШkЪЮЬЮЬ&ЮЬШ2KШ}KЪЮШKШЧKЪЬHЮЬШUЪ	ЮЬЮЬЮЬЮЬЮШ)KЪЬЮЬEШMЧKШ KШKШ ЧKЪЬЮЬNШZKЪЬЮЬЕШЩЪЬЮЬШKШ ЧЪЯЬЮЬШKШ KЪЬ=Ш=KЪЬ?Ш?KЪЬ;Ш;KШ KШKШ KШKШ ЧKЪЮЬШЧ ЕЧ    ж  ╥  