106 lines
2 KiB
C
106 lines
2 KiB
C
|
#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);
|
||
|
|
}
|