Return to error.cmd CVS log

Up to [MW Coherent from dump] / coherent / f / usr / lib

Annotation of coherent/f/usr/lib/error.cmd, revision 1.1.1.1

1.1       root        1: ;      ERROR.CMD:      Parse Mark Williams C compilation error files
                      2: ;                      using MicroEMACS 3.9a
                      3: ;
                      4: ;      (C)opyright 1987 by Daniel M. Lawrence
                      5: ;
                      6: 
                      7: ;      Load up the needed macros
                      8:        set $discmd "FALSE"
                      9:        write-message "[Setting UP]"
                     10: 
                     11: ;      page up/down for the Atari 1040ST
                     12:        bind-to-key previous-page       FNC
                     13:        bind-to-key next-page           FN<
                     14: 
                     15: ;      cycle to the next error
                     16: 39     store-macro
                     17:        run closelast
                     18: !force 1 next-line
                     19:        run getnext
                     20: !endm
                     21:        bind-to-key execute-macro-39    FN1
                     22: 
                     23: ;      cycle to the previous error
                     24: 38     store-macro
                     25:        run closelast
                     26: !force 1 previous-line
                     27:        run getnext
                     28: !endm
                     29:        bind-to-key execute-macro-38    FN2
                     30: 
                     31: ;      get the next error
                     32: store-procedure        getnext
                     33: 
                     34:        ;check for end of errors
                     35:        2 next-window
                     36:        !if &seq $line ""
                     37:                3 next-window
                     38:                write-message "[No more errors]"
                     39:                !return
                     40:        !endif
                     41: 
                     42:        ;grab the line number and file name
                     43:        delete-next-word
                     44:        yank
                     45:        set %eline $kill
                     46:        search-forward " "
                     47:        set-mark
                     48:        search-forward ":"
                     49:        backward-character
                     50:        kill-region
                     51:        yank
                     52:        set %efile $kill
                     53: 
                     54:        ;mark the line
                     55:        beginning-of-line
                     56:        insert-string "["
                     57:        end-of-line
                     58:        insert-string "]"
                     59:        beginning-of-line
                     60:        unmark-buffer
                     61: 
                     62: ;      save the last file if different
                     63:        3 next-window
                     64:        !if &not &seq $lastfile ""
                     65:                !if &not &seq %lastfile %efile
                     66:                        save-file
                     67:                        select-buffer "[temp]"
                     68:                        delete-buffer $lastfile
                     69:                !endif
                     70:        !endif
                     71:        find-file %efile
                     72:        %eline goto-line
                     73:        update-screen
                     74:        write-message &cat &cat &cat &cat "[Error found in " %efile " at line " %eline "]"
                     75: !endm
                     76: 
                     77: ;      close the last error
                     78: store-procedure        closelast
                     79: 
                     80:        ;if at the end.... go away
                     81:        2 next-window
                     82:        !if &seq $line ""
                     83:                !return
                     84:        !endif
                     85: 
                     86:        ;unmark the last error
                     87:        beginning-of-line
                     88:        delete-next-character
                     89:        end-of-line
                     90:        delete-previous-character
                     91:        beginning-of-line
                     92: 
                     93:        ;and save the file name
                     94:        set %lastfile %efile
                     95: !endm
                     96: 
                     97: ;      Abort!
                     98: 40     store-macro
                     99:        4 exit-emacs
                    100: !endm
                    101:        bind-to-key execute-macro-40    FN5
                    102: 
                    103: ;      save current file
                    104: 
                    105:        bind-to-key save-file           FN9
                    106: 
                    107: ;      recompile!!!!
                    108: 
                    109:        bind-to-key     quick-exit      FN0
                    110: 
                    111: 
                    112: ;      set the help window
                    113: 
                    114:        1 split-current-window
                    115:        select-buffer "[MWC C-Errors]"
                    116:        insert-string "Mark Williams C                  Compilation Error Scanning~n"
                    117:        insert-string " F1      Go to next error        F9      Save current source file~n"
                    118:        insert-string " F2      Go to last error        F10     Re-compile~n"
                    119:        insert-string "                 F5      Abort compiler"
                    120:        beginning-of-file
                    121:        4 resize-window
                    122:        add-mode "red
                    123:        unmark-buffer
                    124: 
                    125: ;      set up the error line window
                    126: 
                    127:        next-window
                    128:        1 split-current-window
                    129:        4 resize-window
                    130:        add-mode "black"
                    131: *getcc
                    132:        !if &not &seq &left $cbufname 2 "cc"
                    133:                next-buffer
                    134:                !goto getcc
                    135:        !endif
                    136: 
                    137: ;      set up the current source window
                    138: 
                    139:        next-window
                    140:        next-buffer
                    141:        add-mode "blue
                    142: 
                    143: ;      initialize
                    144: 
                    145:        set %lastfile ""
                    146:        run getnext
                    147:        set $gflags 0
                    148: 
                    149: ;      wait for a command
                    150: 
                    151:        set $discmd "TRUE"

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.