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