Changeset 140

Timestamp:

09/14/07 17:23:48 (6 years ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I implemented parse of the Section element on Text::Nyarlax::Parser::PRD.

Location:

lang/perl/Text-Nyarlax/trunk

Files:

• lib/Text/Nyarlax/Parser/PRD.pm (modified) (3 diffs)
• t/parser/spec/section.tb (added)

lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Parser/PRD.pm

@@ -7 +7 @@
 use List::MoreUtils qw( uniq );
 use base qw( Text::Nyarlax::Parser );
+
+our $VERSION = '0.1';
 
 __PACKAGE__->mk_classdata( 'engine' );
@@ -84 +86 @@
                             <rulevar: local %variable   = %Text::Nyarlax::Parser::PRD::variable     >
                             <rulevar: local $variable_re= $Text::Nyarlax::Parser::PRD::variable_re  >
-    parse               :   <skip: ''> Content(s)
+                            <rulevar: local $h_level    = 1                                         >
+
+    parse               :   <skip: ''> /\n*/ Content(s)
+                        {
+                            my $tree = $item{'Content(s)'};
+                               $tree = join_node( $tree, element => 'Section' );
+                            $return = $tree;
+                        }
 
     Content             :   Section | Paragraph
 
-    Section             :   Heading
-                        {
+    Section             :   Heading Content(s?)
+                        {
+                            $h_level--;
                             my $elm = element( $item[0] );
-                            $elm->push_content( $item{'Heading'} );
+                            $elm->push_content( $item{'Heading'}, @{ $item{'Content(s?)'} } );
+                            $elm->join_content( element => 'Section' );
                             $return = $elm;
                         }
 
     Heading             :   <rulevar: local $text_re = qr{(?: (?! $exclude_re ) [^\n=] )+}x >
-    Heading             :   /[=]{1,}/ InlineNode(s) "$item[1]" Blank Identifier(?) Blank /\n/
-                        {
+    Heading             :   /[=]{$h_level}/ InlineNode(s) "$item[1]" Blank Identifier(?) Blank /\n*/
+                        {
+                            $h_level++;
                             my $elm = element( $item[0] );
 
@@ -127 +139 @@
                         }
 
-    OneLine             :   InlineNode(s) /\n/
+    OneLine             :   ...!/[=]/ InlineNode(s) /\n/
                         {
                             $return = [ @{ $item{'InlineNode(s)'} }, "\n" ];