Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/print.elib
There are no other files named print.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
!#k&&1[$d+f+nguZ{53/4w+;.-{<+1L1V1b4&n5t,s-6	+k++#5v& Insert Header& Kill PRINT Library& Print Dispatch Table& Print Subroutine& Setup PRINT Library& Test Page& Test Subpage& Wrap and Tag0Print BufferPrint File

^R Print~DIRECTORY~~DOC~ & Insert Header~DOC~ & Kill PRINT Library ~DOC~ & Print Dispatch Table~DOC~ & Print Subroutine~DOC~ & Setup PRINT Library~DOC~ & Test Page~DOC~ & Test Subpage~DOC~ & Wrap and Tag~DOC~ 0~DOC~ Print Buffer~DOC~ Print File~DOC~ ^R Print~DOC~ ~Filename~~Filename~

~INVERT~,0FO..QPRINT Setup Hookq0"G:M0']0
:I*FO..QPrint Old Library
:I*FO..QPrint Library
F~APRINT"NQA'"#QB'M.VPrint Old Library
:I*PRINTM.VPrint Library
M.CPrint Library* Filename of the Library containing the PRINT macros.
]A]B
1FO..QPrint1 ControlM.VPrint1 Control
:I*FO..QPrint1 Discard CharacterM.VPrint1 Discard Character
:I*FO..QPrint1 PTAG EndM.VPrint1 PTAG End
:I*FO..QPrint1 PTAG StartM.VPrint1 PTAG Start
:I*FO..QPrint1 Real ControlM.VPrint1 Real Control
:I*FO..QPrint1 WraparoundM.VPrint1 Wraparound
200FO..QPrint1 Embolden LengthM.VPrint1 Embolden Length
4FO..QPrint1 Embolden OverstrikeM.VPrint1 Embolden Overstrike
1FO..QPrint Control(
)M.CPrint Control!* Controls dispatching of Control Chars. (-1=emb.,0,1=Cont.)
-1 = Emboldens, 0 = No effect, 1 = Symbolized by tilda character!
UPrint1 Control
M(M.M& Print Dispatch Table)

:I*LPT:<>FO..QPrint Device(
)M.CPrint Device* Default Listing Device
:I*FO..QPrint Discard Character(
)M.CPrint Discard Character!* Delete each char. in string from text!
UPrint1 Discard Character
M(M.M& Print Dispatch Table)

200FO..QPrint Embolden Length(
)M.CPrint Embolden Length!* Maximum emboldened line length to store!
F"EW200'UPrint1 Embolden Length
4FO..QPrint Embolden Overstrike(
)M.CPrint Embolden Overstrike!* Number of times to overprint for emboldening!
F"EW2'UPrint1 Embolden Overstrike
0FO..QPrint Format(
)M.CPrint Format* Printing Format, Nonzero implies miserly format
58FO..QPrint Length(
)M.CPrint Length* Default Page Length
1FO..QPrint Page Index(
)M.CPrint Page Index* Nonzero prints page index at end of file (<0 Unsorted, >0 Sorted)
:I*FO..QPrint PTAG Start(
)M.CPrint PTAG Start!* String indicating start of text for the index!
[AFQA:"G:I*'"#QA'UPrint1 Ptag Start
:I*FO..QPrint PTAG End(
)M.CPrint PTAG End!* String indicating end of text for the index!
[AFQA:"G:I*'"#QA'UPrint1 Ptag End
:I*FO..QPrint Real Control(
)M.CPrint Real Control!* No dispatch on each character in the string!
UPrint1 Real Control
M(M.M& Print Dispatch Table)

126FO..QPrint Signify Control(
)M.CPrint Signify Control* Ascii Value of character to preceed a control character
80FO..QPrint Width(
)M.CPrint Width* Default page width before wraparound
:I*FO..QPrint Wraparound(
)M.CPrint Wraparound!* Line Wraparound indicator!
[AFQA"L:IA'
QAUPrint1 Wraparound

:I*M.VPrint Destination File
:I*M.VPrint Header
:I*M.VPrint Source File
3M.VPrint Lines in Header
0M.VPrint M-Control
0M.VPrint J-Control
0M.VPrint Dispatch Table
M(M.M& Print Dispatch Table)
6F[BBIND[2
QPrint1 Control"E
640,32I
'
"#32<IZU..2>
95*5,32I
IZU..2
10*5F     
12*5F     
13*5F     
QPrint1 Control"L
27*5FZU..2'
"#
27*5F-D36I'
9*5F     
'
QPrint1 Real ControlU2
-1UAFQ2F"G<%A:G2*5F     >'"#W:I2'
10F2:"'LUPrint J-Control
13F2:"'LUPrint M-Control
-1UAFQPrint1 Discard CharacterF"G<
%A:GPrint1 Discard Character*5F-D   >'
HFX*UPrint Dispatch Table
":F"L
:I*CPrint the current bufferFSECHODISP
1M(M.M& Yes or No)"N
F@:M(M.MPrint Buffer)'
"#F@:M(M.MPrint File)'
'
"#F:M(M.MPrint File)'
xFSQPPTR[0
0F[DVERSION
F[DFileE[E\FNE^E]
FSHSname
QBuffer Filenames
[Buffer Filenames
FQB"GQBfsdfile'
"#
f[bbind
GBuffer NameWH@FCWJ
<.-z;-1,1AUBQB:;
QB:"D
QB-65"LW1D'
"#QB-90"GW1D'"#W1:CW''
'"#W1:CW'>
HFXBWf]bbind
QBFSDFILE
ETB
'
QPrint Device[..6
ET..6
ETLST
5,1FOutput toU..6
ET..6
ETLST
FSDFILEUPrint Destination File
]..6
[c[d[e[f[g[h[i
FQB"G
1:<F[BBIND
etB
1,EREGEC
J4K:L.,zKHFX*fsdfile
f]BBIND>"N
QBFSDFILE'
FSDFN1UD
:I*A@D.TMPF(UPrint Source File)UC
0FSDVERSION
FSDFILEUD
'
"#
FQBuffer Name"G
QBuffer Name:FCUD'
"#:IDUNKNOWN'
:I*A@D-TEMP-PRINT.TMPF(UPrint Source File)UC
:IDBuffer: D, No Buffer Filename
'
QDUPrint Header
B,ZM(M.MWrite Region)C
-(WFSQPPTR-Q0)FSQPUNWIND
FM(M.M& Print Subroutine)W
QPrint Source File
M(M.MDelete File)C
3FSQPPTR[0
0F[DVERSION
F[DFileE[E\FNE^E]
FSHSname
QBuffer FilenamesF"E
:I*'FSDFILE
[Buffer Filenames
5,FPrint File[..4
FQ..4:"G
-(WFSQPPTR-Q0)FSQPUNWIND
:F"L@'F:M(M.MPrint Buffer)W'
[c[d[e[f[g[h[i
1:<F[BBIND
et..4
1,EREGEC
J4K:L.,zKHFX*fsdfile
f]BBIND>"N
Q..4FSDFILE'
FSDFILEU..4
Q..4F(UPrint Source File)UPrint Header
QPrint Device[..6
ET..4
ET..6
ETLST
5,1FOutput toU..6
ET..6
ETLST
FSDFILEUPrint Destination File
]..6
-(WFSQPPTR-Q0)FSQPUNWIND
FM(M.M& Print Subroutine)W
FSRUNTIME[..5
F[DFileE[E\FNE^E]
[Buffer Filenames
1F[^LInsert
!FreeRegisters:DFGHIJKMNV3456789!
[A[B[C[E[L[O[P[Q[R[S[T[U[W[X[Y[Z[0[1[2
[..0[..1[..2[..3
QPrint LengthU0
QPrint WidthU1
FF&3F"N-1F"G
F"NU0'W'
F"NU1''
-2*(QPrint Format"'N)+3F(+5UA)UPrint Lines in Header
Q0-QA"L
QPrint Length(-QA"L58')U0'
QPrint Format"N
Q0-57"G60U0''
Q1-15"L
QPrint Width(-15"L
80')U1'
QPrint Dispatch TableU2
QPrint Signify ControlUC
QPrint1 PTAG StartUS
QPrint1 PTAG EndUE
QPrint WraparoundUW
QPage DelimiterUP
F[BBIND
FQP"GGP'
J:S

"E
J:S

"E
12Iz-1"N15i'''
HFXP
QPrint Source FileUA
1:<ERA>"N
:I*CError in Input File Specification.FSEchodisp
:I*  Aborting & Print Subroutine
Input Filename:  A
fsechodisp0fsechoactive
'
QPrint Destination FileUA
1:<:EWA>"N
:I*CError in Output File Specification.FSEchodisp
:I*  Aborting & Print Subroutine
Output Filename:  A
fsechodisp0fsechoactive
'
13I10I
QPrint Format"N
2<Q1,45I13I10I>
-1L'"#2R'
13I10I2R
GPrint Header4,32I
0,FSIFCDATEFSFDCONVERT
Q1-FSHPOSITION-15F"G,32I'"#D'
I Page ZJ13I10I
HFXPrint Header
0UL1UQ0UR:IY
0,1M(M.M& Insert Header)W
QPrint Lines in Header-1UL
HPHK
QPrint Page IndexUT
QPrint Control:"L
ONot-Embolden'
QPrint1 Embolden OverstrikeF"EW2'UO
QPrint1 Embolden LengthF"EW200'UX
QX+2,32:IU
-1UZ
<1:A
M(M.M& Test Page)
%L,Q0M(M.M& Test Subpage)
J:S	"LjM(M.MUntabify)'
J<.,ZF2.-z;
0AF(W-D)#100.F(I
):IB
.-1,QXF*0:F(,QZFUZW
):FUB
>
J<:S
;
1R-1D
QPrint M-Control"N
13'"#77'F(I
):IB
.-1,QXF*0:F(,QZFUZW
):FUB
>
ZJ13,-1A-13"EOPASS'
0,0a-10F"E
QPrint J-Control"NOPASS'
-1D
.,QXF*0:F(,QZFUZW
):FUJW74I
QL-1UL
fslastpage"N!<!>'
'-2"E
-1D
.,QXF*0:F(,QZFUZW
):FULW76I
QL-1UL
fslastpage"N!<!>''
!PASS!
J0LQZ:"L
0,QZ+1:GUUUw-1UZ
QO<GU13I>W
QX+2,32:IU'
M(M.M& Wrap and Tag);
>
OIndex-Page
!Not-Embolden!
QPrint Control"G
OTilda-Control'
<1:A
M(M.M& Test Page)
%L,Q0M(M.M& Test Subpage)
JHF2
J:S	"LjM(M.MUntabify)'
M(M.M& Wrap and Tag);
>
OIndex-Page
!Tilda-Control!
<1:A
M(M.M& Test Page)
%L,Q0M(M.M& Test Subpage)
J<.,ZF2.-Z;
0AF(W-DQCI)#100.I>
J:S	"LjM(M.MUntabify)'
QPrint M-Control"E
J<:S
;
1R-1DICM
>'
ZJ13,-1A-13"EOPASS1'
0,0a-10F"E
QPrint J-Control"NOPASS1'
-1DICJ
QL-1UL
fslastpage"N!<!>'
'-2"E
-1DICL
QL-1UL
fslastpage"N!<!>'
'
!PASS1!
M(M.M& Wrap and Tag);
>
!Index-Page!
FQY"G
GYFKC
<.-z;
:FB"L1l'"#1k'>
QQ:\UA-FK+1F"GUA'"#W4UA'
QPrint Page Index"G
0l\W1:cW:L1l
'
J13I10I12I
%QW0UR
QR,QQM(M.M& Insert Header)W
QPrint Lines In Header-1UL
1lB,.PB,.K
J<.-z;
%L,Q0M(M.M& Test Subpage)
0L\UB1C0K
0UZ<:FB
0,1A-10"N%Z'
>
0LQZ"EM(M.M^R Delete Horizontal Space)'
0UZ<:FB
M(M.M^R Delete Horizontal Space)W
2,32I
0,2A-10"N
Q1-FSHPOSITION-QA-2F"LD'W
FSHPOSITION,QZFUZW'
"#
QZ-FSHPOSITIONF"G,32I'W
Q1-FSHPOSITION-QA-2F"G,46I'"#D''
1:C>W
W:LW32IWQA,QB\W1l
B,.PB,.K>
HPHK
'
EC:EF
F]BBIND
fsofileUA
(FSRUNTIME-Q..5+500)/1000:\UB
:i*COutput to A completed in B sec.Afsechodisp
0FSECHOACTIVE
EJ:FBP"E'
FKC
."N'
%QW0UR
QPrint Format"E
1A-12"N12I'
"#1C'
-1Ul'
"#1a-12"E1D''
QPrint Page IndexUT
QR,QQM(M.M& Insert Header)W
QPrint Lines In Header+QL-1UL
1LB,.PB,.K
s-(/*)"N'
QPrint Format"E12I'
%R,QQM(M.M& Insert Header)W
+QPrint Lines In HeaderUL
1lB,.PB,.K
YGPRINT HEADERFKC
QPRINT LINES IN HEADER-3F"G@L'
:LF"G\'
F"GF(W58I)\'
2@L
p[C[D
:IBFQWF"G,32:IB'
!AGAIN!
:IAJ<:S
Q1-FSHPositionF"LC
:IAAB
.,(:S@FXA
:IAA
1:C;FSSVALUE;>
ZJ64,0A-32"'LC
FQA"G
0,0A-13"N13I'
10I
%L,Q0M(M.M& Test Subpage)W
GWGAFKCFQBD
Oagain
'
QT"EOSKIP'
J<1UD.-z;
0UD:FB:;
1@L>
QD"NOSKIP'
0l0UT
<:FBS&(w:FBE)"'N;%T>
0l
QTF"G<
QQ:\UB
:IBB 
FBS
.,(FBEFKF(UA
)C.)@XB
:IYYB

QAR
>'
"#
QQ:\UB
:IBB 
:@XB
:IYYB
'
0UT
!SKIP!
ZJ0,0A-12"'EC
B,.PB,.K
fslastpage
M(M.MKill Variable)Print1 Control
M(M.MKill Variable)Print1 Discard Character
M(M.MKill Variable)Print1 Embolden Length
M(M.MKill Variable)Print1 Embolden Overstrike
M(M.MKill Variable)Print1 PTAG End
M(M.MKill Variable)Print1 PTAG Start
M(M.MKill Variable)Print1 Real Control
M(M.MKill Variable)Print1 Wraparound
M(M.MKill Variable)Print Control
M(M.MKill Variable)Print Destination File
M(M.MKill Variable)Print Device
M(M.MKill Variable)Print Discard Character
M(M.MKill Variable)Print Dispatch Table
M(M.MKill Variable)Print Embolden Length
M(M.MKill Variable)Print Embolden Overstrike
M(M.MKill Variable)Print Format
M(M.MKill Variable)Print Header
M(M.MKill Variable)Print J-Control
M(M.MKill Variable)Print Length
M(M.MKill Variable)Print Lines in Header
M(M.MKill Variable)Print M-Control
M(M.MKill Variable)Print Page Index
M(M.MKill Variable)Print PTAG End
M(M.MKill Variable)Print PTAG Start
M(M.MKill Variable)Print Real Control
M(M.MKill Variable)Print Signify Control
M(M.MKill Variable)Print Source File
M(M.MKill Variable)Print Width
M(M.MKill Variable)Print Wraparound
QPrint Old LibraryF([A)UPrint Library
M(M.MKill Variable)Print Old Library
1:<M(M.M& Setup A Library)W>
	PRINT)Macros for Printing Files and BuffersS Default setups_S Creates the dispatch table for the print routines.
This subroutine cannot be used alone.^R Prompt the user for which PRINT macro to use.
The arguments are passed on to the macro that is called.  The
calling sequence is

	<length>,<width> MM ^R Print$<file>$<output device>

If the length of the string <file> is 0, then the current buffer
is used.   C Prints the current buffer on the output device.
The calling format is

    <length>,<width> MM Print Buffer$<Output Device> 
C Prints the current buffer on the output device.
The calling format is

    <length>,<width> MM Print File$<File>$<Output Device> 6S Make LPT listing of a given file or of the buffer
replacing control-character by tilda-character.  The second string
argument is the alternate output device.

    The command can be in one of the following forms:

        <page size>,<page width> MM & Print Subroutine$
	                       via TECO in Minibuffer.
or
	<page width> MM & Print Subroutine$, Otherwise

	         with following defaults:
		 <page width> -- Q$Print Default Width$
		 <page size>  -- Q$Print Default Length$ - <lines of header>

    This subroutine assumes that the following variables are defined:

	Q$Print Header$		  -- Page Header to be used
	Q$Print Lines in Header$  -- Number of lines in Q$Print Header$
	Q$Print Source File$	  -- File to read from
	Q$Print Destination File$ -- File to send the output to
SS This subroutine test to see if we have a page definition.
    No arguments are used, but this subroutine cannot be used
    individually without the setups designed by the module
    & Print Subroutine._S Test for subpage and inserts header.
Two arguments are required.  The precomma argument is the current line
number to be used and the post-comma argument is the page length.
This subroutine cannot be used alone and must be used only by 
MM & Print Subroutine.  QR is the Subpage Count, QQ is the page count
and QL is the current line count.oS Inserts the header and page numbers into the buffer.
The numeric arguments are <subpage>,<page>.  This macro makes use of
the two variables Q$Print Header$ and Q$Print Lines in Header$, and
assumes that their contents are correct."S Subroutine for checking for wraparound and finding tags.
    This subroutine can only be used with MM & Print Subroutine and
    should not be used alone.2S Kill the variables used by the PRINT Library	C ...B& Setup PRINT Library
& Print Dispatch Table
^R Print
Print Buffer
Print File
& Print Subroutine
& Test Page
& Test Subpage
& Insert Header
& Wrap and Tag
& Kill PRINT Library
0
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2