my $path = shift;
my $lpath = basename($path);
if(!-e $lpath) {
- system("wget http://www.unicode.org/Public/5.0.0/ucd/$path");
+ system("wget http://www.unicode.org/Public/6.0.0/ucd/$path");
chmod(0444, $lpath) or die "$lpath: $!\n";
}
open(STDIN, "<$lpath") or die "$lpath: $!\n";
print STDERR "Generating unidata.h...\n";
open(STDOUT, ">unidata.h") or die "unidata.h: $!\n";
-out("/* Automatically generated file, see scripts/make-unidata */\n",
+out("/** \@file lib/unidata.h\n",
+ " * \@brief Unicode tables\n",
+ " *\n",
+ " * Automatically generated file, see scripts/make-unidata\n",
+ " *\n",
+ " * DO NOT EDIT.\n",
+ " */\n",
"#ifndef UNIDATA_H\n",
"#define UNIDATA_H\n");
print STDERR "Generating unidata.c...\n";
open(STDOUT, ">unidata.c") or die "unidata.c: $!\n";
-out("/* Automatically generated file, see scripts/make-unidata */\n",
+out("/** \@file lib/unidata.c\n",
+ " * \@brief Unicode tables\n",
+ " *\n",
+ " * Automatically generated file, see scripts/make-unidata\n",
+ " *\n",
+ " * DO NOT EDIT.\n",
+ " */\n",
"#include \"common.h\"\n",
"#include \"unidata.h\"\n");
my @t;
for(my $c = $base; $c < $base + $modulus; ++$c) {
my $d = $data{$c};
- my $decompsym = ($data{$c}->{decompsym} or "0");
- my $cfsym = ($data{$c}->{cfsym} or "0");
- my $compsym = ($data{$c}->{compsym} or "0");
+ my $decompsym = ($d->{decompsym} or "0");
+ my $cfsym = ($d->{cfsym} or "0");
+ my $compsym = ($d->{compsym} or "0");
+ my $ccc = ($d->{ccc} or "0");
+ my $gc = ($d->{gc} or "Cn");
my @flags = ();
if($data{$c}->{ypogegrammeni}) {
push(@flags, "NBC");
push(@flags, "CD");
}
my $flags = @flags ? join("|", @flags) : 0;
- push(@t, "{".
+ push(@t, "{".
join(",",
$decompsym,
$cfsym,
$compsym,
# $d->{ud},
# $d->{ld},
- $d->{ccc},
- $d->{gc},
+ $ccc,
+ $gc,
$flags,
"GB$d->{gbreak}",
"WB$d->{wbreak}",