MqCall_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMqMsgque_private_tcl.h"

Include dependency graph for MqCall_tcl.c:

Go to the source code of this file.

Macros
#define	mqctx   hdl
#define	SETUP_my

Functions
static enum MkErrorE	tclmqmsgque_SetupMy (OT_Prefix_ARGS struct TclContextS *tclctx, MQ_CTX mqctx, OT_SELF_T object)
enum MkErrorE	tclmqmsgque_ServiceCall (MQ_SERVICE_CALL_ARGS)
void	tclmqmsgque_ServiceFree (MQ_SERVICE_FREE_ARGS)
void	tclmqmsgque_ServiceCopy (MQ_SERVICE_COPY_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 MqCall_tcl.c.

Macro Definition Documentation

mqctx

#define mqctx   hdl

Definition at line 13 of file MqCall_tcl.c.

SETUP_my

#define SETUP_my

Value:

  SETUP_tclctx; \
  if (tclctx->my == NULL) { \
    check_META(NS(SetupMy)(OT_Prefix_CALL tclctx,mqctx,selfO)) goto error; \
  }

Definition at line 44 of file MqCall_tcl.c.

#define SETUP_my \
  SETUP_tclctx; \
  if (tclctx->my == NULL) { \
    check_META(NS(SetupMy)(OT_Prefix_CALL tclctx,mqctx,selfO)) goto error; \
  }

Function Documentation

tclmqmsgque_ServiceCall()

enum MkErrorE tclmqmsgque_ServiceCall

(

MQ_SERVICE_CALL_ARGS

)

Definition at line 72 of file MqCall_tcl.c.

{
  MQ_SERVICE_CALL_CHECK;
 
  // 1. setup environment
  SETUP_interp
  if (interp==NULL || Tcl_InterpDeleted(interp) ) return MK_OK;
 
  // 2. setup arguments
  struct MkCallS *call = __data__;
  OT_OBJ_T objv[5+MkProcResolve_maxArgsLen] = {0};
  int objc = 0;
 
//colorBLUE("call<%p>, type<%d>, nsO<%p>",call,call->type,call->nsO);
 
  // 3. setup my
rescan:
  switch (call->type) {
    case MkCallS_own_method: {
//printLTxt("MkCallS_own_method");
      // this is a instance->method
      SETUP_selfO
      SETUP_my
      objv[objc++] = tclctx->my;
      break;
    }
    case MkCallS_other_method:
    case MkCallS_static:
//printLTxt("MkCallS_other_method OR MkCallS_static");
      objv[objc++] = call->my;
      break;
    case MkCallS_proc:
//printLTxt("MkCallS_proc");
      break;
    case MkCallS_init: {
      check_META(MK(ProcResolve)(MK_RT_CALL interp, MkOBJ(mqctx), call)) goto error_mq;
      goto rescan;
    }
    case MkCallS_error:
//printLTxt("MkCallS_error");
      goto error;
    case MkCallS_null:
//printLTxt("MkCallS_null");
      return MK_OK;
  }
 
  // 4. setup methode
  if (call->mth)  objv[objc++] = call->mth;
 
  // 5. setup CTX arg
  switch (call->type) {
    case MkCallS_own_method:
      break;
    case MkCallS_other_method:
    case MkCallS_static:
    case MkCallS_proc:
      objv[objc++] = META2VAL_X(mqctx);
      break;
    case MkCallS_init:
      break;
    case MkCallS_error:
      goto error;
    case MkCallS_null:
      return MK_OK;
  }
 
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
//printAryL("__data__", objc, objv);
 
  // 3. call the callback
  //int ret = Tcl_EvalObjv (interp, objc, objv, TCL_EVAL_GLOBAL);
  int ret = MK(EvalObjv) (interp, objc, objv, TCL_EVAL_GLOBAL);
 
//printV("ret=%i, code=%s\n", ret, MkLogErrorE(MkErrorGetCode_0E()))
 
  if (ret == TCL_OK) {
    Tcl_ResetResult(interp);
    return MkErrorGetCode_0E();
  }
 
error:
//ME
  OT_ERROR_LNG_2_META(mqctx);
//MkErrorLog_0E();
 
error_mq:
  return MkErrorStack_0E();
}

tclmqmsgque_ServiceCopy()

void tclmqmsgque_ServiceCopy

(

MQ_SERVICE_COPY_ARGS

)

Definition at line 170 of file MqCall_tcl.c.

{
  MK(CallCopy)(MK_RT_CALL MkOBJ(mqctx), dataP);
}

tclmqmsgque_ServiceFree()

void tclmqmsgque_ServiceFree

(

MQ_SERVICE_FREE_ARGS

)

Definition at line 162 of file MqCall_tcl.c.

{
  SETUP_interp;
  if ( interp == NULL || Tcl_InterpDeleted(interp)) return;
 
  MK(CallFree) (dataP);
}

tclmqmsgque_SetupMy()

static enum MkErrorE tclmqmsgque_SetupMy ( OT_Prefix_ARGS struct TclContextS * tclctx, MQ_CTX mqctx, OT_SELF_T object )

static

Definition at line 26 of file MqCall_tcl.c.

                                                                                                            {
  if (tclctx->my != NULL)   return MK_OK;
  if (object == NULL) {
    NS(MqContextC_ObjNew)(MK_RT_CALL interp,mqctx);
    object = (OT_SELF_T) (MkOBJ_R(mqctx).self);
  }
    check_NULL(object)      goto error;
  tclctx->my = MK(GetMyFromObject)(interp, object);
    check_NULL(tclctx->my)  goto error;
  Tcl_IncrRefCount(tclctx->my);
 
  return MK_OK;
error:
  OT_ERROR_LNG_2_META(mqctx);
  return MK_ERROR;
}