generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-23 00:08:01 +02:00
Code Issues Projects Releases Wiki Activity

perl: modify internal names for the next refactoring

Browse Source
This commit is contained in:
Fuji, Goro
2010-10-30 00:31:41 +09:00
parent f1c294ca50
commit 6a9cb51828
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
perl/lib/Data/MessagePack/PP.pm
View File

@@ -423,7 +423,11 @@ package
Data::MessagePack::PP::Unpacker; Data::MessagePack::PP::Unpacker;
sub new { sub new {
bless { pos => 0, utf8 => 0 }, shift; bless {
pos => 0,
utf8 => 0,
buff => '',
}, shift;
} }
sub utf8 { sub utf8 {
@@ -447,13 +451,13 @@ sub execute {
my $value = substr( $data, $offset, $limit ? $limit : length $data ); my $value = substr( $data, $offset, $limit ? $limit : length $data );
my $len = length $value; my $len = length $value;
$self->{data} .= $value; $self->{buff} .= $value;
local $self->{stack} = []; local $self->{stack} = [];
$p = 0; $p = 0;
while ( length($self->{data}) > $p ) { while ( length($self->{buff}) > $p ) {
_count( $self, $self->{data} ) or last; _count( $self, $self->{buff} ) or last;
while ( @{ $self->{stack} } > 0 && --$self->{stack}->[-1] == 0) { while ( @{ $self->{stack} } > 0 && --$self->{stack}->[-1] == 0) {
pop @{ $self->{stack} }; pop @{ $self->{stack} };
@@ -568,7 +572,7 @@ sub _count {
sub data { sub data {
my($self) = @_; my($self) = @_;
local $Data::MessagePack::PP::_utf8 = $self->{utf8}; local $Data::MessagePack::PP::_utf8 = $self->{utf8};
return Data::MessagePack->unpack( substr($self->{ data }, 0, $self->{pos}) ); return Data::MessagePack->unpack( substr($self->{buff}, 0, $self->{pos}) );
} }
@@ -578,7 +582,7 @@ sub is_finished {
} }
sub reset :method { sub reset :method {
$_[0]->{ data } = undef; $_[0]->{buff} = '';
$_[0]->{pos} = 0; $_[0]->{pos} = 0;
$_[0]->{is_finished} = 0; $_[0]->{is_finished} = 0;
} }