Integrate mainline (Win2k/MinGW all ok except threads/t/end.t)

[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / iso10646_1.pm

package Encode::iso10646_1;
use strict;
our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use base 'Encode::Encoding';
# Encoding is 16-bit network order Unicode (no surogates)
# Used for X font encodings

__PACKAGE__->Define(qw(UCS-2 iso-10646-1));

sub decode
{
    my ($obj,$str,$chk) = @_;
    my $uni   = '';
    while (length($str))
    {
	my $code = unpack('n',substr($str,0,2,'')) & 0xffff;
	$uni .= chr($code);
    }
    $_[1] = $str if $chk;
  utf8::upgrade($uni);
    return $uni;
}

sub encode
{
    my ($obj,$uni,$chk) = @_;
    my $str   = '';
    while (length($uni))
    {
	my $ch = substr($uni,0,1,'');
	my $x  = ord($ch);
	unless ($x < 32768)
	{
	    last if ($chk);
	    $x = 0;
	}
	$str .= pack('n',$x);
    }
    $_[1] = $uni if $chk;
    return $str;
}
1;
__END__