Sq3Call_tcl.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#include  "LibSq3Lite_tcl.h"
 
// CheckCallable
// CallFree
 
/*
[LiteExecCall signature]
  callback-args := vals:List[in] cols:List[in]
  [static]   proc callback { callback-args ?additional-args...? } ...
  [instance] ::oo::class create YYY {
               method callback { callback-args ?additional-args...? } ...
  [class]    ::oo::class create ZZZ {
               self method callback { callback-args ?additional-args...? } ...
[LiteExecCall signature]
*/
 
// #define Sq3Fupu_Sq3LiteExec_callback_call_args MK_CBP callback, MK_I32 num, MK_STR *vals, MK_STR *cols
Sq3Fupu_Sq3LiteExec_callback_call_ret NS(LiteExecCall) ( Sq3Fupu_Sq3LiteExec_callback_call_args )
{
  Sq3Fupu_Sq3LiteExec_callback_call_check;
 
  // 1. setup environment
  struct MkCallS * call = callV1 ;
  SQ3_LITE lite = Sq3Lite(call->hdl);
  OT_OBJ_T valsO=NULL;
  OT_OBJ_T colsO=NULL;
  OT_ENV_T interp = call->interp;
  if (call->interp==NULL || Tcl_InterpDeleted(interp) || lite == NULL || OT_SELF_X(lite)==NULL) return 1;
  MkRtSetup_RT(call->mkrt);
 
  // 2. setup arguments
  Tcl_Obj *objv[5+MkProcResolve_maxArgsLen] = {0};
  int objc = 0;
#if 0
  MkBufferListCreateTLS_T(valsL,num);
  MkBufferListAppendVC(valsL,num,(MK_STRN*)vals);
  Tcl_Obj* valsO = MK(MkBufferListC_ObjNew)(MK_RT_CALL interp, valsL);
  MkBufferListCreateTLS_T(colsL,num);
  MkBufferListAppendVC(colsL,num,(MK_STRN*)cols);
  Tcl_Obj* colsO = MK(MkBufferListC_ObjNew)(MK_RT_CALL interp, colsL);
  
#else
  valsO = Tcl_NewObj();
  for (int i=0; i<num; i++) {
    check_LNG(Tcl_ListObjAppendElement(interp,valsO,Tcl_NewStringObj(vals[i],-1))) goto error_lng;
  }
  colsO = Tcl_NewObj();
  for (int i=0; i<num; i++) {
    check_LNG(Tcl_ListObjAppendElement(interp,colsO,Tcl_NewStringObj(cols[i],-1))) goto error_lng;
  }
#endif
 
  // 3. setup my
rescan:
  switch (call->type) {
    case MkCallS_own_method: {
      // this is a instance->method
      objv[objc++] = OT_SELF_NAME_O(MkOBJ(lite));
      break;
    }
    case MkCallS_other_method:
    case MkCallS_static:
      objv[objc++] = call->my;
      break;
    case MkCallS_proc:
      break;
    case MkCallS_init: {
      check_META(MK(ProcResolve)(MK_RT_CALL call->interp, MkOBJ(lite), call)) goto error_mq;
      goto rescan;
    }
    case MkCallS_error:
      goto error_lng;
    case MkCallS_null:
      goto end;
  }
 
  // 4. setup methode
  if (call->mth)  objv[objc++] = call->mth;
 
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  objv[objc++]  = valsO;
  objv[objc++]  = colsO;
 
//M1; printAryDetail(objc,objv);
  // 3. call the callback
  check_LNG (MK(EvalObjv) (interp, objc, objv, TCL_EVAL_GLOBAL)) goto error_lng;
  //check_LNG (Tcl_EvalObjv (interp, objc, objv, TCL_EVAL_GLOBAL)) goto error_lng;
//M2; printAryDetail(objc,objv);
 
end:
  Tcl_ResetResult(interp);
  return 0;
error_lng:
  OT_ERROR_LNG_2_META(lite);
error_mq:
  MkErrorStack_0E();
  return 1;
}
 
// *********************************************************************************
 
/*
[LiteExecV2Call signature]
  callback-args := vals:MkBufferList[in] cols:MkBufferList[in]
  [static]   proc callback { callback-args ?additional-args...? } ...
  [instance] ::oo::class create YYY {
               method callback { callback-args ?additional-args...? } ...
  [class]    ::oo::class create ZZZ {
               self method callback { callback-args ?additional-args...? } ...
[LiteExecV2Call signature]
*/
 
// #define Sq3LiteExecV2CB_ret   enum MkErrorE
// #define Sq3LiteExecV2CB_args  MK_RT_ARGS MK_CBP callback, MK_BFL vals, MK_BFL cols
Sq3LiteExecV2CB_ret NS(LiteExecV2Call) ( Sq3LiteExecV2CB_args )
{
  Sq3Fupu_Sq3LiteExecV2CB_callback_call_check;
 
  // 1. setup environment
  struct MkCallS *call = callV2 ;
  SQ3_LITE lite = Sq3Lite(call->hdl);
  OT_OBJ_T valsO  = NULL;
  OT_OBJ_T colsO  = NULL;
  OT_ENV_T interp = call->interp;
  if (call->interp==NULL || Tcl_InterpDeleted(interp) || lite == NULL || OT_SELF_X(lite)==NULL) return MK_ERROR;
 
  // 2. setup arguments
  Tcl_Obj *objv[5+MkProcResolve_maxArgsLen] = {0};
  int objc = 0;
  valsO  = OT_TMP_BFL_OBJ(vals);
  colsO  = OT_TMP_BFL_OBJ(cols);
  
  // 3. setup my
rescan:
  switch (call->type) {
    case MkCallS_own_method: {
      // this is a instance->method
      objv[objc++] = OT_SELF_NAME_O(MkOBJ(lite));
      break;
    }
    case MkCallS_other_method:
    case MkCallS_static:
      objv[objc++] = call->my;
      break;
    case MkCallS_proc:
      break;
    case MkCallS_init: {
      check_META(MK(ProcResolve)(MK_RT_CALL call->interp, MkOBJ(lite), call)) goto error_mq;
      goto rescan;
    }
    case MkCallS_error:
      goto error_lng;
    case MkCallS_null:
      goto end;
  }
 
  // 4. setup methode
  if (call->mth)  objv[objc++] = call->mth;
 
  MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  objv[objc++]  = valsO;
  objv[objc++]  = colsO;
 
  // 3. call the callback
  check_LNG (MK(EvalObjv) (interp, objc, objv, TCL_EVAL_GLOBAL)) goto error_lng;
  //check_LNG (Tcl_EvalObjv (interp, objc, objv, TCL_EVAL_GLOBAL)) goto error_lng;
 
  Tcl_ResetResult(interp);
end:
  return MkErrorGetCode_0E();
error_lng:
  OT_ERROR_LNG_2_META(lite);
error_mq:
  MkErrorStack_0E();
  return MK_ERROR;
}