Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/list.elib
There are no other files named list.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   erX~
S
V} _,_2b:NALvS

<bSq|

2

2%&:

TH

R

YI& Kill LIST Library& List Check Superior& List Exec Command& List Subroutine& Setup LIST Library<entry>Print BufferPrint File^R Print Something~DIRECTORY~~DOC~ & Kill LIST Library~DOC~ & List Check Superior~DOC~ & List Exec Command~DOC~ & List Subroutine~DOC~ & Setup LIST Library~DOC~ <entry>~DOC~ Print Buffer~DOC~ Print File~DOC~ ^R Print Something~DOC~ ~Filename~~Filename~

~INVERT~r0FO..QLIST Setup Hookq0"G:M0']0
:I*FO..QPrint Old Library
:I*FO..QPrint Library
F~ALIST"NQA'"#QB'M.VPrint Old Library
:I*LISTM.VPrint Library
M.CPrint Library* Filename of the Library containing the PRINT macros.
xQPrint Old LibraryF([A)UPrint Library
M(M.MKill Variable)Print Old Library
1:<M(M.M& Setup A Library)W>
:F"L
:I*CList the current bufferFSECHODISP
1M(M.M& Yes or No)"N
F@:M(M.MPrint Buffer)'
"#F@:M(M.MPrint File)'
'
"#F:M(M.MPrint File)'
WFSQPPTR[0
0F[DVERSION
F[DFileE[E\FNE^E]
FSHSname
QBuffer Filenames
[Buffer Filenames
FQB"G
Q..f-Q.f"EQBfsdfile'
"#fsdfileub'
'
"#Q..f-Q.f"E
f[bbind
GBuffer NameWH@FCWJ
<.-z;-1,1AUBQB:;
QB:"D
QB-65"LW1D'
"#QB-90"GW1D'"#W1:CW''
'"#W1:CW'>
HFXBWf]bbind
QBFSDFILE
ETB
'
"#fsdfileUB''
[c[d
FQB"G
F[BBIND
1:<1,111110000001.ezB>"EWJ:XB'
F]BBIND
QBFSDFILE
FSDFN1UB
FSDFN2UD
:I*A(B.D).TMPUC
0FSDVERSION
FSDFILEUD
'
"#
FQBuffer Name"G
QBuffer Name:FCUD'
"#:IDUNKNOWN'
:I*A(D)-BUFFER.TMPUC
:IDBuffer: D, No Buffer Filename
'
B,ZM(M.MWrite Region)C
:IDC
FF"N:IDD,'
FM(M.M& List Subroutine)DW
M(M.MDelete File)C
^FSQPPTR[0
0F[DVERSION
F[DFileE[E\FNE^E]
QBuffer FilenamesF"E
:I*'FSDFILE
[Buffer Filenames
5,FList File[..4
FQ..4:"G
FQ(FSDFILE):"G
-(WFSQPPTR-Q0)FSQPUNWIND
:F"L@'F:M(M.MPrint Buffer)'
"#FSDFILEU..4''
F[BBIND
1:<1,111110000001.ez..4>"EWJ:X..4'
F]BBIND
FF"N:I..4..4,'
WFM(M.M& List Subroutine)..4W
-:I*[..6
FQ..6:"G
:I*C? Listing subroutine failure.  Processing terminated.fsechodisp0fsechoactive'
Q..6m.vPrint Source File
FF"'E[A
1:<Q..6fsforkjcl
-(QA"N
:I*Cfsechodisp
@'FZSYS:LIST.EXE)FZ
60:
>"N
:I*CLIST Program failed.  Do you want it printedfsechodisp
1M(M.M& Yes or No)"L
QPrint Source FileU1
M(M.M& List Exec Command)PRINT 1'
'
1:<M(m.mKill Variable)Print Source File>W
1:<QSYSTEM SUPERIOR TYPE>"N
0M.CSystem Superior Type Nonzero implies an invoke inferior type
F[bbind
FSXJNAMEf6J
1+(:SMACS)USystem Superior type
F]bbind
QSystem Superior Type"N
1,M.M^R Invoke Inferior"E
M(M.MLoad Library)EFORK''
'
:I*
M(M.M& List Check Superior)
1FO..QSystem Superior Type"E
Y
CONT
'
"#M(M.M^R Invoke Inferior)*Y
POP
'
LIST(Macros for Listing Files and BuffersS Default setups1S Kill the variables used by the LIST Library|^R Prompt the user for which LIST macro to use.
A numeric argument says to enter subcommand mode in the program.  The
calling sequence is

	MM Print Object<file>

If the length of the string <file> is 0, then the current buffer
is used.   (C Lists the current buffer using the program LIST.
A numeric argument says to enter subcommand mode in the program
The calling format is

    MM & List Buffer$ +C Lists the current file using the LIST program.
A numeric argument says to enter subcommand mode in the program
The calling format is

    MM & List File$<File>$ /S Interfaces with the List program.
The string argument is interpreted as the JCL to pass to the program.
A numeric argument says to enter subcommand mode in the programS Checks for the superior type. 0=EXEC, 1=OTHERS
Loads the EFORK library (if necessary) if the superior type is other than 0
CS Performs the string argument as an EXEC command.
The action it takes depends on the value of System Superior Type.  It
it is 0 then a valret is performed else an inferior exec is invoked.%& Setup LIST Library
<entry>
& Kill LIST Library
^R Print Something
Print Buffer
Print File
& List Subroutine
& List Check Superior
& List Exec Command
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2