Message/DOM/CSSStyleSheet.pm

package Message::DOM::CSSStyleSheet;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.4 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::IF::CSSStyleSheet';
require Message::DOM::DOMException;
require Scalar::Util;

sub ____new ($;%) {
  my $class = shift;
  my $self = bless \{@_}, $class;
  for (@{$$self->{css_rules}}) {
    ${$_}->{parent_style_sheet} = $self;
    Scalar::Util::weaken (${$_}->{parent_style_sheet});
  }
  return $self;
} # ____new

sub AUTOLOAD {
  my $method_name = our $AUTOLOAD;
  $method_name =~ s/.*:://;
  return if $method_name eq 'DESTROY';

  if ({
    ## Read-only attributes (trivial accessors)
    href => 1,
    owner_node => 1,
    owner_rule => 1,
    parent_style_sheet => 1,
    type => 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

## |StyleSheet| attributes

sub disabled ($;$) {
  if (@_ > 1) {
    if ($_[1]) {
      ${$_[0]}->{disabled} = 1;
    } else {
      delete ${$_[0]}->{disabled};
    }
  }
  return ${$_[0]}->{disabled};
} # disabled

sub href ($);

sub media ($;$) {
  if (@_ > 1) {
    local $Error::Depth = $Error::Depth + 1;
    ${+shift}->{media}->media_text (@_);
  }
  return ${$_[0]}->{media};
} # media

sub owner_node ($);

sub parent_style_sheet ($);

sub title ($;$) {
  if (@_ > 1) {
    if (defined $_[1]) {
      ${$_[0]}->{title} = ''.$_[1];
    } else {
      delete ${$_[0]}->{title};
    }
  }
  return ${$_[0]}->{title};
} # title

sub type ($);

## |CSSStyleSheet| attributes

sub css_rules ($) {
  require Message::DOM::CSSRuleList;
  return bless \\($_[0]), 'Message::DOM::CSSRuleList';
} # css_rules

## NOTE: This is a manakai extension.
sub css_text ($;$) {
  ## TODO: setter

  my $r = '';
  local $Error::Depth = $Error::Depth + 1;
  for my $rule (@{$_[0]->css_rules}) {
    $r .= $rule->css_text . "\n"; ## TODO: \x0D\x0A? \x0A?
  }
  return $r;
} # css_text

sub owner_rule ($);

## |CSSStyleSheet| methods

sub delete_rule ($$) {
  if ($_[1] < 0 or $_[1] > @{${$_[0]}->{css_rules}}) {
    report Message::DOM::DOMException
        -object => $_[0],
        -type => 'INDEX_SIZE_ERR',
        -subtype => 'INDEX_OUT_OF_BOUND_ERR';
  } else {
    my $rule = ${$_[0]}->{css_rules}->[$_[1]];
    delete $rule->{parent_rule};
    delete ${$_[0]}->{css_rules}->[$_[1]];
  }
} # delete_rule

## TODO: insert_rule

## TODO: Documentation
sub manakai_is_default_namespace ($$) {
  my $uri = $_[1];
  for my $rule (@{$_[0]->css_rules}) {
    next if $rule->type == 2 or $rule->type == 3; # CHARSET_RULE or IMPORT_RULE
    return 0 if $rule->type != 7; # NAMESPACE_RULE

    ## TODO: Can we insert NAMESPACE_RULE after other kinds of rules
    ## by insert_rule?

    if ($uri eq $rule->namespace_uri) {
      return 1 if $rule->prefix eq '';
    }
  }

  return 0;
} # manakai_is_default_namespace

## TODO: Documentation
sub manakai_lookup_namespace_prefix ($$) {
  my $uri = $_[1];
  for my $rule (@{$_[0]->css_rules}) {
    next if $rule->type == 2 or $rule->type == 3; # CHARSET_RULE or IMPORT_RULE
    return undef if $rule->type != 7; # NAMESPACE_RULE

    ## TODO: Can we insert NAMESPACE_RULE after other kinds of rules
    ## by insert_rule?

    if ($uri eq $rule->namespace_uri) {
      my $prefix = $rule->prefix;
      return $prefix if $prefix ne '';
    }
  }

  return undef;
} # manakai_lookup_namespace_prefix

package Message::IF::StyleSheet;
package Message::IF::CSSStyleSheet;

1;
## $Date: 2007/12/23 11:20:08 $
1	package Message::DOM::CSSStyleSheet;
2	use strict;
3	our $VERSION=do{my @r=(q$Revision: 1.4 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4	push our @ISA, 'Message::IF::CSSStyleSheet';
5	require Message::DOM::DOMException;
6	require Scalar::Util;
7
8	sub ____new ($;%) {
9	my $class = shift;
10	my $self = bless \{@_}, $class;
11	for (@{$$self->{css_rules}}) {
12	${$_}->{parent_style_sheet} = $self;
13	Scalar::Util::weaken (${$_}->{parent_style_sheet});
14	}
15	return $self;
16	} # ____new
17
18	sub AUTOLOAD {
19	my $method_name = our $AUTOLOAD;
20	$method_name =~ s/.*:://;
21	return if $method_name eq 'DESTROY';
22
23	if ({
24	## Read-only attributes (trivial accessors)
25	href => 1,
26	owner_node => 1,
27	owner_rule => 1,
28	parent_style_sheet => 1,
29	type => 1,
30	}->{$method_name}) {
31	no strict 'refs';
32	eval qq{
33	sub $method_name (\$) {
34	return \${\$_[0]}->{$method_name};
35	}
36	};
37	goto &{ $AUTOLOAD };
38	} else {
39	require Carp;
40	Carp::croak (qq<Can't locate method "$AUTOLOAD">);
41	}
42	} # AUTOLOAD
43
44	## \|StyleSheet\| attributes
45
46	sub disabled ($;$) {
47	if (@_ > 1) {
48	if ($_[1]) {
49	${$_[0]}->{disabled} = 1;
50	} else {
51	delete ${$_[0]}->{disabled};
52	}
53	}
54	return ${$_[0]}->{disabled};
55	} # disabled
56
57	sub href ($);
58
59	sub media ($;$) {
60	if (@_ > 1) {
61	local $Error::Depth = $Error::Depth + 1;
62	${+shift}->{media}->media_text (@_);
63	}
64	return ${$_[0]}->{media};
65	} # media
66
67	sub owner_node ($);
68
69	sub parent_style_sheet ($);
70
71	sub title ($;$) {
72	if (@_ > 1) {
73	if (defined $_[1]) {
74	${$_[0]}->{title} = ''.$_[1];
75	} else {
76	delete ${$_[0]}->{title};
77	}
78	}
79	return ${$_[0]}->{title};
80	} # title
81
82	sub type ($);
83
84	## \|CSSStyleSheet\| attributes
85
86	sub css_rules ($) {
87	require Message::DOM::CSSRuleList;
88	return bless \\($_[0]), 'Message::DOM::CSSRuleList';
89	} # css_rules
90
91	## NOTE: This is a manakai extension.
92	sub css_text ($;$) {
93	## TODO: setter
94
95	my $r = '';
96	local $Error::Depth = $Error::Depth + 1;
97	for my $rule (@{$_[0]->css_rules}) {
98	$r .= $rule->css_text . "\n"; ## TODO: \x0D\x0A? \x0A?
99	}
100	return $r;
101	} # css_text
102
103	sub owner_rule ($);
104
105	## \|CSSStyleSheet\| methods
106
107	sub delete_rule ($$) {
108	if ($_[1] < 0 or $_[1] > @{${$_[0]}->{css_rules}}) {
109	report Message::DOM::DOMException
110	-object => $_[0],
111	-type => 'INDEX_SIZE_ERR',
112	-subtype => 'INDEX_OUT_OF_BOUND_ERR';
113	} else {
114	my $rule = ${$_[0]}->{css_rules}->[$_[1]];
115	delete $rule->{parent_rule};
116	delete ${$_[0]}->{css_rules}->[$_[1]];
117	}
118	} # delete_rule
119
120	## TODO: insert_rule
121
122	## TODO: Documentation
123	sub manakai_is_default_namespace ($$) {
124	my $uri = $_[1];
125	for my $rule (@{$_[0]->css_rules}) {
126	next if $rule->type == 2 or $rule->type == 3; # CHARSET_RULE or IMPORT_RULE
127	return 0 if $rule->type != 7; # NAMESPACE_RULE
128
129	## TODO: Can we insert NAMESPACE_RULE after other kinds of rules
130	## by insert_rule?
131
132	if ($uri eq $rule->namespace_uri) {
133	return 1 if $rule->prefix eq '';
134	}
135	}
136
137	return 0;
138	} # manakai_is_default_namespace
139
140	## TODO: Documentation
141	sub manakai_lookup_namespace_prefix ($$) {
142	my $uri = $_[1];
143	for my $rule (@{$_[0]->css_rules}) {
144	next if $rule->type == 2 or $rule->type == 3; # CHARSET_RULE or IMPORT_RULE
145	return undef if $rule->type != 7; # NAMESPACE_RULE
146
147	## TODO: Can we insert NAMESPACE_RULE after other kinds of rules
148	## by insert_rule?
149
150	if ($uri eq $rule->namespace_uri) {
151	my $prefix = $rule->prefix;
152	return $prefix if $prefix ne '';
153	}
154	}
155
156	return undef;
157	} # manakai_lookup_namespace_prefix
158
159	package Message::IF::StyleSheet;
160	package Message::IF::CSSStyleSheet;
161
162	1;
163	## $Date: 2007/12/23 11:20:08 $