- Added deparsing support for %s(...) and %S(...);

- Minor performance improvement for parsing hyper-operators -- the operator is no longer stored inside a Sidef string.
trizen · Aug 21, 2015 · 90df3cb · 90df3cb
1 parent 622a7d9
commit 90df3cb
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/lib/Sidef/Deparse/Sidef.pm b/lib/Sidef/Deparse/Sidef.pm
@@ -238,6 +238,12 @@ package Sidef::Deparse::Sidef {
                 $code = 'return';
             }
         }
+        elsif ($ref eq 'Sidef::Module::OO') {
+            $code = "%s($obj->{module})";
+        }
+        elsif ($ref eq 'Sidef::Module::Func') {
+            $code = "%S($obj->{module})";
+        }
         elsif ($ref eq 'Sidef::Types::Block::Gather') {
             if (exists $addr{refaddr($obj->{block})}) {
                 $code = '';

diff --git a/lib/Sidef/Parser.pm b/lib/Sidef/Parser.pm
@@ -1933,7 +1933,7 @@ package Sidef::Parser {
             push @{$opt{array}},
               {
                 method => $self->{hyper_ops}{$opt{op_type}}[1],
-                arg    => [Sidef::Types::String::String->new($opt{method})],
+                arg    => [$opt{method}],
               };
         }
 

diff --git a/lib/Sidef/Types/Array/Array.pm b/lib/Sidef/Types/Array/Array.pm
@@ -39,12 +39,11 @@ package Sidef::Types::Array::Array {
     sub unroll_operator {
         my ($self, $operator, $arg) = @_;
 
-        my @array;
-
         if (ref $operator) {
             $operator = $operator->get_value;
         }
 
+        my @array;
         if (defined $arg) {
             foreach my $i (0 .. $#{$self}) {
                 push @array, $self->[$i]->get_value->$operator($arg->[$i]->get_value);