src/gencompose

   1 #!/usr/bin/perl
   2
   3 open UNIDATA, "<", "www.unicode.org/Public/UNIDATA/UnicodeData.txt"
   4    or die "www.unicode.org/Public/UNIDATA/UnicodeData.txt: $!";
   5 my %docom = qw(initial | medial | final | isolated | compat | none |);
   6
   7 while (<UNIDATA>) {
   8    my ($code, undef, $category, undef, undef, $decompose, undef) = split /;/;
   9
  10    push @cat_z, $code if $category =~ /^Z/;
  11
  12    if ($decompose) {
  13       $type = $decompose =~ s/^<(.*)>\s*// ? $1 : "none";
  14
  15       next unless $docom{$type};
  16       next unless $decompose =~ /^([0-9a-f]+) ([0-9a-f]+)$/i;
  17       my $pfx = sprintf "%08d %08d %08d", hex $1, hex $2, hex $code;
  18       push @compose, [$pfx, hex $1, hex $2, hex $code];
  19    }
  20 }
  21
  22 open TABLE, ">", "table/compose.h"
  23    or die "table/compose.h: $!";
  24
  25 print TABLE <<EOF;
  26 //
  27 // AUTOMATICALLLY GENERATED by gencompose
  28 //
  29
  30 struct rxvt_compose_entry {
  31    uint32_t c1, c2, r;
  32 } rxvt_compose_table[] = {
  33 #ifdef ENCODING_COMPOSE
  34 EOF
  35
  36 for (sort { $a->[0] cmp $b->[0] } @compose) {
  37    next if $seen{$_->[1],$_->[2]}++;
  38    printf TABLE " { 0x%05x, 0x%05x, 0x%05x },\n", $_->[1], $_->[2], $_->[3];
  39 }
  40
  41
  42 print TABLE <<EOF;
  43 #endif
  44 };
  45 EOF
  46
  47 open TABLE_Z, ">", "table/category.h";
  48
  49 print TABLE_Z <<EOF;
  50 //
  51 // AUTOMATICALLLY GENERATED by gencompose
  52 //
  53
  54 #define IS_SPACE(c)     \\
  55 EOF
  56
  57 for (@cat_z) {
  58    print TABLE_Z "      (c) == 0x$_ || \\\n";
  59 }
  60
  61 print TABLE_Z " 0\n";
  62