LibSq3Lite_private_atl.h File Reference

tag: nhi1-release-250425 More...

#include "debug_mk.h"
#include "nhi1_config.h"
#include "rl_mox.h"
#include "LibSq3Lite_atl.h"

Include dependency graph for LibSq3Lite_private_atl.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	MK_RT_SETUP   OT_MK_RT_T amkrt = alcrt->amkrt
#define	MK_RT_SETUP_METHOD
#define	RL_RT   (*asq3rt)

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 LibSq3Lite_private_atl.h.

Macro Definition Documentation

MK_RT_SETUP

#define MK_RT_SETUP   OT_MK_RT_T amkrt = alcrt->amkrt

Definition at line 14 of file LibSq3Lite_private_atl.h.

MK_RT_SETUP_METHOD

#define MK_RT_SETUP_METHOD

Value:

                              OT_SQ3_RT_T asq3rt = clientData; \
                              OT_MK_RT_T amkrt = asq3rt->amkrt; \
                              MkRtSetup_RT(asq3rt->mkrt); \
                              SETUP_moxrt

Definition at line 15 of file LibSq3Lite_private_atl.h.

#define MK_RT_SETUP_METHOD    OT_SQ3_RT_T asq3rt = clientData; \
                              OT_MK_RT_T amkrt = asq3rt->amkrt; \
                              MkRtSetup_RT(asq3rt->mkrt); \
                              SETUP_moxrt

RL_RT

#define RL_RT   (*asq3rt)

Definition at line 23 of file LibSq3Lite_private_atl.h.

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