// MecabNode MecabNode.enext()
static KMETHOD MecabNode_enext(KonohaContext *kctx, KonohaStack *sfp)
{
struct _kMecabNode *node = (struct _kMecabNode *)sfp[0].asObject;
mecab_node_t* enext = node->node->enext;
struct _kMecabNode* ret;
if(node != NULL) {
ret = (struct _kMecabNode *)KLIB new_kObject(kctx, OnStack, KGetReturnType(sfp), 0);
ret->node = enext;
KReturn(ret);
}
else {
KReturnDefaultValue();
}
}
static KMETHOD Array_Pop(KonohaContext *kctx, KonohaStack *sfp)
{
kArray *a = sfp[0].asArray;
if(kArray_size(a) == 0)
KReturnDefaultValue();
size_t n = kArray_size(a) - 1;
if(kArray_isUnboxData(a)) {
uintptr_t v = a->unboxItems[n];
a->unboxItems[n] = 0;
kArray_SetSize(a, n);
KReturnUnboxValue(v);
}
else {
struct _kAbstractArray *a2 = (struct _kAbstractArray *)a;
kObject *value = a2->a.ObjectItems[n];
kObject** null = NULL;
KFieldInit(a2, a2->a.ObjectItems[n], null);
a2->a.bytesize = n * sizeof(uintptr_t);
KReturn(value);
}
}
