Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/dired.elib
There are no other files named dired.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   UjJpwYm J(
4<$FzR	@`h<t	~	S

.e'J-!6N=,DD"8M!-Wih$?z*	"8!#7.C;*JOq[*f*7uIZ!"+`*'D7"8@*LL&V`g.&DDIRED&sDIREDe..F&~DIRED&AutomaticrDelete&&DIREDDAutomaticiOneFile& DIRED DeletetFile&~DIREDREnter&lDIRED~ExamineDFile&nDIREDHelp&IDIRED NextfHog&~DIRED&ReverseiSort&DIRED~Reverse>Undelete&aDIREDeSort&~DIREDRSRCCOMlFile&~DIREDEUndelete&EDIREDView File& DIRED ^R Enter& Indent Carefully& Reap File List<ENTRY>Clean Directory

~INVERT~R0@l"L.-qb'"#.-z'"efg1'
<.-z;
"lqb-.;-@l'
1a-32"efD'
"g@l'>
-fm(m.mdescribe)& DIREDk[5[6[7[8.[9
@:i*|.+2f(j2<<:s.+1;c>>),.|[1
0@l1x5
<@l.-z;1f=5:@;>
<0@l.u8.-z;1x50@l
-(ff"n'"#2'fo..qFile Versions Kept)u6
<@l.u7.-z;
1f=5:@;%6w>
q6;>
q8-z"Eq9jfg1'
10f[%centerfswindow"l:f'
f[^rvpos
q7j@L1f[reread0@v
f]rereadw
fs^rvpos-(FSLINESF"EWFSHEIGHT-(FSECHOLINES)-1'"#-(FSTOPLIN)')(
f]^rvpos
)"Gq8j1:F'
q8j0dFF"E:m(m.m& DIRED Automatic One File)'
J2@L<.-z;
m(m.m& DIRED Automatic One File)R>
J2@Lz0@L[02fo..QFile Versions Kept[2
@:i*|.+2,(2<<:s.+1;c>>.)|[1
.-z"Efg1'
.f[VB1x01[3
<@L.-z;1f=0:@;%3>
fsz-.f[VZ
ZJq3-q2"G
-Q2-1@L<FDb-.;-@L>'
QTemp File FN2 Listu0
J<.-z;<:s.+1;c>.,(<:s.+1;c>.):FB0"L0@lFD'@L>
JHp0@l"L.-qb'"#.-z'"efg1'
<.-z;
"lqb-.;-@l'
1a-D"edi !<!
18c1:fb => "nfkc:k'
0@l'
"g@l'>
-f%-@l1m(m.m& DIRED Undelete)(-@l)[1[2f[DFile
f[Window
0@l"L.-qb'"#.-z'"efg1'
<.-z;
"Lqb-.;-@L'
.+2,(2c<:s 	+2;c>.-1)x2et2
m(m.mView File)
"GL'>
"G-L'V[2f[DFilef[Window0[..F
0@l"L.-qb'"#.-z'"efg1'
<.-z;
"Lqb-.;-@L'
.+2,(2c<:s 	+2;c>.-1)x2er2
0fsdverswfsdfileu2
0@Lf[BBind
^y
:I*[DIRED Examine Mode:  2 ][..JFR

"G@L'>
"G-@L'KFS^RMODE"E'
[0[1[20@V
<2,M.I@:FI:FCU0
Q0F XQUN?DKEHRSCVU1
Q0-200.FaaaaaaDKF"GU1'
Q1+1"GFI
FS^RARGP&2"N
FS^RARG'"#1'U2
FS^REXPT<Q2*4U2>
FS^RARGP"NQ2'@M:DIRED Dispatch(Q1)(0FS^RARGPW0FS^RARGW0FS^REXPTW
-1FS^RPREVW
)@V!<!>'
@:FIU0Q0&177.-137."GQ0-40.U0'
Q0@FS^RCMAC-(32FS^RINIT)"E
FGFI!<!>'
0;>090F[^RENTER
M.M& DIRED ..F[..F
1F[^RMDLYW0F[^RMCNT
M.VDIRED Dispatch
[DIRED Dispatch
15*5FSQVECTOR[0
Q0UDIRED Dispatch
-1[1
FS^RINITU:0(%1)
27FS^RINITU:0(%1)
27FS^RINITU:0(%1)
M.M& DIRED UndeleteU:0(%1)
M.M& DIRED Next HogU:0(%1)
M.M& DIRED HelpU:0(%1)
M.M& DIRED Delete FileU:0(%1)
Q:0(Q1)U:0(%1)
M.M& DIRED Examine FileU:0(%1)
M.M& DIRED Reverse UndeleteU:0(%1)
M.M& DIRED Automatic DeleteU:0(%1)
M.M& DIRED Reverse SortU:0(%1)
M.M& DIRED SortU:0(%1)
M.M& DIRED SRCCOM FileU:0(%1)
M.M& DIRED View FileU:0(%1)
]1]00 

f[BBindwf[DFile[SStringw1f[FnamSyntax0f[%Center
m.m& DIRED ^R Enterf[^Renter
qBuffer Filenamef"nfsdfile'w
et*.*-3fsdversionw
5,2fDirectory t1
fsosteco-2"e
g1j<:s;u1q1+1;c>
'
"#g1j<:s.u1q1+1;c>
q1"n<:s.u1q1+1;c>''
q1"e-3fsdversionw'
fsdfileu1hkez1
j9ig(fsddev)
i:<g(fsdsnam)i>
 

m.m& Indent Carefullyu10s,
<.-z;2,32i<:s+1;c>-d20m1w<:s+1;c>-d
26m1w<:s+1;c>-d46m1w
.,.+11f=16-Nov-1858"ei---.,(:fb"n.-1'"#:l.')k'
:fb"n-dfsxunameuJ
.u3(:l.)u4q3J(q4-q3)X2
(q4-q3)"Ei----3c'#
f~J2"Eq3J:k''66m1w'
:lfswidth-(fshpos)f"ld'
@l>j2@l
ETGAZONK .DEL
F[WINDOW
10F[%Center0fsmodif
[..J:I..JDIRED
f<!DIRED-loop!
f[dfile
0u..h
f]dfile
J2:@L:S
D"E'
f[bbindwg(-1fsqpslot)
ZJ<-@L.+2-Z:;K>
j2@l<.-z;1a-D"e@l'"#k'>
j0s<:s;c>
[.60[3[2
:i*2k
<.-z;2d.u2
<:s 	+2;c>r:k
fsosteco-2"n0@l2<<:s.+1;c>>r'
"#-@:f;r'
q2,.f=1"e
q2-2,.-1kf,
'"#q2,.x1'
:@l0,0:fm
fs^rhpos,q3fu3
@l>j
fswidth/(q3+1)u2
fswidth/q2u3
<0u1
q2<:@l0,0:fm.+2-z;
%1-q2"nq3*q1-(fs^rhpos),40.i2d'
>2:c;>
]1]2]3
z"e'
f<!ask!ftDeleting the following files:
htftOk?
:i.6
<fii-1f(t)@fc
0a-?"E-d1;'
0a-X"Ef+'
0a-N"E-df;ask'
-1@fx.6
f=.6YES"Ef;DIRED-loop'
fq.6-2"G1;'
>
f+ftChoices are:
YES	delete the files
X	exit immediately
N	go back to edit mode


>
].6f]bbindw
>
ft
Deleting files...

0u..h
[1j2@l
<.-z;
1f=D"e2c.,(<:s 	+2;c>r.)x1
1:<ED1>"N
FT Delete of 1 failed
''
@l>
j[1[2[6[70F[CASE
-F[FNAMSYNF[BBINDF[SSTRING
U6FF"E2FO..QFile Versions KeptU6
Q6"E@FEAORFSERR''
Q6"L@FEAORFSERR'
0FO..QBuffer FilenamesF"EW'F[DFile'
5,FFile to reapu7
ET7
-3fsdversWFSDFILEU7
EZ7
J
m.m& Indent Carefullyu10s,
<.-z;<:S+1;c>-d20m1w<:s+1;c>-d
26m1w<:s+1;c>-d46m1w
.,.+11f=16-Nov-1858"e:ki---.,(:fb"n.-1'"#:l.')k'
:fb"n-d66m1w'
@l>
Z"E:I*No files named 7FSERR'
j
fsosteco-2"n@:i2|.(2<<:s.+1;c>>r),.|'
"#@:i2|.(<:s.+1;c><:s;+1;c>r),.|'
<.-Z;
2X1
<@L.-Z;
2F=1"N0@L0;'>
FSZ-.FSVZ
Q6M(M.M& Reap File List)
0FSVZ>
30:
0U..H
nF[DFILE[1[2[3[4[5[F
:I*fo..QTEMP File FN2 Listu4
bj
<.-Z;
:s.;
.,(:S.w).-1:FB4"L
!foo!
0L.U2
:s	 w
.-1uF
FTDelete: 
Q2,QFTFT (Y or N): 
FSFLUSH"NF+oFOO'
FIu5Q5-

"E
F+oFOO'
FT5
Q5FYy+1"G
Q2,QFX51:<ED5>
FT [OK]

0LK!<!>'"#ft [Saved]
''
@L>
"NJ@L.-Z"EHK''
fsosteco-2"e
zj.u2<-@l.(1f(zj)g..o)jb-.;>b,q2k'
ZJ-@L.U2
!Redisp!
Q2J
0FSFLUSHEDU3Q3"N:FT'
FTSaving these files:

<.-Z;.,(@L).T>
Q2-B"EFT
...and no other files to delete.

HK'
FTDelete these files?

Q2J<B-.;.,(-@L).:T0@L>
FT(Y or N)? 
Q3"EFSFLUSHED"NFIWF+ORedisp''
FIU1Q1-

"EF+ORedisp'
FT1
Q2,ZK
Q1:FC-Y"N
FT [Saved]

HK'
J<.-Z;.,(<:s 	+2;c>).-1X11:<ED1>W@L>
FT [OK]

HK-:m(m.m& DIRED Sort)j[0[1[2:i*Cfsechodisp
"l@ftReverse '@ftSort by 
2,m.i<fi:fcu0
q0-F"e@ftFilename:i1:i21;'
:i1-2s-$-@:f  $@l:i2fsfdconv$
q0-R"e@ftRead date1;'
:i12<1>
q0-W"e@ftWrite date1;'
:i11-fw@l:i2\
q0-S"e@ftSize1;'
q0-?"e@ft(F Filename, S Size, R Read date, W write date) !<!>'
fg0>
"l:i2-(2)()'
j2@l.f[vb
c:@l12@lK0l"L.-qb'"#.-z'"efg1'
0fo..qSRCCOM switchesf"ew:i*/e/y'[2
[1<.-z;
"Lqb-.;-L'
.+2,(2c<:s 	+2;c>.-1)x1
et1fsdfileu1
:i*12fsforkjcl
f+ft-(fzSYS:SRCCOM.EXE)fz
"GL'>
0[0[1[2[3[6F[BBINDF[SSTRINGf[DFILE
qBuffer Filenamef"nfsdfile'w
et*.*-3fsdversionw
5,2fDirectory u1et1
-3fsdversionwfsdfileu0
EZ0
U3"E2FO..QFile Versions KeptU3'
Q3:\U1
JG(FSDDEV)I:<G(FSDSNAM)>IB,.FX6J
[..J:I..JChecking 6 for files with more than 1 versions...FR
m.m& Indent Carefullyu10s,
<.-z;<:S+1;c>-d20m1w<:s+1;c>-d
26m1w<:s+1;c>-d46m1w
.,.+11f=16-Nov-1858"e:ki---.,(:fb"n.-1'"#:l.')k'
:fb"n-d66m1w'
@l>j
fsosteco-2"n@:i2|.(2<<:s.+1;c>>r),.|'
"#@:i2|.(<:s.+1;c><:s;+1;c>r),.|'
<.-Z;
2X1
<@L.-Z;
2F=1"N0@L0;'>
FSZ-.FSVZ
1,Q3M(M.M& Reap File List)
0FSVZ>
0U..Hb[0[2
@f 	k
@-f 	k
fshposu0
.(/8-(q0/8)f"g,9i
&7,32i'
"#-q0:f"gw1',32i'
),.	DIREDDirectory Editor SubsystemS Delete current file.S Type our help msg.MS Move to the next file of which there are more than two (or arg) copies.,S Put D's next to versions of the current file that need it. 
With an argument, the entire directory is processed, not just the current file.
Obeys File Versions Kept5S Put D's next to deletable versions of one file..S Undo the effect of a previous D command.$S Move up one line and undo a D.)S Enter View File on the current file,S Enter recursive ^R on the current file.S ..F macro to make ^R understand DIRED commands.
It reads DIRED commands and executes them.  When a control- or
meta- character is typed, it is left for ^R to execute.gS FS ^R ENTER for DIRED.
Puts & DIRED ..F into ..F so that this ^R becomes
a DIRED command loop.'C Edit a directory.
The string argument may contain the filespec (with wildcards of course)
	Enters ^R mode with the directory in the buffer.
	D deletes the file which is on the current line. (also K,^D,^K)
	U undeletes the current line file.
	Rubout undeletes the previous line file.
	H puts D's by files that seem to need them.  ^UH does whole dir.
	Space is like ^N - moves down a line.
	N moves to the next file of which there are more than 2 copies.
	  (n M.VFile Versions Kept to find more than n copies).
	E edit the file in a recursive ^R.
        V calls View File on the current file.
	S sorts files according to size, read or write date.
	R does a reverse sort.
	C calls srccom on the current file.
	? types this cruft.
	Q lists files to be deleted and asks for confirmation:
	  Typing YES deletes them; X aborts; N resumes DIRED.
The D,U,E commands repeat if given an argument, backwards if negative.qC Delete old versions of a file.
Takes a filename as a string argument.
Offers to delete (and expunge) all but the most recent
versions of the file.
The number of versions kept is the numeric argument,
or File Versions Kept if no argument (usually 2).
If there are more than that many versions, you are told
about the excess and asked whether to delete them.}S Delete some of the files listed in the buffer.
The buffer should contain a part of a directory listing,
containing all the versions of a given file.  The number of
versions to keep should be given as a numeric argument.
This subroutine figures out which files ought to be deleted,
asks the user about them, and then deletes them after confirmation.
The buffer contents are all killed.  The virtual boundaries
are respected. Precomma argument causes these files not to be
mentioned at all if there are no files to delete (nothing is
typed out).

If a file matches Q$Temp File FN2 List$, this routine offers
to delete it..S Sort the files in the buffer in reverse.<S Sort files in the buffer by size, read- or write-date.)S Call up SRCCOM on the current file.)C Try to reap the specified directory.
Takes the directory name as a string argument;  default is visited one.
Does (essentially) MM Reap File on each file in the directory,
which finds the excess versions and offers to delete them.
A numeric arg specifies the number of versions to keep.GS Indent to specified column.
The argument should be the desired column.
Uses tabs and spaces;  deletes all tabs and spaces around
point before indenting.  Returns the range of buffer changed.& DIRED Delete File
& DIRED Help
& DIRED Next Hog
& DIRED Automatic Delete
& DIRED Automatic One File
& DIRED Undelete
& DIRED Reverse Undelete
& DIRED View File
& DIRED Examine File
& DIRED ..F
& DIRED ^R Enter
<ENTRY>
& DIRED
& DIRED Enter
Reap File
& Reap File List
& DIRED Reverse Sort
& DIRED Sort
& DIRED SRCCOM File
Clean Directory
& Indent Carefully
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2