Mercurial > pub > Impl

annotate Lib/IMPL/Object/Abstract.pm @ 329:50ff1595bd62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed bug when transforming list properties
author sergey
date Mon, 03 Jun 2013 18:03:54 +0400
parents c6d0f889ef87
children 97628101b765
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
1 package IMPL::Object::Abstract;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
4
166
4267a2ac3d46 Added Class::Template,
wizard
parents: 164
diff changeset
5 use parent qw(IMPL::Class::Meta);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
6
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
7 our $MemoryLeakProtection;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
8 my $Cleanup = 0;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
9
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
10 my %cacheCTOR;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
11
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
12 my $t = 0;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
13 sub cache_ctor {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
14 my $class = shift;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
15
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
16 no strict 'refs';
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
17 my @sequence;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
18
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
19 my $refCTORS = *{"${class}::CTOR"}{HASH};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
20
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
21 foreach my $super ( @{"${class}::ISA"} ) {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
22 my $superSequence = $cacheCTOR{$super} || cache_ctor($super);
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
23
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
24 my $mapper = $refCTORS ? $refCTORS->{$super} : undef;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
25 if (ref $mapper eq 'CODE') {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
26 if ($mapper == *_pass_through_mapper{CODE}) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
27 push @sequence,@$superSequence;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
28 } else {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
29 push @sequence, sub {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
30 my $this = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
31 $this->$_($mapper->(@_)) foreach @$superSequence;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
32 } if @$superSequence;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
33 }
197
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions
sergey
parents: 194
diff changeset
34 } elsif ($mapper and not ref $mapper and $mapper eq '@_') {
6b1dda998839 Added IMPL::declare, IMPL::require, to simplify module definitions
sergey
parents: 194
diff changeset
35 push @sequence,@$superSequence;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
36 } else {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
37 warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
38 push @sequence, sub {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
39 my $this = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
40 $this->$_() foreach @$superSequence;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
41 } if @$superSequence;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
42 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
43 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
44
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
45 push @sequence, *{"${class}::CTOR"}{CODE} if *{"${class}::CTOR"}{CODE};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
46
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
47 $cacheCTOR{$class} = \@sequence;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
48 return \@sequence;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
49 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
50
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 63
diff changeset
51 sub dump_ctor {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
52 my ($self) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
53 $self = ref $self || $self;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
54
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
55 warn "dumping $self .ctor";
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
56 warn "$_" foreach @{$cacheCTOR{$self}||[]};
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 63
diff changeset
57 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 63
diff changeset
58
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
59 sub callCTOR {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
60 my $self = shift;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
61 my $class = ref $self;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
62
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
63 $self->$_(@_) foreach @{$cacheCTOR{$class} || cache_ctor($class)};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
64 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
65
273
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
66 sub _init_dtor {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
67 my ($class) = @_;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
68
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
69 no strict 'refs';
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
70
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
71 # avoid warnings for classes without destructors
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
72 no warnings 'once';
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
73
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
74 my @dtors;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
75
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
76 my @hierarchy = ($class);
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
77 my %visited;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
78
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
79 while(my $subclass = shift @hierarchy) {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
80 if(*{"${subclass}::DTOR"}{CODE}) {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
81 push @dtors, *{"${subclass}::DTOR"}{CODE};
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
82 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
83
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
84 push @hierarchy, @{"${subclass}::ISA"};
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
85 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
86
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
87 if (@dtors) {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
88
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
89 return *{"${class}::callDTOR"} = sub {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
90 my ($self) = @_;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
91 my $selfClass = ref $self;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
92 if ($selfClass ne $class) {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
93 goto &{$selfClass->_init_dtor()};
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
94 } else {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
95 map $_->($self), @dtors;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
96 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
97 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
98
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
99 } else {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
100 return *{"${class}::callDTOR"} = sub {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
101 my $self = ref $_[0];
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
102
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
103 goto &{$self->_init_dtor()} unless $self eq $class;
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
104 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
105 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
106 }
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
107
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
108 __PACKAGE__->_init_dtor();
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
109
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
110 sub toString {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
111 my $self = shift;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
112
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
113 return (ref $self || $self);
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
114 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
115
280
c6d0f889ef87 +IMPL::declare now supports meta attributes
cin
parents: 276
diff changeset
116 sub _typeof {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
117 ref $_[0] || $_[0];
93
0667064553ef fixed _is_class in activator
wizard
parents: 90
diff changeset
118 }
0667064553ef fixed _is_class in activator
wizard
parents: 90
diff changeset
119
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
120 sub isDisposed {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
121 0;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
122 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
123
273
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
124 sub DESTROY {
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
125 shift->callDTOR();
ad93c9f4dd93 +Added support for destructors, (special method named DTOR)
sergey
parents: 197
diff changeset
126 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
127
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
128 sub END {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
129 $Cleanup = 1;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
130 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
131
174
d920d2b70230 minor changes
sergey
parents: 166
diff changeset
132 sub _pass_through_mapper {
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
133 @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
134 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
135
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
136 sub PassArgs {
174
d920d2b70230 minor changes
sergey
parents: 166
diff changeset
137 \&_pass_through_mapper;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
138 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
139
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
140 sub PassThroughArgs {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
141 my $class = shift;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
142 $class = ref $class || $class;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
143 no strict 'refs';
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
144 no warnings 'once';
174
d920d2b70230 minor changes
sergey
parents: 166
diff changeset
145 ${"${class}::CTOR"}{$_} = \&_pass_through_mapper foreach @{"${class}::ISA"};
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
146 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
147
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
148 package self;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
149
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
150 our $AUTOLOAD;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
151 sub AUTOLOAD {
108
c6fb6964de4c Removed absolute modules
wizard
parents: 93
diff changeset
152 goto &{caller(). substr $AUTOLOAD,6};
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
153 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
154
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
155 package supercall;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
156
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
157 our $AUTOLOAD;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
158 sub AUTOLOAD {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
159 my $sub;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
160 my $methodName = substr $AUTOLOAD,11;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
161 no strict 'refs';
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
162 $sub = $_->can($methodName) and $sub->(@_) foreach @{caller().'::ISA'};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
163 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
164
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
165 1;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
166
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
167 __END__
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
168
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
169 =pod
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
170 =head1 SYNOPSIS
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
171
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
172 package MyBaseObject;
166
4267a2ac3d46 Added Class::Template,
wizard
parents: 164
diff changeset
173 use parent qw(IMPL::Object::Abstract);
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
174
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
175 sub new {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
176 # own implementation of the new opeator
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
177 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
178
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
179 sub surrogate {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
180 # own implementation of the surrogate operator
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
181 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
182
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 49
diff changeset
183 =head1 DESCRIPTION
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
184
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 174
diff changeset
185 Реализация механизма вызова конструкторов и других вспомогательных вещей, кроме операторов
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 174
diff changeset
186 создания экземпляров.
276
8a5da17d7ef9 *IMPL::Class refactoring property definition mechanism (incomplete).
sergey
parents: 273
diff changeset
187
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 33
diff changeset
188 =cut