Switched to UCW configure and build system

[leo.git] / build / gen-dict

diff --git a/build/gen-dict b/build/gen-dict
new file mode 100755 (executable)
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";
+}