Context Navigation

Changeset 1553

Timestamp:

11/15/07 13:09:47 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile/branches/feature-convert-pictogram: added custom fallback feature at x-utf8-*.

Location:

Files:

r1510	r1553
7	7
8	8	use base qw( Exporter );
9		@EXPORT_OK = qw( InDoCoMoPictograms InKDDIPictograms InSoftBankPictograms InAirEdgePictograms );
10		%EXPORT_TAGS = ( props => [@EXPORT_OK] );
	9	BEGIN {
	10	@EXPORT_OK = qw( InDoCoMoPictograms InKDDIPictograms InSoftBankPictograms InAirEdgePictograms );
	11	%EXPORT_TAGS = ( props => [@EXPORT_OK] );
	12	}
11	13
12	14	use Encode::Alias;

r1510	r1553
3	3	use base qw(Encode::Encoding);
4	4	__PACKAGE__->Define(qw(x-utf8-docomo));
	5	use Encode::JP::Mobile ':props';
5	6
6	7	use Encode::Alias;
…	…
17	18	my($self, $str, $check) = @_;
18	19	my $res = Encode::encode('x-utf8-docomo-pictogram', $str, sub {
19		Encode::encode('utf8', chr shift);
	20	my $code = chr shift;
	21	if ( $check && $code =~ /\p{InDoCoMoPictograms}\|\p{InSoftBankPictograms}\|\p{InKDDIPictograms}\|\p{InAirEdgePictograms}/ ) {
	22	Encode::encode( 'x-utf8-docomo-pictogram', $code, $check );
	23	}
	24	else {
	25	Encode::encode( 'utf8', $code );
	26	}
20	27	});
21	28	$_[1] = $res if $check;

r1510	r1553
1	1	package Encode::JP::Mobile::KDDIUTF8;
2	2	use strict;
	3	use warnings;
3	4	use base qw(Encode::Encoding);
4	5	__PACKAGE__->Define(qw(x-utf8-kddi));
	6	use Encode::JP::Mobile ':props';
5	7
6	8	use Encode::Alias;
…	…
15	17
16	18	sub encode($$;$) {
17		my($self, $str, $check) = @_;
18		my $res = Encode::encode('x-utf8-kddi-pictogram', $str, sub {
19		Encode::encode('utf8', chr shift);
20		});
	19	my ( $self, $str, $check ) = @_;
	20
	21	my $res = Encode::encode(
	22	'x-utf8-kddi-pictogram',
	23	$str,
	24	sub {
	25	my $code = chr shift;
	26	if ( $check && $code =~ /\p{InDoCoMoPictograms}\|\p{InSoftBankPictograms}\|\p{InKDDIPictograms}\|\p{InAirEdgePictograms}/ ) {
	27	Encode::encode( 'x-utf8-kddi-pictogram', $code, $check );
	28	}
	29	else {
	30	Encode::encode( 'utf8', $code );
	31	}
	32	}
	33	);
21	34	$_[1] = $res if $check;
22	35	$res;

r1510	r1553
3	3	use base qw(Encode::Encoding);
4	4	__PACKAGE__->Define(qw(x-utf8-softbank));
	5	use Encode::JP::Mobile ':props';
5	6
6	7	use Encode::Alias;
…	…
16	17	sub encode($$;$) {
17	18	my($self, $str, $check) = @_;
18		my $res = Encode::encode('x-utf8-softbank-pictogram', $str, sub {
19		Encode::encode('utf8', chr shift);
20		});
	19
	20	my $res = Encode::encode( 'x-utf8-softbank-pictogram', $str, sub {
	21	my $code = chr shift;
	22	if ( $check && $code =~ /\p{InDoCoMoPictograms}\|\p{InSoftBankPictograms}\|\p{InKDDIPictograms}\|\p{InAirEdgePictograms}/ ) {
	23	Encode::encode( 'x-utf8-softbank-pictogram', $code, $check );
	24	}
	25	else {
	26	Encode::encode( 'utf8', $code );
	27	}
	28	}
	29	);
21	30	$_[1] = $res if $check;
22	31	$res;