/[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.17 by wakaba, Fri Feb 8 15:05:56 2008 UTC revision 1.18 by wakaba, Sun Feb 10 07:34:10 2008 UTC
# Line 19  my $DefaultComputedText; Line 19  my $DefaultComputedText;
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    css-2.dat
22      css-3.dat
23    css-visual.dat    css-visual.dat
24    css-generated.dat    css-generated.dat
25    css-paged.dat    css-paged.dat
# Line 386  sub get_parser ($) { Line 387  sub get_parser ($) {
387      capitalize uppercase lowercase none      capitalize uppercase lowercase none
388    /;    /;
389    $p->{prop_value}->{'white-space'}->{$_} = 1 for qw/    $p->{prop_value}->{'white-space'}->{$_} = 1 for qw/
390      normal pre nowrap pre-line pre-wrap      normal pre nowrap pre-line pre-wrap -moz-pre-wrap
391    /;    /;
392    $p->{prop_value}->{'text-decoration'}->{$_} = 1 for qw/    $p->{prop_value}->{'text-decoration'}->{$_} = 1 for qw/
393      none blink underline overline line-through      none blink underline overline line-through
# Line 396  sub get_parser ($) { Line 397  sub get_parser ($) {
397    /;    /;
398    $p->{prop_value}->{'table-layout'}->{auto} = 1;    $p->{prop_value}->{'table-layout'}->{auto} = 1;
399    $p->{prop_value}->{'table-layout'}->{fixed} = 1;    $p->{prop_value}->{'table-layout'}->{fixed} = 1;
400    $p->{prop_value}->{'border-collapse'}->{collapase} = 1;    $p->{prop_value}->{'border-collapse'}->{collapse} = 1;
401    $p->{prop_value}->{'border-collapse'}->{separate} = 1;    $p->{prop_value}->{'border-collapse'}->{separate} = 1;
402    $p->{prop_value}->{'empty-cells'}->{show} = 1;    $p->{prop_value}->{'empty-cells'}->{show} = 1;
403    $p->{prop_value}->{'empty-cells'}->{hide} = 1;    $p->{prop_value}->{'empty-cells'}->{hide} = 1;
# Line 470  sub serialize_rule ($$) { Line 471  sub serialize_rule ($$) {
471    } elsif ($rule->type == $rule->MEDIA_RULE) {    } elsif ($rule->type == $rule->MEDIA_RULE) {
472      $v .= '| ' . $indent . '@media ' . $rule->media . "\n";      $v .= '| ' . $indent . '@media ' . $rule->media . "\n";
473      $v .= serialize_rule ($_, $indent . '  ') for @{$rule->css_rules};      $v .= serialize_rule ($_, $indent . '  ') for @{$rule->css_rules};
474      } elsif ($rule->type == $rule->NAMESPACE_RULE) {
475        $v .= '| ' . $indent . '@namespace ';
476        my $prefix = $rule->prefix;
477        $v .= $prefix . ': ' if length $prefix;
478        $v .= '<' . $rule->namespace_uri . ">\n";
479    } else {    } else {
480      die "Rule type @{[$rule->type]} is not supported";      die "Rule type @{[$rule->type]} is not supported";
481    }    }
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24