static void knh_shell(CTX ctx)
{
void *shell_status = NULL;
BEGIN_LOCAL(ctx, lsfp, 2);
// LOCAL_NEW(ctx, lsfp, 0, kInputStream *, bin, new_BytesInputStream(ctx, new_Bytes(ctx, "shell", K_PAGESIZE)));
{
CWB_t cwbbuf, *cwb = CWB_open(ctx, &cwbbuf);
knh_showWelcome(ctx, cwb->w);
knh_showSecurityAlert(ctx, cwb->w);
shell_status = shell_init(ctx, CWB_totext(ctx, cwb), NULL);
CWB_close(ctx, cwb);
}
while(1) {
{
CWB_t cwbbuf, *cwb = CWB_open(ctx, &cwbbuf);
kstatus_t status = readstmt(ctx, cwb);
if(status == K_BREAK) {
CWB_close(ctx, cwb);
break;
}
if(CWB_size(cwb) == 0) {
CWB_close(ctx, cwb);
continue;
}
status = shell_command(ctx, CWB_totext(ctx, cwb));
if(status == K_BREAK) {
CWB_close(ctx, cwb);
break;
}
if(status == K_REDO) {
CWB_close(ctx, cwb);
continue;
}
#ifdef K_USING_SUGAR
kString *script = CWB_newString(ctx, cwb, 0);
KNH_SETv(ctx, lsfp[0].o, script);
knh_beval2(ctx, S_totext(script), 1);
#else
kInputStream *bin = new_BytesInputStream(ctx, CWB_totext(ctx, cwb), CWB_size(cwb));
KNH_SETv(ctx, lsfp[0].o, bin);
knh_beval(ctx, bin, 1);
#endif
}
knh_OutputStream_flush(ctx, ctx->out);
if(ctx->isEvaled == 1) {
CWB_t cwbbuf, *cwb = CWB_open(ctx, &cwbbuf);
knh_write_Object(ctx, cwb->w, ctx->evaled, FMT_dump);
knh_showSecurityAlert(ctx, cwb->w);
if(CWB_size(cwb) !=0) {
shell_display(ctx, shell_status, CWB_totext(ctx, cwb));
}
CWB_close(ctx, cwb);
WCTX(ctx)->isEvaled = 0;
}
}
shell_cleanup(ctx, shell_status);
END_LOCAL(ctx, lsfp);
}
static uintptr_t p_init(uintptr_t context)
{
struct konoha_context *c = malloc(sizeof(struct konoha_context));
memcpy(c, (struct konoha_context*) context, sizeof(*c));
KonohaContext *kctx = c->konoha;
BEGIN_LOCAL(lsfp, K_CALLDELTA + 5);
KSETv_AND_WRITE_BARRIER(NULL, lsfp[K_CALLDELTA+0].o, c->finit->self, GC_NO_WRITE_BARRIER);
KCALL(lsfp, 0, c->finit->mtd, 0, K_NULL);
END_LOCAL();
return (uintptr_t) c;
}
static uintptr_t p_func(uintptr_t context, struct LogEntry *e)
{
struct konoha_context *c = malloc(sizeof(struct konoha_context));
KonohaContext *kctx = c->konoha;
kObject *log = (kObject *) Log_new(kctx, (struct Log *) &e->data);
BEGIN_LOCAL(lsfp, K_CALLDELTA + 5);
KSETv_AND_WRITE_BARRIER(NULL, lsfp[K_CALLDELTA+0].o, c->func->self, GC_NO_WRITE_BARRIER);
KSETv_AND_WRITE_BARRIER(NULL, lsfp[K_CALLDELTA+1].o, log, GC_NO_WRITE_BARRIER);
KCALL(lsfp, 0, c->func->mtd, 0, K_NULL);
END_LOCAL();
return context;
}
static uintptr_t p_exit(uintptr_t context)
{
struct konoha_context *c = malloc(sizeof(struct konoha_context));
KonohaContext *kctx = c->konoha;
BEGIN_LOCAL(lsfp, K_CALLDELTA + 5);
KSETv_AND_WRITE_BARRIER(NULL, lsfp[K_CALLDELTA+0].o, c->fexit->self, GC_NO_WRITE_BARRIER);
KCALL(lsfp, 0, c->fexit->mtd, 0, K_NULL);
END_LOCAL();
bzero(c, sizeof(*c));
free(c);
return lsfp[0].intValue;
}
int main(int argc, const char *argv[])
{
int i, argc_ = argc;
const char *argv_[argc_];
const char *fname = parse_option(&argc_, argv, argv_);
if (fname == NULL) {
fprintf(stderr, "%s [--emit-llvm/--emit-js] file\n", argv[0]);
return 1;
}
konoha_t konoha = konoha_open();
CTX ctx = konoha;
kString *s = new_T(fname);
knh_DictMap_set(ctx, ctx->share->props, new_T("script.name"), s);
kArray *a = new_Array(ctx, CLASS_String, argc_);
for(i = 2; i < argc_; i++) {
knh_Array_add(ctx, a, new_String2(ctx, CLASS_String, argv_[i],
knh_strlen(argv_[i]), SPOL_TEXT|SPOL_POOLALWAYS));
}
knh_DictMap_set(ctx, ctx->share->props, new_T("script.argv"), a);
kbytes_t t = knh_bytes_nsname(S_tobytes(s));
knh_Script_setNSName(ctx, ctx->script, new_S(t.text, t.len));
kbytes_t pkgname = STEXT("konoha.compiler");
knh_loadPackage(ctx, pkgname);
load_codegenerator(ctx);
if (!compiler_run_main) {
knh_setCompileMode(ctx, 1);
}
knh_startScript(ctx, (const char*)fname);
/* CompilerAPI->dump() */
kMethod *mtd = load_method(ctx,
O_cid(ctx->share->konoha_compiler), STEXT("dump"));
BEGIN_LOCAL(ctx, lsfp, K_CALLDELTA+1); {
KNH_SETv(ctx, lsfp[K_CALLDELTA].o, ctx->share->konoha_compiler);
KNH_SCALL(ctx, lsfp, 0, mtd, 0);
} END_LOCAL(ctx, lsfp);
if (compiler_run_main) {
knh_stack_clear(ctx, ctx->stack);
knh_runMain(ctx, argc_, argv_);
}
konoha_close(konoha);
return 0;
}
static int konoha_handler(request_rec *r)
{
//konoha_config_t *conf = ap_get_module_config(
// r->server->module_config, &konoha_module);
if(strcmp(r->handler, "konoha-script")) {
return DECLINED;
}
// if(r->method_number != M_GET) {
// TODO
// return HTTP_METHOD_NOT_ALLOWED;
// }
KonohaClass *cRequest;
verbose_debug = 1;
KonohaContext* konoha = konoha_create(&cRequest);
//assert(cRequest != NULL);
r->content_encoding = "utf-8";
ap_log_rerror(APLOG_MARK, APLOG_CRIT, 0, r, "filename=%s", r->filename);
if(Konoha_LoadScript(konoha, r->filename)) {
return DECLINED;
}
KonohaContext *kctx = konoha;
kNameSpace *ns = KNULL(NameSpace);
kMethod *mtd = KLIB kNameSpace_GetMethodByParamSizeNULL(kctx, ns, TY_System, MN_("handler"), -1); // fixme
if(mtd == NULL) {
ap_log_rerror(APLOG_MARK, APLOG_CRIT, 0, r, "System.handler() not found");
return -1;
}
/* XXX: We assume Request Object may not be freed by GC */
kObject *req_obj = KLIB new_kObject(kctx, OnStack, cRequest, (uintptr_t)r);
BEGIN_LOCAL(lsfp, K_CALLDELTA + 1);
KUnsafeFieldSet(lsfp[K_CALLDELTA+0].asObject, K_NULL);
KUnsafeFieldSet(lsfp[K_CALLDELTA+1].asObject, req_obj);
{
KonohaStack *sfp = lsfp + K_CALLDELTA;
KSetMethodCallStack(sfp, 0/*UL*/, mtd, 1, KLIB Knull(kctx, CT_Int));
KonohaRuntime_callMethod(kctx, sfp);
}
END_LOCAL();
int ret = lsfp[0].intValue;
Konoha_Destroy(konoha);
return ret;
}
static void knh_Actor_invokeMethod(CTX ctx, knh_Actor_t *a, const char *mtd_name, Object *msg)
{
//knh_MailBox_t *box = a->mailbox;
//knh_Message_t *msg = knh_MailBox_popMessage(box);
//const char *mtd_name = msg->mtd_name;
//Object *o = msg->msg;
knh_MethodInfo_t **info = a->mtd_info;
int i = 0;
for (i = 0; i < MAX_METHOD_NUM; i++) {
if (!strncmp(mtd_name, info[i]->mtd_name, sizeof(mtd_name))) {
//fprintf(stderr, "find method!!\n");
BEGIN_LOCAL(ctx, lsfp, 6);
KNH_SETv(ctx, lsfp[5].o, msg);
KNH_SCALL(ctx, lsfp, 0, info[i]->mtd, 2);
END_LOCAL_(ctx, lsfp);
break;
}
}
}
static int knh_runMain(CTX ctx, int argc, const char **argv)
{
KONOHA_BEGIN(ctx);
kMethod *mtd = ClassTBL_getMethodNULL(ctx, O_cTBL(ctx->script), MN_main);
int res = 0;
if(mtd != NULL) {
int thisidx = 1 + K_CALLDELTA;
BEGIN_LOCAL(ctx, lsfp, 5);
lsfp[1].ivalue = 0;
lsfp[thisidx+K_PCIDX].pc = NULL;
klr_setmtdNC(ctx,lsfp[thisidx+K_MTDIDX], mtd);
KNH_SETv(ctx, lsfp[thisidx].o, ctx->script);
KNH_SETv(ctx, lsfp[thisidx+1].o, knh_getPropertyNULL(ctx, STEXT("script.argv")));
klr_setesp(ctx, lsfp + thisidx+2);
if(knh_VirtualMachine_launch(ctx, lsfp + thisidx)) {
res = (int)lsfp[1].ivalue;
}
END_LOCAL(ctx, lsfp);
}
KONOHA_END(ctx);
return res;
}
