require shim for Narcissus to run in SpiderMonkey

main.js

// main :: ([string], [string]) -> Narcissus
function main(moduleNames, moduleSources) {
    var Narcissus = {__proto__: null};

    // make the global object available to the interpreter via require("./global")
    Narcissus.global = (new Function("return this"))();

    moduleNames.forEach(function(name) {
        Narcissus[name] = {};
    });

    function require(path) {
        var name = path.replace(/^\.\//, "");
        if (!(name in Narcissus))
            throw new Error("unknown module: " + path);
        return Narcissus[name];
    }

    moduleNames.forEach(function(name, i) {
        var exec = new Function("require", "exports", moduleSources[i]);
        var mod = Narcissus[name];
        exec.call(mod, require, mod);
    });

    return Narcissus;
}

shell.js

var names = [
    "options",
    "definitions",
    "lexer",
    "parser",
    "decompiler",
    "resolver",
    "desugaring",
    "bytecode",
    "interpreter"
];
var sources = names.map(function(name) {
    return read("./" + name + ".js");
});
main(names, sources);