Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/clu-more.elib
Click emacs/clu-more.elib to
see without markup as text/plain
There are no other files named clu-more.elib in the archive.
P W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
B O I Z v f ? w g W
1 @ % 4 T A + R _ + j e w I
1 e O 0 $ = / M 3 `
q y P
T - > < a P O a | o $ ncy Run Tlink & Find Next Clu Error! & Initialize CLU Error Buffer & Internal CLU Mode Hook & Return to Buffer & Run Tlink & Setup CLU-MORE Library Document New CLU Functions ^R Better CLU Compile" ^R Compile CLU and Edit Errors ^R Done With CLU Errors ^R Edit CLU Errors ^R Edit Next CLU Error ^R Fancy Run Tlink ^R New Beginning of Line ^R Run Tlink ~DIRECTORY~ ~DOC~ & Done With CLU Errors ~DOC~ & Fancy Run Tlink ~DOC~ & Find Next Clu Error' ~DOC~ & Initialize CLU Error Buffer" ~DOC~ & Internal CLU Mode Hook ~DOC~ & Return to Buffer ~DOC~ & Run Tlink" ~DOC~ & Setup CLU-MORE Library$ ~DOC~ Document New CLU Functions ~DOC~ ^R Better CLU Compile( ~DOC~ ^R Compile CLU and Edit Errors! ~DOC~ ^R Done With CLU Errors ~DOC~ ^R Edit CLU Errors ~DOC~ ^R Edit Next CLU Error ~DOC~ ^R Fancy Run Tlink" ~DOC~ ^R New Beginning of Line ~DOC~ ^R Run Tlink ~DOC~ ~FILENAME~ ~FILENAME~
~INVERT~N M(M.MMake Prefix Character).YM.CControl \ PrefixPrefixcharacterforCLUhackingcommands
M.M^R Compile CLU and Edit ErrorsU:.Y( C)
M.M^R Run TlinkU:.Y( J)
M.M^R Fancy Run TlinkU:.Y( T)
M.M^R Edit CLU ErrorsU:.Y( E)
M.M^R Edit Next CLU ErrorU:.Y( N)
M.M^R Edit Next CLU ErrorU:.X( N)
QControl \ PrefixU.\
M(M.MLoad Library)<PAO.BIN>EFORK
:@I*/M(M.M& Internal CLU Mode Hook)/[6
0M.VTLINK Fork
:I*SYS:TLINK.EXEM.CClu TLINK Name*The name of the TLINK program
:FO..QCLU Mode Hook"L
Q6M.CCLU Mode Hook'
"#
F[BBIND
GCLU Mode HookG60,.XCLU Mode Hook'
? M.M^R New Beginning of LineM(M.MMake Local Q-reg).A
0 FF"G
BJF-1L'
"#0L'/ m(m.mDescribe)Document New CLU Functions ; m(m.m^R Better CLU Compile)
m(m.m^R Edit CLU Errors)Q [0:@I0/ Type `valret ("\n")' to return to EMACS
/
FF"EOrunit'
"E
@FTKilling old Tlink
0FSECHOACTIVE
-QTLINK ForkF"NFZ'
0UTLINK Fork'
"#!runit!
QBuffer NameM(M.M& Find Buffer)[B
Q:.B(QB+2)[F
QF"N
F[DFILEET F
FSDFN1UF
FSDFN2[1F=1CLU"N0UF''
@FT 00FSECHOACTIVE
QTLINK Fork"E
QClu TLINK Name[T
QF"EFZ TUTLINK Fork'
"#FZ T FUTLINK Fork''
"#
QF"E-1,QTLINK ForkFZ'
"#-1,QTLINK ForkFZload(" F")
!''!''
FI@V' t [0:@I0/ Type `valret ("\n")' to return to EMACS
/
FF"EOrunit'
"E
@FTKilling old Tlink
0FSECHOACTIVE
-QTLINK ForkF"NFZ''
"#!runit!
@FT 00FSECHOACTIVE
QTLINK Fork"EFZSYS:TLINK.EXEUTLINK Fork'
"#QTLINK ForkFZ'
FI''
M(M.M& Initialize CLU Error Buffer)M.VCurrent Clu Error
QCurrent Clu Error"E:I*NER No ErrorsFSERR'
QCurrent Clu ErrorF"LFSERR'W
0JQCurrent Clu Error-1L
:I**Clu Errors*M(M.M& Find Buffer)[B
Q:.B(QB+4)M.VErrors Buffer Buffer
0FO..QWindow 2 Size"N
:I*A2W Already Two WindowsFSERR'
fsrgetty"e
:I*TTY You are on a printing terminalFSERR'
MMM & Check Top Levelwindows
[Previous Buffer
QBuffer NameM.VWindow 2 Buffer
QBuffer NameM.VProgram Buffer Name
Q:.B(QB+4)M.VOther Window Buffer
FSWINDOWM.VWindow 2 Window
.M.VWindow 2 Pointer
FSLINESM.VDefault Size
FSLINESF"E
FSHEIGHT-(FSECHOLINES)-1'M.VTotal Size
4M.VWindow 1 Size
:@I*/*Clu Errors*/M.VWindow 1 Buffer
QOther Window Buffer[..O.M.VWindow 1 Pointer
.M.VWindow 1 Window]..O
QWindow 1 Size[0
QTotal Size-1-Q0:"G
QTotal Size/2U0Q0UWindow 1 Size'
1F[NOQUIT
QTotal Size-1-Q0M.VWindow 2 Size
FSREFRESHM.VWindow 1 Refresh
M.M& Multi-window RefreshFSREFRESH
"NQ0FSLINESW
Q:.B(QWindow 2 BufferM(M.M& Find Buffer)+4)M.VOther Window Buffer
F]NOQUIT
M(FSREFRESH)W '
Q0FSTOPLINE
:FTFSWIDTH/10<FT---------->0U..H
-1FSTYPEOUT
0FSTOPLINE
F]NOQUIT
M.M^R Done With CLU ErrorsU:.X( 1)
QWindow 1 Size+1FSTopLine
QWindow 2 SizeFSLINES
M(FSREFRESH)
1 Q:.B(QBuffer Index+2)"E
:I*NOF Not visiting a fileFSERR'
FSMODIFIED"N:I*MOD Buffer has been modifiedFSERR'
FSMSNAME[J:IJ JCLU.JUNK.0
E? J"N:I*NCJ No CLU.JUNK fileFSERR'
QBuffer Name[Previous Buffer
M.M& Return to Buffer[R
:I**Clu Errors*M(M.MSelect Buffer)
-1M(M.MVisit File) J
@:S/Compiling /"E:I*BFJ Bad Format CLU.JUNK FileMR'
.[0[1L2RQ0,.X1L
QPrevious BufferM(M.M& Find Buffer)[B
F[BBIND
G:.B(QB+2)-S.CK
Q:.B(QB+9)\
HX0
F]BBIND
F~0 1"N:I*WRF Wrong fileMR'
M(M.M& Find Next Clu Error)[4
MR
Q4 = QPrevious BufferM(M.MSelect Buffer)
FF"NFSERR'
O <:S
"E0 '.-Z"E0 '
1A"D0;'
1:FBoutput failure:"N
0L1:X* '
>
\[00lQ0 0UErrors Buffer Buffer
QWindow 1 Size[0
1M(M.M^R One Window)
M.M^R One WindowU:.X( 1)
.[P
FSWINDOWJ
-Q0-1L
.FSWINDOW
QPJ
w ^ [E
QErrors Buffer BufferF"E
:I*NEE Not Editing ErrorsFSERR'[..O
M(M.M& Find Next Clu Error)UE
.UWindow 1 Pointer.UWindow 1 Window
]..O
QE"E
:I*CFSECHODISPLAY
@FT(No more errors)0FSECHOACTIVE
M(M.M& Done With CLU Errors)
'
QEF"L(M(M.M& Done With CLU Errors))FSERR'
FSTOPLINE"EM(M.M^R Other Window)'
QProgram Buffer Name[A
F=Buffer Name A"NQProgram Buffer NameM(M.MSelect Buffer)'
QEF(-1(0J)L)UCurrent Clu Error
M(FSREFRESH)
m(m.mSave All Files)
"#"e-qCLU *Handle*f"lfz'w-1uCLU *Handle*0 ''
:i*:ftCLU command (or several commands separated by #)
If null, will compile this file.
f[helpmac
ff"n
3,m(m.m& Read Line)CLU command: [3
fq3"l0u..h ''
ff"e
:i3compile &'
ff"nfq3"e:i3compile &''
qBuffer Filenames[5
[4[6:i4
< &f 3f(:;)f(,0: :g3u6:i4 4 6 5)+1,fq3:g3u3>
:i3 4 3 # stay
:ft>>> 3 Running.....
qCLU Compiler[4
qCLU *Handle*f"l
fz 4 # 3uCLU *Handle*'
"#,0: fzclu # 3'
0u..h
0
CLU-MOREG Package to provide more functions for editing CLU
code (CLU Mode). S ) S Set up additional keys for CLU Modek Go to beginning of line.
If given an argument, goes to that line in the buffer. (Absolute reckoning) C Prints documentation for the new EMACS CLU functions.
The following keys have been defined:
C-\ C Compiles a clu program, then runs C-\ E
C-\ J Runs an inferior TLINK.
C-\ T Fancy run TLINK - tries to reload changed binaries.
C-\ E After a CLU compile (M-&), displays the error file in the top
four lines of the screen. Moves the cursor to the first error.
C-\ N Advances the cursor to the next error, displaying the error at
the top of the screen.
^R Run (hacked) M-&, then C-\ E
Runs a hacked version of M-& which doesn't do View File on the errors,
Then runs Edit Clu Errors.X Runs an inferior TLINK.
Give the command an argument of zero to kill the inferior.X Runs an inferior TLINK.
Give the command an argument of zero to kill the inferior.n Edit the lines with errors in two window mode.
^R Edit Next CLU Error will go the next line in error.
S Initializes the *Clu Errors* buffer.
Loads CLU.JUNK into the *Clu Errors* buffer, setting things up for the
Edit Errors command.l S "Returns" to the "Previous Buffer".
Given an argument (which should be a string), signals that error.@ S Looks for a number beginning a line in the current buffer. S Revert to one window mode.> Goes to the next CLU error.
Will position the errors window to display the next error at the top of
the screen, and position the text buffer near the line on which the error
occurs.M ^R Call the CLU compiler.
Like ^R CLU Compile in the "clu" library, but doesn't ask stupid questions.
Create a compiler if needed. We first offer to write out each file,
unless there is a numeric arg other than 0. Reads a command line to
pass to CLU: "&" in it is translated into the name of the visited file.
If just CR is typed, "compile &" is used, that is, it compiles the
visited file. The command line may have several commands separated by
"#". We always add the "stay" command. The CLU compiler is kept from
one call to another. Arg = 0 => just kill the compiler. & Setup CLU-MORE Library
& Internal CLU Mode Hook
^R New Beginning of Line
Document New CLU Functions
^R Compile CLU and Edit Errors
& Fancy Run Tlink
^R Fancy Run Tlink
& Run Tlink
^R Run Tlink
^R Edit CLU Errors
& Initialize CLU Error Buffer
& Return to Buffer
& Find Next Clu Error
& Done With CLU Errors
^R Done With CLU Errors
^R Edit Next CLU Error
^R Better CLU Compile
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2