#!/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); |