Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!* -*- 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