X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=build%2Fgen-dict;fp=build%2Fgen-dict;h=a221ec402bec673aee496d7fd3bbe9afebe56901;hb=6121d80a1e22dcbca7c4010772447d8a4c11fec1;hp=0000000000000000000000000000000000000000;hpb=314afcc0500a95c818dadbb68db72954cf4145b4;p=leo.git

diff --git a/build/gen-dict b/build/gen-dict
new file mode 100755
index 0000000..a221ec4
--- /dev/null
+++ b/build/gen-dict
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# Generate dict-*.h from dict-*.t
+
+use strict;
+use warnings;
+
+print "// Auto-generated by gen-dict\n";
+while (<STDIN>) {
+	chomp;
+	next if /^$/ or /^#/;
+	my $prop = $_;
+	my $sym = $_;
+	$sym =~ s{[^A-Za-z0-9_]}{_}g;
+	$sym =~ tr{a-z}{A-Z};
+	print "P($sym, \"$prop\")\n";
+}