Changeset 21550 for perl5

Timestamp:

07/26/08 18:40:23 (6 months ago)

Author:

fglock

Message:

[v6.pm] array fixes; more tests

Location:

perl5/Pugs-Compiler-Perl6

Files:

• MANIFEST (modified) (1 diff)
• lib/Pugs/Emitter/Perl6/Perl5.pm (modified) (2 diffs)
• lib/Pugs/Runtime/Perl6.pm (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/MANIFEST

@@ -160 +160 @@
 t/spec/S16-io/say.t
 t/spec/S29-any/cmp.t
+t/spec/S29-array/delete.t
 t/spec/S29-array/exists.t
 t/spec/S29-context/exit-in-if.t

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

@@ -666 +666 @@
         )
     {
-        if ( $n->{sub}{bareword} eq 'push' && $n->{op1} eq 'call' ) {
+        if ( (  $n->{sub}{bareword} eq 'push' 
+             || $n->{sub}{bareword} eq 'pop' 
+             )
+            && $n->{op1} eq 'call' ) 
+        {
             if ( _is_paren_containing($n->{param}, \&_is_empty_exp) ) {
-                return _not_implemented( "push without parameters", "call" );
+                return _not_implemented( $n->{sub}{bareword} . " without parameters", "call" );
             }
             if ( _is_paren_containing($n->{param}, \&_is_exp_containing, \&_is_empty_braces ) ) {
@@ -944 +948 @@
                 return 'Pugs::Runtime::Perl6::Array::map([\('.$code.', '. _emit( $n->{self} ).')], {})';
             }
-            if (  $n->{method}{dot_bareword} eq 'delete'
-               || $n->{method}{dot_bareword} eq 'exists'
-               ) {
+            if (  $n->{method}{dot_bareword} eq 'delete' ) {
+                my $self = _emit($n->{self});
+                return '( bless ['
+                    . _emit( $n->{method} ).' '.$self.'['._emit($n->{param}).']'
+                    . "], 'Pugs::Runtime::Perl6::Array' )";
+            }
+            if ( $n->{method}{dot_bareword} eq 'exists' ) {
                 my $self = _emit($n->{self});
                 $self =~ s{\@}{\$};

perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm

@@ -355 +355 @@
     
 package Pugs::Runtime::Perl6::Array;
+    use overload (
+        '""'     => \&str,
+        '0+'     => sub { scalar @{$_[0]} },
+        'bool'   => sub { scalar @{$_[0]} ? 1 : 0 },
+        fallback => 1,
+    );
+    sub str {
+        join( " ", @{$_[0]} )
+    }
 
     sub map {