X-Git-Url: https://git.distorted.org.uk/~mdw/disorder/blobdiff_plain/e7eb3a2744aa45179daea235800753d3d1955338..d0f01ef61a0b9ffe7f7252e08917ed284e2f0b9e:/scripts/make-unidata

diff --git a/scripts/make-unidata b/scripts/make-unidata
index e0b7b6a..28532a9 100755
--- 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}",