tag: nhi1-release-250425 More...

#include "LibMqMsgque_private_tcl.h"
#include <limits.h>
#include <float.h>
#include "mk_check_tcl.h"
#include "tmpl/mq_misc_check_lng.h"

Include dependency graph for LibMqMsgque_tcl.c:

Go to the source code of this file.

Data Structures
struct	LookupObjS

Macros
#define	META_FILE_NAME "MqMsgque_tcl.c"

#define	VER TCL_OO_METHOD_VERSION_CURRENT

#define	OtClass_ARGS OBJCMD_ARGS

#define	OT_SETUP_hdl_static

#define	MqSetupTmpl()

#define	MqCleanupTmpl()

#define	META_CONTEXT_S hdl

#define	IdentE_FromInt_doc "MqIdentE [MqMsgque IdentE_FromInt value:int32]"

#define	SlaveE_FromInt_doc "MqSlaveE [MqMsgque SlaveE_FromInt value:int32]"

#define	StartE_FromInt_doc "MqStartE [MqMsgque StartE_FromInt value:int32]"

#define	StatusIsEF_FromInt_doc "MqStatusIsEF [MqMsgque StatusIsEF_FromInt value:int32]"

#define	WaitOnEventE_FromInt_doc "MqWaitOnEventE [MqMsgque WaitOnEventE_FromInt value:int32]"

#define	IdentE_ToInt_doc "int32 [MqMsgque IdentE_ToInt value:MqIdentE]"

#define	IdentE_ToString_doc "string [MqMsgque IdentE_ToString value:MqIdentE]"

#define	SlaveE_ToInt_doc "int32 [MqMsgque SlaveE_ToInt value:MqSlaveE]"

#define	SlaveE_ToString_doc "string [MqMsgque SlaveE_ToString value:MqSlaveE]"

#define	StartE_ToInt_doc "int32 [MqMsgque StartE_ToInt value:MqStartE]"

#define	StartE_ToString_doc "string [MqMsgque StartE_ToString value:MqStartE]"

#define	StatusIsEF_ToInt_doc "int32 [MqMsgque StatusIsEF_ToInt value:MqStatusIsEF]"

#define	StatusIsEF_ToString_doc "string [MqMsgque StatusIsEF_ToString value:MqStatusIsEF]"

#define	WaitOnEventE_ToInt_doc "int32 [MqMsgque WaitOnEventE_ToInt value:MqWaitOnEventE]"

#define	WaitOnEventE_ToString_doc "string [MqMsgque WaitOnEventE_ToString value:MqWaitOnEventE]"

#define	Help_doc "string [MqMsgque Help tool:string]"

#define	HelpMsgque_doc "string [MqMsgque HelpMsgque]"

#define	InitGetArg0_doc "MkBufferListC [MqMsgque InitGetArg0]"

#define	InitResetArg0_doc "MkBufferListC [MqMsgque InitResetArg0]"

#define	InitSetArg0_doc "MqMsgque InitSetArg0 ?bfl:MkBufferListC...=\"MK_NULL\"?"

#define	Main_doc "MqMsgque Main code:..."

#define	Cleanup_doc "MqMsgque Cleanup"

#define	Setup_doc "MqMsgque Setup"

Typedefs
typedef int(*	LookupObjSF) (OT_ENV_T interp, int objc, OT_OBJ_T const *objv)

Functions
enum MkErrorE	tclmqmsgque_CheckConstructor (OT_Check_ARGS, MK_CCP *constrP)

static int	tclmqmsgque_Support_Class_Cmd (OtClass_ARGS)
	`bool [tclmqmsgque::support thread\|fork]`

static OT_ProcRet	tclmqmsgque_MqMsgque_Main (OtClass_ARGS)
	`Tcl: (static) MqMsgque Main code:...` → C-API Main entrypoint - start the application

static OT_ProcRet	tclmqmsgque_MqMsgque_IdentE_FromInt (OtClass_ARGS)
	`Tcl: (static) MqIdentE [MqMsgque IdentE_FromInt value:int32]` → C-API return the MqIdentE from integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_SlaveE_FromInt (OtClass_ARGS)
	`Tcl: (static) MqSlaveE [MqMsgque SlaveE_FromInt value:int32]` → C-API return the MqSlaveE from integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_StartE_FromInt (OtClass_ARGS)
	`Tcl: (static) MqStartE [MqMsgque StartE_FromInt value:int32]` → C-API return the MqStartE from integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_StatusIsEF_FromInt (OtClass_ARGS)
	`Tcl: (static) MqStatusIsEF [MqMsgque StatusIsEF_FromInt value:int32]` → C-API return the MqStatusIsEF from integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_WaitOnEventE_FromInt (OtClass_ARGS)
	`Tcl: (static) MqWaitOnEventE [MqMsgque WaitOnEventE_FromInt value:int32]` → C-API return the MqWaitOnEventE from integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_IdentE_ToInt (OtClass_ARGS)
	`Tcl: (static) int32 [MqMsgque IdentE_ToInt value:MqIdentE]` → C-API return the MqIdentE as integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_IdentE_ToString (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque IdentE_ToString value:MqIdentE]` → C-API return the MqIdentE as string …

static OT_ProcRet	tclmqmsgque_MqMsgque_SlaveE_ToInt (OtClass_ARGS)
	`Tcl: (static) int32 [MqMsgque SlaveE_ToInt value:MqSlaveE]` → C-API return the MqSlaveE as integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_SlaveE_ToString (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque SlaveE_ToString value:MqSlaveE]` → C-API return the MqSlaveE as string …

static OT_ProcRet	tclmqmsgque_MqMsgque_StartE_ToInt (OtClass_ARGS)
	`Tcl: (static) int32 [MqMsgque StartE_ToInt value:MqStartE]` → C-API return the MqStartE as integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_StartE_ToString (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque StartE_ToString value:MqStartE]` → C-API return the MqStartE as string …

static OT_ProcRet	tclmqmsgque_MqMsgque_StatusIsEF_ToInt (OtClass_ARGS)
	`Tcl: (static) int32 [MqMsgque StatusIsEF_ToInt value:MqStatusIsEF]` → C-API return the MqStatusIsEF as integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_StatusIsEF_ToString (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque StatusIsEF_ToString value:MqStatusIsEF]` → C-API return the MqStatusIsEF as string …

static OT_ProcRet	tclmqmsgque_MqMsgque_WaitOnEventE_ToInt (OtClass_ARGS)
	`Tcl: (static) int32 [MqMsgque WaitOnEventE_ToInt value:MqWaitOnEventE]` → C-API return the MqWaitOnEventE as integer …

static OT_ProcRet	tclmqmsgque_MqMsgque_WaitOnEventE_ToString (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque WaitOnEventE_ToString value:MqWaitOnEventE]` → C-API return the MqWaitOnEventE as string …

static OT_ProcRet	tclmqmsgque_MqMsgque_Help (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque Help tool:string]` → C-API write tclmqmsgque specific user-help to stderr

static OT_ProcRet	tclmqmsgque_MqMsgque_HelpMsgque (OtClass_ARGS)
	`Tcl: (static) string [MqMsgque HelpMsgque]` → C-API return a page with the usage of all tclmqmsgque specific options

static OT_ProcRet	tclmqmsgque_MqMsgque_InitGetArg0 (OtClass_ARGS)
	`Tcl: (static) MkBufferListC [MqMsgque InitGetArg0]` → C-API get the process startup-prefix argument

static OT_ProcRet	tclmqmsgque_MqMsgque_InitResetArg0 (OtClass_ARGS)
	`Tcl: (static) MkBufferListC [MqMsgque InitResetArg0]` → C-API Reset the process-startup-prefix argument to an empty list …

static OT_ProcRet	tclmqmsgque_MqMsgque_InitSetArg0 (OtClass_ARGS)
	`Tcl: (static) MqMsgque InitSetArg0 ?bfl:MkBufferListC...="MK_NULL"?` → C-API set the process startup-prefix argument to bfl

static OT_ProcRet	tclmqmsgque_MqMsgque_Cleanup (OtClass_ARGS)
	`Tcl: (static) MqMsgque Cleanup` → C-API cleanup tclmqmsgque internal memory …

static OT_ProcRet	tclmqmsgque_MqMsgque_Setup (OtClass_ARGS)
	`Tcl: (static) MqMsgque Setup` → C-API setup tclmqmsgque internal memory …

OT_TCL_EXTERN int	Tclmqmsgque_Init (OT_ENV_T interp)
	initialize the tclmqmsgque package

OT_TCL_EXTERN int	Tclmqmsgque_Unload (OT_ENV_T interp, int flags)

Enum To String
OT_OBJ_T	tclmqmsgque_MqFactoryE_ToString (const enum MqFactoryE type)

OT_OBJ_T	tclmqmsgque_MqHandShakeE_ToString (const enum MqHandShakeE type)

OT_OBJ_T	tclmqmsgque_MqIdentE_ToString (const enum MqIdentE type)

OT_OBJ_T	tclmqmsgque_MqIoComE_ToString (const enum MqIoComE type)

OT_OBJ_T	tclmqmsgque_MqSlaveE_ToString (const enum MqSlaveE type)

OT_OBJ_T	tclmqmsgque_MqStartE_ToString (const enum MqStartE type)

OT_OBJ_T	tclmqmsgque_MqStatusIsEF_ToString (const enum MqStatusIsEF type)

OT_OBJ_T	tclmqmsgque_MqTransTypeE_ToString (const enum MqTransTypeE type)

OT_OBJ_T	tclmqmsgque_MqWaitOnEventE_ToString (const enum MqWaitOnEventE type)

Enum From Obj
int	tclmqmsgque_Get_MqIdentE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqIdentE *ret)

int	tclmqmsgque_Get_MqSlaveE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqSlaveE *ret)

int	tclmqmsgque_Get_MqStartE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqStartE *ret)

int	tclmqmsgque_Get_MqStatusIsEF_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqStatusIsEF *ret)

int	tclmqmsgque_Get_MqWaitOnEventE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MqWaitOnEventE *ret)

Variables
__thread bool	tclmqmsgque_inMain = false

static const OtObjProcDefS	tclmqmsgque_sOtClassDef []

static const OtObjProcDefS	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 LibMqMsgque_tcl.c.

Macro Definition Documentation

◆ Cleanup_doc

#define Cleanup_doc "MqMsgque Cleanup"

Definition at line 184 of file LibMqMsgque_tcl.c.

◆ Help_doc

#define Help_doc "string [MqMsgque Help tool:string]"

Definition at line 172 of file LibMqMsgque_tcl.c.

◆ HelpMsgque_doc

#define HelpMsgque_doc "string [MqMsgque HelpMsgque]"

Definition at line 173 of file LibMqMsgque_tcl.c.

◆ IdentE_FromInt_doc

#define IdentE_FromInt_doc "MqIdentE [MqMsgque IdentE_FromInt value:int32]"

Definition at line 153 of file LibMqMsgque_tcl.c.

◆ IdentE_ToInt_doc

#define IdentE_ToInt_doc "int32 [MqMsgque IdentE_ToInt value:MqIdentE]"

Definition at line 160 of file LibMqMsgque_tcl.c.

◆ IdentE_ToString_doc

#define IdentE_ToString_doc "string [MqMsgque IdentE_ToString value:MqIdentE]"

Definition at line 161 of file LibMqMsgque_tcl.c.

◆ InitGetArg0_doc

#define InitGetArg0_doc "MkBufferListC [MqMsgque InitGetArg0]"

Definition at line 176 of file LibMqMsgque_tcl.c.

◆ InitResetArg0_doc

#define InitResetArg0_doc "MkBufferListC [MqMsgque InitResetArg0]"

Definition at line 177 of file LibMqMsgque_tcl.c.

◆ InitSetArg0_doc

#define InitSetArg0_doc "MqMsgque InitSetArg0 ?bfl:MkBufferListC...=\"MK_NULL\"?"

Definition at line 178 of file LibMqMsgque_tcl.c.

◆ Main_doc

#define Main_doc "MqMsgque Main code:..."

Definition at line 181 of file LibMqMsgque_tcl.c.

◆ META_CONTEXT_S

#define META_CONTEXT_S hdl

Definition at line 35 of file LibMqMsgque_tcl.c.

◆ META_FILE_NAME

#define META_FILE_NAME "MqMsgque_tcl.c"

Definition at line 11 of file LibMqMsgque_tcl.c.

◆ MqCleanupTmpl

#define MqCleanupTmpl ( )

Definition at line 33 of file LibMqMsgque_tcl.c.

◆ MqSetupTmpl

#define MqSetupTmpl ( )

Definition at line 32 of file LibMqMsgque_tcl.c.

◆ OT_SETUP_hdl_static

#define OT_SETUP_hdl_static

Value:

  int __skip=1;\
  /* printAry2("cmd",objc,objv); */ \
  __attribute__((unused)) MK_RT mkrt = MkRT; \
  __attribute__((unused)) MK_ERR hdl = &MkERROR;

Definition at line 19 of file LibMqMsgque_tcl.c.

#define OT_SETUP_hdl_static \
  int __skip=1;\
  /* printAry2("cmd",objc,objv); */ \
  __attribute__((unused)) MK_RT mkrt = MkRT; \
  __attribute__((unused)) MK_ERR hdl = &MkERROR;

◆ OtClass_ARGS

#define OtClass_ARGS OBJCMD_ARGS

Definition at line 17 of file LibMqMsgque_tcl.c.

◆ Setup_doc

#define Setup_doc "MqMsgque Setup"

Definition at line 185 of file LibMqMsgque_tcl.c.

◆ SlaveE_FromInt_doc

#define SlaveE_FromInt_doc "MqSlaveE [MqMsgque SlaveE_FromInt value:int32]"

Definition at line 154 of file LibMqMsgque_tcl.c.

◆ SlaveE_ToInt_doc

#define SlaveE_ToInt_doc "int32 [MqMsgque SlaveE_ToInt value:MqSlaveE]"

Definition at line 162 of file LibMqMsgque_tcl.c.

◆ SlaveE_ToString_doc

#define SlaveE_ToString_doc "string [MqMsgque SlaveE_ToString value:MqSlaveE]"

Definition at line 163 of file LibMqMsgque_tcl.c.

◆ StartE_FromInt_doc

#define StartE_FromInt_doc "MqStartE [MqMsgque StartE_FromInt value:int32]"

Definition at line 155 of file LibMqMsgque_tcl.c.

◆ StartE_ToInt_doc

#define StartE_ToInt_doc "int32 [MqMsgque StartE_ToInt value:MqStartE]"

Definition at line 164 of file LibMqMsgque_tcl.c.

◆ StartE_ToString_doc

#define StartE_ToString_doc "string [MqMsgque StartE_ToString value:MqStartE]"

Definition at line 165 of file LibMqMsgque_tcl.c.

◆ StatusIsEF_FromInt_doc

#define StatusIsEF_FromInt_doc "MqStatusIsEF [MqMsgque StatusIsEF_FromInt value:int32]"

Definition at line 156 of file LibMqMsgque_tcl.c.

◆ StatusIsEF_ToInt_doc

#define StatusIsEF_ToInt_doc "int32 [MqMsgque StatusIsEF_ToInt value:MqStatusIsEF]"

Definition at line 166 of file LibMqMsgque_tcl.c.

◆ StatusIsEF_ToString_doc

#define StatusIsEF_ToString_doc "string [MqMsgque StatusIsEF_ToString value:MqStatusIsEF]"

Definition at line 167 of file LibMqMsgque_tcl.c.

◆ VER

#define VER TCL_OO_METHOD_VERSION_CURRENT

Definition at line 12 of file LibMqMsgque_tcl.c.

◆ WaitOnEventE_FromInt_doc

#define WaitOnEventE_FromInt_doc "MqWaitOnEventE [MqMsgque WaitOnEventE_FromInt value:int32]"

Definition at line 157 of file LibMqMsgque_tcl.c.

◆ WaitOnEventE_ToInt_doc

#define WaitOnEventE_ToInt_doc "int32 [MqMsgque WaitOnEventE_ToInt value:MqWaitOnEventE]"

Definition at line 168 of file LibMqMsgque_tcl.c.

◆ WaitOnEventE_ToString_doc

#define WaitOnEventE_ToString_doc "string [MqMsgque WaitOnEventE_ToString value:MqWaitOnEventE]"

Definition at line 169 of file LibMqMsgque_tcl.c.

Typedef Documentation

◆ LookupObjSF

typedef int( * LookupObjSF) (OT_ENV_T interp, int objc, OT_OBJ_T const *objv)

Definition at line 133 of file LibMqMsgque_tcl.c.

Function Documentation

◆ tclmqmsgque_CheckConstructor()

enum MkErrorE tclmqmsgque_CheckConstructor	(	OT_Check_ARGS	,
		MK_CCP *	constrP )

Definition at line 523 of file LibMqMsgque_tcl.c.

{
  if ((*skipP) >= objc) {
    WrongNumArgs(hdl,(*skipP), objc, -999, +999, arg);
    goto error;
  }
  OT_OBJ_T objV = OT_LNG_OBJV((*skipP)++);
 
  OT_SELF_T  classO = Tcl_GetObjectFromObj(interp,objV);
  check_NULL(classO) {
    return MkErrorSetC_2M(hdl,Tcl_GetStringResult (interp));
  }
  OT_CLS_T classC = Tcl_GetObjectAsClass(classO);
  check_NULL(classC) {
    WrongTypeOfArgError("Class",MK(GetTypeFromObj)(OT_Prefix_CALL objV,NULL));
  }
 
  *constrP = objV;
    OT_REF_INCR(objV);
 
  return MK_OK;
error:
  return OT_ERROR_STACK;
}

◆ Tclmqmsgque_Init()

OT_TCL_EXTERN int Tclmqmsgque_Init ( OT_ENV_T interp )

initialize the tclmqmsgque package

The tclmqmsgque package is created to provide support for theLink'.

Parameters

[in] interp the current interpreter

Returns: Tcl error-code

Definition at line 1072 of file LibMqMsgque_tcl.c.

{
  // check for the right tcl version
  if (Tcl_InitStubs (interp, "8.6", true) == NULL) {
    return TCL_ERROR;
  }
  if (Tcl_OOInitStubs (interp) == NULL) {
    return TCL_ERROR;
  }
 
  // setup libmqmsgque
  MqSetup();
  MkRtSetup_NULL;
 
  // announce my package
  OtErrorCheckLng (Tcl_PkgProvide (interp, "tclmqmsgque", META_VERSION));
 
  // pkg_mkIndex hack → only "Tcl_PkgProvide" is required
  if (Tcl_GetVar(interp,"::tcl::newPkgs", TCL_GLOBAL_ONLY) != NULL) return TCL_OK;
 
  // dependency.
  MK_STRN ver = Tcl_PkgRequire(interp, "tclmkkernel", META_VERSION, 1);
  check_NULL(ver) return TCL_ERROR;
 
  // toplevel namespace
  OT_NS_T ns = Tcl_CreateNamespace (interp, "tclmqmsgque", NULL, NULL);
  check_NULL(ns) return TCL_ERROR;
 
  // add PACKAGE commands
  OtErrorCheckLng( MK(FillNamespace)    (interp,ns,MQ(sOtClassDef),NULL));
 
  // BEGIN-CLASS-call-init - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
  OtErrorCheckLng( NS(pMqFactoryC_Init) (MK_RT_CALL interp, ns)) ;
  OtErrorCheckLng( NS(pMqContextC_Init) (MK_RT_CALL interp, ns)) ;
  OtErrorCheckLng( NS(pMqDumpC_Init)    (MK_RT_CALL interp, ns)) ;
 
  // END-CLASS-call-init - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
  // init NULL object… on EVERY thread
  NS(inMain) = false;
 
  // every new thread source the script
  // "package require tclmqmsgque" is calling "Tclmsgque_Init"
  // → check if we on "thread" : NULL=initial, POINTER=thread
  OT_OBJ_T MQ_STARTUP_IS_THREAD = Tcl_GetVar2Ex(interp,"MQ_STARTUP_IS_THREAD",NULL,TCL_GLOBAL_ONLY);
 
  // export namespace
  OtErrorCheckLng( Tcl_Export( interp, ns, "Mq*C", false ) ) ;
 
  // only ONCE on INITIAL setup
  if (MQ_STARTUP_IS_THREAD == NULL) {
 
    // setup MkInitGetArg0
    if (MqInitGetArg0() == NULL && Tcl_GetNameOfExecutable() != NULL) {
      Tcl_Eval(interp, "dict get [info frame 1] file");
      MqInitSetArg0VA(Tcl_GetNameOfExecutable(), Tcl_GetStringResult(interp), NULL);
    }
 
    // create the default-factory
    OtErrorCheckLng (NS(MqFactoryC_Setup) (MK_RT_CALL interp));
  }
 
/*
  // add both "thread" and "proc" exit-handler to get rid of:
  // -> Tcl_AsyncDelete: async handler deleted by the wrong thread
  // test: Nhi1Exec error.test --testing -match "error-1b2-*" --only-tcl --com-uds --start-thread
  // ERR4 delete app wit "exit 1" only PROC exit-handler is called
  //Tcl_CreateThreadExitHandler(sThreadExit,interp);
  Tcl_CreateExitHandler(sProcExit, interp);
  printV("create TLS-ipt=%p, ARG-itp=%p\n", MK_RT_REF.mkThreadData, interp);
*/
 
  return TCL_OK;
}

◆ Tclmqmsgque_Unload()

OT_TCL_EXTERN int Tclmqmsgque_Unload	(	OT_ENV_T	interp,
		int	flags )

Definition at line 1151 of file LibMqMsgque_tcl.c.

{
  MkCleanup();
 
  return TCL_OK;
}

Variable Documentation

◆ tclmqmsgque_inMain

__thread bool tclmqmsgque_inMain = false

private

Definition at line 146 of file LibMqMsgque_tcl.c.

◆ tclmqmsgque_sInstanceDef

const OtObjProcDefS tclmqmsgque_sInstanceDef[]

static

Initial value:

= {
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 1053 of file LibMqMsgque_tcl.c.

                                                                         {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// → no data
 
// 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

const OtObjProcDefS tclmqmsgque_sOtClassDef[]