[svn:parrot] r35641 - trunk/languages/pipp/src/pct
[email protected] Fri, 16 Jan 2009 10:47:45 -0800 (PST)
Newsgroups
perl.cvs.parrot
Message-ID
<[email protected] >
Author: bernhard
Date: Fri Jan 16 10:47:44 2009
New Revision: 35641
Modified:
trunk/languages/pipp/src/pct/actions.pm
trunk/languages/pipp/src/pct/grammar.pg
Log:
[Pipp] namespace_statement is now namespace_definition
Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm (original)
+++ trunk/languages/pipp/src/pct/actions.pm Fri Jan 16 10:47:44 2009
@@ -114,7 +114,7 @@
);
}
-method namespace_statement($/, $key) {
+method namespace_definition($/, $key) {
our $?NS;
if $key eq 'open' {
@@ -328,20 +328,6 @@
$( $<literal> )
);
-# my $loadinit := $past.loadinit();
-# $loadinit.unshift(
-# PAST::Op.new(
-# :pasttype('call'),
-# :name('define'),
-# :node( $/ ),
-# PAST::Val.new(
-# :value( $?NS ~ '\\' ~ ~$<CONSTANT_NAME> ),
-# :returns('PhpString'),
-# ),
-# $( $<literal> ),
-# )
-# );
-
make $past;
}
Modified: trunk/languages/pipp/src/pct/grammar.pg
==============================================================================
--- trunk/languages/pipp/src/pct/grammar.pg (original)
+++ trunk/languages/pipp/src/pct/grammar.pg Fri Jan 16 10:47:44 2009
@@ -119,7 +119,7 @@
# statements
rule statement {
- | <namespace_statement> {*} #= namespace_statement
+ | <namespace_definition> {*} #= namespace_definition
| <return_statement> {*} #= return_statement
| <require_once_statement> {*} #= require_once_statement
| <echo_statement> {*} #= echo_statement
@@ -146,7 +146,7 @@
| $
}
-rule namespace_statement {
+rule namespace_definition {
'namespace' <NAMESPACE_NAME>? {*} #= open
'{' <statement_list> '}' {*} #= close
}