!* -*- TECO -*- ! !* Reconstructed from a sourceless library! !~FILENAME~:! !Package to provide more functions for editing CLU code (CLU Mode).! CLU-MORE !& Setup CLU-MORE Library:! !S ! M ( M.M Make_Prefix_Character ) .Y M.C Control_\_Prefix  PrefixcharacterforCLUhackingcommands M.M ^R_Compile_CLU_and_Edit_Errors U:.Y (C) M.M ^R_Run_Tlink U:.Y (J) M.M ^R_Fancy_Run_Tlink U:.Y (T) M.M ^R_Edit_CLU_Errors U:.Y (E) M.M ^R_Edit_Next_CLU_Error U:.Y (N) M.M ^R_Edit_Next_CLU_Error U:.X (N) !* Put this on ^X N and screw! !* window narrowing! QControl_\_Prefix U.\ M ( M.M Load_Library ) EFORK !* Good freaking luck! :@I*/ M ( M.M &_Internal_CLU_Mode_Hook ) / [6 0M.V TLINK_Fork :I* SYS:TLINK.EXE M.C Clu_TLINK_Name  *The_name_of_the_TLINK_program :FO..Q CLU_Mode_Hook"L Q6 M.C CLU_Mode_Hook' "# F[BBIND GCLU_Mode_Hook G6 0,.XCLU_Mode_Hook'  !& Internal CLU Mode Hook:! !S Set up additional keys for CLU Mode! M.M ^R_New_Beginning_of_Line M ( M.M Make_Local_Q-reg ) .A 0 !^R New Beginning of Line:! ! Go to beginning of line. If given an argument, goes to that line in the buffer. (Absolute reckoning)! F F"G BJ F - 1 L' "# 0L' !Document New CLU Functions:! !C Prints documentation for the new EMACS CLU functions. The following keys have been defined: C-\ C Compiles a clu program, then runs C-\ E C-\ J Runs an inferior TLINK. C-\ T Fancy run TLINK - tries to reload changed binaries. C-\ E After a CLU compile (M-&), displays the error file in the top four lines of the screen. Moves the cursor to the first error. C-\ N Advances the cursor to the next error, displaying the error at the top of the screen.! m ( m.m Describe ) Document_New_CLU_Functions  !^R Compile CLU and Edit Errors:! !^R Run (hacked) M-&, then C-\ E Runs a hacked version of M-& which doesn't do View File on the errors, Then runs Edit Clu Errors.! m ( m.m ^R_Better_CLU_Compile ) m ( m.m ^R_Edit_CLU_Errors ) !* Should this be :M ?! !& Fancy Run Tlink:! !^R Fancy Run Tlink:! ! Runs an inferior TLINK. Give the command an argument of zero to kill the inferior.! [0 :@I0 /_Type_`valret_("\n")'_to_return_to_EMACS / F F"E Orunit' "E @FT Killing_old_Tlink 0FS ECHO ACTIVE -Q TLINK_ForkF"N FZ' 0UTLINK_Fork' "# !runit! Q Buffer_Name M ( M.M &_Find_Buffer ) [B Q:.B(QB + 2) [F QF"N F[ D FILE ET F FS D FN1 UF FS D FN2 [1 F=1 CLU"N 0UF'' @FT 0 0FS ECHO ACTIVE QTLINK_Fork"E QClu_TLINK_Name [T QF "E FZ T  U TLINK_Fork' "# FZ T _F  U TLINK_Fork'' "# QF "E -1,Q TLINK_Fork FZ' "# -1,Q TLINK_Fork FZ load( "F" ) !''!'' FI@V' !& Run Tlink:! !^R Run Tlink:! ! Runs an inferior TLINK. Give the command an argument of zero to kill the inferior.! [0 :@I0 /_Type_`valret_("\n")'_to_return_to_EMACS / F F"E Orunit' "E @FT Killing_old_Tlink 0FS ECHO ACTIVE -Q TLINK_Fork F"N FZ'' "# !runit! @FT 0 0FS ECHO ACTIVE Q TLINK_Fork "E FZ SYS:TLINK.EXE U TLINK_Fork' "# Q TLINK_Fork FZ' FI' !^R Edit CLU Errors:! ! Edit the lines with errors in two window mode. ^R Edit Next CLU Error will go the next line in error.! M ( M.M &_Initialize_CLU_Error_Buffer ) M.V Current_Clu_Error Q Current_Clu_Error "E :I* NER  No_Errors FS ERR' Q Current_Clu_Error F"L FS ERR' W 0J Q Current_Clu_Error - 1 L :I* *Clu_Errors* M ( M.M &_Find_Buffer ) [B Q:.B( QB + 4 ) M.V Errors_Buffer_Buffer 0FO..Q Window_2_Size"N :I* A2W  Already_Two_Windows FS ERR' fs r getty"e :I* TTY  You_are_on_a_printing_terminal FS ERR' M  MM_&_Check_Top_Level  windows  [ Previous_Buffer Q Buffer_Name M.V Window_2_Buffer Q Buffer_Name M.V Program_Buffer_Name Q:.B( QB + 4 ) M.V Other_Window_Buffer FS WINDOW M.V Window_2_Window . M.V Window_2_Pointer FS LINES M.V Default_Size FS LINES F"E FS HEIGHT - ( FS ECHO LINES ) - 1' M.V Total_Size 4 M.V Window_1_Size :@I* /*Clu_Errors*/ M.V Window_1_Buffer Q Other_Window_Buffer [..O . M.V Window_1_Pointer . M.V Window_1_Window ]..O Q Window_1_Size [0 Q Total_Size - 1 - Q0 :"G Q Total_Size / 2 U0 Q0 U Window_1_Size' 1F[ NOQUIT Q Total_Size - 1 - Q0 M.V Window_2_Size FS REFRESH M.V Window_1_Refresh M.M &_Multi-window_Refresh FS REFRESH "N Q0 FS LINES W Q:.B(QWindow_2_BufferM(M.M&_Find_Buffer) + 4)M.VOther_Window_Buffer F] NOQUIT M(FS REFRESH) W ' Q0 FS TOP LINE :FT FS WIDTH / 10 < FT---------- > 0U..H -1FS TYPE OUT 0FS TOP LINE F] NO QUIT M.M ^R_Done_With_CLU_Errors U:.X (1) Q Window_1_Size + 1 FS Top Line Q Window_2_Size FS LINES M(FS REFRESH)  !& Initialize CLU Error Buffer:! !S Initializes the *Clu Errors* buffer. Loads CLU.JUNK into the *Clu Errors* buffer, setting things up for the  Edit Errors command.! Q:.B( Q Buffer_Index + 2)"E :I*NOF Not_visiting_a_file FS ERR' FS MODIFIED"N :I* MOD  Buffer_has_been_modified FS ERR' FS MS NAME [J :IJ J CLU.JUNK.0 E? J "N :I* NCJ  No_CLU.JUNK_file FS ERR' Q Buffer_Name [ Previous_Buffer M.M &_Return_to_Buffer [R :I* *Clu_Errors* M( M.M Select_Buffer ) -1M( M.M Visit_File) J  @:S /Compiling_/ "E :I* BFJ  Bad_Format_CLU.JUNK_File MR' .[0 [1 L 2R Q0,. X1 L Q Previous_Buffer M( M.M &_Find_Buffer ) [B F[ B BIND G:.B ( QB + 2 ) - S. C K Q:.B ( QB + 9 ) \ HX0 F] B BIND F~ 0 1 "N :I* WRF  Wrong_file MR' M( M.M &_Find_Next_Clu_Error ) [4 MR Q4 !& Return to Buffer:! !S "Returns" to the "Previous Buffer". Given an argument (which should be a string), signals that error.! Q Previous_Buffer M( M.M Select_Buffer ) F F"N  FS ERR'  !& Find Next Clu Error:! !S Looks for a number beginning a line in the current buffer.! <:S  "E 0' . - Z"E 0' 1A "D 0 ; ' 1 :FB output_failure:"N 0L 1:X* ' > \ [0 0l Q0 !& Done With CLU Errors:! !^R Done With CLU Errors:! !S Revert to one window mode.! 0U Errors_Buffer_Buffer Q Window_1_Size [0 1M( M.M ^R_One_Window ) M.M ^R_One_Window U:.X (1) .[P FS WINDOW J -Q0 - 1 L . FS WINDOW QP J w !^R Edit Next CLU Error:! ! Goes to the next CLU error. Will position the errors window to display the next error at the top of the screen, and position the text buffer near the line on which the error occurs.! [E Q Errors_Buffer_Buffer F"E :I* NEE  Not_Editing_Errors FS ERR' [..O M( M.M&_Find_Next_Clu_Error ) UE . U Window_1_Pointer . U Window_1_Window ]..O QE "E :I* C FS ECHO DISPLAY @FT (No_more_errors) 0FS ECHO ACTIVE M( M.M&_Done_With_CLU_Errors ) ' QE F"L ( M( M.M &_Done_With_CLU_Errors) )FS ERR' FS TOP LINE "E M( M.M ^R_Other_Window )' Q Program_Buffer_Name [A F= Buffer_Name A "N Q Program_Buffer_Name M( M.MSelect_Buffer )' QE F( -1( 0J ) L) U Current_Clu_Error M( FS REFRESH )  !^R Better CLU Compile:! !^R Call the CLU compiler. Like ^R CLU Compile in the "clu" library, but doesn't ask stupid questions. Create a compiler if needed. We first offer to write out each file, unless there is a numeric arg other than 0. Reads a command line to pass to CLU: "&" in it is translated into the name of the visited file. If just CR is typed, "compile &" is used, that is, it compiles the visited file. The command line may have several commands separated by "#". We always add the "stay" command. The CLU compiler is kept from one call to another. Arg = 0 => just kill the compiler.! m( m.mSave_All_Files ) "#  "e - q CLU_*Handle* f"l fz' w -1u CLU_*Handle* 0'' :i* :ft CLU_command_(or_several_commands_separated_by_#) If_null,_will_compile_this_file.   f[ help mac f f"n 3,m( m.m &_Read_Line ) CLU_command:_ [3 fq3"l 0u..h '' f f"e :i3 compile_&' f f"n fq3"e :i3 compile_&'' q Buffer_Filenames [5 [4 [6 :i4 < & f 3  f( :; ) f( ,0 : :g3 u6 :i4 4 6 5 ) + 1,fq3 :g3 u3> :i3 4 3 _#_stay :ft >>>___3___Running.....   q CLU_Compiler [4 q CLU_*Handle* f"l fz 4 _#_ 3  u CLU_*Handle*' "# ,0: fz clu_#_ 3 ' 0u..h 0