Changeset 21564 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm

Timestamp:

07/27/08 10:41:54 (6 months ago)

Author:

fglock

Message:

[v6.pm] added all(), any(), true(), not()

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm (modified) (5 diffs)

perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm

@@ -787 +787 @@
             }
 
-            if ($subname eq 'substr' || $subname eq 'split' || $subname eq 'die' || $subname eq 'return' || $subname eq 'push' || $subname eq 'pop' || $subname eq 'shift' || $subname eq 'join' || $subname eq 'index' || $subname eq 'undef' || $subname eq 'rand' || $subname eq 'int' || $subname eq 'splice' || $subname eq 'keys' || $subname eq 'values' || $subname eq 'sort' || $subname eq 'chomp' || $subname eq 'lc' || $subname eq 'abs' ) {
+            if (   $subname eq 'any' || $subname eq 'all'  
+                || $subname eq 'substr' || $subname eq 'split' || $subname eq 'die' || $subname eq 'return' 
+                || $subname eq 'push' || $subname eq 'pop' || $subname eq 'shift' || $subname eq 'join' 
+                || $subname eq 'index' || $subname eq 'undef' || $subname eq 'rand' || $subname eq 'int' 
+                || $subname eq 'splice' || $subname eq 'keys' || $subname eq 'values' || $subname eq 'sort' 
+                || $subname eq 'chomp' || $subname eq 'lc' || $subname eq 'abs' 
+                ) 
+            {
                 return $subname . emit_parenthesis( $n->{param} );
             }
@@ -1220 +1227 @@
                 our \@EXPORT;
                 bool->import();  # True, False
+                use Quantum::Superpositions;
                 $attributes ";
 
@@ -1583 +1591 @@
     }
     
+    if ( $n->{op1} eq '|' ) {
+        return 'any(' . _emit( $n->{exp1} ) . ', ' . _emit( $n->{exp2} ) . ')';
+    }
+
     return '(' . _emit( $n->{exp1} ) . ' ' .
         $n->{op1} . ' ' . _emit( $n->{exp2} ) . ')';
@@ -1798 +1810 @@
         return ' "" . ' . _emit( $n->{exp1} );
     }
-    if ( $n->{op1} eq '!' ) {
+    if ( $n->{op1} eq '!' || $n->{op1} eq 'not' ) {
         return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
     }
@@ -1817 +1829 @@
     }
 
-    if ($n->{op1} eq '?') { # bool
-        return '('._emit($n->{exp1}).' ? 1 : 0 )';
+    if ($n->{op1} eq '?' || $n->{op1} eq 'true') { # bool
+        return '(' . _emit($n->{exp1}) . ' ? 1 : 0 )';
     }