
=head DESCRIPTION
 
使い方：
  Jcode-0.68.tar.gz と jcconv.pl を同じディレクトリに用意して，
  
  tar zxvf Jcode-0.68.tar.gz
  cd Jcode-0.68
  mv Jcode/Unicode/Constants.pm Jcode/Unicode/Constants_old.pm
  perl ../jcconv.pl > Jcode/Unicode/Constants.pm
  

=cut


use Jcode::Unicode::Constants_old;

*_U2E = *Jcode::Unicode::Constants::_U2E;

my $tablestr;
my $packstr;

foreach my $key (%_U2E)
{
  $tablestr .= $key;
  $packstr .= 'a' . length($key);
}

my $tablestr_uu = pack('u', $tablestr);


print <<'END';
#
# $Id: Constants.pm,v 1.1 2000/11/15 05:44:53 dankogai Exp $
#

package Jcode::Unicode::Constants;

use strict;
use vars qw($RCSID $VERSION);

$RCSID = q$Id: Constants.pm,v 1.1 2000/11/15 05:44:53 dankogai Exp $;
$VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use Carp;

# Exporter is not used to optimize speed

package Jcode::Unicode::Constants;

use vars qw(%_U2E %_E2U);

END

print "my \$table = <<'END';\n$tablestr_uu\nEND\n";
print "my \$packstr = <<'END';\n$packstr\nEND\n";

print <<'END';


# unpack table
%_U2E = unpack($packstr, unpack('u', $table));


%_E2U = ();

1;

=head1 NAME

Jcode::Unicode::Constants -- UCS2-EUC conversion table

=head1 SYNOPSIS

NONE

=head1 DESCRIPTION

This module just contains a huge hash that converts UCS2 from/to EUC.

=head1 SEE ALSO

=item ftp://ftp.unicode.org/Public/MAPPINGS/EASTASIA/JIS/

Unicode mapping data

=head1 COPYRIGHT

Copyright 1999 Dan Kogai <dankogai@dan.co.jp>

This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

Unicode conversion table here is based on files at
ftp://ftp.unicode.org/Public/MAPPINGS/EASTASIA/JIS/,
Copyright (c) 1991-1994 Unicode, Inc.

=cut


END



