//## Json Json.new();
static KMETHOD Json_new (KonohaContext *kctx, KonohaStack *sfp)
{
struct _kJson* json = (struct _kJson *)KLIB new_kObjectDontUseThis(kctx, KGetReturnType(sfp), 0);
json->obj = json_object();
json_incref(json->obj);
KReturn(json);
}
static void MPIData_extend(KonohaContext *kctx, kMPIData *p, int size) {
size_t newSize = p->offset + size;
if(p->size < newSize) {
switch(p->typeId) {
case KMPI_BYTES: {
kBytes *b = (kBytes *)KLIB new_kObjectDontUseThis(kctx, CT_Bytes, (uintptr_t)newSize, OnStack);
memcpy(b->buf, p->b->buf, p->size);
p->b = b;
p->size = newSize;
break;
}
case KMPI_FARRAY: {
kfloat_t *fa = KCalloc_UNTRACE(sizeof(kfloat_t), newSize);
memcpy(fa, p->fa, p->size * sizeof(kfloat_t));
KFree(p->fa, p->size * sizeof(kfloat_t));
p->fa = fa;
p->size = newSize;
break;
}
case KMPI_IARRAY: {
kint_t *ia = KCalloc_UNTRACE(sizeof(kint_t), newSize);
memcpy(ia, p->ia, p->size * sizeof(kint_t));
KFree(p->ia, p->size * sizeof(kint_t));
p->ia = ia;
p->size = newSize;
break;
}
default:
abort();
}
}
}
//## Json Json[].get(int idx);
static KMETHOD JsonArray_get(KonohaContext *kctx, KonohaStack *sfp)
{
kArray *a = sfp[0].asArray;
json_t *ja = (json_t *)a->ObjectItems;
struct _kJson *json = (struct _kJson *)KLIB new_kObjectDontUseThis(kctx, KGetReturnType(sfp), 0);
json->obj = json_array_get(ja, sfp[1].intValue);
KReturn(json);
}
//## @Static Json Json.parse(String str);
static KMETHOD Json_parse(KonohaContext *kctx, KonohaStack *sfp)
{
const char *buf = S_text(sfp[1].asString);
json_t* obj;
json_error_t err;
obj = json_loads(buf, 0, &err);
struct _kJson *ret = (struct _kJson *)KLIB new_kObjectDontUseThis(kctx, KGetReturnType(sfp), 0);
CHECK_JSON(obj, KReturn((kJson *)KLIB Knull(kctx, O_ct(ret))));
obj = json_incref(obj);
ret->obj = obj;
KReturn(ret);
}
//## Json Json.getJson(String key);
static KMETHOD Json_getJson(KonohaContext *kctx, KonohaStack *sfp)
{
json_t* obj = ((struct _kJson *)sfp[0].asObject)->obj;
CHECK_JSON(obj, KReturn((kJson *)KLIB Knull(kctx, O_ct(sfp[0].asObject))));
const char *key = S_text(sfp[1].asString);
json_t* ret = json_object_get(obj, key);
CHECK_JSON(ret, KReturn((kJson *)KLIB Knull(kctx, O_ct(sfp[0].asObject))));
ret = json_incref(ret);
struct _kJson *json = (struct _kJson *)KLIB new_kObjectDontUseThis(kctx, KGetReturnType(sfp), 0);
json->obj = ret;
KReturn(json);
}
//## String[] Json.getKeys();
static KMETHOD Json_getKeys(KonohaContext *kctx, KonohaStack *sfp)
{
json_t* obj = ((struct _kJson *)sfp[0].asObject)->obj;
kArray *a = (kArray *)KLIB new_kObjectDontUseThis(kctx, CT_StringArray0, 0);
CHECK_JSON(obj, KReturn(KNULL(Array)));
const char* key;
void* iter = json_object_iter(obj);
while(iter) {
key = json_object_iter_key(iter);
iter = json_object_iter_next(obj, iter);
KLIB kArray_add(kctx, a, KLIB new_kString(kctx, key, strlen(key), StringPolicy_POOL|StringPolicy_ASCII));
}
KReturn(a);
}
//## Array Json.getArray();
static KMETHOD Json_getArray(KonohaContext *kctx, KonohaStack *sfp)
{
json_t* obj = ((struct _kJson *)sfp[0].asObject)->obj;
CHECK_JSON(obj, KReturn(KNULL(Array)));
const char *key = S_text(sfp[1].asString);
json_t* ja;
if(key == NULL) {
ja = ((struct _kJson *)sfp[0].asObject)->obj;
ja = json_incref(ja);
}
else {
ja = json_object_get(obj, key);
ja = json_incref(ja);
}
if(!json_is_array(ja)) {
KReturn(KNULL(Array));
}
kArrayVar* a = (kArrayVar *)KLIB new_kObjectDontUseThis(kctx, CT_Array, 0);
a->ObjectItems= (kObject**)ja;
KReturn(a);
}
static inline kObject *new_ReturnCppObject(KonohaContext *kctx,KonohaStack *sfp, void *ptr) {
kObject *defobj = sfp[(-(K_CALLDELTA))].asObject;
kObject *ret = KLIB new_kObjectDontUseThis(kctx, O_ct(defobj), (uintptr_t)ptr, OnStack);
((kRawPtr *)ret)->rawptr = ptr;
return ret;
}
static kJSON *NewJsonObject(KonohaContext *kctx, KonohaStack *sfp, JSON val)
{
kJSON *json = (kJSON *)KLIB new_kObjectDontUseThis(kctx, KGetReturnType(sfp), 0);
json->json = val;
return json;
}
