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

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 @whitespaces = (' ', "\t");
my %whitespaces = do {
    my $i = 0;
    map { $_ => $i++ } @whitespaces;
};

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

    my $bytes = Encode::encode('utf8', $str);

    my @spaces = ();
    for my $byte (split //, $bytes) {
        push @spaces, map {
            $whitespaces[$_]
        } split //, unpack('B*', $byte);
    }

    my $ret = join '', @spaces;
    return '' unless $ret;

    Encode::encode('utf8', $whitespaces[0]x8 . $ret . $whitespaces[1]x8);
}

sub decode($$;$) {
    my ($obj, $bytes, $chk) = @_;
    return '' unless $bytes;

    $bytes = Encode::decode('utf8', $bytes);
    return $bytes unless $bytes =~ /^        ([ \t]{8,})\t\t\t\t\t\t\t\t$/;
    my $body = $1;

    my @bits = grep { defined $_ } map {
        $whitespaces{$_}
    } split //, $body;
    warn join('', @bits, "\n");

    my $ret = '';
    while (my @byte = splice @bits, 0, 8) {
        $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