#include "BaseObj.h"
#include "PikaObj.h"
#include "TinyObj.h"
#include "dataMemory.h"
#include "dataString.h"
#include "dataStrs.h"

static void* getClassPtr(PikaObj* classObj, char* classPath) {
  char* ptrPath = classPath;
  return obj_getPtr(classObj, ptrPath);
}

int32_t obj_newObjByFun(PikaObj* self,
                        char* objName,
                        char* className,
                        void* newFunPtr) {
  /* class means subprocess init */
  Args* buffs = New_strBuff();

  /* class means subprocess init */
  char* mataObjName = strsAppend(buffs, "[mate]", objName);
  obj_setPtr(self, mataObjName, newFunPtr);
  /* add void process Ptr, no inited */
  args_setObjectWithClass(self->attributeList, objName, className, NULL);

  args_deinit(buffs);
  return 0;
}

int32_t sysObj_setObjbyClass(PikaObj* self, char* objName, char* classPath) {
  /* class means subprocess init */
  Args* buffs = New_strBuff();
  PikaObj* classLoader = obj_getObj(self, "_clsld", 0);
  void* newFunPtr = getClassPtr(classLoader, classPath);

  /* class means subprocess init */
  char* mataObjName = strsAppend(buffs, "[mate]", objName);
  obj_setPtr(self, mataObjName, newFunPtr);
  /* add void process Ptr, no inited */
  args_setObjectWithClass(self->attributeList, objName, classPath, NULL);

  args_deinit(buffs);
  return 0;
}

static int32_t storeClassInfo(PikaObj* self,
                              Args* buffs,
                              char* classPath,
                              void* classPtr) {
  int32_t res = 0;
  PikaObj* classHost = obj_getObj(self, classPath, 1);
  if (NULL == classHost) {
    res = 1;
    goto exit;
  }
  char* className = strsGetLastToken(buffs, classPath, '.');
  char* classStoreName = className;
  obj_setPtr(classHost, classStoreName, classPtr);
  res = 0;
  goto exit;
exit:
  return res;
}

int32_t obj_import(PikaObj* self, char* className, NewFun classPtr) {
  PikaObj* classLoader = obj_getObj(self, "_clsld", 0);
  Args* buffs = New_args(NULL);
  int32_t res = storeClassInfo(classLoader, buffs, className, classPtr);
  args_deinit(buffs);
  return res;
}

int32_t obj_newObj(PikaObj* self, char* objPath, char* classPath) {
  PikaObj* classLoader = obj_getObj(self, "_clsld", 0);
  Args* buffs = New_args(NULL);
  int res = 0;
  void* NewObjPtr = getClassPtr(classLoader, classPath);
  if (NULL == NewObjPtr) {
    res = 1;
    goto exit;
  }
  PikaObj* objHost = obj_getObj(self, objPath, 1);
  if (NULL == objHost) {
    res = 2;
    goto exit;
  }
  char* objName = strsGetLastToken(buffs, objPath, '.');
  obj_newObjByFun(objHost, objName, classPath, NewObjPtr);
  res = 0;
  goto exit;

exit:
  args_deinit(buffs);
  return res;
}

static void print(PikaObj* self, Args* args) {
  obj_setErrorCode(self, 0);
  char* res = args_print(args, "val");
  if (NULL == res) {
    obj_setSysOut(self, "[error] print: can not print val");
    obj_setErrorCode(self, 1);
    return;
  }
  /* not empty */
  obj_setSysOut(self, res);
}

static void set(PikaObj* self, Args* args) {
  obj_setErrorCode(self, 0);
  char* argPath = method_getStr(args, "argPath");
  if (obj_isArgExist(self, argPath)) {
    /* update arg */
    char* valStr = args_print(args, "val");
    int32_t res = obj_set(self, argPath, valStr);
    if (1 == res) {
      obj_setSysOut(self, "[error] set: arg no found.");
      obj_setErrorCode(self, 1);
      return;
    }
    if (2 == res) {
      obj_setSysOut(self, "[error] set: type not match.");
      obj_setErrorCode(self, 1);
      return;
    }
    if (3 == res) {
      obj_setSysOut(self, "[error] set: object not found.");
      obj_setErrorCode(self, 1);
      return;
    }
    return;
  }
  /* new arg */
  Arg* val = args_getArg(args, "val");
  Arg* newArg = arg_copy(val);
  char* argName = strsGetLastToken(args, argPath, '.');
  newArg = arg_setName(newArg, argName);
  int32_t res = obj_setArg(self, argPath, newArg);
  if (res == 1) {
    obj_setSysOut(self, "[error] set: object not found.");
    obj_setErrorCode(self, 1);
  }
  arg_deinit(newArg);
  newArg = NULL;
  return;
}

PikaObj* New_BaseObj(Args* args) {
  PikaObj* self = New_TinyObj(args);
  obj_setObjWithoutClass(self, "_clsld", New_TinyObj);
  obj_getObj(self, "_clsld", 0);
  class_defineMethod(self, "print(val:any)", print);
  class_defineMethod(self, "set(argPath:str, val:any)", set);
  return self;
}