view release on metacpan or  search on metacpan

mkheader  view on Meta::CPAN

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
    }
}
 
our $PACKAGE = 'Unicode::Normalize, mkheader';
 
our $prefix = "UNF_";
our $structname = "${prefix}complist";
 
# Starting in v5.20, the tables in lib/unicore are built using the platform's
# native character set for code points 0-255.
*pack_U = ($] ge 5.020)
          ? sub { return pack('W*', @_).pack('U*'); } # The empty pack returns
                                                      # an empty UTF-8 string,
                                                      # so the effect is to
                                                      # force the return into
                                                      # being UTF-8.
          : sub { return pack('U*', @_); };
 
# %Canon and %Compat will be ($codepoint => $hexstring) after _U_stringify()
our %Comp1st;   # $codepoint => $listname  : may be composed with a next char.
our %CompList;  # $listname,$2nd  => $codepoint : composite