word conversion utilities

hardaker · Nov 27, 2010 · ab932f9 · ab932f9
1 parent 3f65397
commit ab932f9
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/words/Makefile b/words/Makefile
@@ -0,0 +1,7 @@
+
+FILES=100words.h 200words.h 300words.h 400words.h 500words.h
+
+all: $(FILES)
+
+%.h: %.txt convert.pl
+	perl convert.pl $< > $@
diff --git a/words/convert.pl b/words/convert.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+my ($num) = ($ARGV[0] =~ /^(...)/);
+
+print "words[N$num] = new QList<QString>;\n";
+while(<>) {
+    chomp;
+    print "words[N$num]->push_back(\"$_\");\n";
+}