Missing file (script which creates ucdversion.c)

1 files changed, 14 insertions, 0 deletions

diff --git a/ucdversion.pl b/ucdversion.pl
new file mode 100755
index 0000000..f618c8c
--- /dev/null
+++ b/ucdversion.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+open(UCDVERSION, '<', 'ucd/version') or die;
+$line = <UCDVERSION>;
+chomp $line;
+close(UCDVERSION);
+
+@v = split(/\./, $line);
+open(GV, '>', 'gen/ucdversion.c') or die;
+print  GV "#include \"ucd.h\"\n";
+print  GV "int unicode_database_version(void)\n";
+print  GV "{\n";
+printf GV "\treturn 0x%x;\n", ($v[0] << 16)+($v[1] << 8)+$v[2];
+print  GV "}\n";
+close(GV);