Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/pub.elib
There are no other files named pub.elib in the archive.
x W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
i t U { ] x g m % $F 3 $~ ? U H x N x W #S c _ l ^ y B 1 & y 1 B ; Z M S b % r [ 5 (@ 0 %m * 1 9 %a G 4 X 4< h (@ t %m } %m 38 1o $ (X 3 - E +z U )R i /) w . )z *R 1 +1 D ) V %C ` %@ g 6~ & DFS Mode & Get Real Filename & PUB Mode & Pub Replace Macro & Setup Pub Library Convert SPELL Dictionary Insert .REQUIRE files PUB MACRO Mode
PUB Mode PUB TEXT Mode Run EXEC-PUB Program Run PUB Program ^R Add CTRL-O to line ^R Change Pub Font Region ^R Change Pub Font Word" ^R Eliminate Pub Comment Field ^R Embolden Region ^R Embolden Word% ^R Move to Next Pub Comment Field) ^R Move to Previous Pub Comment Field ^R Move to Pub Comment Field ^R Replace CTRL-O on line ~DIRECTORY~ ~DOC~ & DFS Mode ~DOC~ & Get Real Filename ~DOC~ & PUB Mode ~DOC~ & Pub Replace Macro ~DOC~ & Setup Pub Library" ~DOC~ Convert SPELL Dictionary ~DOC~ Insert .REQUIRE files ~DOC~ PUB MACRO Mode ~DOC~ PUB Mode ~DOC~ PUB TEXT Mode ~DOC~ Run EXEC-PUB Program ~DOC~ Run PUB Program ~DOC~ ^R Add CTRL-O to line# ~DOC~ ^R Change Pub Font Region! ~DOC~ ^R Change Pub Font Word( ~DOC~ ^R Eliminate Pub Comment Field ~DOC~ ^R Embolden Region ~DOC~ ^R Embolden Word+ ~DOC~ ^R Move to Next Pub Comment Field/ ~DOC~ ^R Move to Previous Pub Comment Field& ~DOC~ ^R Move to Pub Comment Field# ~DOC~ ^R Replace CTRL-O on line ~DOC~ ~Filename~ ~Filename~
~INVERT~ :I* FO..QFont CharacterM.CFont Character* Character to use in changing fonts
:I*<@!>!FO..QUnderline BeginM.CUnderline Begin* Start of an underline portion
:I*@FO..QUnderline EndM.CUnderline End* End of an underline portion
:I*<]!>!FO..QEmbolden BeginM.CEmbolden Begin* Start of an embolden portion
:I*@FO..QEmbolden EndM.CEmbolden End* End of an embolden portion
M.M^R Change Font WordM.VMM ^R Change Font Word
M.M^R Change Font RegionM.VMM ^R Change Font Region
0FO..qPUB Setup Hook[0fq0"G:M0'
: M(M.M& Init Buffer Locals)
1,(:I*PUB)M.LCompiler Filename
:@I*`M(M.MRun Pub Program) `M.LCompile command
M.Q..D
0FO..QText ..DF"NU..D'
"#W:G..DU..D
Q..DM.VText ..D
5* .:F..D
!"!5* ':F..DAA
5*8:F..DAA
5* _:F..DAA
'
1,0M.LSpace Indent Flag
1,(:I*
)M.LPage Delimiter
1,0m.lPage Flush CRLF
1,(M.M^R Tab to Tab Stop)M.Q I
1,0M.LDisplay Matching Paren
1,0M.LComment Column
1,(:I*+2)M.LComment Rounding
1,0M.LComment Begin
1,(:I*.<< !>>!)m.lComment Start
1,(!<<!:I* >>)M.LComment End
1,(:I*<@!>!)M.LUnderline Begin
1,(:I*@)M.LUnderline End
1,(:I*<]!>!)M.LEmbolden Begin
1,(:I*@)M.LEmbolden End
!keydefinitions!
M.M& Pub Replace Macro[9
[PF[BBINDGPrefix Char list
J<.-z;W:FB ;
1C:XP1,(Q P)M.Q P
1l>
F]BBIND]P
M.M^R Eliminate Pub Comment Field,(M.M^R Kill Comment)m9
M.M^R Move to Next Pub Comment Field(M.M^R Down Comment Line)m9
M.M^R Move to Previous Pub Comment Field(M.M^R Up Comment Line)m9
M.M^R Move to Pub Comment Field,(M.M^R Indent for Comment)m9
M.M^R Change Pub Font Word,(M.M^R Change Font Word)m9
M.M^R Change Pub Font Region,(M.M^R Change Font Region)m9
1,(M.M^R Change Pub Font Word)M.LMM ^R Change Font Word
M.M^R Change Pub Font Region,(M.M^R Change Font Region)m9
1,(M.M^R Change Pub Font Region)M.LMM ^R Change Font Region
M.M^R Embolden WordM.Q..`
M.M^R Embolden RegionU:.X( `)
:I*TextM.LSubmode
1M(M.M& Set Mode Line)PUB
M(M.M& Init Buffer Locals)
1,(:I*PUB)M.LCompiler Filename
:@I*`M(M.MRun Pub Program) `M.LCompile command
M.Q..D
0FO..QText ..DF"NU..D'
"#W:G..DU..D
Q..DM.VText ..D
5* .:F..D
!"!5* ':F..DAA
5*8:F..DAA
5* _:F..DAA
'
1,0M.LSpace Indent Flag
1,(:I*.)M.LFill Prefix
1,(:I*
)M.LPage Delimiter
1,0m.lPage Flush CRLF
1,(M.M^R Tab to Tab Stop)M.Q I
1,(:I*)M.LParagraph Delimiter
1,0M.LDisplay Matching Paren
1,0M.LComment Column
1,(:I*+2)M.LComment Rounding
1,0M.LComment Begin
1,(:I*.<< !>>!)m.lComment Start
1,(!<<!:I* >>)M.LComment End
!keydefinitions!
M.M& Pub Replace Macro[9
[PF[BBINDGPrefix Char list
J<.-z;W:FB ;
1C:XP1,(Q P)M.Q P
1l>
F]BBIND]P
M.M^R Eliminate Pub Comment Field,(M.M^R Kill Comment)m9
M.M^R Move to Next Pub Comment Field(M.M^R Down Comment Line)m9
M.M^R Move to Previous Pub Comment Field(M.M^R Up Comment Line)m9
M.M^R Move to Pub Comment Field,(M.M^R Indent for Comment)m9
:I*MacrosM.LSubmode
1M(M.M& Set Mode Line)PUB
y "G.-Z"EFG0 ''
"#.-B"EFG0 ''
[A
[B
[C
QAF"N/(QA )'[D
QA"L-1l'"#0l'
QA <.UB:L
<.,QB:FB## ;
fkcfshposition+1Uc
fssvalue+1"E
.(.,QB:FB#"L1C'"#0l'.,)K'
"#M(M.M^R Delete Horizontal Space)'
.(I(QC\i)W)J
>
!Done!QDL>
, "G.-Z"EFG0 ''
"#.-B"EFG0 ''
[A
[B
[C
QAF"N/(QA )'[D
QA"L-1l'"#0l'
QA <<:FB (;
fkc.UB2c
\uc0,1a- )"E
QB,.+1K
QC-FSHPOSITION-1F"G,32i''>
!done!QDL>
S .[0FF"e0l'
"#l'
0,1a- ."e
:FB<<!>>!"L
0l:K.-1,q0 '
"#q0j0 ''
"#q0j0 'r .-z"ei.<< >>13i10i5r.-5,.+5 '
l.-z"efsshpos"n13i10ii.<< >>13i10i5r.-7,.+5 '
"#i.<< >>13i10i5r.-5,.+5 ''
"#
-1,1a- ."ni.<< >>13i10i5r.-5,.+5 '
"#
:FB<<!>>!"L1M(M.M^R Move to Pub Comment Field)'
"#:L.,(I << >>3r.+3) '''$ 0l.-b"ei.<< >>13i10i5r.-5,.+5 '
-l-1,1a- ."n
li.<< >>13i10i5r.-5,.+5 '
"#
:FB<< !>>!"L1M(M.M^R Move to Pub Comment Field)'
"#:L.,(I << >>3r.+3) ''B [9
0l-1,1a- ."e
q9-1u9'
q9:"g:FB<< !>>!"L0 '"#1U9''
.[0
:I*<< >>[C
q9<-l.-q0"e13i10i2r'
-1,1a- ."n
-1,1a-13"eI. C3r'
"#lI. C13i10i5r''
"#:FB<< !>>!"E:LI C3r''
>
.-4,q0 x :I* FO..QFont Character[F
FQF:"G:IF '
FQF-1"GF[BBINDGFJ1 XFF]BBIND'
FF"N+1"G
Z-.[0 .W-FWL.[1I F\ .WFWLI F*Z-Q0JQ1,. ''
.[0:CW:-S F"E0 '
.[22 FX*[1
"L
[4
-2: .WFWL.[3
Q2,.-2:FB F"L
2 F= F*"E2 FX4
:i1 4 1'
"#F=1 F*"E2D.,Q2 '
2D''
Q3-."LQ3J'
G1.-FQ1,Q2+2 '
Q0-2J .WFWL.U0
Q2,.+2:FB F"L
0A- *"E-2DQ2,. '
-2DQ0-2U0'
Q0JG1
Q2,. :I* FO..QFont Character[F
FQF:"G:IF '
FQF-1"GF[BBINDGFJ1 XFF]BBIND'
[0[1.,(W.)f u1u0
+1"g
q0ji F\
q1+2ji F*
.u1'
"l
q1j0,1a- F"e2d'
q0j0,0a- F"e%0'
q0j0,-1a- F"e-2d.u0q1-2u1'
q0j<.,q1:fb F;
-ddq1-2u1>q1j'
q0:
q0,q1 m 0FO..QEmbolden Begin[BQB"E UB'
0FO..QEmbolden End[EQE"E UE'
.[0
Z-.[9FF"EFNZ-Q9-.F"GC''
:FWL.,(1:<-2:FWL>"LJ'
.):FB B E"E
Q0J
FF"N'"#-1'[1
Q1"LQ1FWL.U0I B-Q1FWLI E'
"#I BQ1FWLI E'
Q0,. '
FK FX*[1.[2
.,(1:<"L-'1+:FWR>"L"LJ'"#ZJ''
.):FB B E"L
FK F= 1[3FKD
Q3"NQ2,. ''
Q2J"L:-1+'FWLI 1
"L.+FK,Q2-FK '
Q2,. I 0FO..QEmbolden Begin[BQB"E UB'
0FO..QEmbolden End[EQE"E UE'
[0[1.,(W.)f u1u0
+1"g
q0ji B
q1jfkri E
.u1'
"l
q1j:fwlz-.u1
q0j-:fwl<.,z-q1:fb B E;fkd>z-q1u1q1j'
q0:
q0,q1 f[dfile
:I* [..6
FSHSNAME[B
:IB BFOO..0
FQ..6:"G
FQBuffer Filenames"G
QBuffer FilenamesU..6'
"#W:I* B '
'
f[dversion
1:<
F[BBIND
E[
1,111110000001.ez ..6
J:X*fsdfile
E]
F]BBind
>"N:I* B '
f]dversion
fsdversionF"Efsdversion'
fsdfile o -1[..9[A
<%..9,:FU..9Q..9:;
:IAQ..9/200.F"G,46:IA'
:IA A ..9
1,M.Q AW>
u2[3[4[5[6[7[8[9
F[BBINDGPrefix Char ListJ
<.-Z;
FB
2r0X82c
M(:X*)U61c:X71L
.(W-1U5
<%5,Q3F6U5q5:;
:I4Q2U: 7( 5)Wm4>
)J>
h 0FO..QBuffer Filenames[b
FQB"GQBuffer Filenames[A
M(M.MSet Visited Filename) A
QBuffer FilenamesFSDfilew
]a'
"#!"!:I*CSorry, but I can't get a filename
fsechodisp
0fsechoactive'
]b
FF"NWM(M.M^R Save File)'
M(M.M& Get Real Filename)FSDFILE
fsdfileub
fsmsname[g
0[F
0[AF[BBIND
1,110000000001.ez B
J:L0XF
1,1000000001.ez B
J:L0XA
F]BBIND
F~F G"N
:I*CConnecting to F fsechodisp
1:<QFfsmsname>"E:I*succeeded.fsechodisp
0fsechoactive'"#
:I*FAILEDfsechodisp0fsechoactive
QGUF''"#0UG'
3,F Pub Subcommand(s):[E
:IBPUB B
FQE"G:IB B,
E'
:iE F a.DOC.0
-(-1,FZNEW:PUB.EXE B
)FZ
.(WJ:S
.PRINTEKFLAG
.XGPFLAG
.TRANSPARENCY
.DIABLOFLAG
.QUMEFLAG
.LPTFLAG
.TTYFLAGW
fssvalue[S
QS+6"E:FBfalse"LQS-1US''
QS"EWJ:FB.PRINTEKFLAG.XGPFLAG.TRANSPARENCY.DIABLOFLAG.QUMEFLAG.LPTFLAG.TTYFLAG
fssvalueUS
QS+6"E:FBfalse"LQS-1US'''
)J
QS"'E+(QS+6"'E)"N
m(m.mSelect Buffer)LST
hk
M(M.M^R Buffer Not modified)
1m(m.m^R Visit file) F A.LST
odone
'
QS+4"G
m(m.mSelect Buffer)XGP
hk
M(M.M^R Buffer Not modified)
1m(m.m^R Visit file) F A.XGP
odone'
QS+6"G
m(m.mSelect Buffer)DIABLO
hk
M(M.M^R Buffer Not modified)
1m(m.m^R Visit file) F A.DIABLO
odone
'
QS+7"E
m(m.mSelect Buffer)DOC
hk
M(M.M^R Buffer Not modified)
1m(m.m^R Visit file) F A.DOC
odone
'
!done!
QG"N
:I*CRe-connecting to G fsechodisp
1:<QGfsmsname>"E:I*succeeded.'"#:I*FAILED'fsechodisp
0fsechoactive'
f [E
fsdfn1:f6[a
fsdfile[b
!m(m.mWrite file) b!
fsddevice[c
fsdsname[d
0FZCONNECT
ps:<pub>PUB.EXE
COPY A.DOC C:< D>
CONNECT C:< D>
POP
:iE C:< D> a.DOC.0
m(m.mSelect Buffer)DOC
m(m.mVisit file) E
q J<:S,;
-1D:K>
!<<<<!
JM(M.MReplace String) > >> >
ETSPELL
M(M.MSet Visited Filename)SPELL
[F[B[E
<.-z;
0,1a- ."E
:FBREQUIRE"L
:FB"!'!"L
.,(W:FB"!'!"L1R'.)XF
FQF"G0L1KWM(M.MINSERT FILE) F
-1@L''''
1L>
JW PUB; Runs the PUB document compilers and implements PUB mode S Load default macros& C Sets up things for editing Text Files for PUB.
This functions sets up an environment for edition TEXT files to be used with
the PUB compiler. If the variable Pub Mode Hook exist, it will be run by
this function. The hook should check if the variable Submode is defined as
Text or Macros for specific directives.
The following key redefinitions are made:
M-` ^R Embolden Word
C-X ` ^R Embolden Region
The variables Underline Begin, Underline End, Embolden Begin,
Embolden End, and Font Character are initialized with the defaults used
for the PUB macros. They are: <@, @, <], @, ! respectively, and can be
changed via the Edit Options command.
0 C Sets things up for editing PUB macros Codex ^R Replaces all multiple spaces by CTRL-O(n).
A numeric argument is the number of lines to do, and may be negative.| ^R Replaces CTRL-O(n) by the appropriate spacing.
A numeric argument is the number of lines to do, and may be negative.O ^R If on comment line, delete its text.
Comment lines have a . in column 11 ^R Move to next comment field
Moves to next Comment field. If there is no other comment field before
the end of buffer or the next statement, creates one on the next line.= ^R Move to prev comment field
Moves to previous Comment field. If there is no other comment field between
point and head of buffer or previous statement, creates one on the next line. ^R Move to a Pub comment line
If on a comment line, move to the head of it. If not on one, use preceding
line if it is one, else create one. ) ^R Puts the previous word in a different font (R).
The font to change to is specified with a numeric argument.
No arg means move last font change forward past next word.
A negative arg means move last font change back one word.
Uses the character specified by the variable Font Character
d ^R Puts the region in a different font (R).
The font to change to is specified with a numeric argument.
Inserts Font Character<n> before and Font Character* after.
A negative arg removes font changes in or next to region.Q ^R Puts emboldens around the previous word (R).
If there is an embolden begin or end near that word,
it is moved forward one word.
An argument specifies the number of words, and the direction:
positive means forward.
Embolden Begin and Embolden End may be set to the strings
or characters to be used to begin and end emboldens.] ^R Puts emboldens a la R around the region.
A negative argument removes emboldens in or next to region.
Embolden Begin and Embolden End may be set to the strings
or characters to be used to begin and end emboldens.} S Returns the real filename of the string arg.
No string argument implies to take the current buffer filename. Q..6
is used as the buffer string input temporarily. If the flag
FSDVERSION is nonzero then the real version number will be returned.1 S 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. C Takes the buffer and executes PUB
reading in the resulting file into a new buffer called DOC. If the
current connected directory is not the same as the one the file is
stored on, the user will be switched to that directory if possible
and back again upon completion.
The string argument is used as a SUBCOMMAND to PUB. Any numeric
argument is a signal to save the file before executing PUB C Takes the buffer and executes PUB
reading in the resulting file into a new buffer called DOC.
The user is responsible for giving the filename to PUBk C Converts SPELL dictionaries to new form.
The extension on the file in buffer will be set to SPELL. C Replaces the .REQUIRE statements by the file.
Each .REQUIRE must be on its own line with nothing else on it. The whole line
gets killed.p & Setup Pub Library
PUB Mode
PUB TEXT Mode
& PUB Mode
PUB MACRO Mode
& DFS Mode
^R Add CTRL-O to line
^R Replace CTRL-O on line
^R Eliminate Pub Comment Field
^R Move to Next Pub Comment Field
^R Move to Previous Pub Comment Field
^R Move to Pub Comment Field
^R Change Pub Font Word
^R Change Pub Font Region
^R Embolden Word
^R Embolden Region
& Get Real Filename
& Pub Replace Macro
Run PUB Program
Run EXEC-PUB Program
Convert SPELL Dictionary
Insert .REQUIRE files
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2