Changeset 286
- Timestamp:
- 02/14/08 01:46:57 (5 months ago)
- Files:
-
- trunk/src/ingy/WikiText/Changes (modified) (1 diff)
- trunk/src/ingy/WikiText/MANIFEST (modified) (1 diff)
- trunk/src/ingy/WikiText/lib/WikiText.pm (modified) (1 diff)
- trunk/src/ingy/WikiText/lib/WikiText/Parser.pm (modified) (1 diff)
- trunk/src/ingy/WikiText/lib/WikiText/Sample.pm (modified) (1 diff)
- trunk/src/ingy/WikiText/lib/WikiText/Sample/Parser.pm (modified) (2 diffs)
- trunk/src/ingy/WikiText/lib/WikiText/WikiByte/Emitter.pm (modified) (1 diff)
- trunk/src/ingy/WikiText/t/data/sample (modified) (1 diff)
- trunk/src/ingy/WikiText/t/reduction-error.t (added)
- trunk/src/ingy/WikiText/t/sample_to_wikibyte.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/src/ingy/WikiText/Changes
r283 r286 1 --- 2 version: 0.07 3 date: Thu Feb 14 01:44:34 PST 2008 4 changes: 5 - Support '=' in WikiByte 6 - Make reduction errors smaller 1 7 --- 2 8 version: 0.06 trunk/src/ingy/WikiText/MANIFEST
r282 r286 46 46 README 47 47 t/data/sample 48 t/reduction-error.t 48 49 t/sample_to_html.t 49 50 t/sample_to_wikibyte.t trunk/src/ingy/WikiText/lib/WikiText.pm
r283 r286 4 4 5 5 use 5.006.001; 6 our $VERSION = '0.0 6';6 our $VERSION = '0.07'; 7 7 8 8 sub new { trunk/src/ingy/WikiText/lib/WikiText/Parser.pm
r283 r286 140 140 sub reduction_error { 141 141 my $self = shift; 142 return ref($self) . qq[ reduction error for:\n"$self->{input}"]; 142 my $input = $self->{input}; 143 $input =~ s/^((.*\n){2}).*/$1/; 144 chomp $input; 145 return ref($self) . qq[ reduction error for:\n"$input"]; 143 146 } 144 147 trunk/src/ingy/WikiText/lib/WikiText/Sample.pm
r282 r286 1 package WikiText::Sample`; 1 package WikiText::Sample; 2 use strict; 3 use warnings; 4 5 use base 'WikiText'; 2 6 3 7 1; trunk/src/ingy/WikiText/lib/WikiText/Sample/Parser.pm
r282 r286 3 3 4 4 sub create_grammar { 5 my $all_blocks = [ 'h1', 'h2', 'h3', ' p' ];5 my $all_blocks = [ 'h1', 'h2', 'h3', 'hr', 'p' ]; 6 6 7 7 my $all_phrases = [ 'b', 'i' ]; … … 33 33 h3 => { 34 34 match => re_header(3), 35 }, 36 hr => { 37 match => qr/^----\n(?:\s*\n)?/, 35 38 }, 36 39 b => { trunk/src/ingy/WikiText/lib/WikiText/WikiByte/Emitter.pm
r282 r286 37 37 my $node = shift; 38 38 my $tag = $node->{type}; 39 40 return if $self->{output} =~ s/^\+$tag\n\z/=$tag\n/m; 41 39 42 $tag =~ s/-.*//; 40 43 $self->{output} .= "-$tag\n"; trunk/src/ingy/WikiText/t/data/sample
r282 r286 77 77 -h1 78 78 79 === Horizontal Rule 80 --- sample 81 foo 79 82 83 ---- 84 85 bar 86 87 --- wikibyte 88 +p 89 foo 90 -p 91 =hr 92 +p 93 bar 94 -p 95 trunk/src/ingy/WikiText/t/sample_to_wikibyte.t
r283 r286 1 use t::TestWikiText tests => 3;1 use t::TestWikiText tests => 4; 2 2 3 3 #no_diff;
