SADAHIRO / String-Multibyte-1.03 / Multibyte / Big5Plus.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
—
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
package String::Multibyte::Big5Plus;
use vars qw($VERSION);
$VERSION = '1.02';
+{
    charset  => 'Big-5 Plus',
    regexp   => '(?:[\x00-\x7F]|[\x81-\xFE][\x40-\x7E\x80-\xFE])',
    cmpchar => sub { $_[0] cmp $_[1] },
    nextchar => sub {
        my $ch = shift;
        my $len = length $ch;
        if ($len < 1 || 2 < $len) {
            return undef;
        }
        elsif ($len == 1) {
            return $ch eq "\x7F"
                ? "\x81\x40"
                : chr(ord($ch)+1);
        }
        else {
            my($c, $d) = unpack('CC', $ch);
            return $ch eq "\xFE\xFE"
                ? undef
                : $d == 0xFE
                    ? chr($c+1)."\x40"
                    : $d == 0x7E
                        ? chr($c)."\x80"
                        : pack('CC', $c, $d+1);
        }
    },
};
__END__
=head1 NAME
String::Multibyte::Big5Plus - internally used by String::Multibyte
for Big-5 Plus
=head1 SYNOPSIS
    use String::Multibyte;
    $big5p = String::Multibyte->new('Big5Plus');
    $big5p_length = $big5p->length($big5p_string);
=head1 DESCRIPTION
C<String::Multibyte::Big5Plus> is used for manipulation of strings
in Big-5 Plus.
Byte range of single-byte characters:
C<0x00..0x7F>.
Leading byte range of double-byte characters:
C<0x81..0xFE>.
Trailing byte range of double-byte characters:
C<0x40..0x7E> and C<0x80..0xFE>.
Character order (invalid code points are excluded):
C<0x00..0x7F>, C<0x8140..0xFEFE>
=head1 SEE ALSO
L<String::Multibyte>
=cut