1 # @(#)errors.tcl 8.2 (Berkeley) 11/18/95
5 # Author: George V. Neville-Neil
7 # Purpose: This file contains vi/tcl code that allows a vi user to parse
8 # compiler errors and warnings from a make.out file.
14 set errLine [lindex [viGetCursor $errScreen] 0]
15 set currLine [split [viGetLine $errScreen $errLine] :]
16 set currFile [lindex $currLine 0]
17 set fileScreen [viNewScreen $errScreen $currFile]
18 viSetCursor $fileScreen [lindex $currLine 1] 1
19 viMapKey $viScreenId
\ 5 nextErr
26 set errLine [lindex [viGetCursor $errScreen] 0]
27 set currLine [split [viGetLine $errScreen $errLine] :]
28 if {[string match $currFile [lindex $currLine 0]]} {
29 viSetCursor $fileScreen [lindex $currLine 1] 0
30 viSwitchScreen $fileScreen
32 viEndScreen $fileScreen
33 set currFile [lindex $currLine 0]
34 set fileScreen[viNewScreen $errScreen $currFile]
35 viSetCursor $fileScreen [lindex $currLine 1] 0
42 set errScreen [viNewScreen $viScreenId make.out]
43 viMapKey $viScreenId
\ 5 findErr