MqFactoryC_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMqMsgque_private_tcl.h"
#include "valgrind/callgrind.h"

Include dependency graph for MqFactoryC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MqFactoryC_tcl.c"
#define	OT_CLASS   NS(MqFactoryC)
#define	OT_CLASS_NAME   "MqFactoryC"
#define	OBJECT2FCT(O)
#define	OT_SETUP_hdl_static_constr_pre
#define	OT_SETUP_hdl_static_constr
#define	OT_SETUP_hdl_static
#define	OT_SETUP_hdl   SetupHdlFromMetaData_2(FCT,MQ_FCT);
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(FCT,MQ_FCT);
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(FCT,MQ_FCT);
#define	OT_SETUP_hdl_constr_pre
#define	OT_SETUP_hdl_constr
#define	SetupRtFromHdl_XN(hdl)
#define	SetupRtFromHdl_X(hdl)
#define	ClassInit
#define	VER   TCL_OO_METHOD_VERSION_CURRENT
#define	META_CONTEXT_S   mqctx
#define	OT_SETUP_hdl_constr_pre
#define	OT_SETUP_hdl_static_constr_pre   OT_SETUP_hdl_constr_pre
#define	Add_doc   "MqFactoryC [MqFactoryC Add constructor:class ?ident:string=\"MK_NULL\"?]"
#define	CTOR_doc   "MqFactoryC [MqFactoryC CTOR constructor:class ?ident:string=\"MK_NULL\"?]"
#define	Get_doc   "MqFactoryC [MqFactoryC Get ?ident:string=\"\"?]"
#define	GetCalled_doc   "MqFactoryC [MqFactoryC GetCalled ?ident:string=\"\"?]"
#define	GetCalledL_doc   "MqFactoryC [MqFactoryC GetCalledL largs:MkBufferListC]"
#define	GetNull_doc   "MqFactoryC [MqFactoryC GetNull]"
#define	HandleResolve_doc   "MqFactoryC [MqFactoryC HandleResolve netHdl:MK_HDL]"
#define	Instances_doc   "MqFactoryC [MqFactoryC Instances]"
#define	DefaultIdent_doc   "string [MqFactoryC DefaultIdent]"
#define	InitialIdent_doc   "string [MqFactoryC InitialIdent]"
#define	LogAll_doc   "MqFactoryC LogAll ?callfunc:string=\"MK_NULL\"?"
#define	Dup2_doc   "MqFactoryC [$fct Dup2 ident:string] (const)"
#define	Default_doc   "MqFactoryC [$fct Default]"
#define	Initial_doc   "MqFactoryC [$fct Initial]"
#define	Next_doc   "MqFactoryC [$fct Next]"
#define	Prev_doc   "MqFactoryC [$fct Prev]"
#define	New_doc   "MqContextC [$fct New]"
#define	GetOriginalIdent_doc   "string [$fct GetOriginalIdent] (const)"

Functions
static MK_PTR	tclmqmsgque_MqFactoryC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclmqmsgque_MqFactoryC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclmqmsgque_MqFactoryC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclmqmsgque_sFactoryDataFree (MK_RT mkrt, MK_PTR *dataP)
static void	tclmqmsgque_sFactoryDataCopy (MK_RT mkrt, MK_PTR *dataP)
static enum MkErrorE	tclmqmsgque_sFactoryCTor (MQ_CALLBACK_FACTORY_CTOR_ARGS)
static OT_ProcRet	tclmqmsgque_MqFactoryC_HandleResolve (OtClass_ARGS)
	Tcl: (static) MqFactoryC [MqFactoryC HandleResolve netHdl:MK_HDL] → C-API Handle-Resolve-Slot - return a MqFactoryC from netHdl or "MK_NULL" if invalid…
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmqmsgque_MqFactoryC_HandleGet (MqFactoryC_ARGS)
static OT_ProcRet	tclmqmsgque_MqFactoryC_Next (MqFactoryC_ARGS)
	Tcl: MqFactoryC [$fct Next] → C-API get next instance from linked-list of MqFactoryS type
static OT_ProcRet	tclmqmsgque_MqFactoryC_Prev (MqFactoryC_ARGS)
	Tcl: MqFactoryC [$fct Prev] → C-API get previous instance from linked-list of MqFactoryS type
static OT_ProcRet	tclmqmsgque_MqFactoryC_Instances (OtClass_ARGS)
	Tcl: (static) MqFactoryC [MqFactoryC Instances] → C-API get head-instance from linked-list of MqFactoryS type …
static OT_ProcRet	tclmqmsgque_MqFactoryC_GetNull (OtClass_ARGS)
	Tcl: (static) MqFactoryC [MqFactoryC GetNull] → C-API Null-Slot - return a MqFactoryC typed NULL instance …
static OT_ProcRet	tclmqmsgque_MqFactoryC_Get (OtClass_ARGS)
	Tcl: (static) MqFactoryC [MqFactoryC Get ?ident:string=""?] → C-API return the MqFactoryC
static OT_ProcRet	tclmqmsgque_MqFactoryC_GetCalled (OtClass_ARGS)
	Tcl: (static) MqFactoryC [MqFactoryC GetCalled ?ident:string=""?] → C-API returns the MqFactoryC identified by ident …
static OT_ProcRet	tclmqmsgque_MqFactoryC_GetCalledL (OtClass_ARGS)
	Tcl: (static) MqFactoryC [MqFactoryC GetCalledL largs:MkBufferListC] → C-API returns the MqFactoryC identified as first argument in the largs MkBufferListC …
static OT_ProcRet	tclmqmsgque_MqFactoryC_GetOriginalIdent (MqFactoryC_ARGS)
	Tcl: string [$fct GetOriginalIdent] → C-API helper function to return MqFactoryS::originalIdent
static OT_ProcRet	tclmqmsgque_MqFactoryC_Default (MqFactoryC_ARGS)
	Tcl: MqFactoryC [$fct Default] → C-API set the default-attribute to the factory …
static OT_ProcRet	tclmqmsgque_MqFactoryC_Initial (MqFactoryC_ARGS)
	Tcl: MqFactoryC [$fct Initial] → C-API set the initial-attribut to fct …
static OT_ProcRet	tclmqmsgque_MqFactoryC_New (MqFactoryC_ARGS)
	Tcl: MqContextC [$fct New] → C-API create a new MqContextC from a MqFactoryC …
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmqmsgque_MqFactoryC_Log (MqFactoryC_ARGS)
static OT_ProcRet	tclmqmsgque_MqFactoryC_DefaultIdent (OtClass_ARGS)
	Tcl: (static) string [MqFactoryC DefaultIdent] → C-API return the factory-identifier of the default MqFactoryC
static OT_ProcRet	tclmqmsgque_MqFactoryC_InitialIdent (OtClass_ARGS)
	Tcl: (static) string [MqFactoryC InitialIdent] → C-API return the factory-identifier of the initial MqFactoryC
static OT_ProcRet	tclmqmsgque_MqFactoryC_LogAll (OtClass_ARGS)
	Tcl: (static) MqFactoryC LogAll ?callfunc:string="MK_NULL"? → C-API log all "factories" to stderr
static OT_ProcRet	tclmqmsgque_MqFactoryC_Dup2 (MqFactoryC_ARGS)
	Tcl: (constructor) MqFactoryC [$fct Dup2 ident:string] → C-API create a duplicate of the singleton object MqFactoryC using a new factory-identifer
static OT_ProcRet	tclmqmsgque_MqFactoryC_Add (OtClass_ARGS)
	Tcl: (constructor,static) MqFactoryC [MqFactoryC Add constructor:class ?ident:string="MK_NULL"?] → C-API Add a new MqFactoryC identified by factory-identifier and defined by factory-constructor …
static OT_ProcRet	tclmqmsgque_MqFactoryC_CTOR (CONSTR_ARGS)
	Tcl: (constructor,static) MqFactoryC [MqFactoryC CTOR constructor:class ?ident:string="MK_NULL"?] → C-API Add a new MqFactoryC identified by factory-identifier and defined by factory-constructor …
int	tclmqmsgque_MqFactoryC_Setup (MK_RT mkrt, OT_ENV_T interp)
int	tclmqmsgque_pMqFactoryC_Init (MK_RT mkrt, OT_ENV_T interp, OT_NS_T ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	MqFactoryCTT = NULL
__thread OT_OBJ_T	tclmqmsgque_MqFactoryC_MK_NULL = NULL
__thread bool	tclmqmsgque_inMain
static char	msg []
static Tcl_MethodType	tclmqmsgque_sOtClassDef []
static Tcl_MethodType	tclmqmsgque_sInstanceDef []

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 MqFactoryC_tcl.c.

Macro Definition Documentation

Add_doc

#define Add_doc   "MqFactoryC [MqFactoryC Add constructor:class ?ident:string=\"MK_NULL\"?]"

doc definition

Definition at line 169 of file MqFactoryC_tcl.c.

ClassInit

#define ClassInit

Value:

  /* if not already done, initialize NEW MQ type */ \
  if (MqFactoryCTT == NULL) MqFactoryCTT = MqFactorySTT; \
 \
  /* protect against double call */ \
  if (MqFactoryCTT->selfCreate == NS(MqFactoryC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MqFactoryCTT->selfCreate    = NS(MqFactoryC_selfCreate); \
  MqFactoryCTT->selfDelete    = NS(MqFactoryC_selfDelete); \
  MqFactoryCTT->selfUnlink    = NS(MqFactoryC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MqFactoryCTT); \
  check_NULL(classO) goto error; \
  OT_CLASS = Tcl_GetObjectAsClass(classO); \
 \
  /* create the TCL static Methods */ \
  static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
 \
  /* create the TCL instance Methods */ \
  static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
 \
  /* define the "NULL" object */ \
  MQ(MqFactoryC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmqmsgque::MqFactoryC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MQ(MqFactoryC_MK_NULL));

Definition at line 79 of file MqFactoryC_tcl.c.

#define   ClassInit \
  /* if not already done, initialize NEW MQ type */ \
  if (MqFactoryCTT == NULL) MqFactoryCTT = MqFactorySTT; \
 \
  /* protect against double call */ \
  if (MqFactoryCTT->selfCreate == NS(MqFactoryC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MqFactoryCTT->selfCreate    = NS(MqFactoryC_selfCreate); \
  MqFactoryCTT->selfDelete    = NS(MqFactoryC_selfDelete); \
  MqFactoryCTT->selfUnlink    = NS(MqFactoryC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MqFactoryCTT); \
  check_NULL(classO) goto error; \
  OT_CLASS = Tcl_GetObjectAsClass(classO); \
 \
  /* create the TCL static Methods */ \
  static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
 \
  /* create the TCL instance Methods */ \
  static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
 \
  /* define the "NULL" object */ \
  MQ(MqFactoryC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmqmsgque::MqFactoryC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MQ(MqFactoryC_MK_NULL));

CTOR_doc

#define CTOR_doc   "MqFactoryC [MqFactoryC CTOR constructor:class ?ident:string=\"MK_NULL\"?]"

Definition at line 170 of file MqFactoryC_tcl.c.

Default_doc

#define Default_doc   "MqFactoryC [$fct Default]"

Definition at line 189 of file MqFactoryC_tcl.c.

DefaultIdent_doc

#define DefaultIdent_doc   "string [MqFactoryC DefaultIdent]"

Definition at line 181 of file MqFactoryC_tcl.c.

Dup2_doc

#define Dup2_doc   "MqFactoryC [$fct Dup2 ident:string] (const)"

Definition at line 186 of file MqFactoryC_tcl.c.

Get_doc

#define Get_doc   "MqFactoryC [MqFactoryC Get ?ident:string=\"\"?]"

Definition at line 173 of file MqFactoryC_tcl.c.

GetCalled_doc

#define GetCalled_doc   "MqFactoryC [MqFactoryC GetCalled ?ident:string=\"\"?]"

Definition at line 174 of file MqFactoryC_tcl.c.

GetCalledL_doc

#define GetCalledL_doc   "MqFactoryC [MqFactoryC GetCalledL largs:MkBufferListC]"

Definition at line 175 of file MqFactoryC_tcl.c.

GetNull_doc

#define GetNull_doc   "MqFactoryC [MqFactoryC GetNull]"

Definition at line 176 of file MqFactoryC_tcl.c.

GetOriginalIdent_doc

#define GetOriginalIdent_doc   "string [$fct GetOriginalIdent] (const)"

Definition at line 198 of file MqFactoryC_tcl.c.

HandleResolve_doc

#define HandleResolve_doc   "MqFactoryC [MqFactoryC HandleResolve netHdl:MK_HDL]"

Definition at line 177 of file MqFactoryC_tcl.c.

Initial_doc

#define Initial_doc   "MqFactoryC [$fct Initial]"

Definition at line 190 of file MqFactoryC_tcl.c.

InitialIdent_doc

#define InitialIdent_doc   "string [MqFactoryC InitialIdent]"

Definition at line 182 of file MqFactoryC_tcl.c.

Instances_doc

#define Instances_doc   "MqFactoryC [MqFactoryC Instances]"

Definition at line 178 of file MqFactoryC_tcl.c.

LogAll_doc

#define LogAll_doc   "MqFactoryC LogAll ?callfunc:string=\"MK_NULL\"?"

Definition at line 183 of file MqFactoryC_tcl.c.

META_CONTEXT_S

#define META_CONTEXT_S   mqctx

Definition at line 115 of file MqFactoryC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "MqFactoryC_tcl.c"

Definition at line 13 of file MqFactoryC_tcl.c.

New_doc

#define New_doc   "MqContextC [$fct New]"

Definition at line 195 of file MqFactoryC_tcl.c.

Next_doc

#define Next_doc   "MqFactoryC [$fct Next]"

Definition at line 191 of file MqFactoryC_tcl.c.

OBJECT2FCT

#define OBJECT2FCT

(

O

)

Value:

MkAssertCastM(MqFactoryC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))

Definition at line 20 of file MqFactoryC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(MqFactoryC)

Definition at line 17 of file MqFactoryC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "MqFactoryC"

Definition at line 18 of file MqFactoryC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(FCT,MQ_FCT);

Definition at line 61 of file MqFactoryC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(FCT,MQ_FCT);

Definition at line 62 of file MqFactoryC_tcl.c.

OT_SETUP_hdl_constr

#define OT_SETUP_hdl_constr

Value:

  OT_SETUP_hdl_constr_pre; \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  MQ_FCT hdl = (MQ_FCT) &MkERROR;

Definition at line 66 of file MqFactoryC_tcl.c.

#define   OT_SETUP_hdl_constr \
  OT_SETUP_hdl_constr_pre; \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  MQ_FCT hdl = (MQ_FCT) &MkERROR;

OT_SETUP_hdl_constr_pre [1/2]

#define OT_SETUP_hdl_constr_pre

Definition at line 65 of file MqFactoryC_tcl.c.

OT_SETUP_hdl_constr_pre [2/2]

#define OT_SETUP_hdl_constr_pre

Value:

  if (NS(inMain) == false) {                                                           \
    Tcl_SetResult(interp,msg,TCL_STATIC);                                              \
    return TCL_ERROR;                                                                  \
  }

Definition at line 65 of file MqFactoryC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(FCT,MQ_FCT);

Definition at line 63 of file MqFactoryC_tcl.c.

OT_SETUP_hdl_static

#define OT_SETUP_hdl_static

Value:

  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  __attribute__((unused)) MK_TYP hdl = MqFactoryC##_TT;

Definition at line 55 of file MqFactoryC_tcl.c.

#define   OT_SETUP_hdl_static     \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  __attribute__((unused)) MK_TYP hdl = MqFactoryC##_TT;

OT_SETUP_hdl_static_constr

#define OT_SETUP_hdl_static_constr

Value:

  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

Definition at line 51 of file MqFactoryC_tcl.c.

#define   OT_SETUP_hdl_static_constr \
  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

OT_SETUP_hdl_static_constr_pre [1/2]

#define OT_SETUP_hdl_static_constr_pre

Definition at line 50 of file MqFactoryC_tcl.c.

OT_SETUP_hdl_static_constr_pre [2/2]

#define OT_SETUP_hdl_static_constr_pre   OT_SETUP_hdl_constr_pre

Definition at line 50 of file MqFactoryC_tcl.c.

Prev_doc

#define Prev_doc   "MqFactoryC [$fct Prev]"

Definition at line 192 of file MqFactoryC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 75 of file MqFactoryC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 74 of file MqFactoryC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 110 of file MqFactoryC_tcl.c.

Function Documentation

tclmqmsgque_MqFactoryC_selfCreate()

static MK_PTR tclmqmsgque_MqFactoryC_selfCreate ( MK_RT mkrt, MK_OBJ const obj, MK_PTR const env )

static

Definition at line 30 of file MqFactoryC_tcl.c.

                                                                                        {
  OT_ENV_T interp = env;
  return MK(AtomCreate) (MK_RT_CALL interp,obj,OT_CLASS,NULL,NULL);
}

tclmqmsgque_MqFactoryC_selfDelete()

static void tclmqmsgque_MqFactoryC_selfDelete ( MK_RT mkrt, MK_PTR selfP, MK_PTR const env )

static

Definition at line 35 of file MqFactoryC_tcl.c.

                                                                                  {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomDeleteHard) (MK_RT_CALL interp, selfO);
}

tclmqmsgque_MqFactoryC_selfUnlink()

static void tclmqmsgque_MqFactoryC_selfUnlink ( MK_RT mkrt, MK_PTR selfP, MK_PTR const env )

static

Definition at line 41 of file MqFactoryC_tcl.c.

                                                                                  {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomUnlink) (MK_RT_CALL interp, selfO);
}

tclmqmsgque_MqFactoryC_Setup()

int tclmqmsgque_MqFactoryC_Setup	(	MK_RT	mkrt,
		OT_ENV_T	interp )

Public API

Definition at line 839 of file MqFactoryC_tcl.c.

{
  if (!strcmp(MqFactoryDefaultIdent(), "libmqmsgque")) {
    if  ( MqFactoryDefault(
            MqFactoryInitial(
              MqFactoryAdd (MK_ERROR_FORMAT,
                NS(sFactoryCTor), NULL, NULL, NULL, NULL, NULL, NULL, NULL, "tclmqmsgque"
              )
            )
          ) == NULL
        )
    { 
      Tcl_SetResult(interp,"MqFactoryS exception",TCL_STATIC);
      return TCL_ERROR;
    }
  }
  return TCL_OK;
}

tclmqmsgque_pMqFactoryC_Init()

int tclmqmsgque_pMqFactoryC_Init	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_NS_T	ns )

Definition at line 858 of file MqFactoryC_tcl.c.

{
  MQ_STATIC_RT;
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}

tclmqmsgque_sFactoryCTor()

static enum MkErrorE tclmqmsgque_sFactoryCTor ( MQ_CALLBACK_FACTORY_CTOR_ARGS )

static

Helper definition

Definition at line 250 of file MqFactoryC_tcl.c.

{
  OT_ENV_T interp = (OT_ENV_T) MK_RT_REF.mkThreadData.ptr;
 
//printSTACK0()
//MkObjLog(fct);
 
  MQ_CTX      mqctx = NULL;
  OT_SELF_T   retObject = NULL;
  OT_CLS_T    createC = NULL;
  OT_OBJ_T tmplObj = tmpl ? META2VAL_X(tmpl) : NULL;
 
//#define CALLGRIND_DEBUG
 
  if (create == MQ_FACTORY_NEW_THREAD) {
#ifdef CALLGRIND_DEBUG
printTxt("start CALLGRIND_ZERO_STATS")
printSTACK_0()
CALLGRIND_ZERO_STATS;
#endif
    interp = Tcl_CreateInterp();
    // tmpl→MK_ERROR_DEFAULT 25.11.2019 aotto
    check_LNG(Tcl_Init(interp)) {
      OT_ERROR_LNG_2_META(MK_ERROR_DEFAULT);
      return MK_ERROR;
    }
    // mark new interpreter as "MQ_STARTUP_IS_THREAD"
    Tcl_SetVar (interp, "MQ_STARTUP_IS_THREAD", "yes", TCL_GLOBAL_ONLY);
    // source initial script
    check_LNG(Tcl_EvalFile(interp, MqInitGetArg0()->data[1]->storage.first.C)) {
      OT_ERROR_LNG_2_META(MK_ERROR_DEFAULT);
      return MK_ERROR;
    }
    // set script
    check_NULL(MK(InfoScript)(MK_RT_CALL interp, MqInitGetArg0()->data[1]->storage.first.C)) {
      OT_ERROR_LNG_2_META(MK_ERROR_DEFAULT);
      return MK_ERROR;
    }
#ifdef CALLGRIND_DEBUG
CALLGRIND_DUMP_STATS_AT("tcl_thread_startup");
printTxt("end CALLGRIND_ZERO_STATS")
#endif
  }
 
  // reflection -> "child" use the same "OT_CLS_T" as tmpl=parent
  if (tmplObj && create & (MQ_FACTORY_NEW_CHILD|MQ_FACTORY_NEW_SLAVE|MQ_FACTORY_NEW_FILTER)) {
    OT_SELF_T clsO = MK(GetClassObjectFromObj)(MK_RT_CALL interp, tmplObj);
    if (clsO) createC = Tcl_GetObjectAsClass(clsO);
  } else {
 
    // BUG FIX (13.Nov.2020) using a OT_OBJ_T as fct_ctor.data create mustic bugs with single
    // "createO" return from Tcl_GetObjectFromObj on DIFFERENT threads… This bug only happen
    // if NO debugging tool is invilved
 
    if (fct->fct_ctor.data) {
      OT_OBJ_T createObj = fct->fct_ctor.data;
      OT_SELF_T createO = Tcl_GetObjectFromObj(interp, createObj);
 
      if (createO == NULL) {
        MkErrorSetC_1E(Tcl_GetStringResult(interp));
        goto error;
      }
      createC = Tcl_GetObjectAsClass(createO);
    } else {
      createC = NS(MqContextC);
    }
//printV("interp=%p, tmplObj=%p, createO=%p, createC=%p\n", interp, tmplObj, createO, createC)
  }
 
  // security check of the OT_CLS_T pointer
  if (createC == NULL) {
    MkErrorSetC_1E("internal error: Factory as 'NULL' OT_CLS_T");
    goto error;
  }
 
  // Call Factory -> Contructor
  OT_OBJ_T lobjv[1];
 
  // 2. add "self"
  // MQ_FACTORY_NEW_THREAD get a NEW "interp" and "tmpl->obj.self" is only defined
  // on the original interp -> no "tmpl" possible -> missing "MqConfigDup"
  if (create & (MQ_FACTORY_NEW_INIT|MQ_FACTORY_NEW_THREAD)) {
    lobjv[0] = RG(nullObj);
  } else {
    lobjv[0] = tmplObj;
  }
 
  // 3. evaluate the script
  retObject = Tcl_NewObjectInstance(interp, createC, NULL, NULL, 1, lobjv, 0);
  check_NULL(retObject) {
    OT_ERROR_LNG_2_META(MK_ERROR_DEFAULT);
    goto error;
  }
 
  // 4. get context
  mqctx = MqCtx(Tcl_ObjectGetMetadata(retObject, &MK(AtomMeta)));
  if (mqctx == NULL) {
    MkErrorSetC_1E("Factory return no MqContextC type");
    goto error;
  }
 
//printLV("222 → <%p>\n", mqctx->setup.Event.data)
 
  // 5. check for MQ error
  MkErrorCheck(MkErrorGetCode_0E());
 
  // 6. do the missing "MqConfigDup" from "2"
  // BUGFIX: without MQ_FACTORY_NEW_CHILD the OT_CONSTRUCTOR_POST prefix will NOT cleanup
  if (tmpl && create & (MQ_FACTORY_NEW_THREAD|MQ_FACTORY_NEW_CHILD|MQ_FACTORY_NEW_FILTER)) {
    MqConfigDup(mqctx, tmpl);
  }
 
  // 7. copy and initialize "setup" data
  // "MQ_FACTORY_NEW_THREAD|MQ_FACTORY_NEW_FORK" is only used to support NON factory startup
  if (tmpl && create & (MQ_FACTORY_NEW_CHILD|MQ_FACTORY_NEW_THREAD|MQ_FACTORY_NEW_FORK)) {
//MkObjLog(tmpl);
    MqSetupDup(mqctx, tmpl);
  }
 
  // tcl-special: default event handler has !no! data and calling just the
  // tcl-event-update function. CHILD does not need to call it too
  if (create & MQ_FACTORY_NEW_CHILD && mqctx->setup.Event.data == NULL) {
    mqctx->setup.Event.fCall = NULL;
  }
  
//printLV("333 → <%p>\n", mqctx->setup.Event.data)
//printXV(mqctx,"333 → MqLinkGetTargetIdent = %s\n", MqLinkGetTargetIdent(mqctx))
  *contextP = mqctx;
  return MK_OK;
 
error:
  *contextP = NULL;
  if (retObject) {
    Tcl_DeleteCommandFromToken(interp, Tcl_GetObjectCommand(retObject));
  }
  return MkErrorStack_0E();
}

tclmqmsgque_sFactoryDataCopy()

static void tclmqmsgque_sFactoryDataCopy ( MK_RT mkrt, MK_PTR * dataP )

static

Definition at line 154 of file MqFactoryC_tcl.c.

{
  assert (dataP != NULL && *dataP != NULL);
  *dataP = OT_OBJ_COPY(*dataP);
}

tclmqmsgque_sFactoryDataFree()

static void tclmqmsgque_sFactoryDataFree ( MK_RT mkrt, MK_PTR * dataP )

static

Definition at line 146 of file MqFactoryC_tcl.c.

{
  assert (dataP != NULL && *dataP != NULL);
  SETUP_interp;
  if (Tcl_InterpDeleted(interp)) return;
  OT_REF_DECR_AND_NULL(*dataP);   // OT_REF_INCR in: CheckConstructor 
}

Variable Documentation

MqFactoryCTT

__thread MK_TYP MqFactoryCTT = NULL

static

Definition at line 26 of file MqFactoryC_tcl.c.

msg

char msg[]

static

Initial value:

= "ERROR: a 'MqFactoryC' command was called OUTSIDE"                               
" of the 'tclmqmsgque::Main'-proc.\n"                                                                
"\n"                                                                                                 
"Description: a 'tclmqmsgque SERVER' listen on a port and start for every incoming connetion\n"      
"a sub-server. If a thread sub-server was choosen... with the '--thread' commandline-option...\n"    
"a new thread is created. To setup a new thread the INITIAL tcl-file is RE-READ again and\n"         
"PROCS and VARIABLES are initialized. The NEW thread has it's own 'Main'-proc and so... the\n"       
"original 'Main'-proc is skipped. If a 'factory' command is used OUTSIDE of the 'Main'-proc...\n"    
"the initial 'Factory' will be created TWICE. The creation of multiple 'Factory' objects...\n"       
"with the SAME name... is an ERROR."

Definition at line 125 of file MqFactoryC_tcl.c.

OT_CLASS

__thread OT_CLS_T OT_CLASS = NULL

Definition at line 23 of file MqFactoryC_tcl.c.

tclmqmsgque_inMain

__thread bool tclmqmsgque_inMain

extern

private

Definition at line 146 of file LibMqMsgque_tcl.c.

tclmqmsgque_MqFactoryC_MK_NULL

__thread OT_OBJ_T tclmqmsgque_MqFactoryC_MK_NULL = NULL

Definition at line 27 of file MqFactoryC_tcl.c.

tclmqmsgque_sInstanceDef

Tcl_MethodType tclmqmsgque_sInstanceDef[]

static

Initial value:

= {
 
 
 
  {VER, "<constructor>"       ,  tclmqmsgque_MqFactoryC_CTOR , NULL, NULL},
 
 
  {VER, "Dup2"                ,  tclmqmsgque_MqFactoryC_Dup2 , NULL, NULL},
 
 
  {VER, "Default"             ,  tclmqmsgque_MqFactoryC_Default , NULL, NULL},
  {VER, "Initial"             ,  tclmqmsgque_MqFactoryC_Initial , NULL, NULL},
  {VER, "Next"                ,  tclmqmsgque_MqFactoryC_Next , NULL, NULL},
  {VER, "Prev"                ,  tclmqmsgque_MqFactoryC_Prev , NULL, NULL},
 
 
  {VER, "New"                 ,  tclmqmsgque_MqFactoryC_New , NULL, NULL},
 
 
  {VER, "GetOriginalIdent"    ,  tclmqmsgque_MqFactoryC_GetOriginalIdent , NULL, NULL},
  
  
 
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 805 of file MqFactoryC_tcl.c.

                                           {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqFactoryC,MqFactory,oC_
  {VER, "<constructor>"       , NS(MqFactoryC_CTOR)                     , NULL, NULL},
 
// doc-key: MqFactoryC,MqFactory,oCx
  {VER, "Dup2"                , NS(MqFactoryC_Dup2)                     , NULL, NULL},
 
// doc-key: MqFactoryC,MqFactory,oc_
  {VER, "Default"             , NS(MqFactoryC_Default)                  , NULL, NULL},
  {VER, "Initial"             , NS(MqFactoryC_Initial)                  , NULL, NULL},
  {VER, "Next"                , NS(MqFactoryC_Next)                     , NULL, NULL},
  {VER, "Prev"                , NS(MqFactoryC_Prev)                     , NULL, NULL},
 
// doc-key: MqFactoryC,MqFactory,oco
  {VER, "New"                 , NS(MqFactoryC_New)                      , NULL, NULL},
 
// doc-key: MqFactoryC,MqFactory,om_
  {VER, "GetOriginalIdent"    , NS(MqFactoryC_GetOriginalIdent)         , NULL, NULL},
  // skip class-overload: MqFactoryHandleGet → HandleGet, NS(MqFactoryC_HandleGet)
  // skip class-overload: MqFactoryLog → Log, NS(MqFactoryC_Log)
 
// END-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
  {0, NULL, NULL, NULL, NULL}
};

tclmqmsgque_sOtClassDef

Tcl_MethodType tclmqmsgque_sOtClassDef[]

static

Initial value:

= {
 
 
 
  {VER, "Add"                 ,  tclmqmsgque_MqFactoryC_Add , NULL, NULL},
 
 
  {VER, "Get"                 ,  tclmqmsgque_MqFactoryC_Get , NULL, NULL},
  {VER, "GetCalled"           ,  tclmqmsgque_MqFactoryC_GetCalled , NULL, NULL},
  {VER, "GetCalledL"          ,  tclmqmsgque_MqFactoryC_GetCalledL , NULL, NULL},
  {VER, "GetNull"             ,  tclmqmsgque_MqFactoryC_GetNull , NULL, NULL},
  {VER, "HandleResolve"       ,  tclmqmsgque_MqFactoryC_HandleResolve , NULL, NULL},
  {VER, "Instances"           ,  tclmqmsgque_MqFactoryC_Instances , NULL, NULL},
 
 
  {VER, "DefaultIdent"        ,  tclmqmsgque_MqFactoryC_DefaultIdent , NULL, NULL},
  {VER, "InitialIdent"        ,  tclmqmsgque_MqFactoryC_InitialIdent , NULL, NULL},
  {VER, "LogAll"              ,  tclmqmsgque_MqFactoryC_LogAll , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

Definition at line 780 of file MqFactoryC_tcl.c.

                                          {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqFactoryC,MqFactory,sCc
  {VER, "Add"                 , NS(MqFactoryC_Add)                      , NULL, NULL},
 
// doc-key: MqFactoryC,MqFactory,sc_
  {VER, "Get"                 , NS(MqFactoryC_Get)                      , NULL, NULL},
  {VER, "GetCalled"           , NS(MqFactoryC_GetCalled)                , NULL, NULL},
  {VER, "GetCalledL"          , NS(MqFactoryC_GetCalledL)               , NULL, NULL},
  {VER, "GetNull"             , NS(MqFactoryC_GetNull)                  , NULL, NULL},
  {VER, "HandleResolve"       , NS(MqFactoryC_HandleResolve)            , NULL, NULL},
  {VER, "Instances"           , NS(MqFactoryC_Instances)                , NULL, NULL},
 
// doc-key: MqFactoryC,MqFactory,sm_
  {VER, "DefaultIdent"        , NS(MqFactoryC_DefaultIdent)             , NULL, NULL},
  {VER, "InitialIdent"        , NS(MqFactoryC_InitialIdent)             , NULL, NULL},
  {VER, "LogAll"              , NS(MqFactoryC_LogAll)                   , NULL, NULL},
 
// END-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
  {0, NULL, NULL, NULL}
};