Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/clu-more.elib
There are no other files named clu-more.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   BOIZvf?wgW
1@%4TA+R_+jewI
1 e O0$=/M3`
qyP
T-><aPOa|o $ncy Run Tlink& Find Next Clu Error!& Initialize CLU Error Buffer& Internal CLU Mode Hook& Return to Buffer& Run Tlink& Setup CLU-MORE LibraryDocument 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~NM(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
0FF"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[DFILEETF
FSDFN1UF
FSDFN2=1CLU"N0UF''
@FT00FSECHOACTIVE
QTLINK Fork"E
QClu TLINK Name
QF"EFZTUTLINK Fork'
"#FZT 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!
@FT00FSECHOACTIVE
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)
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)
1Q:.B(QBuffer Index+2)"E
:I*NOF	Not visiting a fileFSERR'
FSMODIFIED"N:I*MOD	Buffer has been modifiedFSERR'
FSMSNAME:IJJCLU.JUNK.0
E?J"N:I*NCJ	No CLU.JUNK fileFSERR'
QBuffer Name[Previous Buffer
M.M& Return to Buffer
: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~01"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*'
>
\[00lQ00UErrors 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
F=Buffer NameA"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
<&f3f(:;)f(,0::g3u6:i4465)+1,fq3:g3u3>
:i343 # stay
:ft>>>   3   Running.....


qCLU Compiler[4
qCLU *Handle*f"l
fz4 # 3uCLU *Handle*'
"#,0:fzclu # 3'
0u..h
0
CLU-MOREGPackage 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.XRuns an inferior TLINK.
Give the command an argument of zero to kill the inferior.XRuns 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.lS "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