1#	@(#)wc.tcl	8.2 (Berkeley) 11/18/95
2#
3proc 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}
17