]> mj.ucw.cz Git - libucw.git/blobdiff - charset/misc/gen-ligatures
Moved process-related functions to ucw/process.h
[libucw.git] / charset / misc / gen-ligatures
index 8ebe71e67a839b8eb2a41e3705dc1ccd476d969b..17469ea645e9d251987f607f7bdf523819047e1d 100755 (executable)
@@ -62,11 +62,11 @@ my @ht = map { "NULL" } 1..$div;
 foreach my $l (keys %ligs) {
        my $i = (hex $l) % $div;
        my $w = join(", ", map { "0x$_" } split(/ /, expand($l)));
 foreach my $l (keys %ligs) {
        my $i = (hex $l) % $div;
        my $w = join(", ", map { "0x$_" } split(/ /, expand($l)));
-       $ht[$i] = "/* $l */ (const word []) { $w, 0 }";
+       $ht[$i] = "/* $l */ (const u16 []) { $w, 0 }";
 }
 
 print "#define LIG_HASH_SIZE $div\n\n";
 }
 
 print "#define LIG_HASH_SIZE $div\n\n";
-print "static const word *_U_lig_hash[] = {\n";
+print "static const u16 *_U_lig_hash[] = {\n";
 for (my $i=0; $i<$div; $i++) {
        print "\t", $ht[$i], ",\n";
 }
 for (my $i=0; $i<$div; $i++) {
        print "\t", $ht[$i], ",\n";
 }