/* added by Wakamori */
static kbool_t method_isPermissionAllowed(CTX ctx, kMethod *mtd)
{
kDictMap *dmap = ctx->share->securityDictMap;
CWB_t cwbbuf, *cwb = CWB_open0(ctx, &cwbbuf);
CWB_write(ctx, cwb, S_tobytes(ClassTBL(mtd->cid)->sname));
CWB_putc(ctx, cwb, '.');
CWB_write(ctx, cwb, B(MN__(mtd->mn)));
DBG_P("[methodname] : %s", CWB_tobytes(cwb).text);
const char *idx, *p = role;
while (p[0] != '\0') {
idx = strchr((const char *)p, ',');
kArray *a = NULL;
if (idx != NULL) {
a = (kArray *)knh_DictMap_getNULL(ctx, dmap, new_bytes2(p, idx - p));
p = idx + 1;
} else {
a = (kArray *)knh_DictMap_getNULL(ctx, dmap, B(p));
p += knh_strlen(p);
}
if (a != NULL) {
int i;
for (i = 0; i < knh_Array_size(a); i++) {
const char *s = S_totext((kString*)knh_Array_n(a, i));
if (strstr(s, CWB_tobytes(cwb).text) != NULL
|| strstr(s, "all") != NULL) {
// this method is allowed to be executed by this role
CWB_close0(ctx, cwb);
return 1;
}
}
}
}
CWB_close0(ctx, cwb);
return 0;
}
static kbytes_t knh_KonohaSpace_getDpiPath(CTX , kKonohaSpace *ns, kbytes_t path)
{
while(DP(ns)->name2dpiNameDictMapNULL != NULL) {
kString *s = (kString*)knh_DictMap_getNULL(_ctx, DP(ns)->name2dpiNameDictMapNULL, path);
if(s != NULL) return S_tobytes(s);
if(ns->parentNULL == NULL) break;
ns = ns->parentNULL;
}
return path;
}
knh_String_t* knh_getPropertyNULL(Ctx *ctx, knh_bytes_t key)
{
if(knh_bytes_startsWith(key, STEXT("env."))) {
knh_cwb_t cwbbuf, *cwb = knh_cwb_open(ctx, &cwbbuf);
knh_cwb_nzenvkey(ctx, cwb, knh_bytes_last(key, 4));
char *v = knh_getenv(knh_cwb_tochar(ctx, cwb));
knh_cwb_close(cwb);
if(v == NULL) return NULL;
return new_S(ctx, B(v));
}
return (knh_String_t*)knh_DictMap_getNULL(ctx, DP(ctx->sys)->props, key);
}
kString* knh_getPropertyNULL(CTX, kbytes_t key)
{
if(knh_bytes_startsWith_(key, STEXT("env."))) {
CWB_t cwbbuf, *cwb = CWB_open(_ctx, &cwbbuf);
CWB_nzenvkey(_ctx, cwb, knh_bytes_last(key, 4));
char *v = knh_getenv(CWB_totext(_ctx, cwb));
CWB_close(_ctx, cwb);
if(v == NULL) return NULL;
return new_kString(v, knh_strlen(v), SPOL_ASCII|SPOL_POOL);
}
return (kString*)knh_DictMap_getNULL(_ctx, ctx->share->props, key);
}
knh_Fmethod knh_gluefunc(CTX ctx, kMethod *mtd, kNameSpace *ns, kDictMap *mdata)
{
knh_Fmethod gluefunc = NULL;
kObject *gluedata = knh_DictMap_getNULL(ctx, mdata, STEXT("gluefunc"));
if(gluedata != NULL && IS_bString(gluedata)) {
if(ns->gluehdr == NULL) {
DBG_P("gluehdr is not open");
}
else {
gluefunc = (knh_Fmethod)knh_dlsym(ctx, ns->gluehdr, S_totext((kString*)gluedata), NULL, 0);
if(gluefunc == NULL) {
DBG_P("gluefunc is not found: %s", S_totext((kString*)gluedata));
}
}
}
//if(gluefunc == NULL) {
// gluefunc = Fmethod_FFI;
//}
return gluefunc;
}
static void knh_setArgs(CTX ctx, Args_t *args, kMap *m)
{
kDictMap *dmap = knh_toDictMap(ctx, m, 0);
ksfp_t *lsfp = ctx->esp;
knitr_t mitrbuf = K_NITR_INIT, *mitr = &mitrbuf;
klr_setesp(ctx, lsfp+1);
char buf[256] = {0};
while(m->spi->next(ctx, m->mapptr, mitr, lsfp)) {
const char *key = S_totext(lsfp[0].s);
Object *o = knh_DictMap_getNULL(ctx, dmap, S_tobytes(lsfp[0].s));
switch (O_cid(o)) {
case CLASS_Int:
knh_snprintf(buf, sizeof(buf), "%s=" KINT_FMT, key, N_toint(o));
break;
case CLASS_Float:
knh_snprintf(buf, sizeof(buf), "%s=" KFLOAT_FMT, key, N_tofloat(o));
break;
case CLASS_Boolean:
knh_snprintf(buf, sizeof(buf), "%s=%s",
key, N_tobool(o) ? "true" : "false");
break;
case CLASS_String:
knh_snprintf(buf, sizeof(buf), "%s=%s", key, S_totext((kString *)o));
break;
default:
TODO();
break;
}
DBG_P("m[%s] = {class:%s, struct:%s, o:%s}", S_totext(lsfp[0].s),
CLASS__(O_cid(o)), STRUCT__(O_bcid(o)), O__(o));
if (knh_strlen(buf) > 0) {
DBG_P("param: \"%s\"", buf);
oauth_add_param_to_array(&args->argc, &args->argv, buf);
}
buf[0] = '\0';
klr_setesp(ctx, lsfp+1);
}
}
static void load_codegenerator(CTX ctx)
{
KONOHA_BEGIN(ctx);
CompilerAPI_disable(ctx);
if (codegenerator_file[compile_mode]) {
kbytes_t t = new_bytes((char*)codegenerator_file[compile_mode]);
knh_loadPackage(ctx, t);
CWB_t cwbbuf, *cwb = CWB_open(ctx, &cwbbuf);
kString *s = (kString *) knh_DictMap_getNULL(ctx, ctx->share->props, STEXT("konoha.package.path"));
CWB_clear(cwb, 0);
knh_buff_addpath(ctx, cwb->ba, cwb->pos, 0, S_tobytes(s));
knh_buff_addpath(ctx, cwb->ba, cwb->pos, 1, STEXT("konoha.compiler"));
knh_buff_addpath(ctx, cwb->ba, cwb->pos, 1, STEXT("compiler"));
knh_buff_addpath(ctx, cwb->ba, cwb->pos, 0, STEXT(K_OSDLLEXT));
void *p = knh_dlopen(ctx, CWB_totext(ctx, cwb));
typedef void (*knh_Fpkgcomplete)(CTX);
knh_Fpkgcomplete pkgcomplete = (knh_Fpkgcomplete) knh_dlsym(ctx, p, "reset_compiler_api", NULL, 1);
if (pkgcomplete) pkgcomplete(ctx);
CWB_close(ctx, cwb);
}
CompilerAPI_enable(ctx);
KONOHA_END(ctx);
}
//@Native @Public System.ntrace_notice(String title, Map ldata);
KMETHOD System_ntraceNotice (CTX ctx, ksfp_t *sfp _RIX)
{
char *title = String_to(char *, sfp[1]);
kMap *mdata = sfp[2].m;
kmapptr_t *mapptr = mdata->mapptr;
knh_ldata_t log_buffer[64] = {0};
int logidx = 0;
// suppose p1 is "String"
ksfp_t *lsfp = ctx->esp;
knitr_t mitrbuf = K_NITR_INIT, *mitr = &mitrbuf;
klr_setesp(ctx, lsfp+1);
while(mdata->spi->next(ctx, mapptr, mitr, lsfp)) {
kString *key = lsfp[0].s;
kObject *value = knh_DictMap_getNULL(ctx, (kDictMap*)mdata, S_tobytes(key));
kclass_t cid = O_cid(value);
if (cid == CLASS_Int) {
knh_ldata_t item[] = {LOG_i(S_totext(key), N_toint(value))};
log_buffer[logidx++] = item[0];
log_buffer[logidx++] = item[1];
log_buffer[logidx++] = item[2];
} else if (cid == CLASS_Float) {
knh_ldata_t item[] = {LOG_f(S_totext(key), N_tofloat(value))};
log_buffer[logidx++] = item[0];
log_buffer[logidx++] = item[1];
log_buffer[logidx++] = item[2];
} else if (cid == CLASS_String) {
knh_ldata_t item[] = {LOG_s(S_totext(key), S_totext((kString*)value))};
log_buffer[logidx++] = item[0];
log_buffer[logidx++] = item[1];
