Searched refs:vianame (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dcharnames.t150 sprintf("%04X", charnames::vianame("GOTHIC LETTER AHSA")) eq "10330";
154 defined charnames::vianame("NONE SUCH");
165 sprintf("%04X", charnames::vianame("GOTHIC LETTER AHSA")) eq "10330";
257 0x3093 == charnames::vianame("HIRAGANA LETTER N");
261 0x0397 == charnames::vianame("GREEK CAPITAL LETTER ETA");
H A Dcharnames.pm292 my %vianame;
294 sub vianame subroutine
297 carp "charnames::vianame() expects one name argument";
305 return $vianame{$arg} if exists $vianame{$arg};
313 return $vianame{$arg} = hex $code;
325 } # vianame
353 printf "%04X", charnames::vianame("GOTHIC LETTER AHSA"); # prints "10330"
381 functionality, use charnames::vianame().
477 =head1 charnames::vianame(nam
[all...]

Completed in 23 milliseconds