MqFactoryC_atl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMqMsgque_private_atl.h"

Include dependency graph for MqFactoryC_atl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MqFactoryC_atl.c"
#define	OT_CLASS   amqrt->AtlMqFactoryC
#define	OT_NULL   amqrt->AtlMqFactoryC_MK_NULL
#define	OT_CLASS_NAME   "MqFactoryC"
#define	SELF2HDL(O)
#define	OT_SETUP_hdl   SetupHdlFromMetaData_2(MQ_FCT)
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(MQ_FCT)
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(MQ_FCT)
#define	OT_SETUP_hdl_constr   SetupHdlConstr(MqFactoryC)
#define	OT_SETUP_hdl_static_constr   OT_SETUP_hdl_static
#define	OT_SETUP_hdl_static   SetupHdlStatic(MqFactoryC)
#define	OT_retObj_CONSTR(x)
#define	ClassInit
#define	META_CONTEXT_S   mqctx
#define	OT_SETUP_hdl_constr
#define	OT_SETUP_hdl_static_constr
#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 [MqFactoryC::Dup2 $fct ident:string] (const)"
#define	Default_doc   "MqFactoryC [MqFactoryC::Default $fct]"
#define	Initial_doc   "MqFactoryC [MqFactoryC::Initial $fct]"
#define	Next_doc   "MqFactoryC [MqFactoryC::Next $fct]"
#define	Prev_doc   "MqFactoryC [MqFactoryC::Prev $fct]"
#define	New_doc   "MqContextC [MqFactoryC::New $fct]"
#define	GetOriginalIdent_doc   "string [MqFactoryC::GetOriginalIdent $fct] (const)"

Functions
static MK_PTR	atlmqmsgque_MqFactoryC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	atlmqmsgque_MqFactoryC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	atlmqmsgque_MqFactoryC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	atlmqmsgque_sFactoryDataFree (MK_RT mkrt, MK_PTR *dataP)
static void	atlmqmsgque_sFactoryDataCopy (MK_RT mkrt, MK_PTR *dataP)
static enum MkErrorE	atlmqmsgque_sFactoryCTor (MQ_CALLBACK_FACTORY_CTOR_ARGS)
static OT_ProcRet	atlmqmsgque_MqFactoryC_HandleResolve (OtClass_ARGS)
	Atl: (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	atlmqmsgque_MqFactoryC_HandleGet (MqFactoryC_ARGS)
static OT_ProcRet	atlmqmsgque_MqFactoryC_Next (MqFactoryC_ARGS)
	Atl: MqFactoryC [MqFactoryC::Next $fct] → C-API get next instance from linked-list of MqFactoryS type
static OT_ProcRet	atlmqmsgque_MqFactoryC_Prev (MqFactoryC_ARGS)
	Atl: MqFactoryC [MqFactoryC::Prev $fct] → C-API get previous instance from linked-list of MqFactoryS type
static OT_ProcRet	atlmqmsgque_MqFactoryC_Instances (OtClass_ARGS)
	Atl: (static) MqFactoryC [MqFactoryC::Instances] → C-API get head-instance from linked-list of MqFactoryS type …
static OT_ProcRet	atlmqmsgque_MqFactoryC_GetNull (OtClass_ARGS)
	Atl: (static) MqFactoryC [MqFactoryC::GetNull] → C-API Null-Slot - return a MqFactoryC typed NULL instance …
static OT_ProcRet	atlmqmsgque_MqFactoryC_Get (OtClass_ARGS)
	Atl: (static) MqFactoryC [MqFactoryC::Get ?ident:string=""?] → C-API return the MqFactoryC
static OT_ProcRet	atlmqmsgque_MqFactoryC_GetCalled (OtClass_ARGS)
	Atl: (static) MqFactoryC [MqFactoryC::GetCalled ?ident:string=""?] → C-API returns the MqFactoryC identified by ident …
static OT_ProcRet	atlmqmsgque_MqFactoryC_GetCalledL (OtClass_ARGS)
	Atl: (static) MqFactoryC [MqFactoryC::GetCalledL largs:MkBufferListC] → C-API returns the MqFactoryC identified as first argument in the largs MkBufferListC …
static OT_ProcRet	atlmqmsgque_MqFactoryC_GetOriginalIdent (MqFactoryC_ARGS)
	Atl: string [MqFactoryC::GetOriginalIdent $fct] → C-API helper function to return MqFactoryS::originalIdent
static OT_ProcRet	atlmqmsgque_MqFactoryC_Default (MqFactoryC_ARGS)
	Atl: MqFactoryC [MqFactoryC::Default $fct] → C-API set the default-attribute to the factory …
static OT_ProcRet	atlmqmsgque_MqFactoryC_Initial (MqFactoryC_ARGS)
	Atl: MqFactoryC [MqFactoryC::Initial $fct] → C-API set the initial-attribut to fct …
static OT_ProcRet	atlmqmsgque_MqFactoryC_New (MqFactoryC_ARGS)
	Atl: MqContextC [MqFactoryC::New $fct] → C-API create a new MqContextC from a MqFactoryC …
MK_DEPRECATED static MK_UNUSED OT_ProcRet	atlmqmsgque_MqFactoryC_Log (MqFactoryC_ARGS)
static OT_ProcRet	atlmqmsgque_MqFactoryC_DefaultIdent (OtClass_ARGS)
	Atl: (static) string [MqFactoryC::DefaultIdent] → C-API return the factory-identifier of the default MqFactoryC
static OT_ProcRet	atlmqmsgque_MqFactoryC_InitialIdent (OtClass_ARGS)
	Atl: (static) string [MqFactoryC::InitialIdent] → C-API return the factory-identifier of the initial MqFactoryC
static OT_ProcRet	atlmqmsgque_MqFactoryC_LogAll (OtClass_ARGS)
	Atl: (static) MqFactoryC::LogAll ?callfunc:string="MK_NULL"? → C-API log all "factories" to stderr
static OT_ProcRet	atlmqmsgque_MqFactoryC_Dup2 (MqFactoryC_ARGS)
	Atl: (constructor) MqFactoryC [MqFactoryC::Dup2 $fct ident:string] → C-API create a duplicate of the singleton object MqFactoryC using a new factory-identifer
static OT_ProcRet	atlmqmsgque_MqFactoryC_Add (OtClass_ARGS)
	Atl: (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	atlmqmsgque_MqFactoryC_CTOR (CONSTR_ARGS)
	Atl: (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	atlmqmsgque_MqFactoryC_Setup (MK_RT mkrt, Tcl_Interp *interp)
int	atlmqmsgque_pMqFactoryC_Init (OT_MQ_ARGS OT_NS_T ns)

Variables
__thread bool	atlmqmsgque_inMain
static char	msg []
static const OtObjProcDefS	atlmqmsgque_sOtClassDef []
static const OtObjProcDefS	atlmqmsgque_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_atl.c.

Macro Definition Documentation

Add_doc

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

doc definition

Definition at line 154 of file MqFactoryC_atl.c.

ClassInit

#define ClassInit

Definition at line 59 of file MqFactoryC_atl.c.

#define   ClassInit \
  /* if not already done, initialize NEW META 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 META-Class */ \
  MqFactoryCTT->selfCreate    = NS(MqFactoryC_selfCreate); \
  MqFactoryCTT->selfDelete    = NS(MqFactoryC_selfDelete); \
  MqFactoryCTT->selfUnlink    = NS(MqFactoryC_selfUnlink); \
 \
  /* create the ATL-class */ \
  OT_CLASS = AltClassDef(MqFactoryCTT,&amqrt->AtlMqFactoryC_NS); \
    if (OT_CLASS == NULL) goto error; \
    OT_REF_INCR(OT_CLASS); \
 \
  /* create the ATL static Methods */ \
  check_LNG(AtlUnknownSetup (NS(sOtClassDef),amqrt)) goto error; \
 \
  /* create the ATL instance Methods */ \
  check_LNG(AtlUnknownSetup (NS(sInstanceDef),amqrt)) goto error; \
 \
  /* after class was modified, recompile the class */ \
  RL_init(2, recompile, RL_T(0,RecompileN)); RL_O(1,OT_CLASS) ; \
    int retI = RL_EvalEx(0); \
      if (retI != TCL_OK) return retI; \
 \
  /* define the "NULL" object */ \
  OT_NULL = AtomCreateNULL(OT_CLASS, "::MqFactoryC::MK_NULL", (MK_PTR)amqrt); \
    if (OT_NULL == NULL) goto error; \
    OT_REF_INCR(OT_NULL);

CTOR_doc

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

Definition at line 155 of file MqFactoryC_atl.c.

Default_doc

#define Default_doc   "MqFactoryC [MqFactoryC::Default $fct]"

Definition at line 174 of file MqFactoryC_atl.c.

DefaultIdent_doc

#define DefaultIdent_doc   "string [MqFactoryC::DefaultIdent]"

Definition at line 166 of file MqFactoryC_atl.c.

Dup2_doc

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

Definition at line 171 of file MqFactoryC_atl.c.

Get_doc

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

Definition at line 158 of file MqFactoryC_atl.c.

GetCalled_doc

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

Definition at line 159 of file MqFactoryC_atl.c.

GetCalledL_doc

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

Definition at line 160 of file MqFactoryC_atl.c.

GetNull_doc

#define GetNull_doc   "MqFactoryC [MqFactoryC::GetNull]"

Definition at line 161 of file MqFactoryC_atl.c.

GetOriginalIdent_doc

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

Definition at line 183 of file MqFactoryC_atl.c.

HandleResolve_doc

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

Definition at line 162 of file MqFactoryC_atl.c.

Initial_doc

#define Initial_doc   "MqFactoryC [MqFactoryC::Initial $fct]"

Definition at line 175 of file MqFactoryC_atl.c.

InitialIdent_doc

#define InitialIdent_doc   "string [MqFactoryC::InitialIdent]"

Definition at line 167 of file MqFactoryC_atl.c.

Instances_doc

#define Instances_doc   "MqFactoryC [MqFactoryC::Instances]"

Definition at line 163 of file MqFactoryC_atl.c.

LogAll_doc

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

Definition at line 168 of file MqFactoryC_atl.c.

META_CONTEXT_S

#define META_CONTEXT_S   mqctx

Definition at line 94 of file MqFactoryC_atl.c.

META_FILE_NAME

#define META_FILE_NAME   "MqFactoryC_atl.c"

Definition at line 13 of file MqFactoryC_atl.c.

New_doc

#define New_doc   "MqContextC [MqFactoryC::New $fct]"

Definition at line 180 of file MqFactoryC_atl.c.

Next_doc

#define Next_doc   "MqFactoryC [MqFactoryC::Next $fct]"

Definition at line 176 of file MqFactoryC_atl.c.

OT_CLASS

#define OT_CLASS   amqrt->AtlMqFactoryC

Definition at line 17 of file MqFactoryC_atl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "MqFactoryC"

Definition at line 19 of file MqFactoryC_atl.c.

OT_NULL

#define OT_NULL   amqrt->AtlMqFactoryC_MK_NULL

Definition at line 18 of file MqFactoryC_atl.c.

OT_retObj_CONSTR

#define OT_retObj_CONSTR

(

x

)

Value:

OT_retObj_SET(AtomInit(OT_SELF,MqFactoryC_X2obj(x),amqrt))

Definition at line 56 of file MqFactoryC_atl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(MQ_FCT)

Definition at line 49 of file MqFactoryC_atl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(MQ_FCT)

Definition at line 50 of file MqFactoryC_atl.c.

OT_SETUP_hdl_constr [1/2]

#define OT_SETUP_hdl_constr   SetupHdlConstr(MqFactoryC)

Definition at line 52 of file MqFactoryC_atl.c.

OT_SETUP_hdl_constr [2/2]

#define OT_SETUP_hdl_constr

Value:

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

Definition at line 52 of file MqFactoryC_atl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(MQ_FCT)

Definition at line 51 of file MqFactoryC_atl.c.

OT_SETUP_hdl_static

#define OT_SETUP_hdl_static   SetupHdlStatic(MqFactoryC)

Definition at line 54 of file MqFactoryC_atl.c.

OT_SETUP_hdl_static_constr [1/2]

#define OT_SETUP_hdl_static_constr   OT_SETUP_hdl_static

Definition at line 53 of file MqFactoryC_atl.c.

OT_SETUP_hdl_static_constr [2/2]

#define OT_SETUP_hdl_static_constr

Value:

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

Definition at line 53 of file MqFactoryC_atl.c.

Prev_doc

#define Prev_doc   "MqFactoryC [MqFactoryC::Prev $fct]"

Definition at line 177 of file MqFactoryC_atl.c.

SELF2HDL

#define SELF2HDL

(

O

)

Value:

MqFct(VAL2MNG(O))

Definition at line 21 of file MqFactoryC_atl.c.

Function Documentation

atlmqmsgque_MqFactoryC_selfCreate()

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

static

Definition at line 30 of file MqFactoryC_atl.c.

                                                                                        {
  SETUP_amqrt(env);
  return AtomMake(obj,OT_CLASS,NULL,NULL,env);
}

atlmqmsgque_MqFactoryC_selfDelete()

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

static

Definition at line 36 of file MqFactoryC_atl.c.

                                                                                  {
  OT_SELF_T selfO = selfP;
  SETUP_amqrt(env);
  MK(AtomDeleteHard) (OT_MK_CALL selfO);
}

atlmqmsgque_MqFactoryC_selfUnlink()

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

static

Definition at line 43 of file MqFactoryC_atl.c.

                                                                                  {
  OT_SELF_T selfO = selfP;
  SETUP_amqrt(env);
  return MK(AtomUnlink) (OT_MK_CALL selfO);
}

atlmqmsgque_MqFactoryC_Setup()

int atlmqmsgque_MqFactoryC_Setup	(	MK_RT	mkrt,
		Tcl_Interp *	interp )

Public API

Definition at line 803 of file MqFactoryC_atl.c.

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

atlmqmsgque_pMqFactoryC_Init()

int atlmqmsgque_pMqFactoryC_Init

(

OT_MQ_ARGS OT_NS_T

ns

)

Definition at line 822 of file MqFactoryC_atl.c.

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

atlmqmsgque_sFactoryCTor()

static enum MkErrorE atlmqmsgque_sFactoryCTor ( MQ_CALLBACK_FACTORY_CTOR_ARGS )

static

Helper definition

Definition at line 202 of file MqFactoryC_atl.c.

{
//printTxt("11111111111111111111111111111111111111111111111111111111111111111111111111111111111")
//colorYELLOW("mkrt<%p>, mqrt<%p>, amkrc<%p>, amqrc<%p>", mkrt, mqrt, &amkrtR, &amqrt);
 
//printSTACK_0()
//MkObjLog(fct);
 
  MQ_CTX      mqctx = NULL;
  OT_SELF_T   retO = NULL;
  OT_CLS_T    clsO = NULL, clsTO = NULL;
  OT_OBJ_T    tmplO = tmpl ? META2VAL_X(tmpl) : NULL;
  OT_MQ_RT_T  amqrt = &amqrtR;
  OT_MK_RT_T  amkrt = &amkrtR;
  OT_ENV_T    interp = NULL;
 
//#define CALLGRIND_DEBUG
 
  if (create == MQ_FACTORY_NEW_THREAD) {
//printTxt("222222222222222222222222222222222222222222222222222222")
#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)) {
      return MkErrorSetV_1E ("[ThreadCreateError] Tcl_Init : %s", Tcl_GetStringResult(interp));
    }
    // 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)) {
      return MkErrorSetV_1E ("[ThreadCreateError] Tcl_EvalFile : %s", Tcl_GetStringResult(interp));
    }
    // set script
    check_NULL(AtlInfoScript(MqInitGetArg0()->data[1]->storage.first.C)) {
      return MkErrorSetV_1E ("[ThreadCreateError] AtlInfoScript : %s", Tcl_GetStringResult(interp));
    }
#ifdef CALLGRIND_DEBUG
CALLGRIND_DUMP_STATS_AT("tcl_thread_startup");
printTxt("end CALLGRIND_ZERO_STATS")
#endif
  } 
  if (interp == NULL) interp  = amqrt->interp;
  MOX_RT_T moxrt = amkrt->moxrt;
 
//colorBLUE("mkrt<%p>, mqrt<%p>, amkrt<%p>, amqrt<%p>", mkrt, mqrt, amkrt, amqrt);
//colorWHITE("interp<%p>, amqrt->interp<%p>, amkrt->interp<%p>", interp, amqrt->interp, amkrt->interp);
 
  Tcl_ResetResult(interp);
 
  // reflection -> "child" use the same "Tcl_Class" as tmpl=parent
  if (tmplO && create & (MQ_FACTORY_NEW_CHILD|MQ_FACTORY_NEW_SLAVE|MQ_FACTORY_NEW_FILTER)) {
    clsTO = MoxMy__CLASS__N(tmplO);
    if (clsTO == NULL) {
      MkErrorSetV_1E("FactoryError: the template '%s' is no instance", VAL2STR(tmplO));
      goto error;
    }
  } else {
    clsTO = fct->fct_ctor.data ? fct->fct_ctor.data : MqContextC_lngO;
  }
 
  // security check of the Tcl_Class pointer
  if (clsTO == NULL) {
    MkErrorSetC_1E("FactoryError: unable to find Constructor");
    goto error;
  }
 
  // on a NEW interpreter the class also have to be resolved new
  if (create & (MQ_FACTORY_NEW_THREAD)) {
    // always assume that 'clsTO' is from OTHER thread
    // attention: this code create an ATL-CLASS-OBJECT with AtlClassDefGetNN
    // SIDE EFFECT: register a "AtlClassDefT" into the namespace
    OT_NS_T clsNs = Tcl_FindNamespace(interp,VAL2STR(clsTO),NULL,TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG);
      if (clsNs == NULL) goto error;
    clsO = AtlGetClassFrmNsPtr(clsNs,TCL_LEAVE_ERR_MSG);
      if (clsO == NULL) goto error;
  } else {
    clsO = clsTO;
  }
 
  // Call Factory -> Contructor
  int       lobjc=0;
  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)) {
    ;
  } else {
    lobjv[lobjc++] = tmplO;
  }
 
  // 3. evaluate the script
  check_LNG(MoxCreate3N(clsO, NULL, NULL, lobjc, lobjv)) {
    OT_ERROR_LNG_2_META(NULL);
    goto error;
  }
  retO = Tcl_GetObjResult(interp);
    OT_REF_INCR(retO);
 
  // 4. get context
  mqctx = MqCtx(VAL2MNG(retO));
  if (mqctx == NULL) {
    MkErrorSetV_1E("Factory return '%s', this is not a MqContextC type", VAL2STR(retO));
    goto error;
  }
 
//printLV("222 → <%p>\n", mqctx->setup.Event.data)
 
  // 5. check for MQ error
  MkErrorCheck_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_THREAD|MQ_FACTORY_NEW_CHILD|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;
  Ot_DecrRefCount(retO);
  return MK_OK;
 
error:
  *contextP = NULL;
  if (retO) {
    MoxDestroyN(retO);
    OT_REF_DECR(retO);
  }
  return MkErrorStack_0E();
}

atlmqmsgque_sFactoryDataCopy()

static void atlmqmsgque_sFactoryDataCopy ( MK_RT mkrt, MK_PTR * dataP )

static

Definition at line 140 of file MqFactoryC_atl.c.

{
  *dataP = OT_OBJ_COPY(*dataP);
}

atlmqmsgque_sFactoryDataFree()

static void atlmqmsgque_sFactoryDataFree ( MK_RT mkrt, MK_PTR * dataP )

static

Definition at line 131 of file MqFactoryC_atl.c.

{
  return;
  SETUP_amkrt(NULL);
printP(interp)
  if (interp == NULL || Tcl_InterpDeleted(interp)) return;
  OT_REF_DECR_AND_NULL(*dataP);   // OT_REF_INCR in: CheckConstructor 
}

Variable Documentation

atlmqmsgque_inMain

__thread bool atlmqmsgque_inMain

extern

private

Definition at line 147 of file LibMqMsgque_atl.c.

atlmqmsgque_sInstanceDef

const OtObjProcDefS atlmqmsgque_sInstanceDef[]

static

Initial value:

= {
  
 
  
  { "::MqFactoryC::MqFactoryC"       ,  atlmqmsgque_MqFactoryC_CTOR },
 
  
  { "::MqFactoryC::Dup2"             ,  atlmqmsgque_MqFactoryC_Dup2 },
 
  
  { "::MqFactoryC::Default"          ,  atlmqmsgque_MqFactoryC_Default },
  { "::MqFactoryC::Initial"          ,  atlmqmsgque_MqFactoryC_Initial },
  { "::MqFactoryC::Next"             ,  atlmqmsgque_MqFactoryC_Next },
  { "::MqFactoryC::Prev"             ,  atlmqmsgque_MqFactoryC_Prev },
 
  
  { "::MqFactoryC::New"              ,  atlmqmsgque_MqFactoryC_New },
 
  
  { "::MqFactoryC::GetOriginalIdent" ,  atlmqmsgque_MqFactoryC_GetOriginalIdent },
  
  
 
  
  { NULL }
}

Definition at line 769 of file MqFactoryC_atl.c.

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

atlmqmsgque_sOtClassDef

const OtObjProcDefS atlmqmsgque_sOtClassDef[]

static

Initial value:

= {
  
 
  
  { "::MqFactoryC::Add"              ,  atlmqmsgque_MqFactoryC_Add },
 
  
  { "::MqFactoryC::Get"              ,  atlmqmsgque_MqFactoryC_Get },
  { "::MqFactoryC::GetCalled"        ,  atlmqmsgque_MqFactoryC_GetCalled },
  { "::MqFactoryC::GetCalledL"       ,  atlmqmsgque_MqFactoryC_GetCalledL },
  { "::MqFactoryC::GetNull"          ,  atlmqmsgque_MqFactoryC_GetNull },
  { "::MqFactoryC::HandleResolve"    ,  atlmqmsgque_MqFactoryC_HandleResolve },
  { "::MqFactoryC::Instances"        ,  atlmqmsgque_MqFactoryC_Instances },
 
  
  { "::MqFactoryC::DefaultIdent"     ,  atlmqmsgque_MqFactoryC_DefaultIdent },
  { "::MqFactoryC::InitialIdent"     ,  atlmqmsgque_MqFactoryC_InitialIdent },
  { "::MqFactoryC::LogAll"           ,  atlmqmsgque_MqFactoryC_LogAll },
 
  
  { NULL }
}

Definition at line 744 of file MqFactoryC_atl.c.

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

msg

char msg[]

static

Initial value:

= "ERROR: a 'MqFactoryC' command was called OUTSIDE"                               
" of the 'atlmqmsgque::Main'-proc.\n"                                                                
"\n"                                                                                                 
"Description: a 'atlmqmsgque 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 104 of file MqFactoryC_atl.c.