Perlito5 - js - fix caller(), typeglob-reference assignment, grep; added minimal Carp module

Author: fglock

html/perlito5.js

@@ -15,6 +15,7 @@ my %Perlito_internal_module = (
     utf8     => 'Perlito5::utf8',
     bytes    => 'Perlito5::bytes',
     encoding => 'Perlito5::encoding',
+    Carp     => 'Perlito5::Carp',
 );
 
 

perlito5.pl

@@ -43,6 +43,12 @@ CORE.bless = function(List__) {
     return o;
 };
 
+CORE.caller = function(List__, want) {
+    return p5pkg["Perlito5"].v_CALLER._array_ ?
+           p5pkg["Perlito5"].v_CALLER._array_[0]._array_ :
+           p5context([], want);
+};
+
 CORE.chr = function(List__) {
     var v = p5num(List__[0]);
     return String.fromCharCode(v >= 0 ? v : 65533);

src5/lib/Perlito5/Grammar/Use.pm

@@ -1557,6 +1557,12 @@ package Perlito5::AST::Apply;
                 . Perlito5::Javascript2::to_scalar([$arguments], $level+1)
                 . ')';
         }
+        if ($code eq 'prefix:<*>') {
+            return 'p5typeglob_deref_set(' 
+                . Perlito5::Javascript2::to_scalar($self->{arguments}, $level+1) . ', '
+                . Perlito5::Javascript2::to_scalar([$arguments], $level+1)
+                . ')';
+        }
 
         '(' . $self->emit_javascript2( $level+1 ) . ' = ' . $arguments->emit_javascript2( $level+1 ) . ')';
     }
@@ -2232,7 +2238,16 @@ package Perlito5::AST::Apply;
             my $level     = shift;
             my $wantarray = shift;
             my @in  = @{$self->{arguments}};
-            my $fun  = shift @in;
+
+            my $fun;
+
+            if ( $self->{special_arg} ) {
+                # TODO - test 'special_arg' type (scalar, block, ...)
+                $fun  = $self->{special_arg};
+            }
+            else {
+                $fun  = shift @in;
+            }
             my $list = Perlito5::Javascript2::to_list(\@in);
 
             if (ref($fun) eq 'Perlito5::AST::Lit::Block') {

src5/lib/Perlito5/Javascript2/CORE.pm

@@ -328,6 +328,21 @@ function p5typeglob_set(namespace, name, obj) {
     return p5pkg[namespace][name];  // TODO - return GLOB
 }
 
+function p5typeglob_deref_set(v, obj) {
+    if (typeof v === "string") {
+        var pkg_name = v.split(/::/);
+        if (pkg_name.length > 1) {
+            v = pkg_name.pop();
+            pkg_name = pkg_name.join("::");
+        }
+        else {
+            pkg_name = p5pkg["Perlito5"].v_PKG_NAME;
+        }
+        return p5typeglob_set(pkg_name, v, obj);
+    }
+    CORE.die(["TODO: can't p5typeglob_deref_set()"]);
+}
+
 function p5set_local(namespace, name, sigil) {
     var vname = sigils[sigil] + name;
     p5LOCAL.push([namespace, vname, namespace[vname]]);