PDP-10 Archive: emacs/jsglib.emacs from mit_emacs_170_teco_1220 (original) (raw)

Trailing-Edge-PDP-10 Archives-mit_emacs_170_teco_1220- emacs/jsglib.emacs

There are no other files named jsglib.emacs in the archive.

!* -- TECO -- ! !* Reconstructed from a sourceless library.!

!FILENAME:! !Macros for assorted functions! JSGLIB

!^R Uppercase MACRO code:! !^R Capitalize a line of MACRO code!

.[1 0L
M(m.m^R_Set/Pop_Mark)

 :S ;   :I*case_convert m(m.m&_Save_Region_and_Query)f"e q1 j' :,.f f(@fc q1 j)

!Date File:! !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.!

QBuffer_Index[2
0F[ VB W 0F[VZW

:F"L Q.F - Q..F "E
    Q:.B(Q2+2) F"N FS D FILE'''

5,1F Write_File [1 ET1
F[ D FILE 0FS D VERS EI F] D FILE
.[1 FS OF C DATE[3
EFJ

qComment_Start[0
q0"e :i0 ; '
0fo..q Comment_Begin f"n u0'
G0 .[2
FS O FILEF6
I

 Q2J Q2,(S:.)K :L .[4 qComment_End u0 q0"n G0' Q4J ]4 9I 0,Q3 FS FD CONVERT 9I IEdit_by_ FS X UNAME F6 L Q1+.J ]2]0]3]1 @EI FS OF C DATE [3 HP EF 0FS MODIFIED 0FS X MODIFIED +1"E FS R GETTY"E ONoPrint''

FS O FILE [1 FS R GETTY"E :FT'
:I*C FS ECHO DIS
@FTWritten:_1 FS ECHO LINES-1"N @FT

' 0FS ECHO ACTIVE Q..F - Q.F"N Q3'

FS Z U:.B(Q2 + 11)
FS ^R M DLY FS ^R M CNT
:"L
    Q3 U:.B(Q2 + 8)
    FS OF VERS F"G U:.B(Q2 + 9)
                    1FS MODE CH''

"N 0,100'

FS D FILEU1
M(M.MSet_Visited_Filename)1
0,100

!^R Display current line number:! !^R Count lines before this one (drs)!

.[..0 0l @ft_Line_ b,.m(m.m&_Count_lines) @:= q..0 j 0fs echo act

!BBN Date:! ! 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.)!

j g( qComment_Begin f"e w qComment_Start f"e w :i* ; '' )

f f"e i[ g( fs machine ) i]'

qBuffer_Filenames f"n f[ d file'

<i g( fs ds name ) >i g( fs d fn1 ) .i g( fs d fn2 ) .i fs d versi f"e w 1:< e[ er e] >"e fs if vers' + 1' \i,_ 0,-1fs fd conv fs x unam [0 f f"n i,Edit_by 0  ' "# i,Ed: 0' fqComment_End"g gComment_End'i  

!^R Uppercase Macro Region:! ! Uppercase a Region of Macro Code!

MM ^R_Narrow_Bounds_to_Region
BJ
1:<
    < 1 MM ^R_Uppercase_Macro_Code
  1L
  .-Z ; >>
H @V
MM ^R_Set_Bounds_Full