1# Id: wc.tcl,v 8.2 1995/11/18 12:59:12 bostic Exp (Berkeley) Date: 1995/11/18 12:59:12 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