Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/docond.elib
There are no other files named docond.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   I$	7
I)Xqh
0{j
{$5>4N
GXq]nf/n8H*=~T`vr[&29EOMlZ>d9ke%& DOCOND Alternatives Declaration%& Docond Char Replace Declaration& DOCOND Flag Declaration & DOCOND Implies Declaration'& DOCOND Local Variable Declaration& DOCOND Lookup& DOCOND Print Declaration!& DOCOND Process Conditionals!& DOCOND Process Declarations& DOCOND Refill & DOCOND Replace Declaration& DOCOND Safety
DOCONDDOCOND Set Flag~DIRECTORY~+~DOC~ & DOCOND Alternatives Declaration+~DOC~ & Docond Char Replace Declaration#~DOC~ & DOCOND Flag Declaration&~DOC~ & DOCOND Implies Declaration-~DOC~ & DOCOND Local Variable Declaration~DOC~ & DOCOND Lookup$~DOC~ & DOCOND Print Declaration'~DOC~ & DOCOND Process Conditionals'~DOC~ & DOCOND Process Declarations~DOC~ & DOCOND Refill&~DOC~ & DOCOND Replace Declaration~DOC~ & DOCOND Safety~DOC~ DOCOND~DOC~ DOCOND Set Flag~DOC~ ~Filename~~Filename~
~INVERT~zm(m.m& DOCOND Safety)
q:.b(qBuffer Index)-13/2[Initial Local Count
m(m.m& DOCOND Process Declarations)
1,(m.m& DOCOND Refill)m.lMM Refill
m(m.m& DOCOND Process Conditionals)
js{end}0,.k
2f=
"ek'
1m(m.m& Init Buffer Locals)
F1,fFlag[1
.[0fnq0j
ff"em(m.m& DOCOND Safety)'
+[2
0:g1f+-:"l
0:g1u21,fq1:g1u1'
ff"ejs{end}fsz-.f[vz'
j:s{Flag:1}"e
:i*No Such Flag: 1fserr'
fkc6c
1af+-?"l
1au2:i*Illegal Flag Declaration: {Flag:21}fserr'
1a-q2"e0'
1a-?"n
ff"n:I*Conflicting Flag Setting: 21fserr''
dq2i
2js{end}fkcfsz-.f[vz
[1[2[3[..h
[..dq..d[4
128*5,32:i..d
1m(m.m& Alter ..D){(})
:ft
j<:s{;
.u3s:
q3,.-1x1
1,m.m& DOCOND 1 Declarationu2
q2"nm2'
q3jful>
.,(fulr.)tq.[0fnq0j
1au2c
.,(s=>2r.)x1
q1m(m.m& DOCOND Lookup)-q2"e
2c.,(s}r.)x1
1m(m.mDOCOND Set Flag)1'
:[1[2
1a-?"n'
c.,(s}r.)x1
.(j:s{Default:1}"l
fkc9c1au2'
"#ftWhat setting for the 1 flag 
<ft(+ or -)?
fiu2
ft2

q2f+-;>'
)j
1m(m.mDOCOND Set Flag)21
T[1[3m.m& DOCOND Lookup
m.mDOCOND Set Flag
.[2
<.,(s,}.-1)x1
q1ml-+"e!<!0;>oChosen'
0a-}@;>
!Retry!
ftChoose one of 
q2j.,(s}r.)tft: 
1,m(m.m& Read Line)Alternative: u1
q2,.:fb1"l1af,}:"l
fkc0af:,:"loOk'''
oRetry
!Ok!
1ms+1
!Chosen!
q2j
<.u2s,}
q2,.-1f~1"n
q2,.-1x3
1ms-3'
0a-}@;>
-.[1s=q1,.-1x*[.2
fu-1x*[3
q3m.l.2
ZQBuffer Filenames"E'
FSMODIF"N
@FT
Save your source changes before DOCOND processing
1m(m.m& Yes or No)"n
1m(m.m^R Save File)''
0uBuffer Filenames
0u:.b(qBuffer Index+2)
m(m.m& Set Mode Line)
H[1[2[3q4[..d[4
1au2c
.,(s=>2r.)x1
q1m(m.m& DOCOND Lookup)u3
q2-q3"n'
2c.,(s->-->>.+fk)x2
-1-(fssvalue)u4
.,(s}r.)x3
.(zj
0fsvz
q4,1m(m.mReplace String)23
fsz-.fsvz)j
G[1[2[3q4[..d[4
1au2c
.,(s=>2r.)x1
q1m(m.m& DOCOND Lookup)u3
q2-q3"n'
2c.,(s->-->>.+fk)x2
-1-(fssvalue)u4
.,(s}r.)x3
.(zj
0fsvz
q4,m(m.mReplace String)23
fsz-.fsvz)j
z[1[2[3[4[..d
128*5,32:i..d
1m(m.m& Alter ..D){(})
m.m& DOCOND Lookup
js{end}.[e
j<:s{;1af*+-"l!<!>'
1au2-dd.,(s:r.)fx1d
q2-*"e
fu-1fx3d
m(m.m1)3+0u2
fq2"gg2fkc'!<!>'
fsz-qe,q1mlu3
.u4ful-d
q2-q3"nq4,.k'
"#q4j'
>
8[1.[0fnq0jqe"nfsZ-QEf[vz'
js{flag:1}
fk+7aJ.-z(.:
@m(m.m^R Backward Paragraph)
m(m.m^R Fill Region)
)+zj

DOCOND!Document conditional expander;C Perform full DOCOND processing on contents of buffer.^C Specify the value of a DOCOND flag.
The argument (from terminal or suffix) should be a "+" or "-"
followed by the name of the flag to be set.
A numeric argument says that redefining a flag
already set is illegal.5S Process all declarations (Flag, Implies, etc.).+S Process a {Print:string} declaration.#S Process {Implies:+FOO=>+BAR}.6S Process a {Flag:...} by asking user for setting.
S Process an Alternatives declaration.
Ask the user which alternative to set to "+", unless one already is.
Set all the others to "-".,S Process {Local Variable:varname=value}<S Make sure user doesn't clobber his source with DOCOND.-S Process a {Replace:...} specifications.rS Process a Char Replace declaration.
Like Replace declarations except that they use 0mmReplace instead of 1.+S Process all {+FOO:text} conditionals.S Return the current setting of a flag.
Specify the flag name as a string as a prefix argument.
The setting is returned as a numeric character.
A precomma numeric argument specifies the value of FS VZ
to use while looking up the flag (for efficiency.-S Re-fill this or the previous paragraph.lDOCOND
DOCOND Set Flag
& DOCOND Process Declarations
& DOCOND Print Declaration
& DOCOND Implies Declaration
& DOCOND Flag Declaration
& DOCOND Alternatives Declaration
& DOCOND Local Variable Declaration
& DOCOND Safety
& DOCOND Replace Declaration
& Docond Char Replace Declaration
& DOCOND Process Conditionals
& DOCOND Lookup
& DOCOND Refill
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2