[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