develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34637 - trunk/languages/pipp/src/pct

From:
bernhard
Date:
December 30, 2008 04:27
Subject:
[svn:parrot] r34637 - trunk/languages/pipp/src/pct
Message ID:
20081230122658.A0C11CB9FA@x12.develooper.com
Author: bernhard
Date: Tue Dec 30 04:26:57 2008
New Revision: 34637

Modified:
   trunk/languages/pipp/src/pct/actions.pm

Log:
[Pipp] clean up trailing spaces and unused register $P2


Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Tue Dec 30 04:26:57 2008
@@ -21,13 +21,13 @@
 
 method TOP($/, $key) {
     our @?BLOCK; # A stack of PAST::Block
-   
+
     if $key eq 'open' {
         my $block := PAST::Block.new(
                          :node($/),
                          :hll('pipp')
                      );
-        
+
         # set up scope 'package' for the superglobals
         # TODO: use a loop
         $block.symbol_defaults( :scope('lexical') );
@@ -110,7 +110,7 @@
 }
 
 method namespace_statement($/) {
-    our $?NS := ~$<NAMESPACE_NAME>; 
+    our $?NS := ~$<NAMESPACE_NAME>;
     my $past := PAST::Op.new(
                     :pasttype('call'),
                     :name('echo'),
@@ -176,10 +176,10 @@
                     :name( 'array' ),
                     :node( $/ )
                 );
-  
+
     for $<array_argument> {
         $past.push( $($_) );
-    }   
+    }
 
     make $past;
 }
@@ -188,8 +188,8 @@
     make $( $/{$key} );
 }
 
-method key_value_pair($/) { 
-   make 
+method key_value_pair($/) {
+   make
        PAST::Op.new(
            :node( $/ ),
            :pasttype( 'call' ),
@@ -296,7 +296,7 @@
 method if_statement($/) {
     my $past := $( $<conditional_expression> );
     $past.pasttype('if');
-        
+
     my $else := undef;
     if +$<else_clause> {
         $else := $( $<else_clause>[0]<statement_list> );
@@ -357,7 +357,7 @@
         );
     }
 
-    my $past_var_name := 
+    my $past_var_name :=
         PAST::Var.new(
             :name(~$<VAR_NAME>),
             :viviself('PhpArray'),
@@ -514,7 +514,7 @@
         # declare the bound vars a lexical
         if +$<bind_list> == 1 {
             for $<bind_list>[0]<VAR_NAME> {
-                $block.symbol( ~$_, :scope('lexical') ); 
+                $block.symbol( ~$_, :scope('lexical') );
             }
         }
         @?BLOCK.unshift( $block );
@@ -555,18 +555,18 @@
         my $block := $( $<param_list> );
         $block.unshift(
             PAST::Op.new(
-                :pasttype('bind'),                                            
+                :pasttype('bind'),
                 PAST::Var.new(
                     :name('$this'),
-                    :scope('lexical'),                                        
-                    :isdecl(1)                                               
-                ),                                                               
+                    :scope('lexical'),
+                    :isdecl(1)
+                ),
                 PAST::Var.new(
-                    :name('self'),                                            
-                    :scope('register')                                       
-                )                                                               
+                    :name('self'),
+                    :scope('register')
+                )
             )
-        );                  
+        );
 
         @?BLOCK.unshift( $block );
     }
@@ -600,7 +600,7 @@
             );
         $block.push($param);
         $arity++;
-        $block.symbol( ~$_, :scope('lexical') ); 
+        $block.symbol( ~$_, :scope('lexical') );
     }
     $block.arity( $arity );
 
@@ -626,7 +626,7 @@
             PAST::Stmts.new(
                 PAST::Op.new(
                     :inline(   "$P0 = get_root_global ['parrot'], 'P6metaclass'\n"
-                             ~ "$P2 = $P0.'new_class'('" ~ $<CLASS_NAME> ~ "')\n" ),
+                             ~ "$P0.'new_class'('" ~ $<CLASS_NAME> ~ "')\n" ),
                     :pasttype( 'inline' )
                 )
             )
@@ -642,10 +642,11 @@
 
         # declare the attributes
         for $<class_member_definition> {
-            $methods_block.symbol( ~$_<VAR_NAME><ident>, :scope('attribute') );
+            my $member_name := ~$_<VAR_NAME><ident>;
+            $methods_block.symbol( $member_name, :scope('attribute') );
             $methods_block.push(
                 PAST::Var.new(
-                    :name(~$_<VAR_NAME><ident>),
+                    :name(~$member_name),
                     :scope('attribute'),
                     :isdecl(1)
                 )



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About