[svn:parrot] r35649 - trunk/languages/pipp/src/pct
[email protected] Fri, 16 Jan 2009 13:13:00 -0800 (PST)
Newsgroups
perl.cvs.parrot
Message-ID
<[email protected] >
Author: bernhard
Date: Fri Jan 16 13:12:59 2009
New Revision: 35649
Modified:
trunk/languages/pipp/src/pct/actions.pm
trunk/languages/pipp/src/pct/grammar.pg
Log:
[Pipp] remove trailing spaces
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 13:12:59 2009
@@ -274,7 +274,7 @@
our $?NS;
make PAST::Var.new(
:scope('package'),
- :namespace( $?NS ~ '\\' ~ $<class_name> ~ '::'),
+ :namespace( $?NS ~ '\\' ~ $<class_name> ~ '::'),
:name(~$<constant_name>)
);
}
@@ -290,7 +290,7 @@
:pasttype('bind'),
PAST::Var.new(
:name(~$<constant_name>),
- :isdecl(1),
+ :isdecl(1),
:scope('package'),
:viviself('PhpNull'),
:namespace( $?NS ~ '\\' ~ $?CLASS ~ '::')
@@ -309,7 +309,7 @@
:pasttype('bind'),
PAST::Var.new(
:name(~$<constant_name>),
- :isdecl(1),
+ :isdecl(1),
:scope('package'),
:viviself('PhpNull'),
:namespace($?NS)
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 13:12:59 2009
@@ -41,7 +41,7 @@
}
# text, in most cases broken HTML,
-# when an '<' is encountered check whether this is the start of PHP-code
+# when an '<' is encountered check whether this is the start of PHP-code
regex SEA {
'<'? .+? ( <before '<'> | $ )
{*}
@@ -76,7 +76,7 @@
}}
}
-regex close_script_tag {
+regex close_script_tag {
'</script' <ws_char>*: '>'
{{ $S0 = "script"
$P0 = get_global "tag_type"
@@ -89,24 +89,24 @@
token quoted_lang_name { '"php"' | '\'php\'' }
-token code_start_echo_tag {
- '<?='
+token code_start_echo_tag {
+ '<?='
{{ $P0 = new 'String'
$P0 = "short"
set_global "tag_type", $P0
}}
}
-token open_short_tag {
- '<?' 'php'?
+token open_short_tag {
+ '<?' 'php'?
{{ $P0 = new 'String'
$P0 = "short"
set_global "tag_type", $P0
}}
}
-token close_short_tag {
- '?>' \n?
+token close_short_tag {
+ '?>' \n?
{{ $S0 = "short"
$P0 = get_global "tag_type"
$S1 = $P0
@@ -137,7 +137,7 @@
}
rule statement_list {
- <statement>* {*}
+ <statement>* {*}
}
rule statement_delimiter {