/[suikacvs]/markup/html/whatpm/Whatpm/SWML/Parser.pm
Suika

Diff of /markup/html/whatpm/Whatpm/SWML/Parser.pm

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

revision 1.7 by wakaba, Sat Nov 8 09:27:10 2008 UTC revision 1.10 by wakaba, Sat Nov 15 13:18:12 2008 UTC
# Line 395  sub parse_char_string ($$$;$) { Line 395  sub parse_char_string ($$$;$) {
395            $s =~ s/^((?>[^"\\]|\\.)*)//;            $s =~ s/^((?>[^"\\]|\\.)*)//;
396            $cell_quoted = $1;            $cell_quoted = $1;
397            $column += 1 + length $cell_quoted;            $column += 1 + length $cell_quoted;
398            $cell_quoted =~ tr/\\//d;            $cell_quoted =~ s/\\(.)/$1/sg;
399            $column++ if $s =~ s/\A\\\z//;            $column++ if $s =~ s/\A\\\z//;
400            $column++ if $s =~ s/^"//;            $column++ if $s =~ s/^"//;
401          }          }
# Line 433  sub parse_char_string ($$$;$) { Line 433  sub parse_char_string ($$$;$) {
433        my $image = $doc->create_element_ns (SW09_NS, [undef, 'image']);        my $image = $doc->create_element_ns (SW09_NS, [undef, 'image']);
434        $image->set_user_data (manakai_source_line => $line);        $image->set_user_data (manakai_source_line => $line);
435        $image->set_user_data (manakai_source_column => 1);        $image->set_user_data (manakai_source_column => 1);
436        $image->text_content (join "\x0A", $s, @s);        $image->text_content (join "\x0A", @s);
437        ($line, $column) = ($line + @s, 1);        ($line, $column) = ($line + @s, 1);
438        @s = ();        @s = ();
439        $doc->document_element->append_child ($image);        $doc->document_element->append_child ($image);
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24