diff options
Diffstat (limited to 'tcl_scripts/wc.tcl')
| -rw-r--r-- | tcl_scripts/wc.tcl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/tcl_scripts/wc.tcl b/tcl_scripts/wc.tcl deleted file mode 100644 index 25d0f6254391..000000000000 --- a/tcl_scripts/wc.tcl +++ /dev/null @@ -1,16 +0,0 @@ -# @(#)wc.tcl 8.2 (Berkeley) 11/18/95 -# -proc wc {} { - global viScreenId - global viStartLine - global viStopLine - - set lines [viLastLine $viScreenId] - set output "" - set words 0 - for {set i $viStartLine} {$i <= $viStopLine} {incr i} { - set outLine [split [string trim [viGetLine $viScreenId $i]]] - set words [expr $words + [llength $outLine]] - } - viMsg $viScreenId "$words words" -} |