Changeset 1969

Timestamp:

12/03/07 14:27:46 (5 months ago)

Author:

joshr

Message:

made more sensible defaults for min_words_per_file and max_words_per_file.
Also improved Usage() output.

Files:

• Swishetest/trunk/make_collection (modified) (4 diffs)

Swishetest/trunk/make_collection

@@ -17 +17 @@
-my $dict='data/C020-words-txt/words-linux-fc1.txt';
-
-
-
-
+00
+00
+100
-my $num_words;      # should be scalar(@words)
-my $base_dir = "";  # empty base_dir means be an -S prog external program
@@ -32 +32 @@
-sub Usage {
-    return "make_collection: [--dict=words.txt] [--base_dir=/your/location]\n" .
-[--min_words_per_file=#] [--max_words_per_file=#] [--num_files=#
-[--verbose] [--englishify] [--filetype=(txt|html|xml)] [--(no)randommode]
+  [--min_words_per_file=$min_words_per_file] [--max_words_per_file=$max_words_per_file] [--num_files=$num_files
+  [--verbose] [--englishify] [--filetype=(txt|html|xml)] [--(no)randommode]:
-           "   Makes a set of (possibly random) xml, html, or txt files based on a dict.\n";
-}
@@ -50 +50 @@
-        "filetype=s" => \$filetype,
-        "verbose!"    => \$verbose
-"$prog: Couldn't parse options:\n" . 
+
-
-
@@ -118 +118 @@
-            print STDERR "$prog: created $path...\n" if ($verbose && $i % 1000 == 0);
-        } else {
-
+. This prints directly to stdout.
-            simple_swishe_progify($parser, "$i.$filetype", $doc, scalar(localtime(time())));
-        }