Changeset 251 for lang/perl/Text-Nyarlax

Timestamp:

09/21/07 18:11:37 (16 months ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I implemented parse of a list elements ( UnorderedList?, OrderedList?, DefinitionList? ) on Text::Nyarlax::Parser::PRD.

Location:

lang/perl/Text-Nyarlax/trunk

Files:

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

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

@@ -95 +95 @@
                         }
 
-    Content             :   Section | Paragraph
+    Content             :   Section
+                        |   List[ marker => quotemeta( '*' ), name => 'UnorderedList', indent => 0 ]
+                        |   List[ marker => quotemeta( '#' ), name => 'OrderedList', indent => 0 ]
+                        |   DefinitionList[ indent => 0 ]
+                        |   Paragraph
 
     Section             :   Heading Content(s?)
@@ -120 +124 @@
                                 if ( $item{'Identifier(?)'}->[0] );
 
+                            $return = $elm;
+                        }
+
+    List                :   ListItem[ marker => $arg{'marker'}, indent => $arg{'indent'} ](s)
+                        {
+                            my $elm = element( $arg{'name'} );
+                            $elm->push_content( @{ $item{'ListItem(s)'} } );
+                            $return = $elm;
+                        }
+
+    ListItem            :   /[ \t]{$arg{'indent'}} $arg{'marker'} [ \t]*/x ListContent[ indent => $arg{'indent'} ]
+                            {
+                                my $elm = element( $item[0] );
+                                $elm->push_content( @{ $item{'ListContent'} } );
+                                $elm->join_content( text => "\n" );
+                                $return = $elm;
+                            }
+
+    ListContent         :  ListConetntFirst[ indent => $arg{'indent'} ] ListChild[ indent => $arg{'indent'} ](s?)
+                        {
+                            $return = [
+                                @{ $item{'ListConetntFirst'} },
+                                @{ flatten($item{'ListChild(s?)'}) },
+                            ];
+                        }
+
+    ListConetntFirst    :   />>/ parse / [ \t]{$arg{'indent'}} [ \t]{2} << \n /x
+                            { $return = $item{'parse'} }
+                        |   InlineNode(s?) /\n/
+                            { $return = $item{'InlineNode(s?)'} }
+    
+
+    ListChild           :   List[ marker => quotemeta( '*' ), name => 'UnorderedList', indent => $arg{'indent'} + 2 ]
+                        |   List[ marker => quotemeta( '#' ), name => 'OrderedList', indent => $arg{'indent'} + 2 ]
+                        |   DefinitionList[ indent => $arg{'indent'} + 2 ]
+                        |   ListChildText[ indent => $arg{'indent'} ]
+
+    ListChildText       :   /[ \t]{$arg{'indent'}} [ \t]{2,}/x InlineNode(s) /\n/
+                            { $return = [ @{ $item{'InlineNode(s)'} }, "" ] }
+
+    DefinitionList      :   DefinitionItem[ indent => $arg{'indent'} ](s)
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( @{ $item{'DefinitionItem(s)'} } );
+                            $return = $elm;
+                        }
+
+    DefinitionItem      :   DefinitionTerm[ indent => $arg{'indent'} ] DefinitionDescription[ indent => $arg{'indent'} ](s?)
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( $item{'DefinitionTerm'}, @{ $item{'DefinitionDescription(s?)'} } );
+                            $return = $elm;
+                        }
+
+    DefinitionTerm      :   /[ \t]{$arg{'indent'}} [?][ \t]*/x InlineNode(s?) /\n/ ListChildText[ indent => $arg{'indent'} ](s?)
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( @{ $item{'InlineNode(s?)'} }, @{ flatten($item{'ListChildText(s?)'}) } );
+                            $elm->join_content( text => "\n" );
+                            $return = $elm;
+                        }
+
+    DefinitionDescription:  /[ \t]{$arg{'indent'}} [:][ \t]*/x ListContent[ indent => $arg{'indent'} ]
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( @{ $item{'ListContent'} } );
+                            $elm->join_content( text => "\n" );
                             $return = $elm;
                         }