Changeset 260 for lang/perl/Text-Nyarlax

Timestamp:

09/23/07 12:09:21 (16 months ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I implemented parse of a BlockQuote? elements on Text::Nyarlax::Parser::PRD.

Location:

lang/perl/Text-Nyarlax/trunk

Files:

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

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

@@ -99 +99 @@
                         |   List[ marker => quotemeta( '#' ), name => 'OrderedList', indent => 0 ]
                         |   DefinitionList[ indent => 0 ]
+                        |   BlockQuote
                         |   Paragraph
 
@@ -191 +192 @@
                             $elm->push_content( @{ $item{'ListContent'} } );
                             $elm->join_content( text => "\n" );
+                            $return = $elm;
+                        }
+
+    BlockQuote          :   />>>/ Blank Text(?) Blank /\n/
+                                Content(s)
+                            /<<</ Blank URI(?) Blank /\n/
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( @{ $item{'Content(s)'} } );
+                            $elm->join_content( element => 'Section' );
+                            $elm->attr->{'title'} = $item{'Text(?)'}->[0] if ( $item{'Text(?)'}->[0] );
+                            $elm->attr->{'cite'}  = $item{'URI(?)'}->[0]  if ( $item{'URI(?)'}->[0] );
                             $return = $elm;
                         }
@@ -349 +362 @@
                             { $return = { wikiname => $1, link => $2 } }
                         |  m{
-                                $RE{'URI'}{'HTTP'}
+                                $RE{'URI'}
                               | (?: (?! $bracket{'HyperLink'}->[1] ) [^\n] )+
                             }x
@@ -360 +373 @@
                         |  m{$text_re}
 
+    # Token
+    Text                :   /[^\n]+/
     Blank               :   /[ \t]*/
-
     Identifier          :   /[a-zA-Z]+/
-
+    URI                 :   /$RE{'URI'}/
 __GRAMMER__