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