Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/stanlib.elib
There are no other files named stanlib.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   !Pk#	@*Y0R7?MUj\c&o|v{6	uA%{/k:4KV`7j:y\W
Q&ePCL Mode& Query

PCL ModePrint File^R Date edit^R Display Date and Time^R GOTO Line^R Last ccl^R Whoedit^R Zap to Character~DIRECTORY~~DOC~ & PCL Mode~DOC~ & Query~DOC~ FAIL Mode~DOC~ Increment~DOC~ PCL Mode~DOC~ Print File~DOC~ ^R Date edit"~DOC~ ^R Display Date and Time~DOC~ ^R GOTO Line~DOC~ ^R Last ccl~DOC~ ^R Whoedit~DOC~ ^R Zap to Character~DOC~ ~Filename~~Filename~

~INVERT~qComment Start[0
q0"e:i0; '
qComment Beginf"EwQ0'[b
0fo..qComment Endf"Ew:i*'[e
jgb
qbuffer filenamesf"nf[dfile'
<ig(fsdsname)>ig(fsdfn1).ig(fsdfn2).i
fsdversif"ewe?"n1'"#e[ere]fsifvers+1''\i, 
0,-1fsfdconvfsxunam, Edit by 0gei

0,. 0fo..qComment Startf"Ew:i*; '[b
0fo..qComment Beginf"Nub'
0fo..qComment Endf"Ew:i*'[e
0jgb
qbuffer filenamesf"nf[dfile'
f=(fsddevice)PS"N
g(fsddevice):i
'
<ig(fsdsname)>i
g(fsdfn1).ig(fsdfn2).i
fsdversif"ewe?"n1'"#e[ere]fsifvers+1''\
i, 0,-1fsfdconvfsxunam:f6[0
i, Edit by 0gei

gb
.(
gei

0,.@v
1<500:fb
vedit==;
8[..e8f[ibase
.(@f L
\u1),.k%1\
>
)j
xQBuffer Filenames"N
M(M.M^R Save File)'
0FSEchoChar
FSOSTeco"N
0f[lines0f[topline0f[refresh
F+'
Ex
^[1[2
.[p
ff"E1U11U2'"#f(U1)/Q1U2'
M.IFIf([d)f"A#40.'[c
Qc-"E
1F[NOQUIT
FSOSTECO"N-1F[HELPCHAR'
M.IFIf(Uc)Ud'
Q2[9
Q1<Q2CQ2@:fcdL>
.-z"E:i*NotFound@fgQpJ'
"#Qp,.FM(M.M& Kill Text)'
.,.yF[BBIND
FSWIDTH/8-6,11.I
M(M.MInsert Date)
@FT
..O
FSOSTeco"N
FSLoadavu0@FT  Load 0
'
0FSECHOACT3M(M.MLoad Library)PRINT
F:M(M.MPrint File)I:I*FAIL,M(M.MMIDAS Mode)
(:I*+1)M.LComment Rounding
(:I*;)M.LComment begin
(:I*;)M.LComment start
(:I*)M.LComment end
(:I*^L)M.LParagraph Delimiter
1M(M.M& Set Mode Line)FAIL
M(M.MPCL Mode)NM(M.MPascal Mode)
1,(:I*+1)M.LComment Rounding
1,(:I*! )M.LComment Begin
1,(:I*!)M.LComment Start
1,(:I*)M.LComment End
:IModePCL
0fo..qPCL Mode Hook2"NM2'
:M(M.M& Set Mode Line)#[p[b[c[0[n
:In0123456789
1M.VQuery?W
-1M.VQuitW-1M.VSkipW
U0Uc
ff[x
(Qx&1)"E1Uc'
(Qx/2)"E1U0'
Q0"E-1UQuery?99999U0'
Qc"E1Uc-1UQuery?99999U0'
Q0"L-1'"#1'Us
Q0U0
Q0<
Qs@:fnL
((1-Qs)*.)+((1+Qs)*(Z-.))@;
-@fnL
.Up\Ub
Qp:"E((Qp-.)A--)"E-QbUbQp-1Up''
(Qb+Qc)Ub
QQuery?"L
M(M.M& Query)Increment Query'
QSkip"GOjump'
Qp,.KQb\
QQuery?"LQp,.@v'
Qs"LQpJ'
!jump!QQuit;>c[0[1[..j:i..j
-1M.VQuit-1M.VSkip
0fstyisource(0fstyisink(
!Read!
2,m.i@:fiu1fiu0
q0-?"eftType:
<space>         to accept the change;
! (<excl>)      to accept this change and all further ones automatically;
. (<period>)    to accept this change, but no more;
<rubout>        to reject this change at this point but continue on;
<escape>        to reject this change and quit;
<control-R>     to enter recursive ^R mode (pop back with C-M-Z);
<control-L>     to redisplay screen;
?               to get this cruft.
Oread'
q0-

"ef+Oread'
q0-"e0Oread'
)fstyisink
)fstyisource
q0-32"e0'
q0-!"e1M.VQuery?0'
q0-."e1UQuit'
q0-"e1UQuit'
q0f:"l1USkip'
1UQuit1USkip
q1fsreread'[7[8[9FF"NU9'"#1u9'
.u8
m(m.m^R Mark Page)
q9"L
.u7q9l
q7-."Gq7j'
'"#q9-1F"Gl
:-."Lw1:R'
"#.u9wq9j'
'"#.u9wq9j'
'
q8mMM & Maybe Push Point
STANLIBRandom -*-teco-*- macros. Write edit message at start of file.
Inserts name of presumed output file (TWENEX format), time and date
of edit and user.  See also ^R Whoedit.C Write edit message at start of file.
Very similar to ^R Date Edit.  Inserts name of presumed output file
(Tops-20 style punctuation), time and date of edit, user, and
space for a comment describing what you have changed in this version.
If you have a variable, VEDIT, defined in the first 500 lines via
"VEDIT==", it is incremented.  Format:
(* SX:<J.JQJOHNSON>FOO.PAS, 10-Sep-79 16:45:14, Edit by J.JQJOHNSON *)
(* this is a comment *)
D repeat last ccl command
Writes out current buffer if changed.s^R Kills text up to a target character.
Does not find immediate next char.  Does not kill target char.
Argument means kill up (or back for neg arg) to nth char.
Quote key () works for kill to , help key, or , and it 
preserves case.^R Display the Date and Time in the echo area.
Includes date, time and load average.  
Primarily useful on consoles without a who-line. tC Send  buffer to LPT:
This routine (from STANLIB) now works by loading the PRINT library and calling
MM Print Buffer, which produces an elaborately formatted listing.  The calling
formattmaytben<length>,<width>FMMLPrint$<OutputtDevice> 
In addition to the default FAIL mode stuff, this function sets Comment
rounding, Comment begin and Comment start to ;, and Paragraph delimiter to
break on page boundaries.  Bug:  it runs the Fail Mode Hook twice2S Invoke PCL mode for files with extension PCLZC Set up for editing PCL code.
Same as Pascal Mode except for the comment delimiters.i^R Find number and increment it by <arg>.
The default arguments are repeat once, increment by one.
It can be given a repetion count, but you must use the Mini-Buffer
to give the MM version a pre-comma arg (e.g. 2,3 MM Increment) = find two 
#'s and increment them by three (see the info node on MiniBuffer).

A zero increment argument or a zero repetion argument means repeat for-
ever, querying at each one (which can be exited...just type a "?" when it 
asks for a response).S Query and continue macro execution.
Reads a character and sets the Variables Query?, Quit, and Skip accordingly.
Quit is intended to flag termination of the repetion loop, 
Skip is to flag termination of this execution,
and Query? is to flag whether continued queries will be made.
For all variables, a command to quit or skip or query no more will yield +1,
and a command which continues yields a -1.p^R goes to specified line on current page.
No argument means go to the first line of the current page.  With a
negative argument, moves back that many lines from the end of the
page.  Motion stops at end of page if argument is large.)^R Date edit
^R Whoedit
^R Last ccl
^R Zap to Character
^R Display Date and Time
Print File
FAIL Mode
& PCL Mode
PCL Mode
Increment
& Query
^R GOTO Line
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2