Message/DOM/CSSStyleDeclaration.pm

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

sub ____new ($) {
  return bless \{}, $_[0];
} # ____new

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

  require Whatpm::CSS::Parser;
  my $prop_def = $Whatpm::CSS::Parser::Attr->{$method_name};

  if ($prop_def) {
    no strict 'refs';
    *{ $method_name } = sub {
      ## TODO: setter

      my $self = $_[0];
      my $value = $$self->{$prop_def->{key}};
      if ($value) {
        return $prop_def->{serialize}->($self, $prop_def->{css}, $value->[0]);
      } else {
        return undef;
      }
      ## TODO: null? ""? ... if not set?
    };
    goto &{ $AUTOLOAD };
  } else {
    require Carp;
    Carp::croak (qq<Can't locate method "$AUTOLOAD">);
  }
} # AUTOLOAD

## |CSSStyleDeclaration| attributes

sub css_text ($;$) {
  ## TODO: setter

  require Whatpm::CSS::Parser;
  my $self = $_[0];
  my $r = '';
  for (grep {$$self->{$_}} keys %$$self) {
    my $prop_def = $Whatpm::CSS::Parser::Key->{$_};
    next unless $prop_def;
    my $value = $$self->{$_};
    my $s = $prop_def->{serialize}->($self, $prop_def->{css}, $value->[0]);
    if (defined $s) {
      $r .= '  ' . $prop_def->{css} . ': ' . $s;
      $r .= ' !' . $value->[1] if defined $value->[1];
      $r .= ";\n";
    }
  }
  ## TODO: shorthands
  return $r;
} # css_text

sub parent_rule ($) {
  return ${$_[0]}->{parent_rule};
} # parent_rule

## TODO: Implement other methods and attributes

package Message::DOM::CSSComputedStyleDeclaration;
push our @ISA, 'Message::IF::CSSStyleDeclaration';

sub ____new ($$$) {
  my $self = bless \{}, shift;
  $$self->{cascade} = shift; # Whatpm::CSS::Cascade object.
  $$self->{element} = shift; ## TODO: This link should be weaken?
  return $self;
} # ____new

sub css_text ($;$) {
  ## TODO: error if modified

  my $self = shift;
  require Whatpm::CSS::Parser;

  ## TODO: ordering
  ## TODO: any spec?
  my $r = '';
  for my $prop_def (grep {$_->{compute}} values %$Whatpm::CSS::Parser::Prop) {
    my $prop_value = $$self->{cascade}->get_computed_value
        ($$self->{element}, $prop_def->{css});
    my $s = $prop_def->{serialize}->($self, $prop_def->{css}, $prop_value);
    if (defined $s) {
      $r .= '  ' . $prop_def->{css} . ': ' . $s;
      $r .= ";\n";
    } else {
      ## NOTE: This should be an error of the implementation.
      $r .= "  /* $prop_def->{css}: ???; */\n";
    }
  }
  return $r;
} # css_text

## TODO: members

package Message::IF::CSSStyleDeclaration;

1;
## $Date: 2008/01/01 07:06:04 $
1	package Message::DOM::CSSStyleDeclaration;
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::CSSStyleDeclaration';
5
6	sub ____new ($) {
7	return bless \{}, $_[0];
8	} # ____new
9
10	sub AUTOLOAD {
11	my $method_name = our $AUTOLOAD;
12	$method_name =~ s/.*:://;
13	return if $method_name eq 'DESTROY';
14
15	require Whatpm::CSS::Parser;
16	my $prop_def = $Whatpm::CSS::Parser::Attr->{$method_name};
17
18	if ($prop_def) {
19	no strict 'refs';
20	*{ $method_name } = sub {
21	## TODO: setter
22
23	my $self = $_[0];
24	my $value = $$self->{$prop_def->{key}};
25	if ($value) {
26	return $prop_def->{serialize}->($self, $prop_def->{css}, $value->[0]);
27	} else {
28	return undef;
29	}
30	## TODO: null? ""? ... if not set?
31	};
32	goto &{ $AUTOLOAD };
33	} else {
34	require Carp;
35	Carp::croak (qq<Can't locate method "$AUTOLOAD">);
36	}
37	} # AUTOLOAD
38
39	## \|CSSStyleDeclaration\| attributes
40
41	sub css_text ($;$) {
42	## TODO: setter
43
44	require Whatpm::CSS::Parser;
45	my $self = $_[0];
46	my $r = '';
47	for (grep {$$self->{$_}} keys %$$self) {
48	my $prop_def = $Whatpm::CSS::Parser::Key->{$_};
49	next unless $prop_def;
50	my $value = $$self->{$_};
51	my $s = $prop_def->{serialize}->($self, $prop_def->{css}, $value->[0]);
52	if (defined $s) {
53	$r .= ' ' . $prop_def->{css} . ': ' . $s;
54	$r .= ' !' . $value->[1] if defined $value->[1];
55	$r .= ";\n";
56	}
57	}
58	## TODO: shorthands
59	return $r;
60	} # css_text
61
62	sub parent_rule ($) {
63	return ${$_[0]}->{parent_rule};
64	} # parent_rule
65
66	## TODO: Implement other methods and attributes
67
68	package Message::DOM::CSSComputedStyleDeclaration;
69	push our @ISA, 'Message::IF::CSSStyleDeclaration';
70
71	sub ____new ($$$) {
72	my $self = bless \{}, shift;
73	$$self->{cascade} = shift; # Whatpm::CSS::Cascade object.
74	$$self->{element} = shift; ## TODO: This link should be weaken?
75	return $self;
76	} # ____new
77
78	sub css_text ($;$) {
79	## TODO: error if modified
80
81	my $self = shift;
82	require Whatpm::CSS::Parser;
83
84	## TODO: ordering
85	## TODO: any spec?
86	my $r = '';
87	for my $prop_def (grep {$_->{compute}} values %$Whatpm::CSS::Parser::Prop) {
88	my $prop_value = $$self->{cascade}->get_computed_value
89	($$self->{element}, $prop_def->{css});
90	my $s = $prop_def->{serialize}->($self, $prop_def->{css}, $prop_value);
91	if (defined $s) {
92	$r .= ' ' . $prop_def->{css} . ': ' . $s;
93	$r .= ";\n";
94	} else {
95	## NOTE: This should be an error of the implementation.
96	$r .= " /* $prop_def->{css}: ???; */\n";
97	}
98	}
99	return $r;
100	} # css_text
101
102	## TODO: members
103
104	package Message::IF::CSSStyleDeclaration;
105
106	1;
107	## $Date: 2008/01/01 07:06:04 $