dist/nvi/tcl_scripts/wc.tcl

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