server/gstdecode.c: Label dest element correctly on link failure.

[disorder] / scripts / make-unidata

diff --git a/scripts/make-unidata b/scripts/make-unidata
index e0b7b6a81a8e2d8e8cee582006b6f4632d60441d..28532a94d8977cfb6b765a19e6b3cbc656fd33cb 100755 (executable)
--- a/scripts/make-unidata
+++ b/scripts/make-unidata
@@ -92,7 +92,7 @@ sub input {
     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";
@@ -336,7 +336,13 @@ while(<>) {
 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");
 
@@ -436,7 +442,13 @@ close STDOUT or die "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");
 
@@ -550,9 +562,11 @@ for(my $base = 0; $base <= $max; $base += $modulus) {
     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");
@@ -561,15 +575,15 @@ for(my $base = 0; $base <= $max; $base += $modulus) {
            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}",