diff options
| author | Larry Wall <larry@wall.org> | 1998-07-24 05:44:33 +0000 |
|---|---|---|
| committer | Larry Wall <larry@wall.org> | 1998-07-24 05:44:33 +0000 |
| commit | a0ed51b321531af4b47cce24205ab9656f043f0f (patch) | |
| tree | 610356407b37a4041ea8bcaf44571579b2da5613 /perlvars.h | |
| parent | 9332a1c1d80ded85a2b1f32b1c8968a35e3b0fbb (diff) | |
| download | perl-a0ed51b321531af4b47cce24205ab9656f043f0f.tar.gz | |
Here are the long-expected Unicode/UTF-8 modifications.
p4raw-id: //depot/utfperl@1651
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/perlvars.h b/perlvars.h index 4e9d3b8689..4ccfc58f86 100644 --- a/perlvars.h +++ b/perlvars.h @@ -170,6 +170,24 @@ PERLVARI(Gnumeric_local, bool, TRUE) #endif /* !USE_LOCALE_NUMERIC */ +/* utf8 character classes */ +PERLVAR(Gutf8_alnum, SV *) +PERLVAR(Gutf8_alpha, SV *) +PERLVAR(Gutf8_space, SV *) +PERLVAR(Gutf8_digit, SV *) +PERLVAR(Gutf8_upper, SV *) +PERLVAR(Gutf8_lower, SV *) +PERLVAR(Gutf8_print, SV *) +PERLVAR(Gutf8_mark, SV *) +PERLVAR(Gutf8_toupper, SV *) +PERLVAR(Gutf8_totitle, SV *) +PERLVAR(Gutf8_tolower, SV *) +PERLVAR(Glast_swash_hv, HV *) +PERLVAR(Glast_swash_klen, U32) +PERLVAR(Glast_swash_key[10], U8) +PERLVAR(Glast_swash_tmps, U8 *) +PERLVAR(Glast_swash_slen, STRLEN) + /* constants (these are not literals to facilitate pointer comparisons) */ PERLVARIC(GYes, char *, "1") PERLVARIC(GNo, char *, "") |