Changeset 21534 for perl5

Timestamp:

07/25/08 16:44:53 (4 months ago)

Author:

fglock

Message:

[v6.pm] minor fixed in ranges, error messages

Files:

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

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

@@ -81 +81 @@
 sub _not_implemented {
     my ( $n, $what ) = @_;
-    return "die q(not implemented $what: " . Dumper( $n ) . ")";
+    return "die " . _emit_single_quoted( "not implemented $what: " . Dumper( $n ) );
 }
 
@@ -1494 +1494 @@
     }
 
+    if ( $n->{op1} eq '..' ) {
+        return '(' . _emit( $n->{exp1} ) . ' .. ' . _emit( $n->{exp2} ) . ')';
+    }
+    if ( $n->{op1} eq '^..' ) {
+        return '((' . _emit( $n->{exp1} ) . ')+1 .. ' . _emit( $n->{exp2} ) . ')';
+    }
+    if ( $n->{op1} eq '..^' ) {
+        return '(' . _emit( $n->{exp1} ) . ' .. (' . _emit( $n->{exp2} ) . ')-1)';
+    }
+    if ( $n->{op1} eq '^..^' ) {
+        return '((' . _emit( $n->{exp1} ) . ')+1 .. (' . _emit( $n->{exp2} ) . ')-1)';
+    }
+    
     return '(' . _emit( $n->{exp1} ) . ' ' .
         $n->{op1} . ' ' . _emit( $n->{exp2} ) . ')';