#
# $Id: H2Z.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $
#

package Encode::JP::H2Z;

use strict;
use warnings;

our $RCSID = q$Id: H2Z.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $;
our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\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",    #¥