Changeset 278 for lang/perl/Text-Nyarlax

Timestamp:

09/25/07 15:38:24 (16 months ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Text-Nyarlax/trunk

Files:

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

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

@@ -100 +100 @@
                         |   DefinitionList[ indent => 0 ]
                         |   BlockQuote
+                        |   BlockNotes
                         |   Paragraph
 
@@ -204 +205 @@
                             $elm->attr->{'title'} = $item{'Text(?)'}->[0] if ( $item{'Text(?)'}->[0] );
                             $elm->attr->{'cite'}  = $item{'URI(?)'}->[0]  if ( $item{'URI(?)'}->[0] );
+                            $return = $elm;
+                        }
+
+    BlockNotes          :   /[(]{3}\n/ Content(s) /[)]{3}\n/
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( @{ $item{'Content(s)'} } );
+                            $elm->join_content( element => 'Section' );
                             $return = $elm;
                         }