diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-11-07 15:40:40 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-07 21:42:42 -0800 |
commit | 064c021db42d2f93255b1b950faa0b0274e9fb7e (patch) | |
tree | fa23a5568104524919d459895d4ad3bb5b4a2aa3 /proto.h | |
parent | 319009ee7672ef703a648cf106c84dbe6f5aabd5 (diff) | |
download | perl-064c021db42d2f93255b1b950faa0b0274e9fb7e.tar.gz |
utf8.c: Add function to create inversion of swash
This adds _swash_inversion_hash() which takes a mapping swash and returns
a hash that is the inverse relation. That is, given a code point, it
allows quick lookup of all code points that map to it.
The function is not for public use, as it will likely be revised, so is
not in the public API, and it's name begins with underscore.
It does not deal with multi-char mappings at this time, nor other swash
complications.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -23,6 +23,12 @@ PERL_CALLCONV int Perl_Gv_AMupdate(pTHX_ HV* stash, bool destructing) assert(stash) PERL_CALLCONV const char * Perl_PerlIO_context_layers(pTHX_ const char *mode); +PERL_CALLCONV HV* Perl__swash_inversion_hash(pTHX_ SV *swash) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT__SWASH_INVERSION_HASH \ + assert(swash) + PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_ALLOCMY \ |