root/lang/perl/Acme-Encode-WhiteSpace8/trunk/lib/Acme/Encode/WhiteSpace8.pm @ 18389

package Acme::Encode::WhiteSpace8;

use strict;
use warnings;
use base qw(Encode::Encoding);
use utf8;

our $VERSION = '0.01';

__PACKAGE__->Define('WHITESPACE-8');

our $OPTIONAL_DIRECT_CHARS = 1;
my $specials = quotemeta "\'(),-./:?";
$OPTIONAL_DIRECT_CHARS
    and $specials .= quotemeta "!\"#$%&*;<=>@[]^_`{|}";

my %whitespaces2bit = (
    "\t" => "00",
    "\r" => "01",
    "\n" => "10",
    " "  => "11",
);
my %bit2whitespaces = map { $whitespaces2bit{$_} => $_ } keys %whitespaces2bit;

sub encode($$;$) {
    my ($obj, $str, $chk) = @_;

    my $bytes = Encode::encode('utf8', $str);
    my $bits = unpack('B*', $bytes);
    $bits =~ s/([01][01])/$bit2whitespaces{$1}/g;
    $bits;
}

sub decode($$;$) {
    my ($obj, $bytes, $chk) = @_;
    return '' unless $bytes;
    return $bytes unless $bytes =~ /^[\t\r\n ]{4,}$/;

    my @bits = map {
        $whitespaces2bit{$_}
    } split //, $bytes;

    my $ret = '';
    while (my @byte = splice @bits, 0, 4) {
        $ret .= pack('B8', join '', @byte);
    }

    $ret;
}


1;
__END__

=encoding utf8

=head1 NAME

Acme::Encode::WhiteSpace8 -

=head1 SYNOPSIS

  use Acme::Encode::WhiteSpace8;

=head1 DESCRIPTION

Acme::Encode::WhiteSpace8 is

=head1 AUTHOR

Kazuhiro Osawa E<lt>ko@yappo.ne.jpE<gt>

=head1 SEE ALSO

=head1 REPOSITORY

  svn co http://svn.coderepos.org/share/lang/perl/Acme-Encode-WhiteSpace8/trunk Acme-Encode-WhiteSpace8

Acme::Encode::WhiteSpace8 is Subversion repository is hosted at L<http://coderepos.org/share/>.
patches and collaborators are welcome.

=head1 LICENSE

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

=cut