2 |
use strict; |
use strict; |
3 |
our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
4 |
push our @ISA, 'Message::IF::CSSRule'; |
push our @ISA, 'Message::IF::CSSRule'; |
5 |
|
require Scalar::Util; |
6 |
|
|
7 |
## |CSSRule| constants |
## |CSSRule| constants |
8 |
|
|
14 |
sub PAGE_RULE () { 6 } |
sub PAGE_RULE () { 6 } |
15 |
sub NAMESPACE_RULE () { 7 } |
sub NAMESPACE_RULE () { 7 } |
16 |
|
|
|
sub AUTOLOAD { |
|
|
my $method_name = our $AUTOLOAD; |
|
|
$method_name =~ s/.*:://; |
|
|
return if $method_name eq 'DESTROY'; |
|
|
|
|
|
if ({ |
|
|
## Read-only attributes (trivial accessors) |
|
|
parent_rule => 1, |
|
|
parent_style_sheet => 1, |
|
|
}->{$method_name}) { |
|
|
no strict 'refs'; |
|
|
eval qq{ |
|
|
sub $method_name (\$) { |
|
|
return \${\$_[0]}->{$method_name}; |
|
|
} |
|
|
}; |
|
|
goto &{ $AUTOLOAD }; |
|
|
} else { |
|
|
require Carp; |
|
|
Carp::croak (qq<Can't locate method "$AUTOLOAD">); |
|
|
} |
|
|
} # AUTOLOAD |
|
|
|
|
17 |
## |CSSRule| attributes |
## |CSSRule| attributes |
18 |
|
|
19 |
sub css_text ($) { |
sub css_text ($) { |
20 |
die "$0: ".(ref $self)."->css_text: Not implemented"; |
die "$0: ".(ref $_[0])."->css_text: Not implemented"; |
21 |
} # css_text |
} # css_text |
22 |
|
|
23 |
sub parent_rule ($); |
sub parent_rule ($) { |
24 |
|
return ${$_[0]}->{parent_rule}; |
25 |
sub parent_style_sheet ($); |
} # parent_rule |
26 |
|
|
27 |
|
sub parent_style_sheet ($) { |
28 |
|
if (${$_[0]}->{parent_style_sheet}) { |
29 |
|
return ${$_[0]}->{parent_style_sheet}; |
30 |
|
} elsif (${$_[0]}->{parent_rule}) { |
31 |
|
local $Error::Depth = $Error::Depth + 1; |
32 |
|
return ${$_[0]}->{parent_rule}->parent_style_sheet; |
33 |
|
} else { |
34 |
|
## NOTE: Not in the CSSOM ED: If the |CSSRule| object is not |
35 |
|
## yet associated to any CSS style sheet. Such object should not be |
36 |
|
## returned to applications - that is, the intention is that only |
37 |
|
## modules belonging to manakai may get |undef| from the |
38 |
|
## |parent_style_sheet| attribute during the construction of CSSOM. |
39 |
|
## Therefore, this is not counted as a manakai extension to CSSOM spec. |
40 |
|
return undef; |
41 |
|
} |
42 |
|
} # parent_style_sheet |
43 |
|
|
44 |
sub type ($) { |
sub type ($) { |
45 |
die "$0: ".(ref $self)."->type: Not implemented"; |
die "$0: ".(ref $_[0])."->type: Not implemented"; |
46 |
} # type |
} # type |
47 |
|
|
48 |
package Message::DOM::CSSStyleRule; |
package Message::DOM::CSSStyleRule; |
49 |
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSStyleRule'; |
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSStyleRule'; |
50 |
|
|
51 |
sub ____new ($$$) { |
sub ____new ($$$) { |
52 |
my $self = bless \{_selector => $_[1], style => $_[2]}, $_[0]; |
my $self = bless \{_selectors => $_[1], style => $_[2]}, $_[0]; |
53 |
## TODO: style -> owner |
${$_[2]}->{parent_rule} = $self; |
54 |
|
Scalar::Util::weaken (${$_[2]}->{parent_rule}); |
55 |
return $self; |
return $self; |
56 |
} # ____new |
} # ____new |
57 |
|
|
58 |
## |CSSRule| attributes |
## |CSSRule| attributes |
59 |
|
|
60 |
## TODO: |css_text| |
sub css_text ($;$) { |
61 |
|
## TODO: setter |
62 |
|
|
63 |
|
## TODO: Browser compatibility |
64 |
|
local $Error::Depth = $Error::Depth + 1; |
65 |
|
return $_[0]->selector_text . " {\n" . $_[0]->style->css_text . "}\n"; |
66 |
|
} # css_text |
67 |
|
|
68 |
sub type ($) { Message::DOM::CSSRule::STYLE_RULE } |
sub type ($) { Message::DOM::CSSRule::STYLE_RULE } |
69 |
|
|
70 |
## |CSSStyleRule| attributes |
## |CSSStyleRule| attributes |
71 |
|
|
72 |
## TODO: |selector_text| |
sub selector_text ($;$) { |
73 |
|
## TODO: setter |
74 |
|
|
75 |
|
## TODO: Browser-compatible serializer |
76 |
|
## TODO: This code does not work for cases where default namespace |
77 |
|
## has no namespace prefix declared. |
78 |
|
my $self = $_[0]; |
79 |
|
require Whatpm::CSS::SelectorsSerializer; |
80 |
|
return Whatpm::CSS::SelectorsSerializer->serialize_test |
81 |
|
($$self->{_selectors}, sub { |
82 |
|
## TODO: We should have some caching mechanism, otherwise |
83 |
|
## too many computation for complex selectors in long style sheet. |
84 |
|
return $self->parent_style_sheet->manakai_lookup_namespace_prefix |
85 |
|
($_[0]); |
86 |
|
}); |
87 |
|
} # selector_text |
88 |
|
|
89 |
sub style ($) { |
sub style ($) { |
90 |
return ${$_[0]}->{style}; |
return ${$_[0]}->{style}; |
99 |
|
|
100 |
## |CSSRule| attributes |
## |CSSRule| attributes |
101 |
|
|
102 |
## TODO: |css_text| |
sub css_text ($;$) { |
103 |
|
## TODO: setter |
104 |
|
|
105 |
|
## NOTE: It will be broken if |encoding| contains |"| or |\|, but this |
106 |
|
## is what browsers do. |
107 |
|
return '@charset "'.${$_[0]}->{encoding}.'";'; |
108 |
|
} # css_text |
109 |
|
|
110 |
sub type ($) { Message::DOM::CSSRule::CHARSET_RULE } |
sub type ($) { Message::DOM::CSSRule::CHARSET_RULE } |
111 |
|
|
120 |
|
|
121 |
sub ____new ($$$$) { |
sub ____new ($$$$) { |
122 |
my $self = bless \{href => $_[1], media => $_[2], style_sheet => $_[3]}, $_[0]; |
my $self = bless \{href => $_[1], media => $_[2], style_sheet => $_[3]}, $_[0]; |
123 |
## TODO: $_[3] owner_style_sheet |
${$_[3]}->{owner_rule} = $self; |
124 |
|
Scalar::Util::weaken (${$_[3]}->{owner_rule}); |
125 |
return $self; |
return $self; |
126 |
} # ____new |
} # ____new |
127 |
|
|
151 |
sub ____new ($$$) { |
sub ____new ($$$) { |
152 |
my $self = bless \{media => $_[1], css_rules => $_[2]}, $_[0]; |
my $self = bless \{media => $_[1], css_rules => $_[2]}, $_[0]; |
153 |
for (@{$_[2]}) { |
for (@{$_[2]}) { |
154 |
## TODO: owner_rule |
${$_}->{parent_rule} = $self; |
155 |
|
Scalar::Util::weaken (${$_}->{parent_rule}); |
156 |
} |
} |
157 |
return $self; |
return $self; |
158 |
} # ____new |
} # ____new |
179 |
|
|
180 |
sub ____new ($$) { |
sub ____new ($$) { |
181 |
my $self = bless \{style => $_[1]}, $_[0]; |
my $self = bless \{style => $_[1]}, $_[0]; |
182 |
|
${$_[2]}->{parent_rule} = $self; |
183 |
|
Scalar::Util::weaken (${$_[2]}->{parent_rule}); |
184 |
|
return $self; |
185 |
} # ____new |
} # ____new |
186 |
|
|
187 |
## |CSSRule| attributes |
## |CSSRule| attributes |
200 |
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSPageRule'; |
push our @ISA, 'Message::DOM::CSSRule', 'Message::IF::CSSPageRule'; |
201 |
|
|
202 |
sub ____new ($$$) { |
sub ____new ($$$) { |
203 |
my $self = bless \{_selector => $_[1], style => $_[2]}, $_[0]; |
my $self = bless \{_selectors => $_[1], style => $_[2]}, $_[0]; |
204 |
## TODO: style -> owner |
${$_[2]}->{parent_rule} = $self; |
205 |
|
Scalar::Util::weaken (${$_[2]}->{parent_rule}); |
206 |
return $self; |
return $self; |
207 |
} # ____new |
} # ____new |
208 |
|
|
214 |
|
|
215 |
## |CSSPageRule| attributes |
## |CSSPageRule| attributes |
216 |
|
|
217 |
## TODO: |selector_text| |
sub selector_text ($;$) { |
218 |
|
## TODO: setter |
219 |
|
|
220 |
|
## TODO: Browser-compatible serializer |
221 |
|
require Whatpm::CSS::SelectorsSerializer; |
222 |
|
return Whatpm::CSS::SelectorsSerializer->serialize_test (${$_[0]}->{_selectors}); |
223 |
|
} # selector_text |
224 |
|
|
225 |
sub style ($) { |
sub style ($) { |
226 |
return ${$_[0]}->{style}; |
return ${$_[0]}->{style}; |
235 |
|
|
236 |
## |CSSRule| attributes |
## |CSSRule| attributes |
237 |
|
|
238 |
## TODO: |css_text| |
sub css_text ($;$) { |
239 |
|
## TODO: Setter |
240 |
|
|
241 |
|
## NOTE: Sometimes ugly, but this is what Firefox does. |
242 |
|
my $prefix = ${$_[0]}->{prefix}; |
243 |
|
return '@namespace '.($prefix ne '' ? $prefix.' ' : ''). |
244 |
|
'url('.${$_[0]}->{namespace_uri}.');'; |
245 |
|
} # css_text |
246 |
|
|
247 |
sub type ($) { Message::DOM::CSSRule::NAMESPACE_RULE } |
sub type ($) { Message::DOM::CSSRule::NAMESPACE_RULE } |
248 |
|
|