Fork of Tcl used in the "Little" project.

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

1 files changed, 30 insertions, 0 deletions

diff --git a/tests/langbench/wc.py b/tests/langbench/wc.py
new file mode 100644
index 0000000..d2a8b50
--- /dev/null
+++ b/tests/langbench/wc.py
@@ -0,0 +1,30 @@
+#!/usr/bin/python
+import os
+import sys
+
+def wordsplit(line):
+    list = []
+    word = ""
+    for c in line:
+	if c.isspace():
+	    if len(word) > 0:
+		list.append(word)
+	    word = ""
+	else:
+	    word += c
+    if len(word) > 0:
+	list.append(word)
+    return list
+
+def main():
+    n = 0
+    for a in sys.argv[1:]:
+    	f = open(a)
+    	for line in f:
+        	words = wordsplit(line)
+		n += len(words)
+    	f.close()
+    print "%d\n" % n
+   
+if __name__ == "__main__":
+    main()