[svn:parrot] r36365 - in trunk/languages/pod/src: Pod/DocTree parser

kjs at svn.parrot.org kjs at svn.parrot.org
Wed Feb 4 22:48:08 UTC 2009


Author: kjs
Date: Wed Feb  4 22:48:08 2009
New Revision: 36365
URL: https://trac.parrot.org/parrot/changeset/36365

Log:
[pod] last revision doesn't build for pod; fixed this. + some more action.

Modified:
   trunk/languages/pod/src/Pod/DocTree/Node.pir
   trunk/languages/pod/src/parser/actions.pm
   trunk/languages/pod/src/parser/grammar.pg

Modified: trunk/languages/pod/src/Pod/DocTree/Node.pir
==============================================================================
--- trunk/languages/pod/src/Pod/DocTree/Node.pir	Wed Feb  4 22:40:24 2009	(r36364)
+++ trunk/languages/pod/src/Pod/DocTree/Node.pir	Wed Feb  4 22:48:08 2009	(r36365)
@@ -21,7 +21,6 @@
 
     p6meta.'new_class'('Pod::DocTree::File', 'parent'=>base)
     p6meta.'new_class'('Pod::DocTree::Heading', 'parent'=>base)
-    p6meta.'new_class'('Pod::DocTree::Text', 'parent'=>base)
     p6meta.'new_class'('Pod::DocTree::Block', 'parent'=>base)
     p6meta.'new_class'('Pod::DocTree::List', 'parent'=>base)
     p6meta.'new_class'('Pod::DocTree::Item', 'parent'=>base)

Modified: trunk/languages/pod/src/parser/actions.pm
==============================================================================
--- trunk/languages/pod/src/parser/actions.pm	Wed Feb  4 22:40:24 2009	(r36364)
+++ trunk/languages/pod/src/parser/actions.pm	Wed Feb  4 22:48:08 2009	(r36365)
@@ -43,9 +43,38 @@
 method heading($/) {
     my $head := Pod::DocTree::Heading.new();
     $head.level(~$<digit>);
+
+    if $<block_title> {
+        my $title := $( $<block_title>[0] );
+        $head.title( $title );
+    }
     make $head;
 }
 
+method begin_directive($/) {
+    my $block := Pod::DocTree::Block.new();
+
+    make $block;
+}
+
+method for_directive($/) {
+    my $block := Pod::DocTree::Block.new();
+
+    make $block;
+}
+
+method over_directive($/) {
+    my $list := Pod::DocTree::List.new();
+    make $list;
+}
+
+method item($/) {
+    make Pod::DocTree::Item.new();
+}
+
+method block_title($/) {
+    make Pod::DocTree::Text.new( :name("text") );
+}
 
 # Local Variables:
 #   mode: cperl

Modified: trunk/languages/pod/src/parser/grammar.pg
==============================================================================
--- trunk/languages/pod/src/parser/grammar.pg	Wed Feb  4 22:40:24 2009	(r36364)
+++ trunk/languages/pod/src/parser/grammar.pg	Wed Feb  4 22:48:08 2009	(r36365)
@@ -73,7 +73,7 @@
     <block_title>?
     \n
     <.blank_line>
-
+    {*}
 }
 
 token end_directive {
@@ -91,7 +91,7 @@
     <block_title>?
     \n
     <paragraph>
-
+    {*}
 }
 
 token over_directive {
@@ -103,7 +103,7 @@
     ]?
     \n
     <.blank_line>
-
+    {*}
 }
 
 token back_directive {
@@ -122,7 +122,7 @@
     ]?
     \n
     <.blank_line>
-
+    {*}
 }
 
 token encoding_directive {
@@ -158,7 +158,7 @@
 token block_title {
     <.pod_ws>
     <formatted_text>
-
+    {*}
 }
 
 regex formatted_text {


More information about the parrot-commits mailing list