YSAS / SWF-File-0.10 / lib / SWF / BinStream / Codec / Zlib.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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

              
package SWF::BinStream::Codec::Zlib;
use strict;
$SWF::BinStream::Codec::Zlib::VERSION = "0.01";
package SWF::BinStream::Codec::Zlib::Read;
use Compress::Zlib;
use Carp;
sub new {
    my $z = inflateInit() or croak "Can't create zlib stream";
    bless \$z, shift;
}
sub decode {
    my ($self, $data) = @_;
    my ($out, $status) = $$self->inflate(\$data);
    defined $out or croak "Zlib raised an error $status";
    $out;
}
sub close {
}
package SWF::BinStream::Codec::Zlib::Write;
use Compress::Zlib;
use Carp;
sub new {
    my $z = deflateInit() or croak "Can't create zlib stream ";
    bless \$z, shift;
}
sub encode {
    my ($self, $data) = @_;
    my ($out, $status) = $$self->deflate(\$data);
    defined $out or croak "Zlib raised an error $status (wm)";
    $out;
}
sub close {
    my ($self, $data) = @_;
    my $z = $$self;
    my ($out, $out1, $status);
    if ($data ne '') {
        ($out, $status) = $z->deflate(\$data);
        defined $out or croak "Zlib raised an error $status (wc1)";
    }
    ($out1, $status) = $z->flush;
    defined $out1 or croak "Zlib raised an error $status (wc2)";
    $out .= $out1;
}
1;
__END__
=head1 NAME
SWF::BinStream::Codec::Zlib - SWF::BinStream codec to add zlib-compression/decompression.
=head1 SYNOPSIS
  use SWF::BinStream;
  ..
  $stream->add_codec('Zlib');
=head1 DESCRIPTION
This is a module for SWF::BinStream to add zlib-compression/decompression.
=head1 COPYRIGHT
Copyright 2002 Yasuhiro Sasama (ySas), <ysas@nmt.ne.jp>
This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<SWF::BinStream>, L<SWF::BinStream::Codec>
=cut