add a new node : Newline

fperrad · Mar 28, 2009 · 7568ab1 · 7568ab1
1 parent e3255e8
commit 7568ab1
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 4 deletions.
diff --git a/src/Compiler.pir b/src/Compiler.pir
@@ -498,6 +498,18 @@ Return generated HTML for all of its children.
     .return (code)
 .end
 
+=item html(Markdown::Newline node)
+
+=cut
+
+.sub 'html' :method :multi(_, ['Markdown'; 'Newline'])
+    .param pmc node
+    .local pmc code
+    new code, 'CodeString'
+    set code, "\n"
+    .return (code)
+.end
+
 =back
 
 =cut

diff --git a/src/Node.pir b/src/Node.pir
@@ -29,6 +29,7 @@ for Markdown.
     p6meta.'new_class'('Markdown::Line', 'parent'=>base)
     p6meta.'new_class'('Markdown::Link', 'parent'=>base)
     p6meta.'new_class'('Markdown::ListItem', 'parent'=>base)
+    p6meta.'new_class'('Markdown::Newline', 'parent'=>base)
     p6meta.'new_class'('Markdown::OrderedList', 'parent'=>base)
     p6meta.'new_class'('Markdown::Para', 'parent'=>base)
     p6meta.'new_class'('Markdown::RefLink', 'parent'=>base)

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -96,7 +96,7 @@ method BlockQuoteChunk($/) {
     my $first := 1;
     for $<BlockQuoteLine> {
         unless ( $first ) {
-            $mast.push( Markdown::Word.new( :text( "\n" ) ) );
+            $mast.push( Markdown::Newline.new() );
         }
         $mast.push( $( $_ ) );
         $first := 0;
@@ -108,7 +108,7 @@ method BlockQuoteLine($/) {
     my $mast := Markdown::Node.new();
     $mast.push( $( $<BlockQuoteFirstLine> ) );
     for $<BlockQuoteNextLine> {
-        $mast.push( Markdown::Word.new( :text( "\n" ) ) );
+        $mast.push( Markdown::Newline.new() );
         $mast.push( $( $_ ) );
     }
     make $mast;
@@ -135,7 +135,7 @@ method Line($/) {
 }
 
 method BlankLine($/) {
-    make Markdown::Line.new( :text( $/.text() ) );
+    make Markdown::Newline.new( :text( $/.text() ) );
 }
 
 method NonblankIndentedLine($/) {
@@ -213,7 +213,7 @@ method ListBlock($/) {
 method ListContinuationBlock($/) {
     my $mast := Markdown::Node.new();
     for $<ListBlock> {
-        $mast.push( Markdown::Word.new( :text( "\n" ) ) );
+        $mast.push( Markdown::Newline.new() );
         $mast.push( $( $_ ) );
     }
     make $mast;