Perlito5 - js - implement "\( @A )"

fglock · May 28, 2014 · b3219ea · b3219ea
1 parent 234d9e6
commit b3219ea
Show file tree

Hide file tree

Showing 4 changed files with 54 additions and 26 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
diff --git a/perlito5.pl b/perlito5.pl
diff --git a/src5/lib/Perlito5/Javascript2/Emitter.pm b/src5/lib/Perlito5/Javascript2/Emitter.pm
@@ -258,7 +258,7 @@ package Perlito5::Javascript2;
              && (  exists($op_to_str{ $_[0]->{code} })
                 || exists($op_to_num{ $_[0]->{code} })
                 || exists($op_to_bool{ $_[0]->{code} })
-                || $_[0]->{code} eq 'prefix:<\\>'
+                #  || $_[0]->{code} eq 'prefix:<\\>'    -- \(@a) is a list
                 )
              )
     }
@@ -1734,6 +1734,10 @@ package Perlito5::AST::Apply;
                 #     # TODO
                 #     return '(new p5GlobRef(' . $arg->emit_javascript2($level) . '))';
                 # }
+                if ( $arg->{code} eq 'circumfix:<( )>' ) {
+                    # \( @x )
+                    return 'p5_list_of_refs(' . Perlito5::Javascript2::to_list( $arg->{arguments} ) . ')';
+                }
                 if ( $arg->{code} eq 'prefix:<&>' ) {
                     return 'p5code_lookup_by_name("' . $Perlito5::PKG_NAME . '", ' . $arg->{arguments}->[0]->emit_javascript2($level) . ')';
                 }

diff --git a/src5/lib/Perlito5/Javascript2/Runtime.pm b/src5/lib/Perlito5/Javascript2/Runtime.pm
@@ -575,6 +575,15 @@ p5list_to_a = function() {
     return res;
 };
 
+p5_list_of_refs = function(a) {
+    // implements \( @a )
+    var res = [];
+    for (i = 0; i < a.length; i++) {
+        res.push(new p5ScalarRef(a[i]));
+    }
+    return res;
+};
+
 p5a_to_h = function(a) {
     var res = {};
     for (i = 0; i < a.length; i+=2) {