Mercurial > pub > Impl
diff Lib/IMPL/Serialization.pm @ 180:d1676be8afcc
Перекодировка в utf-8
author | sourcer |
---|---|
date | Fri, 30 Dec 2011 23:40:00 +0300 |
parents | 4267a2ac3d46 |
children | 4d0e1962161c |
line wrap: on
line diff
--- a/Lib/IMPL/Serialization.pm Tue Dec 20 23:00:30 2011 +0300 +++ b/Lib/IMPL/Serialization.pm Fri Dec 30 23:40:00 2011 +0300 @@ -2,8 +2,8 @@ use strict; # 20060222 -# ������ ��� ������������ �������� ������ -# (�) Sourcer, cin.sourcer@gmail.com +# ������ ��� ������������ �������� ������ +# (�) Sourcer, cin.sourcer@gmail.com # revision 3 (20090517) @@ -16,24 +16,24 @@ use Scalar::Util qw(refaddr); BEGIN { - private _direct property ObjectWriter => prop_all; # ������, ������������ ������ � ����� - private _direct property Context => prop_all; # �������� (������� ������� ��� �������������, �� ��������������) - private _direct property NextID => prop_all;# ��������� ������������� ��� ������� + private _direct property ObjectWriter => prop_all; # ������, ������������ ������ � ����� + private _direct property Context => prop_all; # �������� (������� ������� ��� �������������, �� ��������������) + private _direct property NextID => prop_all;# ��������� ������������� ��� ������� - # ���������, ������� �����, ��� ��������������� ������������ ����. ������ ���������� - # �������� ������ �� IMPL::Serialization::Context, ������ ���������� ������ �� ������ + # ���������, ������� �����, ��� ��������������� ������������ ����. ������ ���������� + # �������� ������ �� IMPL::Serialization::Context, ������ ���������� ������ �� ������ public _direct property Serializer => prop_all; - private _direct property State => prop_all; # ��������� ��������� ������������ + private _direct property State => prop_all; # ��������� ��������� ������������ } -# �������� ������, �.�. ������� ������ �� ����� +# �������� ������, �.�. ������� ������ �� ����� sub STATE_CLOSED () { 0 } -# �������� ������, �.�. ������ �����, �� � ��� ��� ������ �� ����� +# �������� ������, �.�. ������ �����, �� � ��� ��� ������ �� ����� sub STATE_OPENED () { 1 } -# �������� ������ � � ���� ����� ���� ��������� ������ ���������� +# �������� ������ � � ���� ����� ���� ��������� ������ ���������� sub STATE_COMPLEX () { 2 } -# �������� ������ � � ���� ��� ������ �� ����� ���� ���������, ��� ����� ������ +# �������� ������ � � ���� ��� ������ �� ����� ���� ���������, ��� ����� ������ sub STATE_DATA () { 3 } sub CTOR { @@ -54,8 +54,8 @@ die new Exception ('Invalid operation') if $this->{$State} == STATE_DATA; if (not ref $Var) { - # ������� ����������� ��, ��� �����, �� ��� ���� ����, ����� �������, ������� ���� - # �� �� ������, �� �������� ��������������, �� �� �� ����� + # ������� ����������� ��, ��� �����, �� ��� ���� ����, ����� �������, ������� ���� + # �� �� ������, �� �������� ��������������, �� �� �� ����� my $prevState = $this->{$State}; $this->{$ObjectWriter}->BeginObject(name => $sName);#, type => 'SCALAR'); @@ -148,10 +148,10 @@ use IMPL::Exception; BEGIN { - # ��� ����������������� �������, ���, ���� - �������������, �������� - ������. + # ��� ����������������� �������, ���, ���� - �������������, �������� - ������. private _direct property Context => prop_all; - # ������� ������. ���������� ��� �������������� + # ������� ������. ���������� ��� �������������� # { # Type => 'typename', # Name => 'object_name', @@ -160,24 +160,24 @@ # } private _direct property CurrentObject => prop_all; - # ���� ��������. ���� ����������� �������� �������� �� ���� ���������� ����� ��������. + # ���� ��������. ���� ����������� �������� �������� �� ���� ���������� ����� ��������. private _direct property ObjectsPath => prop_all; - # ���� ������� ������ ����� �������� + # ���� ������� ������ ����� �������� public _direct property Root => prop_get; - # ������� ������ � ���������� �� ���� ������ + # ������� ������ � ���������� �� ���� ������ # ObjectFactory($Type,$DeserializationData,$refSurogate) - # $Type - ��� ���� ������ - # $DeserializationData - ���� ������ �� ������ � ������� ��� �������������� �����, - # ���� ������ ���������� ������. - # $refSurogate - ������ �� �������������� ���������, �� ������������������ ������. - # ����� ��������� �������� undef + # $Type - ��� ���� ������ + # $DeserializationData - ���� ������ �� ������ � ������� ��� �������������� �����, + # ���� ������ ���������� ������. + # $refSurogate - ������ �� �������������� ���������, �� ������������������ ������. + # ����� ��������� �������� undef private _direct property ObjectFactory => prop_all; - # ������� �������������������� �������. + # ������� �������������������� �������. # SurogateHelper($Type) - # $Type ��� �����, ��� ������� ����� �������. + # $Type ��� �����, ��� ������� ����� �������. private _direct property SurrogateHelper => prop_all; } @@ -209,7 +209,7 @@ $rhCurrentObj->{'Data'} = [$name,$refObj]; } - # ��� �����, ��� ����� ������ OnObjectEnd ��� �������, ������� ��� ������� �������. �.�. �� �� ������� ���� + # ��� �����, ��� ����� ������ OnObjectEnd ��� �������, ������� ��� ������� �������. �.�. �� �� ������� ���� push @{$this->{$ObjectsPath}},$rhCurrentObj; $this->{$CurrentObject} = undef; @@ -253,8 +253,8 @@ my $rhObject = $this->{$CurrentObject}; my $rhPrevObject = pop @{$this->{$ObjectsPath}}; - # ���� ������� ������ �� ���������, � ���������� - ���������, ������ ������� - ��� ������ - # ������ ��������������� ���������� � ������� � ������ ����� �� ������ + # ���� ������� ������ �� ���������, � ���������� - ���������, ������ ������� - ��� ������ + # ������ ��������������� ���������� � ������� � ������ ����� �� ������ if ((not defined($rhObject)) && $rhPrevObject) { $this->{$CurrentObject} = $rhPrevObject; return 1;