
DIRECTORY
BasicTime USING [GMT, minutesPerHour, MonthOfYear, nullGMT, OutOfRange, Period, TimeParametersNotKnown, Unpack, Unpacked, unspecifiedZone, Zone],
Commander USING [CommandProc, Register],
CommanderOps USING [NextArgument],
IO,
List USING [AList, PutAssoc],
PFS USING [EnumerateForInfo, Error, ErrorGroup, FileType, InfoProc, PathFromRope, RopeFromPath],
PFSNames USING [Compare, ComponentCount, Equal, Parent, PATH, SubName],
PriorityQueue USING [Create, Insert, Item, Ref, Remove, Size, SortPred],
Process USING [CheckForAbort],
ProcessProps USING [AddPropList, GetProp],
Rope;

DListImpl: CEDAR PROGRAM
IMPORTS BasicTime, Commander, CommanderOps, IO, List, PFS, PFSNames, PriorityQueue, Process, ProcessProps, Rope
= BEGIN

GMT: TYPE = BasicTime.GMT;
LORA: TYPE = LIST OF REF ANY;
ROPE: TYPE = Rope.ROPE;
PATH: TYPE = PFSNames.PATH;
STREAM: TYPE = IO.STREAM;
DListCommandProc: Commander.CommandProc = {
EachFileInfo: PFS.InfoProc = {
item: FileItem м NIL;
continue м TRUE;
Process.CheckForAbort[];
item м NEW[FileItemRep м [fullFName, attachedTo, uniqueID.egmt.gmt, bytes, fileType]];
filesSeen м filesSeen + 1;
IF bytes > 0 THEN bytesTotal м bytesTotal + bytes;
PriorityQueue.Insert[pq, item];
};

PrintOneFile: PROC [item: FileItem] = {
oldLag: PATH м lagPrefix;
printName: ROPE м PFS.RopeFromPath[item.fullUName];
Process.CheckForAbort[];

SetLagPrefix[item.fullUName];
IF oldLag # lagPrefix THEN {
IO.PutRope[out, PFS.RopeFromPath[lagPrefix]];
IO.PutChar[out, '\n];
};
printName м PFS.RopeFromPath[PFSNames.SubName[item.fullUName, lagPrefixLen]];
IO.PutRope[out, "      "];

IO.PutF1[out, "%-24g       ", [rope[printName]] ];
IF item.created = BasicTime.nullGMT
THEN IO.PutRope[out, "??"]
ELSE DateToStream[out, [explicit, item.created] ];
IO.PutChar[out, '\n];
};
AddFile: PROC [pattern: PATH, allVersions: BOOL] = {
Do: PROC [] ~ {
ENABLE PFS.Error => IF error.group # $bug THEN {
IO.PutRope[cmd.err, "  -- "];
IO.PutRope[cmd.err, error.explanation];
IO.PutRope[cmd.err, "\n"];
GO TO err};
patternsTried м patternsTried + 1;
PFS.EnumerateForInfo[pattern, EachFileInfo];
EXITS
err => {IO.PutRope[cmd.err, "\n"]; RETURN};
};
wDir: ROPE ~ NARROW[ProcessProps.GetProp[$WorkingDirectory]];
newProp: List.AList ~ List.PutAssoc[$WDir, PFS.PathFromRope[wDir], NIL];
ProcessProps.AddPropList[newProp, Do];
};
SetLagPrefix: PROC [fileName: PATH] = {
newPrefix: PATH м IF fileName# NIL THEN PFSNames.Parent[fileName] ELSE NIL;
IF lagPrefix # NIL THEN {
IF PFSNames.Equal[lagPrefix, newPrefix] THEN RETURN;
};
lagPrefix м newPrefix;
lagPrefixLen м PFSNames.ComponentCount[newPrefix];
};
AddSortOption: PROC [option: ATOM] = {
new: LORA м LIST[option];
IF sortDataTail = NIL THEN sortData м new ELSE sortDataTail.rest м new;
sortDataTail м new;
};
out: STREAM = cmd.out;
lagPrefix: PATH м NIL;
lagPrefixLen: INT м 0;
patternsTried, filesSeen, bytesTotal: INT м 0;
complexSorting: BOOL м TRUE;
sortData: LORA м NIL;
sortDataTail: LORA м NIL;
pq: PriorityQueue.Ref;
AddSortOption[$MoreRecent];
pq м PriorityQueue.Create[SortPred, sortData];

DO
arg: ROPE = CommanderOps.NextArgument[cmd];
IF arg = NIL THEN EXIT;
AddFile[PFS.PathFromRope[arg ! PFS.Error => IF error.group # $bug THEN {
IO.PutRope[cmd.err, "  -- "];
IO.PutRope[cmd.err, error.explanation];
IO.PutRope[cmd.err, "\n"];
GO TO failed}], FALSE];
ENDLOOP;
IF filesSeen > 0 THEN {
out: IO.STREAM ~ IO.ROS[];
IF pq # NIL THEN {
lagName: PATH м NIL;
THROUGH [0..PriorityQueue.Size[pq]) DO
item: FileItem = NARROW[PriorityQueue.Remove[pq]];
PrintOneFile[item];
ENDLOOP;
};
IO.PutF1[out, "-- %g files", [integer[filesSeen]] ];
IF bytesTotal > 0 THEN IO.PutF1[out, ", %g total bytes", [integer[bytesTotal]] ];
IO.PutChar[out, '\n];
msg м IO.RopeFromROS[out];
};
EXITS
failed => {result м $Failure};
};

FileItem: TYPE = REF FileItemRep;
FileItemRep: TYPE = RECORD [fullUName, attachedTo: PATH, created: GMT, bytes: INT, fileType: PFS.FileType];

SortPred: PriorityQueue.SortPred = {
xx: FileItem = NARROW[x];
yy: FileItem = NARROW[y];
options: LORA = NARROW[data];
FOR each: LORA м options, each.rest WHILE each # NIL DO
SELECT each.first FROM
$MoreRecent => {
IF xx.created = yy.created THEN LOOP;
RETURN [BasicTime.Period[xx.created, yy.created] < 0];
};
$LessRecent => {
IF xx.created = yy.created THEN LOOP;
RETURN [BasicTime.Period[xx.created, yy.created] > 0];
};
$Larger => {
IF xx.bytes = yy.bytes THEN LOOP;
RETURN [xx.bytes > yy.bytes];
};
$Smaller => {
IF xx.bytes = yy.bytes THEN LOOP;
RETURN [xx.bytes < yy.bytes];
};
ENDCASE;
ENDLOOP;
RETURN [PFSNames.Compare[xx.fullUName, yy.fullUName, FALSE] = less];
};


-- Stolen from DFUtilitiesImpl
DateFormat: TYPE = {explicit, omitted, greaterThan, notEqual};
Date: TYPE = RECORD [
format: DateFormat м $omitted,
gmt: GMT м BasicTime.nullGMT
];

DateToStream: PROC [s: STREAM, date: Date] = {
SELECT date.format FROM
$explicit => {
months: ROPE = "JanFebMarAprMayJunJulAugSepOctNovDec";
up: BasicTime.Unpacked = BasicTime.Unpack[date.gmt
! BasicTime.OutOfRange, BasicTime.TimeParametersNotKnown => GO TO noDate];
ConvertZone: PROC = {
dst: BOOL = up.dst = yes;
SELECT up.zone FROM
0 => IF ~dst THEN s.PutRope["GMT"];
NAT[5*BasicTime.minutesPerHour] => s.PutRope[IF dst THEN "EDT" ELSE "EST"];
NAT[6*BasicTime.minutesPerHour] => s.PutRope[IF dst THEN "CDT" ELSE "CST"];
NAT[7*BasicTime.minutesPerHour] => s.PutRope[IF dst THEN "MDT" ELSE "MST"];
NAT[8*BasicTime.minutesPerHour] => s.PutRope[IF dst THEN "PDT" ELSE "PST"];
ENDCASE =>
s.PutF["%g%02d%02d",
[character[IF up.zone < 0 THEN '- ELSE '+]],
[cardinal[up.zone.ABS/BasicTime.minutesPerHour]],
[cardinal[up.zone.ABS MOD BasicTime.minutesPerHour]]
]
};
s.PutF["%02d-%g-%02d ",
[cardinal[up.day]],
[rope[months.Substr[start: up.month.ORD*3, len: 3]]],
[cardinal[up.year MOD 100]]
];
s.PutF["%02d:%02d:%02d ",
[cardinal[up.hour]], [cardinal[up.minute]], [cardinal[up.second]]];
ConvertZone[];
};
$notEqual => s.PutRope["~="];
$greaterThan => s.PutChar['>];
ENDCASE;
EXITS
noDate => NULL;
};
Commander.Register["DList", DListCommandProc, "sort a list of file names (not a pattern) by date"];

END.
  ╕  
DListImpl.mesa
Copyright ╙ 1989, 1990, 1991, 1993 by Xerox Corporation.  All rights reserved.
Carl Hauser, August 24, 1989 4:43:16 pm PDT
Michael Plass, November 25, 1991 1:19 pm PST
Doug Wyatt, April 15, 1992 12:28 pm PDT
Last tweaked by Mike Spreitzer on February 7, 1990 12:12:30 pm PST
Chauser, September 28, 1990 11:16 am PDT
Willie-s, March 18, 1993 7:45 pm PST
taken from PFSCommandsImpl.ListCommandProc
DList Command
[cmd: Handle] RETURNS [result: REF _ NIL, msg: ROPE _ NIL]
CommandObject = [in, out, err: STREAM, commandLine, command: ROPE, ...]
item: REF [fullUName, attachedTo: PATH, created: GMT, bytes: INT, keep: CARDINAL, PFS.FileType]
Factor out the directories
In these cases it is better to enumerate for info, to reduce server traffic
... sets the lagging prefix from the given file name, which is presumed to be syntactically correct, although it need not be complete.  A file name without a prefix will set the lagPrefix to NIL.  We also enforce lagPrefixLen = Rope.Length[lagPrefix] at exit, assuming that no other routine sets lagPrefix.
do we have a new prefix?
We have a new lagging prefix, so scan backwards for the LAST directory
the argument is assumed to be a file name.
[x: Item, y: Item, data: REF] RETURNS [BOOL]
Utilities

'gmt' is valid only if dateFormat = $explicit.  (We don't use a variant record because it complicates the client's life too much (i.e., the compiler is unnecessarily picky about assignments involving variant records that aren't REF-containing).)
Note:  Dates returned by ParseFromStream are guaranteed to have `gmt' = nullGMT if `format' ~= $explicit.  The other procedures of this interface ignore the 'gmt' field if 'format' ~= $explicit.
Initialization
Э╩	  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ
╧eЬCЩNKЩ+KЩ,KЩ'KЩBKЩ(KЩ$KЩ*KШ Ъ╧k	Ш	KЪЬ
ЮЬЮЬ}ШСKЪЬ
ЮЬШ(KЪЬЮЬШ"KЪЮЬШKЪЬЮЬШKЪЮЬЮЬWШ`KЪЬ	ЮЬ*ЮЬШGKЪЬЮЬ5ШHKЪЬЮЬШKЪЬЮЬШ*KШKШ ЧЧЪ╨ln	ЬЮЬЮШKЪЮЬ%ЮЬЮЬ6ШoKЪЬЮШKШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШЧheadЩЪ╧nаЬШ+ЪЬЮЬ
ЮЬЮЬЮЬЮЬЩ:KЪЬЮЬЮЬЩGЧЪаЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬШKЪЬЮЬLШVKШKЪЮЬЮЬ!Ш2KШKШKШ ЧЪаЬЮЬШ'KЪЬЮЬЮЬЮЬ	ЮЬЮЬЮЬ
Щ_KЪЬЮЬШKЪЬЮЬЮЬШ3KЪЬШKШ KЪЬЩKЪЬШЪЮЬЮЬШKЪЮЬЮЬШ-KЪЮЬЬШKШЧKЪЬЮЬ>ШMKЪЮЬШKШ KЪЮЬ0Ш2ЪЮЬ!Ш#KЪЮЬЮЬШKЪЮЬ.Ш2ЧKЪЮЬШKШЧЪ	ааЬЮЬЮЬЮЬШ4ЪаЬЮЬШЪЮЬЮЬ
ЮЬЮЬШ0KЪЮЬШKЪЮЬ%Ш'KШKЪЮЬЮЬШЧKШ"ЪЮЬ)Ш,KЩKЧЪЮШKЪЬЮЬЮЬШ+ЧKШЧKЪЬЮЬЮЬ*Ш=KЪЬ+ЮЬЮЬШHKЪЬ&Ш&KШЧЪаЬЮЬЮЬШ'KЪЬ┐ЮЬpЩ▓KЪЬЮЬЮЬЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЩKЪЮЬ&ЮЬЮЬШ4KШЧKЪЬ8ЮЬ
ЩFKЪЬШKЪЬ2Ш2KЪЬШЧЪаЬЮЬ
ЮЬШ&KЪЬЮЬЮЬ	ШKЪЮЬЮЬЮЬЮЬШGKЪЬШKШЧKЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬШKЪЬ&ЮЬШ.KЪЬЮЬЮЬШKЪЬ
ЮЬЮЬШKЪЬЮЬЮЬШKШKШШ.KШ ЧЪЮШKЪЬЮЬ"Ш+KЪЮЬЮЬЮЬЮЬШKЩ*Ъ	ЬЮЬЮЬ
ЮЬЮЬШHKЪЮЬШKЪЮЬ%Ш'KШKЪЮЬЮЬЮЬШЧKЪЮЬШЧЪЮЬЮЬШKЪ	ЬЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬШKЪЬ	ЮЬЮЬШЪЮЬЮШ&KЪЬЮЬШ2KЪЬШKЪЮЬШЧKШЧKЪЮЬ2Ш4KЪЮЬЮЬЮЬ8ШQKЪЮЬШKЪЬЮЬШKШЧЪЮШKЪЬШЧKШKШ KЪЬ
ЮЬЮЬШ!ЪЬЮЬЮЬЮЬЮЬ	ЮЬЮЬШkKШ ЧЪаЬШ$KЪЬЮЬЮЬЮЬЩ,KЪЬЮЬШKЪЬЮЬШKЪЬ	ЮЬЮЬШЪ	ЮЬЮЬЮЬЮЬЮШ7ЪЮЬЮШШKЪЮЬЮЬЮЬШ%KЪЮЬ0Ш6KШЧШKЪЮЬЮЬЮЬШ%KЪЮЬ0Ш6KШЧШKЪЮЬЮЬЮЬШ!KЪЮЬШKШЧШKЪЮЬЮЬЮЬШ!KЪЮЬШKШЧKЪЮЬШЧKЪЮЬШЧKЪЮЬ/ЮЬ
ШDKШKШ ЧЧЧЩ	Щ KШ KШKЪЬЮЬ.Ш>ЪЬЮЬЮЬШKЪЬШKЪЬЮЬШKЪЬїЩїKЪЬШKЩ┬KШ ЧЪаЬЮЬЮЬШ.ЪЮЬЮШЪЬШKЪЬЮЬ*Ш6Ш2KЪЬ<ЮЬЮЬ	ШJЧЪаЬЮЬШKЪЬЮЬШЪЮЬ	ЮШKЪЬЮЬЮЬШ#KЪЮЬ*ЮЬЮЬЮЬШKKЪЮЬ*ЮЬЮЬЮЬШKKЪЮЬ*ЮЬЮЬЮЬШKKЪЮЬ*ЮЬЮЬЮЬШKЪЮЬШ
ЪЬШKЪЬЮЬЮЬЮЬШ,KЪЬЮЬШ1KЪЬЮЬЮЬШ4KШЧЧЧKШЧЪЬШKЪЬШKЪЬ$ЮЬШ5KЪЬЮЬШKШЧЪЬШKЪЬCШCЧKЪЬШKШЧKЪЬШKЪЬШKЪЮЬШЧЪЮШKЪЬ
ЮЬШЧKШЧЧЧЩKШcKШ ЧKЪЮЬШЧ ЕЧ    о  'Д  