mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-18 10:35:55 +00:00
b8ba871bd9
files, curses, db, regex etc that we already have). The other glue will follow shortly. Obtained from: Keith Bostic <bostic@bostic.com>
17 lines
381 B
Tcl
17 lines
381 B
Tcl
# @(#)wc.tcl 8.2 (Berkeley) 11/18/95
|
|
#
|
|
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"
|
|
}
|