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
17 lines
433 B
Tcl
17 lines
433 B
Tcl
# Id: wc.tcl,v 8.2 1995/11/18 12:59:12 bostic Exp (Berkeley) Date: 1995/11/18 12:59:12
|
|
#
|
|
proc wc {} {
|
|
global viScreenId
|
|
global viStartLine
|
|
global viStopLine
|
|
|
|
set lines [viLastLine $viScreenId]
|
|
set output ""
|
|
set words 0
|
|
for {set i $viStartLine} {$i <= $viStopLine} {incr i} {
|
|
set outLine [split [string trim [viGetLine $viScreenId $i]]]
|
|
set words [expr $words + [llength $outLine]]
|
|
}
|
|
viMsg $viScreenId "$words words"
|
|
}
|