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

Timestamp:

09/28/07 13:39:45 (16 months ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I deleted grammatical waste about rule Content.

Files:

• lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Parser/PRD.pm (modified) (4 diffs)

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

@@ -88 +88 @@
                             <rulevar: local $h_level    = 1                                         >
 
-    parse               :   <skip: ''> /\n*/ Content(s)
+    parse               :   <skip: ''> Root
+                        { $return = $item{'Root'} }
+
+    Root                :   /\n*/ Content(s)
                         {
                             my $tree = $item{'Content(s)'};
@@ -103 +106 @@
                         |   Paragraph
 
-    Section             :   Heading Content(s?)
+    Section             :   Heading Root(?)
                         {
                             $h_level--;
                             my $elm = element( $item[0] );
-                            $elm->push_content( $item{'Heading'}, @{ $item{'Content(s?)'} } );
-                            $elm->join_content( element => 'Section' );
+                            $elm->push_content( $item{'Heading'}, @{ flatten($item{'Root(?)'}) } );
                             $return = $elm;
                         }
@@ -197 +199 @@
 
     BlockQuote          :   />>>/ Blank Text(?) Blank /\n/
-                                Content(s)
+                                Root
                             /<<</ Blank URI(?) Blank /\n/
                         {
                             my $elm = element( $item[0] );
-                            $elm->push_content( @{ $item{'Content(s)'} } );
-                            $elm->join_content( element => 'Section' );
+                            $elm->push_content( @{ $item{'Root'} } );
                             $elm->attr->{'title'} = $item{'Text(?)'}->[0] if ( $item{'Text(?)'}->[0] );
                             $elm->attr->{'cite'}  = $item{'URI(?)'}->[0]  if ( $item{'URI(?)'}->[0] );
@@ -208 +209 @@
                         }
 
-    BlockNotes          :   /[(]{3}\n/ Content(s) /[)]{3}\n/
-                        {
-                            my $elm = element( $item[0] );
-                            $elm->push_content( @{ $item{'Content(s)'} } );
-                            $elm->join_content( element => 'Section' );
+    BlockNotes          :   /[(]{3}\n/ Root /[)]{3}\n/
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( @{ $item{'Root'} } );
                             $return = $elm;
                         }