module.exports.capturedRun = /*async*/ function(source, input, compileArgs, args, passedEnv) {
const oldGlobalContext = nqp.freshGlobalContext();
const env = nqp.hash();
const pid = core.fakePid();
const oldGetpid = nqp.op.getpid;
nqp.op.getpid = function() {
return pid;
};
passedEnv.content.forEach((value, key, map) => {
env.content.set(key, new nqp.NQPStr(value.$$getStr()));
});
const oldArgs = nqp.args;
nqp.args = fakeArgs;
const oldGetEnvHash = nqp.op.getenvhash;
nqp.op.getenvhash = function() {
return env;
};
const out = [];
const err = [];
passedArgs = ['perl6-js'].concat(compileArgs, ['*SOURCE*'], args);
const oldExit = nqp.op.exit;
class Exit {
constructor(status) {
this.status = status;
}
}
nqp.op.exit = function(status) {
throw new Exit(status);
};
if (Object.prototype.hasOwnProperty.call(nqp.op.getstdout(), '$$writefh')) {
throw `Can't overwrite $$writefh on stdout, it's already set`;
}
nqp.op.getstdout().$$writefh = function(buf) {
out.push(core.toRawBuffer(buf));
};
if (Object.prototype.hasOwnProperty.call(nqp.op.getstderr(), '$$writefh')) {
throw `Can't overwrite $$writefh on stderr, it's already set`;
}
nqp.op.getstderr().$$writefh = function(buf) {
err.push(core.toRawBuffer(buf));
};
const oldOpen = nqp.op.open;
class ReadFromStringHandle {
constructor(source, flag) {
this.source = Buffer.from(source, 'utf8');
}
$$readfh(buf, bytes) {
if (this.flag) console.log('$$readfh');
core.writeBuffer(buf, 0, this.source.slice(0, bytes));
this.source = this.source.slice(bytes);
return buf;
}
$$eoffh() {
if (this.flag) console.log('$$eoffh');
return (this.source.length === 0 ? 1 : 0);
}
$$closefh() {
if (this.flag) console.log('$$closefh');
}
$$decont(ctx) {
return this;
}
$$isttyfh() {
return 0;
}
$$setbuffersizefh(size) {
return this;
}
$$can(ctx, name) {
return 0;
}
$$toBool(ctx) {
return 1;
}
};
const oldGetstdin = nqp.op.getstdin;
const fakeStdin = new ReadFromStringHandle(input, true);
nqp.op.getstdin = function() {
return fakeStdin;
};
nqp.op.open = function(name, mode) {
if (name === '*SOURCE*') {
return new ReadFromStringHandle(source);
} else {
return oldOpen(name, mode);
}
};
const oldStat = nqp.op.stat;
const EXISTS = 0;
const ISDIR = 2;
nqp.op.stat = function(file, code) {
if (file === '*SOURCE*' && code === EXISTS) {
return 1;
} else if (file === '*SOURCE*' && code === ISDIR) {
return 0;
} else {
return oldStat(file, code);
}
};
let status = 0;
try {
/*await*/ code();
} catch (e) {
if (e instanceof Exit) {
status = e.status;
} else {
throw e;
}
}
delete nqp.op.getstdout().$$writefh;
delete nqp.op.getstderr().$$writefh;
nqp.op.exit = oldExit;
nqp.op.open = oldOpen;
nqp.args = oldArgs;
nqp.op.getenvhash = oldGetEnvHash;
nqp.op.getpid = oldGetpid;
nqp.op.getstdin = oldGetstdin;
nqp.setGlobalContext(oldGlobalContext);
return {
status: status,
out: Buffer.concat(out).toString(),
err: Buffer.concat(err).toString()
};
};
module.exports.compile = function(source, options = {}) {
const oldGlobalContext = nqp.freshGlobalContext();
const oldArgs = nqp.args;
nqp.args = fakeArgs;
const tmp = require('tmp');
const tmpFile = tmp.tmpNameSync();
passedArgs = ['perl6-js', '--output', tmpFile, '--target=js', source];
if (!options.sourceMap) {
passedArgs.splice(1, 0, '--no-source-map');
}
if (Object.prototype.hasOwnProperty.call(nqp.op.getstdout(), '$$writefh')) {
throw `Can't overwrite $$writefh on stdout, it's already set`;
}
const output = [];
nqp.op.getstdout().$$writefh = function(buf) {
output.push(core.toRawBuffer(buf));
}
if (options.rakudoPrecompWith) {
const oldValue = options.rakudoPrecompWith;
process.env.RAKUDO_PRECOMP_WITH = options.rakudoPrecompWith;
code();
process.env.RAKUDO_PRECOMP_WITH = oldValue;
} else {
code();
}
delete nqp.op.getstdout().$$writefh;
const lines = Buffer.concat(output).toString().split(/\n/);
const loaded = [];
for (const line of lines) {
let match;
if (/^[A-Z0-9]{40}\0/.test(line)) {
} else if (match = line.match(/^LOAD-UNIT ID:(.*?) DEPS:(.*?) PATH:(.*)/)) {
const deps = match[2] == '' ? [] : match[2].split(',');
loaded.push({id: match[1], deps: deps, path: match[3]});
} else {
// console.warn('extra line', line);
}
}
nqp.args = oldArgs;
nqp.setGlobalContext(oldGlobalContext);
const fs = require('fs');
const returnValue = {js: fs.readFileSync(tmpFile, 'utf8'), loaded: loaded};
if (options.sourceMap) {
returnValue.sourceMap = JSON.parse(fs.readFileSync(tmpFile + '.map', 'utf8'));
}
return returnValue;
};