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

Timestamp:

07/31/08 13:05:17 (5 months ago)

Author:

fglock

Message:

[v6.pm] complex

Files:

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

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

@@ -248 +248 @@
 }
 
+sub _emit_complex {
+    my $n = shift;
+    $n =~ s/i/*i/;
+    "($n)";
+}
+
 sub _emit {
     my $n = $_[0];
@@ -292 +298 @@
     return $n->{num}
         if exists $n->{num};
+
+    return _emit_complex( $n->{complex} )
+        if exists $n->{complex};
 
     return _emit_pair( $n->{pair} )
@@ -1281 +1290 @@
                 bool->import();  # True, False
                 use Quantum::Superpositions;
+                use Math::Complex;
                 $attributes ";