Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/new-bughunt.elib
There are no other files named new-bughunt.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   !%
S'5@?3HSXYd#t'.(6%BQS@c'e Line& Setup BUGHUNT Library& What Page/LineBughunter Mode!^R Bughunt Auto Fill Comments^R Bughunt Date Edit ^R Bughunt Down Comment Line!^R Bughunt Indent for Comment&^R Bughunt Indent New Comment Line^R Bughunt Up Comment Line^R Note Bug~DIRECTORY~~DOC~ & Replace Macro!~DOC~ & Set Bughunt Mode Line!~DOC~ & Setup BUGHUNT Library~DOC~ & What Page/Line~DOC~ Bughunter Mode'~DOC~ ^R Bughunt Auto Fill Comments~DOC~ ^R Bughunt Date Edit&~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~ ^R Note Bug~DOC~ ~Filename~~Filename~

~INVERT~NT Setup Hookq0"G:M0']0
fshsname[0
:I*0PENDING.BUGS.0FO..QBughunter File(
)M.CBughunter FileThe file where bugs in programs are to be noted
]0
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$
M(M.M& Set Bughunt Mode Line)
M.M& Replace Macro[9
1:<M(M.MKill Variable)MM ^R Date Edit>
1:<M.M^R Date Edit,(M.M^R Bughunt Date Edit)m9>
M.M^R Bughunt Date EditM.VMM ^R Date Edit
1:<M(M.MKill Variable)MM Date Edit>
1:<M.M Date Edit,(M.M^R Bughunt Date Edit)m9>
M.M^R Bughunt Date EditM.VMM Date Edit
1:<M(M.MKill Variable)MM ^R Indent For Comment>
1:<M.M^R Indent For Comment,(M.M^R Bughunt Indent For Comment)m9>
M.M^R Bughunt Indent For CommentM.VMM ^R Indent For Comment
1:<M(M.MKill Variable)MM ^R Indent New Comment Line>
1:<M.M^R Indent New Comment Line,(M.M^R Bughunt Indent New Comment Line)m9>
M.M^R Bughunt Indent New Comment LineM.VMM ^R Indent New Comment Line
1:<M(M.MKill Variable)MM ^R Down Comment Line>
1:<M.M^R Down Comment Line,(M.M^R Bughunt Down Comment Line)m9>
M.M^R Bughunt Down Comment LineM.VMM ^R Down Comment Line
1:<M(M.MKill Variable)MM ^R Up Comment Line>
1:<M.M^R Up Comment Line,(M.M^R Bughunt Up Comment Line)m9>
M.M^R Bughunt Up Comment LineM.VMM ^R Up Comment Line
1:<M(M.MKill Variable)MM ^R Auto Fill Comments>
1:<M.M^R Auto Fill Comments,(M.M^R Bughunt Auto Fill Comments)m9>
M.M^R Bughunt Auto Fill CommentsM.VMM ^R Auto Fill Comments
AqSet Mode line hook[1
f[bbind
fq1"GG1J
:@S/Bughunter Mode/"E
@I/W0FO..QBughunter Mode"NI Bug'/''
"#@I/W0FO..QBughunter Mode"NI Bug'/'
HXSet Mode Line Hook
1fsmodechange
LFF"N"'NuBughunter ModeW'
QBughunter Mode"'EUBughunter Mode


1[1
0FO..QBuffer Filenames"E
:I*CNo Output Filename in effect
fsechodisp0fsechoactivew'
1,M.M& Setup PAGE Library"N
M(m.m^R Widen Bounds)W'
"#M(m.m^R Set Bounds Full)W'
QBUFFER FILENAMESFSDFILE
j1l-2:s-*-"n
1l'"#j'
FF"e
1l-1:s Edit by "n
0lk'"#-1l''
"#f~(qmode)BASIC"e
<:s00002	REM ;>
l'
"#f~(fsdfn2)B20"e
<:s00002	REM ;>
l''
'
f~(fsdfn2)FOR"EIC       odone'
f~(fsdfn2)SAI"EICOMMENT 0U1odone'
f~(fsdfn2)B20"EI000029iiREM odone'
f~(qmode)FORTRAN"EIC       odone'
f~(qmode)SAIL"EICOMMENT 0U1odone'
f~(QMODE)BASIC"EI000029iiREM odone'
1U10FO..QComment BeginF"EW0FO..QComment Start'[2
fq2"GG20u1'
!done!
qbuffer filenamesf"nf[dfile'
<ig(fsdsname)
>ig(fsdfn1)
.ig(fsdfn2).i
fsdversif"ewe?"E
e[erfsifvers(ece])'"#fsdversi'+1'\
i, 0,-1fsfdconv
fsxunam, Edit by 0
Q1"Egcomment end'
i

b,.qf[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'
"#
0@f+fk"e0'
fq0-1"e0a-(0,1a)"e
0a-(0,2a)"e2c0'
0lmI
0l:f(s0c)''
fkc
fsshposu.1'
.u.3@-f	 l
qCu1fsshposuH
qC"n1+'qH-q1"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''
:@[email protected]"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>
>
zQBuffer Filenames[.7
FQ.7:"G:I*CNo File in Buffer.fsechodisp0fsechoactive'
F[DfileW[Buffer Filenames
.[.6E[E\FNE^E]
0[..F
fshsname
:I*ZPENDING.BUGS.0FO..QBughunter FileUZ
ETZQZUBuffer Filenames
1,FBug Description: 
[0
Q0"E1U0'
[1
0[4
Q0<.-B@;-1@L%4W>
.,(Q4+1+Q0@L.)X1
Q.6J
1M(M.M& What Page/Line)[2
F[bbind
1:<1,111110000001.ez.7>"EJ:X.7'HK
QModeUD
0FO..QMM COMPILE"N[MM COMPILE'
M(M.MText Mode)
9:I*[Fill Prefix
70[Fill Column
1[Auto Fill Mode
IBug found in .713i10i
9IIon 213i10i
IEntry Date:  
M(M.MInsert Date)W:L13I10I13i10i
FQA"G
IDescription:13i10i
.[3
.(GA13I10I)J
<:S
;
1R13I1C>
Q3JWM(M.M^R Mark End)
M(M.M^R Fill Region)
zj
13i10i'
13i10iISource Code:13i10i13i10i
.(G1)J
Q4@L!<<!IBug>>
FF-2:"Lzj'
1:<M(M.MD Mode)>W
J12i13i10i
zj13i10I
0,ZM(M.MAppend To File)Z
%0f[VB
:I*F([V)[X
0[1.[2
1l.[3
0[40[50[7
QPAGE DELIMITER[8
0j<%1
:s
8;.u5
.-1-Q2;
.u4>
:IVPage q1:\UX
:IVVX, Line 
m.m& Count Lines[6
q4,q3m6f(u7):\UX
:IVVX of 
q5-q4:"Gzu5'"#q5-1u5'
q3-q5"G-1'"#q3,q5m6'+q7:\UX
:IVVX.
Q2J
FF"E
.(GV.:)J
FQV'
QV&[1[2[3[4[5[6
0FO..QBughunter Text
qComment Startu1
qComment Endu2
fq2"e0u2'
qComment Beginu3
fq3:"gq1u3'
fq1-1:g1u5
qFill Extra Space Listu6
0l:fb1"efg1'
<q2"e:l'"#:fb2'
.u4
l@f	 l
fq1f~1:@;
q4,.k
q2"n-fq2d'
fq3f~3"efq3d'"#fq1d'
FQBF"GF~B"EFQBD''
@f5k
-@f	 l@f	 k
0af6:"l32i'32i
>
q4j0l
.,(
m.m^R Auto-Fill Spaceu1
:l0f/2<.-(0m1f
).@;>
:l).BUGHUNT*Tack on for adding patches to programs!S Special Startup definitions,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.+^R Write date of edit at start of file.
Inserts as the first line of the file ( or the second, if the first
is a "Mode" comment) a comment containing the file name, the date
and time of the edit, and the phrase "Edit by " user. If there is
already such a comment there, the behaviour depends on the arg:
With no argument, the previous one is replaced. With any argument
a new comment is added before the previous one.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./^R Appends another entry to Bughunter File.
The numeric entry is taken as the number of lines of text to insert
from the file into the Bughunter File.  An optional description may be
given to describe the bug.  The precomma argument indicates to enter a
^R edit level to insert more information.}S Inserts the page and line number in the buffer.
A numeric argument says to return the string rather than inserting it.(^R Refill the comment and its continuations.
To handle comment starts (or parts of them) that are repeated, e.g.
";;; " in Lisp, or perhaps "/*** " in Pl1, it will treat a duplicated
last character of the comment start or begin as part of the comment
beginning when merging comment lines.(& Setup BUGHUNT Library
& Set Bughunt Mode Line
Bughunter Mode
^R Bughunt Date Edit
^R Bughunt Indent for Comment
^R Bughunt Indent New Comment Line
^R Bughunt Down Comment Line
^R Bughunt Up Comment Line
& Replace Macro
^R Note Bug
& What Page/Line
^R Bughunt Auto Fill Comments
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2