commonjs.c
No OneTemporary
Actions

Size

5 KB

Referenced Files

None

Subscribers

None

commonjs.c
View Options

	#include "esm/commonjs.h"
	#include "esm/loader.h"

	#include "internal.h"
	#include "reactor.h"
	#include "errors.h"

	#include "silver/compiler.h"
	#include "silver/vm.h"

	#include <libgen.h>
	#include <string.h>
	#include <stdlib.h>

	static jsval_t esm_cjs_require(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1 \|\| vtype(args[0]) != T_STR)
	return js_mkerr(js, "require() expects a string specifier");

	jsval_t fn = js_getcurrentfunc(js);
	jsval_t data = js_get_slot(js, fn, SLOT_DATA);
	const char *prev_filename = js->filename;

	if (vtype(data) == T_STR) {
	jsoff_t path_len = 0;
	jsoff_t path_off = vstr(js, data, &path_len);
	(void)path_len;
	js_set_filename(js, (const char *)&js->mem[path_off]);
	}

	jsval_t ns = js_esm_import_sync(js, args[0]);
	js_set_filename(js, prev_filename);
	if (is_err(ns)) return ns;

	if (vtype(ns) == T_OBJ) {
	jsval_t default_export = js_get_slot(js, ns, SLOT_DEFAULT);
	if (vtype(default_export) != T_UNDEF) return default_export;
	}
	return ns;
	}

	static jsval_t esm_cjs_require_resolve(ant_t js, jsval_t args, int nargs) {
	if (nargs < 1 \|\| vtype(args[0]) != T_STR) {
	return js_mkerr(js, "require.resolve() expects a string specifier");
	}

	jsval_t fn = js_getcurrentfunc(js);
	jsval_t data = js_get_slot(js, fn, SLOT_DATA);
	const char *base_path = js->filename ? js->filename : ".";

	if (vtype(data) == T_STR) {
	jsoff_t data_len = 0;
	jsoff_t data_off = vstr(js, data, &data_len);
	base_path = (const char *)&js->mem[data_off];
	}

	jsval_t resolved = js_esm_resolve_specifier(js, args[0], base_path);
	if (is_err(resolved)) return resolved;
	if (vtype(resolved) != T_STR) return resolved;

	jsoff_t len = 0;
	jsoff_t off = vstr(js, resolved, &len);

	const char s = (const char )&js->mem[off];
	static const char *prefix = "file://";

	if ((size_t)len >= strlen(prefix) && strncmp(s, prefix, strlen(prefix)) == 0) {
	const char *path_part = s + strlen(prefix);
	size_t path_len = (size_t)len - strlen(prefix);
	return js_mkstr(js, path_part, path_len);
	}

	return resolved;
	}

	static jsval_t esm_populate_cjs_namespace(ant_t *js, jsval_t ns, jsval_t exports_val) {
	jsval_t set_default = setprop_cstr(js, ns, "default", 7, exports_val);
	if (is_err(set_default)) return set_default;

	js_set_slot(js, ns, SLOT_DEFAULT, exports_val);
	if (!is_object_type(exports_val)) return js_mkundef();

	ant_iter_t iter = js_prop_iter_begin(js, exports_val);
	const char *key = NULL;
	size_t key_len = 0;

	while (js_prop_iter_next(&iter, &key, &key_len, NULL)) {
	if (key_len == 7 && memcmp(key, "default", 7) == 0) continue;

	jsval_t value = js_get(js, exports_val, key);
	if (is_err(value)) { js_prop_iter_end(&iter); return value; }

	jsval_t res = setprop_cstr(js, ns, key, key_len, value);
	if (is_err(res)) { js_prop_iter_end(&iter); return res; }
	}

	js_prop_iter_end(&iter);
	return js_mkundef();
	}

	static jsval_t esm_eval_commonjs_function(
	ant_t *js,
	const char *code,
	size_t code_len,
	jsval_t require_fn,
	jsval_t module_obj,
	jsval_t exports_obj,
	jsval_t filename_val,
	jsval_t dirname_val
	) {
	static const char *cjs_params = "require,module,exports,__filename,__dirname";

	sv_func_t *compiled = sv_compile_function_parts(
	js, cjs_params,
	strlen(cjs_params),
	code, code_len,
	false
	);

	if (!compiled) {
	if (js->thrown_exists) return mkval(T_ERR, 0);
	return js_mkerr_typed(js, JS_ERR_INTERNAL \| JS_ERR_NO_STACK, "Unexpected compile error");
	}

	js_clear_error_site(js);
	jsval_t args[] = {require_fn, module_obj, exports_obj, filename_val, dirname_val};
	return sv_execute_entry(js->vm, compiled, exports_obj, args, 5);
	}

	jsval_t esm_load_commonjs_module(
	ant_t *js,
	const char module_path, const char code,
	size_t code_len, jsval_t ns
	) {
	char *path_copy = strdup(module_path);
	if (!path_copy) return js_mkerr(js, "OOM loading CommonJS module");

	jsval_t module_obj = js_mkobj(js);
	jsval_t exports_obj = js_mkobj(js);

	js_set(js, module_obj, "exports", exports_obj);
	js_set(js, module_obj, "loaded", js_false);
	js_set(js, module_obj, "id", js_mkstr(js, module_path, strlen(module_path)));
	js_set(js, module_obj, "filename", js_mkstr(js, module_path, strlen(module_path)));

	jsval_t require_fn = js_heavy_mkfun(
	js, esm_cjs_require,
	js_mkstr(js, module_path, strlen(module_path))
	);

	jsval_t require_resolve_fn = js_heavy_mkfun(
	js, esm_cjs_require_resolve,
	js_mkstr(js, module_path, strlen(module_path))
	);

	js_set(js, require_fn, "resolve", require_resolve_fn);

	char *dir = dirname(path_copy);
	jsval_t dirname_val = js_mkstr(js, dir, strlen(dir));
	jsval_t filename_val = js_mkstr(js, module_path, strlen(module_path));

	const char *prev_filename = js->filename;
	js_set_filename(js, module_path);

	jsval_t result = esm_eval_commonjs_function(
	js, code, code_len,
	require_fn, module_obj, exports_obj,
	filename_val, dirname_val
	);

	if (vtype(result) == T_PROMISE) js_run_event_loop(js);
	js_set(js, module_obj, "loaded", js_true);
	jsval_t exports_val = js_get(js, module_obj, "exports");

	if (!is_err(result) && !js->thrown_exists) {
	jsval_t ns_res = esm_populate_cjs_namespace(js, ns, exports_val);
	if (is_err(ns_res)) result = ns_res;
	}

	js_set_filename(js, prev_filename);
	free(path_copy);

	if (is_err(result)) return result;
	return exports_val;
	}

File Metadata

Mime Type: text/x-c
Expires: Thu, Mar 26, 4:42 PM (2 d)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 511999
Default Alt Text: commonjs.c (5 KB)

commonjs.cNo OneTemporaryActions

commonjs.cView Options

File Metadata

Event Timeline

commonjs.c
No OneTemporary
Actions

commonjs.c
View Options