--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/comparison/workload.tcl	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,55 @@
+#!/bin/tclsh
+
+#
+#    Copyright 2005-2006 Intel Corporation
+# 
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+# 
+#        http://www.apache.org/licenses/LICENSE-2.0
+# 
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+#
+
+
+
+# Usage: workload.tcl <#files> <file size in KB> <dir>
+# Example: tclsh workload.tcl 10 1000 /tmp/
+# Creates 10 1MB files in directory
+
+proc mkfile {sz name} {
+    global FACTOR
+        
+    set payload ""
+    set j 0    
+    while {$j < [expr $FACTOR / 10]} {
+        append  payload [format "%09d\n" [ expr $j*10 ] ]
+	    incr j
+    }
+    set fd [open $name w]
+    set todo [expr $FACTOR * $sz ] 
+    set i 0
+    while {$i < $sz} {
+	    #set  payload [format "%4d: 0123456789abcdef\n" [string length $payload]]
+        puts -nonewline $fd $payload
+        incr i
+    }
+    close $fd
+}
+
+set FACTOR 1000
+set n [lindex $argv 0]
+set size  [lindex $argv 1]
+set dir   [lindex $argv 2]
+set prefix fnull
+
+puts "Create $n files of size  $size KB  in directory $dir "
+
+for {set i 1} {$i <= $n} {incr i} {
+    mkfile $size $dir/$i.$prefix
+}