MqDumpC_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMqMsgque_private_tcl.h"

Include dependency graph for MqDumpC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MqDumpC_tcl.c"
#define	OT_CLASS   NS(MqDumpC)
#define	OT_CLASS_NAME   "MqDumpC"
#define	OBJECT2DMP(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(DMP,MQ_DMP);
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(DMP,MQ_DMP);
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(DMP,MQ_DMP);
#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	CTOR_doc   "MqDumpC [MqDumpC CTOR ctx:MqContextC ?dumpP_inout:MqDumpC=\"MK_NULL\"?]"
#define	Error_doc   "MqDumpC [MqDumpC Error error:MqContextC ?dumpP_inout:MqDumpC=\"MK_NULL\"?]"
#define	Export_doc   "MqDumpC [MqDumpC Export ctx:MqContextC ?dumpP_inout:MqDumpC=\"MK_NULL\"?]"
#define	BinSet_doc   "MqDumpC [MqDumpC BinSet data:binary]"
#define	GetNull_doc   "MqDumpC [MqDumpC GetNull]"
#define	HandleResolve_doc   "MqDumpC [MqDumpC HandleResolve netHdl:MK_HDL]"
#define	Instances_doc   "MqDumpC [MqDumpC Instances]"
#define	Next_doc   "MqDumpC [$dmp Next]"
#define	Prev_doc   "MqDumpC [$dmp Prev]"
#define	BinGet_doc   "binary [$dump BinGet] (const)"
#define	Import_doc   "$dump Import ctx:MqContextC"
#define	SizeGet_doc   "long [$dump SizeGet] (const)"
#define	TokenGet_doc   "string [$dump TokenGet] (const)"

Functions
static MK_PTR	tclmqmsgque_MqDumpC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclmqmsgque_MqDumpC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclmqmsgque_MqDumpC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	tclmqmsgque_MqDumpC_HandleResolve (OtClass_ARGS)
	Tcl: (static) MqDumpC [MqDumpC HandleResolve netHdl:MK_HDL] → C-API Handle-Resolve-Slot - return a MqDumpC from netHdl or "MK_NULL" if invalid…
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmqmsgque_MqDumpC_HandleGet (MqDumpC_ARGS)
static OT_ProcRet	tclmqmsgque_MqDumpC_Next (MqDumpC_ARGS)
	Tcl: MqDumpC [$dmp Next] → C-API get next instance from linked-list of MqDumpS type
static OT_ProcRet	tclmqmsgque_MqDumpC_Prev (MqDumpC_ARGS)
	Tcl: MqDumpC [$dmp Prev] → C-API get previous instance from linked-list of MqDumpS type
static OT_ProcRet	tclmqmsgque_MqDumpC_Instances (OtClass_ARGS)
	Tcl: (static) MqDumpC [MqDumpC Instances] → C-API get head-instance from linked-list of MqDumpS type …
static OT_ProcRet	tclmqmsgque_MqDumpC_GetNull (OtClass_ARGS)
	Tcl: (static) MqDumpC [MqDumpC GetNull] → C-API Null-Slot - return a MqDumpC typed NULL instance …
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmqmsgque_MqDumpC_Log (MqDumpC_ARGS)
static OT_ProcRet	tclmqmsgque_MqDumpC_SizeGet (MqDumpC_ARGS)
	Tcl: long [$dump SizeGet] → C-API report the binary data size from an MqDumpS object
static OT_ProcRet	tclmqmsgque_MqDumpC_TokenGet (MqDumpC_ARGS)
	Tcl: string [$dump TokenGet] → C-API return the MqContextC_ServiceApi_Identifer …
static OT_ProcRet	tclmqmsgque_MqDumpC_CTOR (CONSTR_ARGS)
	Tcl: (constructor,static) MqDumpC [MqDumpC CTOR ctx:MqContextC ?dumpP_inout:MqDumpC="MK_NULL"?] → C-API create a MqDumpC as export of the ctx-read-data-package …
static OT_ProcRet	tclmqmsgque_MqDumpC_Error (OtClass_ARGS)
	Tcl: (constructor,static) MqDumpC [MqDumpC Error error:MqContextC ?dumpP_inout:MqDumpC="MK_NULL"?] → C-API export the context->error into the dump-package …
static OT_ProcRet	tclmqmsgque_MqDumpC_Export (OtClass_ARGS)
	Tcl: (constructor,static) MqDumpC [MqDumpC Export ctx:MqContextC ?dumpP_inout:MqDumpC="MK_NULL"?] → C-API create a MqDumpC as export of the ctx-read-data-package …
static OT_ProcRet	tclmqmsgque_MqDumpC_BinSet (OtClass_ARGS)
	Tcl: (constructor,static) MqDumpC [MqDumpC BinSet data:binary] → C-API create an MqDumpS object from binary data
static OT_ProcRet	tclmqmsgque_MqDumpC_BinGet (MqDumpC_ARGS)
	Tcl: binary [$dump BinGet] → C-API export the binary data from an MqDumpS object
static OT_ProcRet	tclmqmsgque_MqDumpC_Import (MqDumpC_ARGS)
	Tcl: $dump Import ctx:MqContextC → C-API import the dump-package into the ctx-read-data-package …
int	tclmqmsgque_pMqDumpC_Init (MK_RT mkrt, OT_ENV_T interp, OT_NS_T ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	MqDumpCTT = NULL
__thread OT_OBJ_T	tclmqmsgque_MqDumpC_MK_NULL = NULL
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 MqDumpC_tcl.c.

Macro Definition Documentation

BinGet_doc

#define BinGet_doc   "binary [$dump BinGet] (const)"

Definition at line 132 of file MqDumpC_tcl.c.

BinSet_doc

#define BinSet_doc   "MqDumpC [MqDumpC BinSet data:binary]"

Definition at line 120 of file MqDumpC_tcl.c.

ClassInit

#define ClassInit

Value:

  /* if not already done, initialize NEW MQ type */ \
  if (MqDumpCTT == NULL) MqDumpCTT = MqDumpSTT; \
 \
  /* protect against double call */ \
  if (MqDumpCTT->selfCreate == NS(MqDumpC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MqDumpCTT->selfCreate    = NS(MqDumpC_selfCreate); \
  MqDumpCTT->selfDelete    = NS(MqDumpC_selfDelete); \
  MqDumpCTT->selfUnlink    = NS(MqDumpC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MqDumpCTT); \
  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(MqDumpC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmqmsgque::MqDumpC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MQ(MqDumpC_MK_NULL));

Definition at line 77 of file MqDumpC_tcl.c.

#define   ClassInit \
  /* if not already done, initialize NEW MQ type */ \
  if (MqDumpCTT == NULL) MqDumpCTT = MqDumpSTT; \
 \
  /* protect against double call */ \
  if (MqDumpCTT->selfCreate == NS(MqDumpC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MqDumpCTT->selfCreate    = NS(MqDumpC_selfCreate); \
  MqDumpCTT->selfDelete    = NS(MqDumpC_selfDelete); \
  MqDumpCTT->selfUnlink    = NS(MqDumpC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MqDumpCTT); \
  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(MqDumpC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmqmsgque::MqDumpC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MQ(MqDumpC_MK_NULL));

CTOR_doc

#define CTOR_doc   "MqDumpC [MqDumpC CTOR ctx:MqContextC ?dumpP_inout:MqDumpC=\"MK_NULL\"?]"

Definition at line 115 of file MqDumpC_tcl.c.

Error_doc

#define Error_doc   "MqDumpC [MqDumpC Error error:MqContextC ?dumpP_inout:MqDumpC=\"MK_NULL\"?]"

Definition at line 116 of file MqDumpC_tcl.c.

Export_doc

#define Export_doc   "MqDumpC [MqDumpC Export ctx:MqContextC ?dumpP_inout:MqDumpC=\"MK_NULL\"?]"

Definition at line 117 of file MqDumpC_tcl.c.

GetNull_doc

#define GetNull_doc   "MqDumpC [MqDumpC GetNull]"

Definition at line 123 of file MqDumpC_tcl.c.

HandleResolve_doc

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

Definition at line 124 of file MqDumpC_tcl.c.

Import_doc

#define Import_doc   "$dump Import ctx:MqContextC"

Definition at line 134 of file MqDumpC_tcl.c.

Instances_doc

#define Instances_doc   "MqDumpC [MqDumpC Instances]"

Definition at line 125 of file MqDumpC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "MqDumpC_tcl.c"

Definition at line 11 of file MqDumpC_tcl.c.

Next_doc

#define Next_doc   "MqDumpC [$dmp Next]"

Definition at line 128 of file MqDumpC_tcl.c.

OBJECT2DMP

#define OBJECT2DMP

(

O

)

Value:

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

Definition at line 18 of file MqDumpC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(MqDumpC)

Definition at line 15 of file MqDumpC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "MqDumpC"

Definition at line 16 of file MqDumpC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(DMP,MQ_DMP);

Definition at line 59 of file MqDumpC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(DMP,MQ_DMP);

Definition at line 60 of file MqDumpC_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_DMP hdl = (MQ_DMP) &MkERROR;

Definition at line 64 of file MqDumpC_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_DMP hdl = (MQ_DMP) &MkERROR;

OT_SETUP_hdl_constr_pre

#define OT_SETUP_hdl_constr_pre

Definition at line 63 of file MqDumpC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(DMP,MQ_DMP);

Definition at line 61 of file MqDumpC_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 = MqDumpC##_TT;

Definition at line 53 of file MqDumpC_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 = MqDumpC##_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 49 of file MqDumpC_tcl.c.

#define   OT_SETUP_hdl_static_constr \
  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

OT_SETUP_hdl_static_constr_pre

#define OT_SETUP_hdl_static_constr_pre

Definition at line 48 of file MqDumpC_tcl.c.

Prev_doc

#define Prev_doc   "MqDumpC [$dmp Prev]"

Definition at line 129 of file MqDumpC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 73 of file MqDumpC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 72 of file MqDumpC_tcl.c.

SizeGet_doc

#define SizeGet_doc   "long [$dump SizeGet] (const)"

Definition at line 136 of file MqDumpC_tcl.c.

TokenGet_doc

#define TokenGet_doc   "string [$dump TokenGet] (const)"

Definition at line 137 of file MqDumpC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 108 of file MqDumpC_tcl.c.

Function Documentation

tclmqmsgque_MqDumpC_selfCreate()

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

static

Definition at line 28 of file MqDumpC_tcl.c.

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

tclmqmsgque_MqDumpC_selfDelete()

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

static

Definition at line 33 of file MqDumpC_tcl.c.

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

tclmqmsgque_MqDumpC_selfUnlink()

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

static

Definition at line 39 of file MqDumpC_tcl.c.

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

tclmqmsgque_pMqDumpC_Init()

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

Public API

Definition at line 463 of file MqDumpC_tcl.c.

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

Variable Documentation

MqDumpCTT

__thread MK_TYP MqDumpCTT = NULL

static

Definition at line 24 of file MqDumpC_tcl.c.

OT_CLASS

__thread OT_CLS_T OT_CLASS = NULL

Definition at line 21 of file MqDumpC_tcl.c.

tclmqmsgque_MqDumpC_MK_NULL

__thread OT_OBJ_T tclmqmsgque_MqDumpC_MK_NULL = NULL

Definition at line 25 of file MqDumpC_tcl.c.

tclmqmsgque_sInstanceDef

Tcl_MethodType tclmqmsgque_sInstanceDef[]

static

Initial value:

= {
 
 
 
  {VER, "<constructor>"       ,  tclmqmsgque_MqDumpC_CTOR , NULL, NULL},
 
 
  {VER, "Next"                ,  tclmqmsgque_MqDumpC_Next , NULL, NULL},
  {VER, "Prev"                ,  tclmqmsgque_MqDumpC_Prev , NULL, NULL},
 
 
  {VER, "BinGet"              ,  tclmqmsgque_MqDumpC_BinGet , NULL, NULL},
  
  {VER, "Import"              ,  tclmqmsgque_MqDumpC_Import , NULL, NULL},
  
  {VER, "SizeGet"             ,  tclmqmsgque_MqDumpC_SizeGet , NULL, NULL},
  {VER, "TokenGet"            ,  tclmqmsgque_MqDumpC_TokenGet , NULL, NULL},
 
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 435 of file MqDumpC_tcl.c.

                                           {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqDumpC,MqDump,oC_
  {VER, "<constructor>"       , NS(MqDumpC_CTOR)                        , NULL, NULL},
 
// doc-key: MqDumpC,MqDump,oc_
  {VER, "Next"                , NS(MqDumpC_Next)                        , NULL, NULL},
  {VER, "Prev"                , NS(MqDumpC_Prev)                        , NULL, NULL},
 
// doc-key: MqDumpC,MqDump,om_
  {VER, "BinGet"              , NS(MqDumpC_BinGet)                      , NULL, NULL},
  // skip class-overload: MqDumpHandleGet → HandleGet, NS(MqDumpC_HandleGet)
  {VER, "Import"              , NS(MqDumpC_Import)                      , NULL, NULL},
  // skip class-overload: MqDumpLog → Log, NS(MqDumpC_Log)
  {VER, "SizeGet"             , NS(MqDumpC_SizeGet)                     , NULL, NULL},
  {VER, "TokenGet"            , NS(MqDumpC_TokenGet)                    , NULL, NULL},
 
// 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, "Error"               ,  tclmqmsgque_MqDumpC_Error , NULL, NULL},
  {VER, "Export"              ,  tclmqmsgque_MqDumpC_Export , NULL, NULL},
 
 
  {VER, "BinSet"              ,  tclmqmsgque_MqDumpC_BinSet , NULL, NULL},
 
 
  {VER, "GetNull"             ,  tclmqmsgque_MqDumpC_GetNull , NULL, NULL},
  {VER, "HandleResolve"       ,  tclmqmsgque_MqDumpC_HandleResolve , NULL, NULL},
  {VER, "Instances"           ,  tclmqmsgque_MqDumpC_Instances , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

Definition at line 414 of file MqDumpC_tcl.c.

                                          {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theLink/c/gen/c_mqmsgque.meta' - DO NOT change
 
// doc-key: MqDumpC,MqDump,sCi
  {VER, "Error"               , NS(MqDumpC_Error)                       , NULL, NULL},
  {VER, "Export"              , NS(MqDumpC_Export)                      , NULL, NULL},
 
// doc-key: MqDumpC,MqDump,sCo
  {VER, "BinSet"              , NS(MqDumpC_BinSet)                      , NULL, NULL},
 
// doc-key: MqDumpC,MqDump,sc_
  {VER, "GetNull"             , NS(MqDumpC_GetNull)                     , NULL, NULL},
  {VER, "HandleResolve"       , NS(MqDumpC_HandleResolve)               , NULL, NULL},
  {VER, "Instances"           , NS(MqDumpC_Instances)                   , 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}
};