Lionel Sambuc
84d9c625bf
- Fix for possible unset uid/gid in toproto
- Fix for default mtree style
- Update libelf
- Importing libexecinfo
- Resynchronize GCC, mpc, gmp, mpfr
- build.sh: Replace params with show-params.
This has been done as the make target has been renamed in the same
way, while a new target named params has been added. This new
target generates a file containing all the parameters, instead of
printing it on the console.
- Update test48 with new etc/services (Fix by Ben Gras <ben@minix3.org)
get getservbyport() out of the inner loop
Change-Id: Ie6ad5226fa2621ff9f0dee8782ea48f9443d2091
45 lines
1.2 KiB
Tcl
45 lines
1.2 KiB
Tcl
# Id: errors.tcl,v 8.2 1995/11/18 12:59:07 bostic Exp (Berkeley) Date: 1995/11/18 12:59:07
|
||
#
|
||
# File: errors.tcl
|
||
#
|
||
# Author: George V. Neville-Neil
|
||
#
|
||
# Purpose: This file contains vi/tcl code that allows a vi user to parse
|
||
# compiler errors and warnings from a make.out file.
|
||
|
||
proc findErr {} {
|
||
global errScreen
|
||
global currFile
|
||
global fileScreen
|
||
set errLine [lindex [viGetCursor $errScreen] 0]
|
||
set currLine [split [viGetLine $errScreen $errLine] :]
|
||
set currFile [lindex $currLine 0]
|
||
set fileScreen [viNewScreen $errScreen $currFile]
|
||
viSetCursor $fileScreen [lindex $currLine 1] 1
|
||
viMapKey $viScreenId nextErr
|
||
}
|
||
|
||
proc nextErr {} {
|
||
global errScreen
|
||
global fileScreen
|
||
global currFile
|
||
set errLine [lindex [viGetCursor $errScreen] 0]
|
||
set currLine [split [viGetLine $errScreen $errLine] :]
|
||
if {[string match $currFile [lindex $currLine 0]]} {
|
||
viSetCursor $fileScreen [lindex $currLine 1] 0
|
||
viSwitchScreen $fileScreen
|
||
} else {
|
||
viEndScreen $fileScreen
|
||
set currFile [lindex $currLine 0]
|
||
set fileScreen[viNewScreen $errScreen $currFile]
|
||
viSetCursor $fileScreen [lindex $currLine 1] 0
|
||
}
|
||
}
|
||
|
||
proc initErr {} {
|
||
global viScreenId
|
||
global errScreen
|
||
set errScreen [viNewScreen $viScreenId make.out]
|
||
viMapKey $viScreenId findErr
|
||
}
|