Changeset 89

Timestamp:

09/12/07 14:57:58 (6 years ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I implemented parse of the Heading 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/heading.tb (added)

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

@@ -83 +83 @@
                             <rulevar: local %variable   = %Text::Nyarlax::Parser::PRD::variable     >
                             <rulevar: local $variable_re= $Text::Nyarlax::Parser::PRD::variable_re  >
-    parse               :   <skip: ''> Content
-
-    Content             :   Paragraph
+    parse               :   <skip: ''> Content(s)
+
+    Content             :   Section | Paragraph
+
+    Section             :   Heading
+                        {
+                            my $elm = element( $item[0] );
+                            $elm->push_content( $item{'Heading'} );
+                            $return = $elm;
+                        }
+
+    Heading             :   <rulevar: local $text_re = qr{(?: (?! $exclude_re ) [^\n=] )+}x >
+    Heading             :   /[=]{1,}/ InlineNode(s) "$item[1]" Blank Identifier(?) Blank /\n/
+                        {
+                            my $elm = element( $item[0] );
+
+                            my @text = @{ $item{'InlineNode(s)'} };
+                            $text[0] =~ s{^[ \t]*}{}g       if ( ! ref $text[0] );
+                            $text[$#text] =~ s{[ \t]*$}{}g  if ( ! ref $text[$#text] );
+                            $elm->push_content( @text );
+
+                            $elm->attr->{'id'} = $item{'Identifier(?)'}->[0]
+                                if ( $item{'Identifier(?)'}->[0] );
+
+                            $return = $elm;
+                        }
 
     # Paragraph
@@ -253 +276 @@
                         |  m{$text_re}
 
+    Blank               :   /[ \t]*/
+
+    Identifier          :   /[a-zA-Z]+/
+
 __GRAMMER__