> From: F. Alfredo Rego
> At 9:58 +0200 7/1/04, Andreas Schmidt wrote:
>
> >If I remember right you have to write a little commandfile...
>
> Aha! Thanks for the tip. So, I rephrase my question:
>
> Has anyone written such a SPECIFIC command file for MPEX?
>
> I will be delighted to send an Adager MemoCube in exchange for
> that person's saving me 10 minutes of my life (reinventing the
> wheel).
I can save you even more time than the previous poster [though cut-n-paste is pretty fast nowadays ;) ] You should already have the "contributed library" of VEsoft stuff in an account called "VECSL" -- within that is the group "listf", and in there the %LISTF format file I wrote when I was there:
---------------------------
%print datesort.listf.vecsl
(* LISTF,3 sorted by DATE *)
(* This is a LISTF mode based upon MPEX's mode 3 that is *)
(* sorted by last access date. After each "date" break, *)
(* a seperator line is printed. This listing is useful for *)
(* determining WHICH files should be examined first when *)
(* disk space must be reclaimed. *)
MPEXHEADER1:=
" F I L E N A M E CODE ACCESS MODIFY "+
"CREATION RESTORE";
MPEXHEADER2:="";
MPEXHEADER3:="";
FOR RFILE IN MPEXFILESET
SORT (ACCDATE,MODDATE,CREDATE)
PAGEHEAD BEGIN
WRITELN (' ');
WRITELN('%LISTF ',
SVAR("MPEXFILESET"),
',(sorted by access date)');
WRITELN (MPEXHEADER1);
WRITELN (' ');
END
DO
WRITELN (FILE:8,
'.':1, GROUP:8,
'.':1, ACCOUNT:9,
CODE:6,
ACCDATE:'%0D %1M %0Y ',
MODDATE:'%0D %1M %0Y ',
CREDATE:'%0D %1M %0Y ',
RSTDATE:'%0D %1M %0Y'
)
ONBREAKAFTER 1
WRITELN (79*'-')
;
---------------------------
Note: the comments were added by the VEcsl maintainer, I believe -- I actually find this slightly more useful for comparing source to object to executable to ensure that a file is "up to date" [a manual form of "make" :) ]
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
