source: for-distributions/trunk/bin/windows/perl/lib/Encode/JP/H2Z.pm@ 14489

#
# $Id: H2Z.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $
#

package Encode::JP::H2Z;

use strict;

our $RCSID = q$Id: H2Z.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $;
our $VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use Encode::CJKConstants qw(:all);

use vars qw(%_D2Z  $_PAT_D2Z
        %_Z2D  $_PAT_Z2D
        %_H2Z  $_PAT_H2Z
        %_Z2H  $_PAT_Z2H);

%_H2Z = (
     "\x8e\xa1" =>  "\xa1\xa3", #¡£
     "\x8e\xa2" =>  "\xa1\xd6", #¡Ö
     "\x8e\xa3" =>  "\xa1\xd7", #¡×
     "\x8e\xa4" =>  "\xa1\xa2", #¡¢
     "\x8e\xa5" =>  "\xa1\xa6", #¡Š
     "\x8e\xa6" =>  "\xa5\xf2", #¥ò
     "\x8e\xa7" =>  "\xa5\xa1", #¥¡
     "\x8e\xa8" =>  "\xa5\xa3", #¥£
     "\x8e\xa9" =>  "\xa5\xa5", #¥¥
     "\x8e\xaa" =>  "\xa5\xa7", #¥§
     "\x8e\xab" =>  "\xa5\xa9", #¥©
     "\x8e\xac" =>  "\xa5\xe3", #¥ã
     "\x8e\xad" =>  "\xa5\xe5", #¥å
     "\x8e\xae" =>  "\xa5\xe7", #¥ç
     "\x8e\xaf" =>  "\xa5\xc3", #¥Ã
     "\x8e\xb0" =>  "\xa1\xbc", #¡Œ
     "\x8e\xb1" =>  "\xa5\xa2", #¥¢
     "\x8e\xb2" =>  "\xa5\xa4", #¥€
     "\x8e\xb3" =>  "\xa5\xa6", #¥Š
     "\x8e\xb4" =>  "\xa5\xa8", #¥š
     "\x8e\xb5" =>  "\xa5\xaa", #¥ª
     "\x8e\xb6" =>  "\xa5\xab", #¥«
     "\x8e\xb7" =>  "\xa5\xad", #¥­
     "\x8e\xb8" =>  "\xa5\xaf", #¥¯
     "\x8e\xb9" =>  "\xa5\xb1", #¥±
     "\x8e\xba" =>  "\xa5\xb3", #¥³
     "\x8e\xbb" =>  "\xa5\xb5", #¥µ
     "\x8e\xbc" =>  "\xa5\xb7", #¥·
     "\x8e\xbd" =>  "\xa5\xb9", #¥¹
     "\x8e\xbe" =>  "\xa5\xbb", #¥»
     "\x8e\xbf" =>  "\xa5\xbd", #¥œ
     "\x8e\xc0" =>  "\xa5\xbf", #¥¿
     "\x8e\xc1" =>  "\xa5\xc1", #¥Á
     "\x8e\xc2" =>  "\xa5\xc4", #¥Ä
     "\x8e\xc3" =>  "\xa5\xc6", #¥Æ
     "\x8e\xc4" =>  "\xa5\xc8", #¥È
     "\x8e\xc5" =>  "\xa5\xca", #¥Ê
     "\x8e\xc6" =>  "\xa5\xcb", #¥Ë
     "\x8e\xc7" =>  "\xa5\xcc", #¥Ì
     "\x8e\xc8" =>  "\xa5\xcd", #¥Í
     "\x8e\xc9" =>  "\xa5\xce", #¥Î
     "\x8e\xca" =>  "\xa5\xcf", #¥Ï
     "\x8e\xcb" =>  "\xa5\xd2", #¥Ò
     "\x8e\xcc" =>  "\xa5\xd5", #¥Õ
     "\x8e\xcd" =>  "\xa5\xd8", #¥Ø
     "\x8e\xce" =>  "\xa5\xdb", #¥Û
     "\x8e\xcf" =>  "\xa5\xde", #¥Þ
     "\x8e\xd0" =>  "\xa5\xdf", #¥ß
     "\x8e\xd1" =>  "\xa5\xe0", #¥à
     "\x8e\xd2" =>  "\xa5\xe1", #¥á
     "\x8e\xd3" =>  "\xa5\xe2", #¥â
     "\x8e\xd4" =>  "\xa5\xe4", #¥ä
     "\x8e\xd5" =>  "\xa5\xe6", #¥æ
     "\x8e\xd6" =>  "\xa5\xe8", #¥è
     "\x8e\xd7" =>  "\xa5\xe9", #¥é
     "\x8e\xd8" =>  "\xa5\xea", #¥ê
     "\x8e\xd9" =>  "\xa5\xeb", #¥ë
     "\x8e\xda" =>  "\xa5\xec", #¥ì
     "\x8e\xdb" =>  "\xa5\xed", #¥í
     "\x8e\xdc" =>  "\xa5\xef", #¥ï
     "\x8e\xdd" =>  "\xa5\xf3", #¥ó
     "\x8e\xde" =>  "\xa1\xab", #¡«
     "\x8e\xdf" =>  "\xa1\xac", #¡¬
);

%_D2Z = (
     "\x8e\xb6\x8e\xde" =>  "\xa5\xac", #¥¬
     "\x8e\xb7\x8e\xde" =>  "\xa5\xae", #¥®
     "\x8e\xb8\x8e\xde" =>  "\xa5\xb0", #¥°
     "\x8e\xb9\x8e\xde" =>  "\xa5\xb2", #¥²
     "\x8e\xba\x8e\xde" =>  "\xa5\xb4", #¥Ž
     "\x8e\xbb\x8e\xde" =>  "\xa5\xb6", #¥¶
     "\x8e\xbc\x8e\xde" =>  "\xa5\xb8", #¥ž
     "\x8e\xbd\x8e\xde" =>  "\xa5\xba", #¥º
     "\x8e\xbe\x8e\xde" =>  "\xa5\xbc", #¥Œ
     "\x8e\xbf\x8e\xde" =>  "\xa5\xbe", #¥Ÿ
     "\x8e\xc0\x8e\xde" =>  "\xa5\xc0", #¥À
     "\x8e\xc1\x8e\xde" =>  "\xa5\xc2", #¥Â
     "\x8e\xc2\x8e\xde" =>  "\xa5\xc5", #¥Å
     "\x8e\xc3\x8e\xde" =>  "\xa5\xc7", #¥Ç
     "\x8e\xc4\x8e\xde" =>  "\xa5\xc9", #¥É
     "\x8e\xca\x8e\xde" =>  "\xa5\xd0", #¥Ð
     "\x8e\xcb\x8e\xde" =>  "\xa5\xd3", #¥Ó
     "\x8e\xcc\x8e\xde" =>  "\xa5\xd6", #¥Ö
     "\x8e\xcd\x8e\xde" =>  "\xa5\xd9", #¥Ù
     "\x8e\xce\x8e\xde" =>  "\xa5\xdc", #¥Ü
     "\x8e\xca\x8e\xdf" =>  "\xa5\xd1", #¥Ñ
     "\x8e\xcb\x8e\xdf" =>  "\xa5\xd4", #¥Ô
     "\x8e\xcc\x8e\xdf" =>  "\xa5\xd7", #¥×
     "\x8e\xcd\x8e\xdf" =>  "\xa5\xda", #¥Ú
     "\x8e\xce\x8e\xdf" =>  "\xa5\xdd", #¥Ý
     "\x8e\xb3\x8e\xde"     =>      "\xa5\xf4",     #¥ô
);

# init only once;

#$_PAT_D2Z = join("|", keys %_D2Z);
#$_PAT_H2Z = join("|", keys %_H2Z);

%_Z2H = reverse %_H2Z;
%_Z2D = reverse %_D2Z;

#$_PAT_Z2H    = join("|", keys %_Z2H);
#$_PAT_Z2D    = join("|", keys %_Z2D);

sub h2z {
    no warnings qw(uninitialized);
    my $r_str = shift;
    my ($keep_dakuten) = @_;
    my $n = 0;
    unless ($keep_dakuten){
    $n = (
          $$r_str =~ s(
               ($RE{EUC_KANA}
                (?:\x8e[\xde\xdf])?)
               ){
          my $str = $1;
          $_D2Z{$str} || $_H2Z{$str} || 
              # in case dakuten and handakuten are side-by-side!
              $_H2Z{substr($str,0,2)} . $_H2Z{substr($str,2,2)};
          }eogx
          );
    }else{
    $n = (
          $$r_str =~ s(
               ($RE{EUC_KANA})
               ){
          $_H2Z{$1};
          }eogx
          );
    }
    $n;
}

sub z2h {
    my $r_str = shift;
    my $n = (
         $$r_str =~ s(
              ($RE{EUC_C}|$RE{EUC_0212}|$RE{EUC_KANA})
              ){
         $_Z2D{$1} || $_Z2H{$1} || $1;
         }eogx
         );
    $n;
}

1;
__END__


=head1 NAME

Encode::JP::H2Z -- internally used by Encode::JP::2022_JP*

=cut