ucdversion.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
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);