/openbsd-current/gnu/usr.bin/perl/t/lib/ |
H A D | Cname.pm | 36 $^H{charnames} = \&translator;
|
/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | charnames.t | 4 # Test charnames.pm. If $ENV{PERL_RUN_SLOW_TESTS} is unset or 0, a random 41 use charnames ":full"; 50 use charnames 'cyrillic'; 58 use charnames ':full', ":alias" => { BOM => "LATIN SMALL LETTER B" }; 67 use charnames ":alias" => { mychar1 => "0xE8000", 75 is (charnames::viacode(0xE8000), "mychar1", "And that can get the alias back"); 77 is (charnames::viacode(0xF0000), "mychar2", "And that can get the alias back"); 79 is (charnames::viacode(0x100000), "mychar3", "And that can get the alias back"); 81 is (charnames::viacode(0x111000), "mylarge", "And that can get the alias back"); 82 is (charnames [all...] |
H A D | charnames.pm | 1 package charnames; package 36 _charnames::carp "charnames::vianame() expects one name argument"; 70 _charnames::carp "charnames::string_vianame() expects one name argument"; 99 charnames - access to Unicode character names and named character sequences; also define character names 103 use charnames ':full'; 108 use charnames ':loose'; 113 use charnames ':short'; 116 use charnames qw(cyrillic greek); 120 use charnames ":full", ":alias" => { 130 use charnames (); [all...] |
H A D | _charnames.pm | 4 # directly. Use the public <charnames> module instead. 18 # submodule of package <charnames>, used to allow \N{...} to be autoloaded, 19 # but it was decided not to autoload the various functions in charnames; the 94 # re-look them up again. The previous versions of charnames had scoping 116 # being a hash for a script named in a 'use charnames' statement. I 159 # t/lib/charnames/alias 190 push @errors, "Invalid character in charnames alias definition; " 197 push @errors, "charnames alias definitions may not contain " 206 push @errors, "charnames alias definitions may not contain a " 253 croak "$file cannot be used as alias file for charnames"; 641 sub charnames { subroutine [all...] |
/openbsd-current/gnu/usr.bin/perl/t/uni/ |
H A D | labels.t | 17 use charnames qw( :full );
|
H A D | lex_utf8.t | 19 use charnames ':full';
|
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | split_unicode.t | 8 skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec (used by charnames)"); 13 use charnames qw(:full);
|
/openbsd-current/gnu/usr.bin/perl/regen/ |
H A D | unicode_constants.pl | 8 use charnames qw(:loose); 261 my $lhs_name = charnames::viacode($from); 273 my $rhs_name = charnames::viacode($to); 417 #print STDERR __FILE__, ": ", __LINE__, ": ", sprintf("%04x ", $code_point), charnames::viacode($code_point), "\n"; 429 my $name = charnames::viacode($code_point); 504 $mirror = charnames::viacode($mirror_code_point); 513 $mirror_code_point = charnames::vianame($mirror); 575 $mirror_code_point = charnames::vianame($mirror); 737 $name = charnames::viacode($name_or_cp); 747 $U_cp = charnames [all...] |
H A D | mk_PL_charclass.pl | 320 use charnames(); 321 $name = charnames::viacode($ord);
|
H A D | charset_translations.pl | 146 use charnames (); 148 #printf "$charset: using %02x which is %02x ascii, %s\n", $ebcdic_value, $i, charnames::viacode($i); 162 #printf "$charset: filling in %02x which is %02x ascii, %s\n", $I8_TO_NATIVE_UTF8{$charset}[$i], $i, charnames::viacode($i);
|
/openbsd-current/libexec/getty/ |
H A D | subr.c | 135 charnames[] = { variable 155 for (i = 0; charnames[i]; i++) { 156 p = *charnames[i];
|
/openbsd-current/gnu/usr.bin/perl/t/re/ |
H A D | regex_sets.t | 146 use charnames (); 149 . charnames::viacode(ord $char));
|
H A D | reg_fold.t | 160 use charnames ":full";
|
H A D | pat_advanced.t | 372 use charnames ':full'; 405 use charnames ':full'; 418 use charnames ':full'; 477 use charnames ':full'; 531 use charnames ':full'; 844 eval qq {use charnames ':full'; 846 eval qq {use charnames ':full'; 905 use charnames ':full'; 939 '\p{name=} doesn\'t see a cumstom charnames translator'); 993 like ($@, qr/charnames alia [all...] |
H A D | regexp_unicode_prop.t | 22 skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec (used by charnames)"); 64 use charnames ':full';
|
H A D | fold_grind.pl | 25 use charnames ":full";
|
H A D | pat_rt_report.t | 1054 use charnames ":full"; 1074 use charnames ":full";
|
/openbsd-current/gnu/usr.bin/perl/ext/I18N-Langinfo/t/ |
H A D | Langinfo.t | 46 use charnames (); 62 my $name = charnames::viacode(ord $char);
|
/openbsd-current/gnu/usr.bin/perl/cpan/Pod-Simple/t/ |
H A D | JustPod01.t | 79 use parent qw(Encode charnames utf8 open warnings feature); 85 'charnames'->import::into($target, qw{:full :short}); 153 turned on by default (including STDIN, STDOUT, STDERR), and charnames are
|
/openbsd-current/gnu/usr.bin/perl/lib/unicore/ |
H A D | Name.pm | 14 package charnames; package
|
/openbsd-current/gnu/usr.bin/perl/ext/XS-APItest/t/ |
H A D | handy_base.pl | 36 use charnames (); 37 return charnames::viacode($cp) // "No name";
|
/openbsd-current/gnu/usr.bin/perl/lib/Unicode/ |
H A D | UCD.t | 820 use charnames (); # Don't use \N{} on things not in original Unicode 839 my $tai_lue_1 = charnames::string_vianame("NEW TAI LUE DIGIT ONE"); 840 $tai_lue_2 = charnames::string_vianame("NEW TAI LUE DIGIT TWO"); 848 . charnames::string_vianame("NEW TAI LUE THAM DIGIT ONE"), \$ret_len), 851 ok(! defined num(charnames::string_vianame("NEW TAI LUE THAM DIGIT ONE") 857 my $cham_0 = charnames::string_vianame("CHAM DIGIT ZERO"); 858 is(num($cham_0 . charnames::string_vianame("CHAM DIGIT THREE")), 3, 862 . charnames::string_vianame("JAVANESE DIGIT NINE"), 870 is(num(charnames::string_vianame("ETHIOPIC NUMBER TEN THOUSAND")), 10000, 874 is(num(charnames [all...] |
H A D | UCD.pm | 6 use charnames (); 937 # NB: This function is nearly duplicated in charnames.pm 981 # files. It uses charnames to get the character name; and various 1008 : (charnames::viacode($code) // ""); 1360 $map = charnames::viacode($cp); 2338 sequence into double-quoted strings, and C<charnames::string_vianame("KATAKANA 2341 know which are which. See L<charnames>. 2372 # Use charnames::string_vianame() which now returns this information, 2374 # and thereafter use it instead of calling charnames, as it is faster. 2388 $s = charnames [all...] |
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | corelist-perldelta.pl | 166 my @unclaimedPragmata = qw/arybase attributes blib bytes charnames deprecate diagnostics encoding feature fields filetest inc::latest integer less locale mro open ops overload overloading re sigtrap sort strict subs utf8 vars vmsish/;
|
H A D | Maintainers.pl | 1457 lib/charnames.{pm,t}
|