!+ ! ##################################################### ! ! ! ! File: EDT_INILIB:EDTINI.EDT ! ! Author: Kevin Mallory ! ! Member Technical Staff ! ! Texas Instruments Inc. ! ! Corporate Research Laboratory ! ! Computer Sciences Laboratory ! ! ! ! Description: Standard EDT editor initializer ! ! file. Adopeted and refined from ! ! Previous version by same ! ! author at another site. ! ! ! ! Edit Date: 25-DEC-1983 ! ! NOTICE: ! ! Neither the Author nor the Author's ! ! employers intend to support this software ! ! in commercial use. ! ! ! ! It is assumed to be full of bugs and ! ! glitches. This software is NOT copyrighted ! ! and probably won't be. ! ! ! ! ##################################################### ! !- ! !-------------------------------------- ! ! Define the MACRO buffers ! !-------------------------------------- ! ! define macro delim_prog define macro delim_wp define macro help_screen define macro width_132 define macro width_80 define macro OPTIONS define macro local_options ! !-------------------------------------- ! ! Default Key definitions ! !-------------------------------------- ! ! ! *** Define the CONT N keys *** ! define key control g as "PASTE=?'Put Buffer: '." define key control p as "CUTSR=DELETE PASTE=?'Replace Select With buffer: '." define key control b as "PASTE=SCALE80." ! ! *** Define the GOLD N keys *** ! define key gold c as "EXT FIND=?'Change to Buffer: '.." define key gold e as "EXT EXIT." define key gold f as "(SEL PAR FILLSR)." define key gold I as "EXT INCLUDE ?'Input file: ' =?' Into buffer ' %BE." define key gold m as "EXT =MAIN .." define key gold O as "EXT WRITE ?'Output file: ' =?' From buffer '; FIND LAST." define key gold q as "EXT QUIT." define key gold s as "EXT SHOW BUFFER." define key gold t as "TOP." define key gold w as "(C SEL W CHGCSR)." define key gold . as "I~~/\~~^Z-6C." define key gold / as "S%~~/\~~%%." ! ! *** Define the GOLD CONTROL N keys *** ! define key gold control b as "EXT COPY SELECT TO=?'Copy Select Region to buffer:' ; F L." define key gold control d as "EXT delim_wp." define key gold control h as "EXT help_screen." define key gold control k as "EXT SHOW KEY ?'Key to show: '." ! reverse 2 characters define key gold control r as "(-C D-C C UNDC)." define key gold control w as "EXT width_132." ! !-------------------------------------- ! ! Define my MACROS ! !-------------------------------------- ! ! !..........MACRO: Screen width to 132. ! ! i=width_132 define key gold control W as "EXT width_80." define key control b as "PASTE=SCALE132." set screen 132 set wrap 131 set lines 13 set cursor 0:14 ^Z !..........END MACRO:.................. ! ! !..........MACRO: Screen width to 80. ! ! i=width_80 define key gold control w as "EXT width_132." define key control b as "PASTE=SCALE80." set screen 80 set wrap 79 set lines 21 set cursor 0:21 ^Z ! !..........END MACRO:.................. ! ! ! !..........MACRO: Display Help Screen. ! ! i=help_screen width_80 f=helptxt %be ^Z !..........END MACRO:.................. ! ! !..........MACRO:Change Delimiter Sets ! ! : Set to Programming ! ! !-------------------------------------- ! ! Set delimiter set to ! ! programming delimiters MACRO ! ! delimiters are ! ! $()[],;_+*-/= ! !-------------------------------------- ! ! f=delim_prog i define key gold control d as "EXT delim_wp." ^Z c; iset entity word '^Z9asc10asc11asc12asc13asc27asc i $()[],;_+*-/='^Z EX ^Z !..........END MACRO:.................. ! ! ! !..........MACRO:Change Delimiter Sets. ! ! : set to word processing! ! !-------------------------------------- ! ! Set delimiter set to word ! ! processing MACRO ! ! delimiters are ! ! ,:. ! !-------------------------------------- ! ! f=delim_wp i define key gold control d as "EXT delim_prog." ^Z c; Iset en word '^Z9asc10asc11asc12asc13asc27asc32asc i ,;.'^Z EX ^Z !..........END MACRO:.................. ! ! !-------------------------------------- ! ! Include File commands ! !-------------------------------------- ! ! INCLUDE EDT_INILIB:EDTHELP.TXT =HELPTXT INCLUDE EDTINI_LOCAL_OPTIONS =LOCAL_OPTIONS INCLUDE EDT_FILE_OPTIONS =OPTIONS INCLUDE EDT_INILIB:SCALE80.TXT =SCALE80 INCLUDE EDT_INILIB:SCALE132.TXT =SCALE132 !-------------------------------------- ! ! Set Commands ! !-------------------------------------- ! ! set mode change set keypad set terminal vt100 set truncate delim_prog OPTIONS local_options ! !-------------------------------------- ! ! Ready to start edting... ! !-------------------------------------- ! ! f=main %be !