Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/jsglib.elib
There are no other files named jsglib.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
J - P & W
$ * ) 2 B
T ^ e
Z
BBNeDate" ^R Display current line number ^R Uppercase MACRO code ^R Uppercase Macro Region ~DIRECTORY~ ~DOC~ BBN Date ~DOC~ Date File( ~DOC~ ^R Display current line number! ~DOC~ ^R Uppercase MACRO code# ~DOC~ ^R Uppercase Macro Region ~DOC~ ~FILENAME~ ~FILENAME~
~INVERT~v .[10L
M(m.m^R Set/Pop Mark)
:S;
:I*case convertm(m.m& Save Region and Query)f"eq1j '
:,.f f(@fcq1j) N QBuffer Index[2
0F[VBW0F[VZW
:F "LQ.F-Q..F"E
Q:.B(Q2+2)F"NFSDFILE'''
5,1F Write File[1ET 1
F[DFILE0FSDVERSEIF]DFILE
.[1FSOFCDATE[3
EFJ
qComment Start[0
q0"e:i0;'
0fo..qComment Beginf"nu0'
G0.[2
FSOFILEF6
I
Q2JQ2,(S:.)K
:L.[4
qComment Endu0
q0"nG0'
Q4J]49I
0,Q3FSFDCONVERT
9IIEdit by FSXUNAMEF6
LQ1+.J]2]0]3]1@EI
FSOFCDATE[3
HPEF
0FSMODIFIED
0FSXMODIFIED
+1"EFSRGETTY"EONoPrint''
FSOFILE[1FSRGETTY"E:FT'
:I*CFSECHODIS
@FTWritten: 1FSECHOLINES-1"N@FT
'
0FSECHOACTIVE
Q..F-Q.F"NQ3 '
FSZU:.B(Q2+11)
FS^RMDLYFS^RMCNT
:"L
Q3U:.B(Q2+8)
FSOFVERSF"GU:.B(Q2+9)
1FSMODECH''
"N0,100 '
FSDFILEU1
M(M.MSet Visited Filename) 1
0,100 @ .[..00l@ft Line b,.m(m.m& Count lines)@:=q..0j0fsechoact 4 jg(qComment Beginf"ewqComment Startf"ew:i*;'')
ff"ei[g(fsmachine)i]'
qBuffer Filenamesf"nf[dfile'
<ig(fsdsname) >ig(fsdfn1) .ig(fsdfn2) .i
fsdversif"ew1:<e[ere]>"efsifvers'+1'\i,
0,-1fsfdconvfsxunam[0ff"ni, Edit by 0'"#i, Ed: 0'
fqComment End"ggComment End'i
s MM^R Narrow Bounds to Region
BJ
1:<
<1MM^R Uppercase Macro Code
1L
.-Z;>>
H@V
MM^R Set Bounds Full
JSGLIB! Macros for assorted functions& ^R Capitalize a line of MACRO code[ C Write file with edit date line.
Follow by filename as string argument. "1," says called by ^X^S;
inhibits calling & Set Mode Line and auto-save reinitialization.
Also inhibits setting filenames (in case they are _^RSV).
"-1," as argument inhibits updating the buffer's file cdate as well.
If not at top level (can't switch files now),
doesn't update anything about the current buffer,
but does return the written file's creation date so the caller can store it.( ^R Count lines before this one (drs)M Write BBN TECO style edit message at start of file.
Inserts name of presumed output file, time and date of edit and user.
If given non-zero argument, acts like newer BBN TECOs (includes site, etc.)& Uppercase a Region of Macro Codem ^R Uppercase MACRO code
Date File
^R Display current line number
BBN Date
^R Uppercase Macro Region
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2