/[suikacvs]/markup/html/whatpm/t/CSS-Parser-1.t
Suika

Diff of /markup/html/whatpm/t/CSS-Parser-1.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by wakaba, Sun Feb 3 06:00:40 2008 UTC revision 1.17 by wakaba, Fri Feb 8 15:05:56 2008 UTC
# Line 18  my $DefaultComputedText; Line 18  my $DefaultComputedText;
18    
19  for my $file_name (map {"t/$_"} qw(  for my $file_name (map {"t/$_"} qw(
20    css-1.dat    css-1.dat
21      css-2.dat
22    css-visual.dat    css-visual.dat
23    css-generated.dat    css-generated.dat
24    css-paged.dat    css-paged.dat
# Line 449  sub serialize_cssom ($) { Line 450  sub serialize_cssom ($) {
450        my $v = '';        my $v = '';
451        for my $rule (@{$ss->css_rules}) {        for my $rule (@{$ss->css_rules}) {
452          my $indent = '';          my $indent = '';
453          if ($rule->type == $rule->STYLE_RULE) {          $v .= serialize_rule ($rule, $indent);
           $v .= '| ' . $indent . '<' . $rule->selector_text . ">\n";  
           $v .= serialize_style ($rule->style, $indent . '  ');  
         } else {  
           die "Rule type @{[$rule->type]} is not supported";  
         }  
454        }        }
455        return $v;        return $v;
456      } else {      } else {
# Line 465  sub serialize_cssom ($) { Line 461  sub serialize_cssom ($) {
461    }    }
462  } # serialize_cssom  } # serialize_cssom
463    
464    sub serialize_rule ($$) {
465      my ($rule, $indent) = @_;
466      my $v = '';
467      if ($rule->type == $rule->STYLE_RULE) {
468        $v .= '| ' . $indent . '<' . $rule->selector_text . ">\n";
469        $v .= serialize_style ($rule->style, $indent . '  ');
470      } elsif ($rule->type == $rule->MEDIA_RULE) {
471        $v .= '| ' . $indent . '@media ' . $rule->media . "\n";
472        $v .= serialize_rule ($_, $indent . '  ') for @{$rule->css_rules};
473      } else {
474        die "Rule type @{[$rule->type]} is not supported";
475      }
476      return $v;
477    } # serialize_rule
478    
479  sub get_computed_style ($$$$$$) {  sub get_computed_style ($$$$$$) {
480    my ($all_test, $doc_id, $selectors, $dom, $css_options, $ss) = @_;    my ($all_test, $doc_id, $selectors, $dom, $css_options, $ss) = @_;
481    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24