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

Author: bernhard
Date: Fri Jan 16 13:34:09 2009
New Revision: 35650

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

Log:
[Pipp] some reformating

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:34:09 2009
@@ -63,13 +63,13 @@
 # The sea, text, surrounding the island, code, is printed out
 method SEA($/) {
     make PAST::Op.new(
-             :name('echo'),
-             :node($/),
-             PAST::Val.new(
-                 :value(~$/),
-                 :returns('PhpString')
-             )
-         );
+        :name('echo'),
+        :node($/),
+        PAST::Val.new(
+            :value(~$/),
+            :returns('PhpString')
+        )
+    );
 }
 
 method code_short_tag($/) {
@@ -106,13 +106,13 @@
 
 method inline_sea_short_tag($/) {
    make PAST::Op.new(
-            PAST::Val.new(
-                :value(~$<SEA_empty_allowed>),
-                :returns('PhpString')
-            ),
-            :name('echo'),
-            :node($/)
-        );
+       PAST::Val.new(
+           :value(~$<SEA_empty_allowed>),
+           :returns('PhpString')
+       ),
+       :name('echo'),
+       :node($/)
+   );
 }
 
 method namespace_definition($/, $key) {
@@ -135,25 +135,21 @@
 }
 
 method return_statement($/) {
-    my $past := PAST::Op.new(
-                   :name('return'),
-                   :pasttype('call'),
-                   :node( $/ ),
-                   $( $/<expression> )
-               );
-
-    make $past;
+    make PAST::Op.new(
+        :name('return'),
+        :pasttype('call'),
+        :node( $/ ),
+        $( $/<expression> )
+    );
 }
 
 method require_once_statement($/) {
-    my $past := PAST::Op.new(
-                   :name('require'),
-                   :pasttype('call'),
-                   :node( $/ ),
-                   $( $/<quote> )
-               );
-
-    make $past;
+    make PAST::Op.new(
+        :name('require'),
+        :pasttype('call'),
+        :node( $/ ),
+        $( $/<quote> )
+    );
 }
 
 method echo_statement($/) {
@@ -200,15 +196,14 @@
 }
 
 method key_value_pair($/) {
-   make
-       PAST::Op.new(
-           :node( $/ ),
-           :pasttype( 'call' ),
-           :name( 'infix:=>' ),
-           :returns( 'Array' ),
-           $( $<key> ),
-           $( $<value> )
-       );
+   make PAST::Op.new(
+       :node( $/ ),
+       :pasttype( 'call' ),
+       :name( 'infix:=>' ),
+       :returns( 'Array' ),
+       $( $<key> ),
+       $( $<value> )
+   );
 }
 
 method method_call($/) {
@@ -241,23 +236,22 @@
         PAST::Var.new(:name('cons'), :scope('register'))
     );
 
-    make
-        PAST::Stmts.new(
-            PAST::Var.new( :name('obj'),  :scope('register'), :isdecl(1) ),
-            PAST::Var.new( :name('cons'), :scope('register'), :isdecl(1) ),
-            # use default constructor when there is no explicit constructor
+    make PAST::Stmts.new(
+        PAST::Var.new( :name('obj'),  :scope('register'), :isdecl(1) ),
+        PAST::Var.new( :name('cons'), :scope('register'), :isdecl(1) ),
+        # use default constructor when there is no explicit constructor
+        PAST::Op.new(
+            :pasttype('if'),
             PAST::Op.new(
-                :pasttype('if'),
-                PAST::Op.new(
-                    :pirop('isnull'),
-                    PAST::Op.new( :inline("%r = get_global ['" ~ $class_name ~ "'], '__construct'") )  # condition
-                ),
-                PAST::Op.new( :inline("cons = get_global ['PippObject'], '__construct'") ),
-                PAST::Op.new( :inline("cons = get_global ['" ~ $class_name ~ "'], '__construct'") )
+                :pirop('isnull'),
+                PAST::Op.new( :inline("%r = get_global ['" ~ $class_name ~ "'], '__construct'") )  # condition
             ),
-            $cons_call,                                       # call the constructor
-            PAST::Var.new( :name('obj'), :scope('register') ) # return the created object
-        );
+            PAST::Op.new( :inline("cons = get_global ['PippObject'], '__construct'") ),
+            PAST::Op.new( :inline("cons = get_global ['" ~ $class_name ~ "'], '__construct'") )
+        ),
+        $cons_call,                                       # call the constructor
+        PAST::Var.new( :name('obj'), :scope('register') ) # return the created object
+    );
 }
 
 method constant($/) {
@@ -333,22 +327,20 @@
 }
 
 method conditional_expression($/) {
-    make
-        PAST::Op.new(
-            :node($/),
-            $( $<expression> ),
-            $( $<statement_list> )
-        );
+    make PAST::Op.new(
+        :node($/),
+        $( $<expression> ),
+        $( $<statement_list> )
+    );
 }
 
 method do_while_statement($/) {
-    make
-        PAST::Op.new(
-            :pasttype('repeat_while'),
-            :node($/),
-            $( $<expression> ),
-            $( $<statement_list> )
-        );
+    make PAST::Op.new(
+        :pasttype('repeat_while'),
+        :node($/),
+        $( $<expression> ),
+        $( $<statement_list> )
+    );
 }
 
 method if_statement($/) {
@@ -395,12 +387,11 @@
 }
 
 method var_assign($/) {
-    make
-        PAST::Op.new(
-            :pasttype('bind'),
-            $( $<var> ),
-            $( $<expression> ),
-        );
+    make PAST::Op.new(
+        :pasttype('bind'),
+        $( $<var> ),
+        $( $<expression> ),
+    );
 }
 
 method array_elem($/) {
@@ -416,18 +407,17 @@
         );
     }
 
-    make
+    make PAST::Var.new(
+        :scope('keyed'),
+        :viviself('PhpNull'),
+        :lvalue(1),
         PAST::Var.new(
-            :scope('keyed'),
-            :viviself('PhpNull'),
+            :name(~$<var_name>),
+            :viviself('PhpArray'),
             :lvalue(1),
-            PAST::Var.new(
-                :name(~$<var_name>),
-                :viviself('PhpArray'),
-                :lvalue(1),
-            ),
-            $( $<expression> )
-        );
+        ),
+        $( $<expression> )
+    );
 }
 
 method simple_var($/) {
@@ -443,12 +433,11 @@
         );
     }
 
-    make
-        PAST::Var.new(
-            :name(~$<var_name>),
-            :viviself('PhpNull'),
-            :lvalue(1),
-        );
+    make PAST::Var.new(
+        :name(~$<var_name>),
+        :viviself('PhpNull'),
+        :lvalue(1),
+    );
 }
 
 method var($/, $key) {
@@ -460,15 +449,14 @@
 }
 
 method member($/) {
-    make
-        PAST::Op.new(
-            :pasttype('callmethod'),
-            :name('member'),
-            PAST::Var.new(
-                :name('$this'),
-                :scope('lexical')
-            )
-        );
+    make PAST::Op.new(
+        :pasttype('callmethod'),
+        :name('member'),
+        PAST::Var.new(
+            :name('$this'),
+            :scope('lexical')
+        )
+    );
 }
 
 method while_statement($/) {
@@ -524,42 +512,42 @@
 
 method true($/) {
     make PAST::Val.new(
-             :value( 1 ),
-             :returns('PhpBoolean'),
-             :node($/)
-         );
+        :value( 1 ),
+        :returns('PhpBoolean'),
+        :node($/)
+    );
 }
 
 method false($/) {
     make PAST::Val.new(
-             :value( 0 ),
-             :returns('PhpBoolean'),
-             :node($/)
-         );
+        :value( 0 ),
+        :returns('PhpBoolean'),
+        :node($/)
+    );
 }
 
 method null($/) {
     make PAST::Val.new(
-             :value( 0 ),
-             :returns('PhpNull'),
-             :node($/)
-         );
+        :value( 0 ),
+        :returns('PhpNull'),
+        :node($/)
+    );
 }
 
 method integer($/) {
     make PAST::Val.new(
-             :value( ~$/ ),
-             :returns('PhpInteger'),
-             :node($/)
-         );
+        :value( ~$/ ),
+        :returns('PhpInteger'),
+        :node($/)
+    );
 }
 
 method number($/) {
     make PAST::Val.new(
-             :value( +$/ ),
-             :returns('PhpFloat'),
-             :node($/)
-         );
+        :value( +$/ ),
+        :returns('PhpFloat'),
+        :node($/)
+    );
 }
 
 method closure($/, $key) {
@@ -894,7 +882,6 @@
     else {
         $past := $( $/{ $key } );
     }
-
     make $past;
 }