Sq3Call_atl.c File Reference

tag: nhi1-release-250425 More...

#include "LibSq3Lite_atl.h"

Include dependency graph for Sq3Call_atl.c:

Go to the source code of this file.

Macros
#define	dbgMsg(fmt, ...)
#define	dbgObj(obj)

Functions
Sq3Fupu_Sq3LiteExec_callback_call_ret	atlsq3lite_LiteExecCall (Sq3Fupu_Sq3LiteExec_callback_call_args)
Sq3LiteExecV2CB_ret	atlsq3lite_LiteExecV2Call (Sq3LiteExecV2CB_args)

Detailed Description

tag: nhi1-release-250425

Copyright

(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information

Definition in file Sq3Call_atl.c.

Macro Definition Documentation

dbgMsg

#define dbgMsg	(		fmt,
			... )

Definition at line 18 of file Sq3Call_atl.c.

dbgObj

#define dbgObj

(

obj

)

Definition at line 19 of file Sq3Call_atl.c.

Function Documentation

atlsq3lite_LiteExecCall()

Sq3Fupu_Sq3LiteExec_callback_call_ret atlsq3lite_LiteExecCall

(

Sq3Fupu_Sq3LiteExec_callback_call_args

)

Definition at line 40 of file Sq3Call_atl.c.

{
  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;
}

atlsq3lite_LiteExecV2Call()

Sq3LiteExecV2CB_ret atlsq3lite_LiteExecV2Call

(

Sq3LiteExecV2CB_args

)

Definition at line 105 of file Sq3Call_atl.c.

{
  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;
}