93 lines
1.7 KiB
C
93 lines
1.7 KiB
C
#include "pmake.h"
|
|
|
|
duk_context* js_ctx;
|
|
|
|
LOAD(js_core);
|
|
LOAD(js_cmdline);
|
|
LOAD(js_end);
|
|
|
|
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);
|
|
}
|
|
|
|
int js_init(int argc, char** argv) {
|
|
int st;
|
|
|
|
js_ctx = duk_create_heap_default();
|
|
|
|
js_argv_init(argc, argv);
|
|
js_console_init();
|
|
js_process_init();
|
|
js_fs_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, prefix) \
|
|
if(duk_peval_lstring(js_ctx, prefix##_##name, prefix##_##name##_len) != 0) { \
|
|
printf("error: %s: %s\n", #prefix "/" #name ".js", duk_safe_to_string(js_ctx, -1)); \
|
|
return 1; \
|
|
}
|
|
JS;
|
|
#undef X
|
|
|
|
if((st = js_run("pmake.js")) != 0) return st;
|
|
|
|
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;
|
|
}
|
|
|
|
int js_run(const char* file) {
|
|
FILE* f;
|
|
char* buffer;
|
|
int len;
|
|
|
|
if((f = fopen(file, "rb")) == NULL) {
|
|
printf("No PMake script (pmake.js) found!\n");
|
|
return 1;
|
|
}
|
|
|
|
fseek(f, 0, SEEK_END);
|
|
len = ftell(f);
|
|
fseek(f, 0, SEEK_SET);
|
|
|
|
buffer = malloc(len);
|
|
fread(buffer, 1, len, f);
|
|
|
|
if(duk_peval_lstring(js_ctx, buffer, len) != 0) {
|
|
printf("error: %s: %s\n", file, duk_safe_to_string(js_ctx, -1));
|
|
|
|
free(buffer);
|
|
fclose(f);
|
|
|
|
return 1;
|
|
}
|
|
|
|
free(buffer);
|
|
fclose(f);
|
|
|
|
return 0;
|
|
}
|
|
|
|
void js_uninit(void) {
|
|
duk_destroy_heap(js_ctx);
|
|
}
|