Merge from vendor branch DIFFUTILS:
[dragonfly.git] / contrib / nvi / tcl_scripts / wc.tcl
1 #       @(#)wc.tcl      8.2 (Berkeley) 11/18/95
2 #
3 proc wc {} {
4         global viScreenId
5         global viStartLine
6         global viStopLine
7
8         set lines [viLastLine $viScreenId]
9         set output ""
10         set words 0
11         for {set i $viStartLine} {$i <= $viStopLine} {incr i} {
12                 set outLine [split [string trim [viGetLine $viScreenId $i]]]
13                 set words [expr $words + [llength $outLine]]
14         }
15         viMsg $viScreenId "$words words"
16 }