[js] Implement nqp::execname

Author: pmurias

src/HLL/Compiler.nqp

@@ -25,7 +25,7 @@ class HLL::Compiler does HLL::Backend::Default {
         # Command options and usage.
         @!cmdoptions := nqp::split(' ', 'e=s help|h target=s trace|t=s encoding=s output|o=s source-name=s combine version|v show-config verbose-config|V stagestats=s? ll-exception rxtrace nqpevent=s profile=s? profile-compile=s? profile-filename=s profile-stage=s'
 #?if js
-        ~ ' substagestats beautify nqp-runtime=s perl6-runtime=s libpath=s shebang'
+        ~ ' substagestats beautify nqp-runtime=s perl6-runtime=s libpath=s shebang execname=s'
 #?endif
         );
         %!config     := nqp::hash();
@@ -268,6 +268,11 @@ class HLL::Compiler does HLL::Backend::Default {
             nqp::getcomp('JavaScript').eval('(function(paths) {nqp.libpath(paths.array)})')($*LIBPATH);
         }
 
+        my $*EXECNAME;
+        if %adverbs<execname> {
+            $*EXECNAME := %adverbs<execname>;
+        }
+
         self.command_eval(|@a, |%adverbs);
     }
 

src/vm/js/Compiler.nqp

@@ -1978,6 +1978,7 @@ class QAST::CompilerJS does DWIMYNameMangling does SerializeOnce {
             "'use strict'\n",
             "var nqp = require({quote_string($nqp-runtime || 'nqp-runtime')});\n",
             $libpath,
+            (try $*EXECNAME) ?? "nqp.execname({quote_string($*EXECNAME)});\n" !! '',
             self.declare_wvals,
             $deserializes ?? '' !! self.setup_wvals,
             self.setup_cuids,

src/vm/js/Operations.nqp

@@ -1670,5 +1670,7 @@ class QAST::OperationsJS {
 
     add_simple_op('loadbytecode', $T_STR, [$T_STR], :ctx, :side_effects);
     add_simple_op('loadbytecodefh', $T_VOID, [$T_OBJ, $T_STR], :ctx, :side_effects);
+
+    add_simple_op('execname', $T_STR, []);
 }
 

src/vm/js/nqp-runtime/runtime.js

@@ -476,6 +476,15 @@ exports.paramcheckfailed = function(hllName, ctx, args) {
   return hll.hllConfigs[hllName].get('bind_error').$$call(ctx, null, capture);
 };
 
+let execname;
+exports.execname = function(path) {
+  execname = path;
+};
+
+op.execname = function() {
+  return execname;
+};
+
 exports.NativeRef = require('./reprs.js').NativeRef;
 
 exports.getHLL = hll.getHLL;