xref: /netbsd-src/external/bsd/nvi/dist/tcl_scripts/wc.tcl (revision dbd550ed1a6686d6600f748306f9cc03d8cd4c94)
1*dbd550edSchristos#	Id: wc.tcl,v 8.2 1995/11/18 12:59:12 bostic Exp  (Berkeley) Date: 1995/11/18 12:59:12
2*dbd550edSchristos#
3*dbd550edSchristosproc wc {} {
4*dbd550edSchristos	global viScreenId
5*dbd550edSchristos	global viStartLine
6*dbd550edSchristos	global viStopLine
7*dbd550edSchristos
8*dbd550edSchristos	set lines [viLastLine $viScreenId]
9*dbd550edSchristos	set output ""
10*dbd550edSchristos	set words 0
11*dbd550edSchristos	for {set i $viStartLine} {$i <= $viStopLine} {incr i} {
12*dbd550edSchristos		set outLine [split [string trim [viGetLine $viScreenId $i]]]
13*dbd550edSchristos		set words [expr $words + [llength $outLine]]
14*dbd550edSchristos	}
15*dbd550edSchristos	viMsg $viScreenId "$words words"
16*dbd550edSchristos}
17