Sq3Call_atl.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#include  "LibSq3Lite_atl.h"
 
 
#if 0
  #define dbgMsg(fmt,...) printV(fmt,__VA_ARGS__)
  #define dbgObj(obj)     printLngObj(obj)
#else
  #define dbgMsg(fmt,...)
  #define dbgObj(obj)
#endif
 
 
/*
[LiteExecCall signature]
  callback-args := vals:List[in] cols:List[in]
  [static]    proc callback { callback-args ?additional-args...? } ...
              Sq3LiteC::LiteExec $liteNs callback
  [instance]  myooX::ClassN ::XXX {
                proc callback { xxxNs callback-args ?additional-args...? } ...
              }
              Sq3LiteCC::LiteExec $liteNs [list callback $xxxNs]
  [class]     myooX::ClassN ::YYY {
                proc callback { callback-args ?additional-args...? } ...
              }
              Sq3LiteC::LiteExec $liteNs ::YYY::callback
[LiteExecCall signature]
*/
 
// #define Sq3Fupu_Sq3LiteExec_callback_call_args MK_CBP callV1, 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 ;
    assert(call->signature == MkCallS_SIG);
 
  OT_OBJ_T valsO=NULL;
  OT_OBJ_T colsO=NULL;
  MK_RT    mkrt=call->mkrt;
    assert(mkrt != NULL);
 
  // 2. prolog
  CallProlog(call->hdl);
 
  // 3. setup args
  valsO = Tcl_NewObj();
  for (int i=0; i<num; i++) {
    check_LNG(Tcl_ListObjAppendElement(interp,valsO,Tcl_NewStringObj(vals[i],-1))) goto error;
  }
  colsO = Tcl_NewObj();
  for (int i=0; i<num; i++) {
    check_LNG(Tcl_ListObjAppendElement(interp,colsO,Tcl_NewStringObj(cols[i],-1))) goto error;
  }
  objv[objc++]  = valsO;
  objv[objc++]  = colsO;
 
  // 4. setup user args
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  // 5. call the callback
  int ret = MK(EvalObjv) (interp, objc, objv, 0); /* "MK(EvalObjv)" IS required !! */
    if (ret != TCL_OK) goto error;
 
  Tcl_ResetResult(interp);
  return 0;
 
error:
  OT_ERROR_LNG_2_META(call->hdl);
error_mq:
  MkErrorStack_0E();
  return 1;
}
 
// *********************************************************************************
 
/*
[LiteExecV2Call signature]
  callback-args := vals:MkBufferList[in] cols:MkBufferList[in]
  [static]    proc callback { callback-args ?additional-args...? } ...
              Sq3LiteC::ExecV2 $liteNs callback
  [instance]  myooX::ClassN ::XXX {
                proc callback { xxxNs callback-args ?additional-args...? } ...
              }
              Sq3LiteC::ExecV2 $liteNs [list callback $xxxNs]
  [class]     myooX::ClassN ::YYY {
                proc callback { callback-args ?additional-args...? } ...
              }
              Sq3LiteC::ExecV2 $liteNs ::YYY::callback
[LiteExecV2Call signature]
*/
 
// #define Sq3LiteExecV2CB_ret   enum MkErrorE
// #define Sq3LiteExecV2CB_args  MK_RT_ARGS MK_CBP callV2, MK_BFL vals, MK_BFL cols
Sq3LiteExecV2CB_ret NS(LiteExecV2Call) ( Sq3LiteExecV2CB_args )
{
  Sq3Fupu_Sq3LiteExecV2CB_callback_call_check;
 
  // 1. setup environment
  struct MkCallS * call = callV2 ;
    assert(call->signature == MkCallS_SIG);
 
  // 2. prolog
  CallProlog(call->hdl);
 
  // 3. setup args
  objv[objc++]  = OT_TMP_BFL_OBJ(vals);
  objv[objc++]  = OT_TMP_BFL_OBJ(cols);
 
  // 4. setup user args
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  // 5. call the callback
  int ret = Tcl_EvalObjv (interp, objc, objv, 0); /* "MK(EvalObjv)" IS NOT required !! */
    if (ret != TCL_OK) goto error;
 
  Tcl_ResetResult(interp);
  return 0;
 
error:
  OT_ERROR_LNG_2_META(call->hdl);
error_mq:
  MkErrorStack_0E();
  return 1;
}