progress

src/js.c

@@ -0,0 +1,106 @@
+#include "pmake.h"
+
+duk_context* js_ctx;
+
+LOAD(js_core);
+LOAD(js_cmdline);
+
+static duk_ret_t js_console_log(duk_context* self){
+	printf("%s\n", duk_to_string(self, 0));
+
+	return 0;
+}
+
+static void js_argv_init(int argc, char** argv){
+	int arr;
+	int i;
+
+	duk_push_global_object(js_ctx);
+	arr = duk_push_array(js_ctx);
+
+	for(i = 0; i < argc; i++){
+		duk_push_string(js_ctx, argv[i]);
+		duk_put_prop_index(js_ctx, arr, i);
+	}
+
+	duk_put_prop_string(js_ctx, 0, "ARGV");
+
+	duk_pop(js_ctx);
+}
+
+static void js_console_init(void){
+	int obj;
+
+	duk_push_global_object(js_ctx);
+	obj = duk_push_object(js_ctx);
+
+	duk_push_c_function(js_ctx, js_console_log, 1);
+	duk_put_prop_string(js_ctx, obj, "log");
+
+	duk_put_prop_string(js_ctx, 0, "console");
+
+	duk_pop(js_ctx);
+}
+
+static duk_ret_t js_process_exit(duk_context* self){
+	duk_idx_t argc = duk_get_top(self);
+	int ex;
+
+	if(argc > 1){
+		return duk_error(self, DUK_ERR_TYPE_ERROR, "needs 0 or 1 argument(s)");
+	}
+
+	if(argc == 1){
+		ex = duk_to_number(self, 0);
+	}else{
+		ex = 0;
+	}
+
+	exit(ex);
+}
+
+static void js_process_init(void){
+	int obj;
+
+	duk_push_global_object(js_ctx);
+	obj = duk_push_object(js_ctx);
+
+	duk_push_c_function(js_ctx, js_process_exit, DUK_VARARGS);
+	duk_put_prop_string(js_ctx, obj, "exit");
+
+	duk_put_prop_string(js_ctx, 0, "process");
+
+	duk_pop(js_ctx);
+}
+
+int js_init(int argc, char** argv){
+	js_ctx = duk_create_heap_default();
+
+	js_argv_init(argc, argv);
+	js_console_init();
+	js_process_init();
+
+	if(duk_peval_lstring(js_ctx, js_core, js_core_len) != 0){
+		printf("error: js/core.js: %s\n", duk_safe_to_string(js_ctx, -1));
+		return 1;
+	}
+
+#define X(name) \
+	if(duk_peval_lstring(js_ctx, compiler_ ## name, compiler_ ## name ## _len) != 0){ \
+		printf("error: %s: %s\n", "compiler/" #name ".js", duk_safe_to_string(js_ctx, -1)); \
+		return 1; \
+	}
+	COMPILERS;
+#undef X
+
+	if(duk_peval_lstring(js_ctx, js_cmdline, js_cmdline_len) != 0){
+		printf("error: js/cmdline.js: %s\n", duk_safe_to_string(js_ctx, -1));
+		return 1;
+	}
+
+	return 0;
+}
+
+void js_uninit(void){
+	duk_destroy_heap(js_ctx);
+}