Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/bughunt.elib
There are no other files named bughunt.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
0p3%.2;bI	R1b	7r
&Y<,M7DlO
`,p |*# 9EKU\^& Kill Bughunt Library& Replace Def& Replace Macro& Restore Def& Set Bughunt Mode Line& Setup BUGHUNT LibraryBughunter Mode ^R Bughunt Down Comment Line!^R Bughunt Indent for Comment&^R Bughunt Indent New Comment Line^R Bughunt Up Comment Line~DIRECTORY~ ~DOC~ & Kill Bughunt Library~DOC~ & Replace Def~DOC~ & Replace Macro~DOC~ & Restore Def!~DOC~ & Set Bughunt Mode Line!~DOC~ & Setup BUGHUNT Library~DOC~ Bughunter Mode&~DOC~ ^R Bughunt Down Comment Line'~DOC~ ^R Bughunt Indent for Comment,~DOC~ ^R Bughunt Indent New Comment Line$~DOC~ ^R Bughunt Up Comment Line~DOC~ ~Filename~~Filename~
~INVERT~0FO..QBughunter TextF"E
fsxuname:f6[a
:IA[A] '"#[A'
(:I*A)M.CBughunter Text!* Special Text to insert with patches!
1fsmodech$
0M.CBughunter Mode!* Flag indicating Special Comments will be used.
    0 = None, Nonzero = on.!
1fsmodech$
1fo..qBugHunt Library Loaded"e
:i*BugHunt library already loadedfg0'
0m.vBugHunt Library Loaded
m.mKill Variable
m.m& Replace Def
mS^R Indent For Comment
mS^R Indent New Comment Line
mS^R Down Comment Line
mS^R Up Comment Line
m.m^R Bughunt Indent For Commentu..;
m.m^R Bughunt Indent New Comment Lineu..J
m.m^R Bughunt Down Comment Lineu..N
m.m^R Bughunt Up Comment Lineu..Pm.mKill Variable
m.m& Restore Def
mR^R Indent For Comment
mR^R Indent New Comment Line
mR^R Up Comment Line
mR^R Down Comment Line
m(m.m& Get Library Pointer)EMACS
qEm.m^R Indent For Commentu..;
qEm.m^R Down Comment Lineu..N
qEm.m^R Up Comment Lineu..P
qEm.m^R Indent New Comment Lineu..J
mKBughunt Library Loaded
0uBughunter Mode1fsModeCh
@[0[1
:i1
0fo..qMM 1u0
q0f"nm.vBUG Old 1'
mKMM 1E[0[1
:i1
0fo..qBUG Old 1u0
q0f"nm.vMM 1'
mKBUG Old 1qSet Mode line hook[1
f[bbind
fq1"L:i1'
g1j
:@S/BUGHUNTER MODE/"E@I/
0FO..QBUGHUNTER MODE"NI Bug'/'
HXSET MODE LINE HOOK
1fsmodechange
lFF"N"'NuBughunter ModeW'
QBughunter Mode"'EUBughunter Mode
m(m.m& Set Bughunt Mode Line)
]f[sstring
qComment Start[0
Fq0:"G:i0;'
q0[B
0fo..qComment Beginf"nuB'
qComment Column
m.m& Xindent
[R[H[1
[.1[.2[.3
ff"n
m(m.m^R Bughunt Indent For Commentu.1
<0l@:f:fb0"nm.1'
l>
-f'
0l@:f:fb0"e
:lgB-1u.1
0fo..qComment Endu1
q1"ng1fkc'fqBr'
"#
fq0-1"e0a-(0,1a)"e
0a-(0,2a)"e2c0'
0lmI
0l:f(s0c)''
fkc
fsshposu.1'
.u.3@-f	 l
qCu1fsshposuH
qH-q1+1"g
0fo..qComment RoundinguR
qR"eqH+1u1'
"#qH-q1R+q1u1''
.u.2
q1-q.1"n.,q.3k
qH,q1mI'
"#q.3j'
.,zf=Bf"efqB+1'-1c
0FO..QBughunter Text"N
[1FQBughunter Text"G
QBughunter Textu1'"#:i1'
FQ1F"GF~1"E
FQ1C'"#
0FO..QBughunter Mode"NG1'''
]1'
1000FO..QBughunter Mode-1000"Eq1-q.1"e0''
q.2,.@-F 	K
.[0
1,@MM
0fo..qComment Start
QC"n.[20:@l
0:fbc"l
0fo..qComment End
0fo..qComment Begin
qb"eqcub'
fkcfsshpos[1
fqc-1"e@fc-1xc'
"#:ic'
:@l
qe"n-fqef~e"nge''
2:@l-@f 	k
qe"n-fqef~e"nge''
0@l0,q1mMM & Xindentgc
gb
0FO..QBughunter Text"N
[1FQBughunter Text"G
QBughunter Textu1'"#:i1'
FQ1F"GF~1"E
FQ1C'"#
0FO..QBughunter Mode"NG1'''
]1'
.u2:@lq0,.(q2j)'
q2j'
0fo..qFill Prefix[3
fq3"gg3'
"#0fo..qSpace Indent Flag"n
0ff@mI''
fsrgetty"e:0t'
q0,.Y1000000.[.H
QComment Start[0
Q0"E:I0;'
0L:FB0"L
.[3
0FO..QBughunter Text"N
[1FQBughunter Text"G
QBughunter Textu1'"#:i1'
FQ1F"GF~1"E
FQ1C''W
]1'
QComment End[1
FQ1"G.,(@L.+FQ1):FB1"E
Q3J:@LG1FKF''
Q3J@F 	R
0FO..QBughunter Text"N
[1FQBughunter Text"G
QBughunter Textu1'"#:i1'
FQ1F"GF~1"E
FQ1C''W
]1'
.[2
:@L.-FQ1-Q2:"G
Q3-FQ0J@:K
@-F 	K0F''
:@L.U0@L.-Q0"EI
-2F'
@:M(M.M^R Bughunt Indent For Comment)*-:M(M.M^R Bughunt Down Comment Line)=-1u..9
<%..9,:FU..9Q..9:;
U..9>
0[0QPrefix Char List[1[2[3
<Q0-FQ1;
Q0+6U0
Q0-4,Q0:G1U2
 F2U3
Q3"G0,Q3:G2U2'
-1U..9:I32(Q..9)
<%..9,F2U..9Q..9:;
U:3>
>
BUGHUNT*Tack on for adding patches to programs!S Special Startup definitions"S Undo what our buggy code did>S Find MM-var and rename.
Assumes Kill Variable is in qK.;S Restore saved macro.
Assumes Kill Variable is in qK.,S Set the Mode line hook for the libraryC Sets up comments to include a special text.
This text is defined in the variable $Bughunter Text$.  If this
variable is undefined then your user name is used.  An argument is
passed on directly to the value of Q$Bughunter Mode$.  With no
argument the mode is toggled.k^R Move to or create comment.
Finds start of existing comment, or creates one at end of line.
Indents the comment to Comment Column.
An existing double semicolon (or whatever character) comment
is aligned like a line of code.  
An existing triple semicolon comment is not moved.
With argument <n>, aligns the existing comments in the
next <n> lines, but does not create comments.
Comment Begin holds the string inserted to start a comment.
Comment Start holds the string recognized as starting an old one.
Comment End holds the string inserted to end a comment.
Comment Rounding holds the macro used when the code goes
past the comment column, to compute a new (larger) comment column
from the width of the code (default is "+1").W^R Inserts CRLF, then starts new comment.
The indentation and the number of comment-start characters
are copied from the previous line's comment.
If done when not in a comment, acts like ^R Indent New Line.t^R Move to start of next line's comment.
Equivalent to ^R Down Real Line followed by ^R Indent For Comment.v^R Move to start of previous line's comment.
Equivalent to ^R Up Real Line followed by ^R Indent For Comment.1S Replaces macro definitions on ^R characters.
Takes two arguments. The first is the macro to be replaced and
the second is the replacement. It pushes the old definitions.
& Setup BUGHUNT Library
& Kill Bughunt Library
& Replace Def
& Restore Def
& Set Bughunt Mode Line
Bughunter Mode
^R Bughunt Indent for Comment
^R Bughunt Indent New Comment Line
^R Bughunt Down Comment Line
^R Bughunt Up Comment Line
& Replace Macro
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2