Fork of Tcl used in the "Little" project.

http://www.mcvoy.com/lm/little/index.html

1 files changed, 36 insertions, 0 deletions

diff --git a/tests/langbench/wc.tcl b/tests/langbench/wc.tcl
new file mode 100644
index 0000000..5dc17aa
--- /dev/null
+++ b/tests/langbench/wc.tcl
@@ -0,0 +1,36 @@
+proc wordsplit {str} {
+	set list {}
+	set word {}
+	foreach char [split $str {}] {
+		if {[string is space $char]} {
+			if {[string length $word] > 0} {
+				lappend list $word
+			}
+			set word {}
+		} else {
+			append word $char
+		}
+	}
+	if {[string length $word] > 0} {
+		lappend list $word
+	}
+	return $list
+}
+
+proc doit {file} {
+	set f [open $file r]
+	fconfigure $f -translation binary
+	set buf ""
+	set n 0
+	while {[gets $f buf] >= 0} {
+		set words [wordsplit $buf]
+		incr n [llength $words]
+	}
+	close $f
+	return $n
+}
+set total 0
+foreach file $argv {
+	incr total [doit $file]
+}
+puts $total