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

!* -*-TECO-*- *!
!* This is the default init file for EMACS on Twenex.
   Anything in the buffer when you start this
   will be used instead of the JCL.

It is usually a bad idea for users to copy this with changes.
Instead you should make a small init file 
which calls this one at the end,
as described in INFO:CONV.INFO. *!

    FS QP PTR[9		    !* Somethings might want to unwind the PDL!
				    !* at the end of the init.  Mainly for JCL!

!* Ask to Set terminal type if printing or glass terminal*!

    fs rgetty-2"l
      @m(m.aTRMTYPInit File Set Terminal Type)'

    FQ(0FO..QAuto Save Filenames)-1"L
      FS MSNAME:F6[0
      :I*DSK:0;[SAVE] > M.VAuto Save Filenames ]0'

    ETDSK:DEFALT.FILNAM FS MSNAME FS D SNAME

!* On non-meta keyboards, allow Alt 1 2 to mean an arg of 12, as long as user!
!* has not reconnected meta-digits.  Similarly for meta-minus.!
    FS %TOFCI"E				!* 9-bit keyboard.!
      M.M ^R Autoarg[0 460.-1[1 f..0fs^RInit[2
      10< %1@fs^RCMac-q2"e q0,q1@fs^RCMac' >
      f..-fs^RInit-q..-"e Q0U..-'
      ]2 ]1 ]0'

!* Now it's ok to process the EVARS file and risk an error.  The EVARS file!
!* should not be processed twice, e.g. in case it loads libraries, and a!
!* dumped EMACS should be able to jump to the default init.  Hence the!
!* variable check.!

    0fo..qInit Vars Processed"e	!* If not yet done it, process!
      M(M.M & Process Init Vars)	!* EMACS.VARS.!
      1m.vInit Vars Processedw'	!* Do not do it again.!


!* If EMACS:SITE.INIT exists, execute it.!
!* Site-specific changes to initialization can go there.!

    f[d file
    1:< ER EMACS;SITE INIT
	F[B BIND @Y M(HFX*(F]B BIND)) >
    f]d file

    1:<QFind File Inhibit Write m.vInhibit Write>

    0[0 0[1 0[2

    FS JNAME :F6 [J
    F[D FILE

    f~jHERMES"E f=Editor Typeermes]"N 
	  1,m(m.m & Get Library Pointer)HERMES"e
	     m(m.m Load Library)HERMES''
       '

    FS LISPT"N FS CCL FNAMU0
        0FS SUPERIOR
        0U1 F~JSNDMSG"E f~ModeText"n M(M.M TEXT MODE)''
	0U1 F~jLEDIT"e
	 1, m(m.m & Get Library Pointer)LEDIT"e
		  m(m.m Load Library)LEDIT'''
    F~JMM"E F=EDITOR TYPEMMAIL"N 
	 1, m(m.m & Get Library Pointer)MMAIL"e
		M(M.M Load Library)MMAIL'''

    f~jTSEND"E
      0FS Superior
      1FS Case			    !* upper case only !
      1FS Case Now
      M(M.M Text Mode)		    !* use TEXT mode for TSEND !
      M(M.M Auto Fill Mode)	    !* use auto fill mode to prevent !
      69M.VFill Column		    !*  lines over 69 characters long !
      '
    F]D FILE

!* Process the JCL!

    Z"E FJ J @F
 K'				!* Get JCL, or use whatever previous init  file left in buffer.!
				!* Flush leading spaces and CRLF if line is empty.!
    ZJ ."N			!* Process JCL command - extract filenames and commands!
       0,0A-
"E -D'		    !* REMOVE CR AND LF AT END IF ANY *!
"E -D' 0,0A-
       J :S$"N .,Z@FX1 -D'    !* IF COMMANDS TO EXECUTE, PUT THEM IN Q1!
       J 7F~(FILE) "E 7D'	    !* Delete stupid noise word.!
       J < :S !; -D .,(S! .)K >   !* Delete stupid confirmations.!
				    !* Printing them out is reasonable,!
				    !* but passing them to EMACS is stupid.!
       :S  B,.FX0		    !* If name of file to read, put in Q0.!
       < @F K
         11F~(OUTPUT AS)"E 11D'  !* Delete (OUTPUT AS) if stupid EXEC fed it to us.!
	 "# 0,1A-["E .,(S] .)K'  !* Delete any confirmation string shit.!
	    "# 0;'' >		    !* If we delete one turd, check for others.!
       Z"N HFX2'		    !* If name of file to output as, put in Q2.!
       '

    HK 0FS MODIFIEDw 0FS XMODIFIED
    0FO..Q Inhibit Help Message"E
      Q0"E Q1"E			    !* If no commands or file to read, offer help.!
	qEMACS Version:\[1	    !* get version no. as string!
	FTEMACS Editor, version 1 - type C-M-? (the HELP sequence C-Z ?) for help.
	]1
	'''
    FQ0-1"L Q1"N M1'		    !* No file specified => execute commands from JCL!
            '			    !* and return.!

    1:<				    !* maybe we got an unwanted version #.!
      Q0F[ DFILE 0 FS DVERSU3	    !* So open to the highest version,!
      ER EC
      f[BBIND
      1:<1,111100000001.EZ0>"E J:X*FSDFILE'
      F]BBIND
      FS IF VERS-Q3"N Q3 FS DVERS'!* and if it is the version we got,!
      FS DFILE U0 F]D FILE'	    !* return the file with a zero version.!
      >

    0fo..qTags Find File"e
	QInhibit Write,M(M.M Visit File)0'    !* Visit specified file.!
    "# m(m.mFind File)0'	    !* unless user usually likes Find File,!
				    !* in which case use that instead.!
    Q2"N Q2F[ DFILE 0 FS DVERS
         FS DFILEU2 F]D FILE	    !* Reset version number defaults.!
	 M(M.M Set Visited Filename)2'  !* Set filename as specified.!

    Q1"N M1'			    !* If JCL held commands, execute them.!