// boolean NameSpace.load(String path);
static KMETHOD NameSpace_loadScript(KonohaContext *kctx, KonohaStack *sfp)
{
char pathbuf[512];
const char *path = PLATAPI formatTransparentPath(pathbuf, sizeof(pathbuf), KFileLine_textFileName(sfp[K_RTNIDX].calledFileLine), kString_text(sfp[1].asString));
KMakeTrace(trace, sfp);
kNameSpace_LoadScript(kctx, sfp[0].asNameSpace, path, trace);
}
static void UI_ReportUserMessage(KonohaContext *kctx, kinfotag_t level, kfileline_t pline, const char *msg, int isNewLine)
{
const char *beginTag = BeginTag(kctx, level);
const char *endTag = EndTag(kctx, level);
const char *kLF = isNewLine ? "\n" : "";
if(pline > 0) {
const char *file = KFileLine_textFileName(pline);
PLATAPI printf_i("%s - (%s:%d) %s%s%s" , beginTag, PLATAPI shortFilePath(file), (kushort_t)pline, msg, kLF, endTag);
}
else {
PLATAPI printf_i("%s%s%s%s", beginTag, msg, kLF, endTag);
}
}
static void DumpOpArgument(KonohaContext *kctx, KBuffer *wb, KVirtualCodeType type, KVirtualCode *c, size_t i, KVirtualCode *vcode_start)
{
switch(type) {
case VMT_VOID: break;
case VMT_ADDR:
KLIB KBuffer_printf(kctx, wb, " L%d", (int)((KVirtualCode *)c->p[i] - vcode_start));
break;
case VMT_UL: {
kfileline_t uline = (kfileline_t)c->data[i];
KLIB KBuffer_printf(kctx, wb, " (%s:%d)", PLATAPI shortFilePath(KFileLine_textFileName(uline)), (khalfword_t)uline);
break;
}
case VMT_R: {
KLIB KBuffer_printf(kctx, wb, " sfp[%d,r=%d]", (int)c->data[i]/2, (int)c->data[i]);
break;
}
case VMT_FX: {
khalfword_t index = (khalfword_t)c->data[i];
khalfword_t xindex = (khalfword_t)(c->data[i] >> (sizeof(khalfword_t)*8));
KLIB KBuffer_printf(kctx, wb, " sfp[%d,r=%d][%d]", (int)index/2, (int)index, (int)xindex);
break;
}
case VMT_U:
KLIB KBuffer_printf(kctx, wb, " i%ld", (long)c->data[i]); break;
case VMT_C:
case VMT_TY:
KLIB KBuffer_printf(kctx, wb, "(%s)", KClass_text(c->ct[i])); break;
case VMT_F:
KLIB KBuffer_printf(kctx, wb, " function(%p)", c->p[i]); break;
case VMT_Object: {
kObject *o = c->o[i];
if(IS_Method(o)) {
kMethod *mtd = (kMethod *)o;
KLIB KBuffer_printf(kctx, wb, " %s.%s%s", KType_text(mtd->typeId), KMethodName_Fmt2(mtd->mn));
}
else {
KLIB KBuffer_printf(kctx, wb, " (%s)", KClass_text(kObject_class(o)));
KLIB kObject_WriteToBuffer(kctx, o, 0, wb, NULL, 0);
}
break;
}
case VMT_HCACHE:
break;
}/*switch*/
}
static void kException_AddStackTrace(KonohaContext *kctx, KonohaStack *sfp, kException *e)
{
kMethod *mtd = sfp[K_MTDIDX].calledMethod;
KBuffer wb;
KLIB KBuffer_Init(&kctx->stack->cwb, &wb);
kfileline_t uline = sfp[K_RTNIDX].calledFileLine;
if(uline > 0) {
const char *file = KFileLine_textFileName(uline);
KLIB KBuffer_printf(kctx, &wb, "(%s:%d) %s.%s%s" , PLATAPI shortFilePath(file), (kushort_t)uline, kMethod_Fmt3(mtd));
}
// int i = 0, psize = kMethod_ParamSize(mtd);
// kParam *pa = kMethod_GetParam(mtd);
// KClass *thisClass = O_cid(sfp[0]);
// for(i = 0; i < psize; i++) {
// pa->paramtypeItems[0].attrTypeId;
// if(i > 0) {
// knh_putc(ctx, cwb->w, ',');
// }
// knh_Write_fn(ctx, cwb->w, p->fn);
// knh_putc(ctx, cwb->w, '=');
// knh_Write_sfp(ctx, cwb->w, type, &sfp[i+1], FMT_line);
// }
const char *msg = KLIB KBuffer_text(kctx, &wb, EnsureZero);
KLIB new_kString(kctx, e->StackTraceList, msg, strlen(msg), 0);
// if((mtd)->mn != MN_LAMBDA) {
// knh_uline_t uline = knh_stack_uline(ctx, sfp);
// knh_Write_uline(ctx, cwb->w, uline);
// knh_Write_type(ctx, cwb->w, (mtd)->cid);
// knh_putc(ctx, cwb->w, '.');
// knh_Write_mn(ctx, cwb->w, (mtd)->mn);
// knh_putc(ctx, cwb->w, '(');
// knh_putc(ctx, cwb->w, ')');
// if(DP(e)->tracesNULL == NULL) {
// KNH_INITv(DP(e)->tracesNULL, new_Array(ctx, CLASS_String, 0));
// }
// knh_Array_Add(ctx, DP(e)->tracesNULL, knh_cwb_newString(ctx, cwb));
// }
}
//## @Const String File.scriptPath(String path);
static KMETHOD File_scriptPath(KonohaContext *kctx, KonohaStack *sfp)
{
char scriptPathBuf[K_PATHMAX];
const char *scriptPath = PLATAPI formatTransparentPath(scriptPathBuf, sizeof(scriptPathBuf), KFileLine_textFileName(sfp[K_RTNIDX].calledFileLine), kString_text(sfp[1].asString));
kStringVar *resultValue = (kStringVar *)KLIB new_kString(kctx, OnStack, scriptPath, strlen(scriptPath), 0);
if(kString_Is(Literal, sfp[1].asString)) {
kString_Set(Literal, resultValue, true);
}
KReturn(resultValue);
}
