LibMkKernel_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMkKernel_private_tcl.h"
#include <limits.h>
#include <float.h>
#include <math.h>
#include <ctype.h>
#include "mk_check_tcl.h"
#include "MkRegistry_tcl.h"
#include "tmpl/mk_misc_ObjAs_lng.h"
#include "tmpl/mk_misc_check_lng.h"

Include dependency graph for LibMkKernel_tcl.c:

Go to the source code of this file.

Data Structures
struct	MkAtlClassDefS

Macros
#define	META_FILE_NAME   "MkKernel_tcl.c"
#define	VER   TCL_OO_METHOD_VERSION_CURRENT
#define	OtClass_ARGS   OBJCMD_ARGS
#define	OT_SETUP_hdl_static
#define	MkSetupTmpl()
#define	MkCleanupTmpl()
#define	regTclObj(str)
#define	regTclObj2(def, str)
#define	ErrorE_FromInt_doc   "MkErrorE [MkKernel ErrorE_FromInt value:int32]"
#define	IdSE_FromInt_doc   "MkIdSE [MkKernel IdSE_FromInt value:int32]"
#define	TimeoutE_FromInt_doc   "MkTimeoutE [MkKernel TimeoutE_FromInt value:int32]"
#define	TypeE_FromInt_doc   "MkTypeE [MkKernel TypeE_FromInt value:int32]"
#define	ErrorE_ToInt_doc   "int32 [MkKernel ErrorE_ToInt value:MkErrorE]"
#define	ErrorE_ToString_doc   "string [MkKernel ErrorE_ToString value:MkErrorE]"
#define	IdSE_ToInt_doc   "int32 [MkKernel IdSE_ToInt value:MkIdSE]"
#define	IdSE_ToString_doc   "string [MkKernel IdSE_ToString value:MkIdSE]"
#define	TimeoutE_ToInt_doc   "int32 [MkKernel TimeoutE_ToInt value:MkTimeoutE]"
#define	TimeoutE_ToString_doc   "string [MkKernel TimeoutE_ToString value:MkTimeoutE]"
#define	TypeE_ToInt_doc   "int32 [MkKernel TypeE_ToInt value:MkTypeE]"
#define	TypeE_ToString_doc   "string [MkKernel TypeE_ToString value:MkTypeE]"
#define	Cleanup_doc   "MkKernel Cleanup"
#define	Setup_doc   "MkKernel Setup"
#define	FRAME_UPDATE
#define	FRAME_GET(key)
#define	Get_Call_Cmd__SIZE   100
#define	OT_LNG_STRING(o)
#define	OT_LNG_STRING_BYTES(o)
#define	OT_LNG_STRING_LENGTH(o)
#define	OT_LNG_SKIP_TYPE   int
#define	SIZE   20
#define	objF   "[type<%s>, refCount<MQ=%i,TCL=%i,SHARED=%i>, ptr<MQ=%p,TCL=%p>]"
#define	objA   type, (retObj?retObj->refCount:-1),Obj->refCount, Tcl_IsShared(Obj), retObj, (retObj?retObj->self:NULL)
#define	regTclObj(str)
#define	regTclObj2(def, str)

Functions
OT_SELF_T	tclmkkernel_ClassDef (OT_ENV_T interp, OT_NS_T ns, MK_TYP classM)
OT_OBJ_T	tclmkkernel_GetMyFromObject (OT_ENV_T interp, OT_SELF_T object)
MK_STRN	tclmkkernel_Get_Call_Proc (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T *frameP)
MK_STRN	tclmkkernel_Get_Call_Cmd (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T *frameP)
MK_STRN	tclmkkernel_InfoScript (MK_RT mkrt, OT_ENV_T interp, MK_STRN script)
MK_STRN	tclmkkernel_Get_Call_File (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T *frameP)
MK_I32	tclmkkernel_Get_Call_Line (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T *frameP)
bool	tclmkkernel_Get_Call_Stack (MK_RT mkrt, OT_ENV_T interp, MK_ERR const err, int level)
int	tclmkkernel_EnumFlagWorker (MK_RT mkrt, OT_ENV_T interp, const struct LookupEnumE *keys, OT_OBJ_T enumE, int *ret)
OT_SELF_T	tclmkkernel_GetClassObjectFromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T selfO)
static MK_MNG	tclmkkernel_GetMNG (OT_ENV_T interp, OT_OBJ_T tclO)
static MkTestClassE	tclmkkernel_sCheckClass (OT_ENV_T interp, OT_SELF_T tclObj, OT_CLS_T clazz, MkTestClassE def)
bool	tclmkkernel_TestObject (OT_Prefix_ARGS OT_OBJ_T lngO, OT_CLS_T clazz, MK_OBJ *objP, MkTestClassE *flagP)
MK_STRN	tclmkkernel_GetClassNameFromObject (OT_Prefix_ARGS OT_SELF_T object)
MK_STRN	tclmkkernel_GetTypeFromObj (OT_Prefix_ARGS OT_OBJ_T Obj, bool *isObject)
	helper to print the type-name of a Tcl_Obj tclmkkernel::print type $RET
MK_STRN	tclmkkernel_ClassName (OT_Prefix_ARGS OT_OBJ_T lngO, bool doShort)
static void	tclmkkernel_LngTupleToMkBufferListS (SETUP_ARGS, int *skipP, MK_BFL *retP)
enum MkErrorE	tclmkkernel_LngListToMkBufferListS (OT_Prefix_ARGS OT_OBJ_T argsO, MK_BFL *retP)
enum MkErrorE	tclmkkernel_Obj_AsSTRN (OT_Check_ARGS, MK_STRN *retP)
enum MkErrorE	tclmkkernel_Obj_AsSTR_COPY (OT_Check_ARGS, MK_STR ret, size_t size)
int	tclmkkernel_EvalObjvVA (OT_ENV_T interp, int flags,...)
OT_OBJ_T	tclmkkernel_EvalObjvAR (OT_VARFRAME_ARGS, OT_ENV_T interp, int flags, int objc, OT_OBJ_T *objv)
int	tclmkkernel_FillNamespace (OT_ENV_T interp, OT_NS_T ns, const OtObjProcDefS type[], ClientData clientData)
MK_STRN	tclmkkernel_ObjvToString (MK_RT mkrt, MK_STRN cls, TCL_ARGS)
MK_STR	tclmkkernel_PrintLngObj (OT_Prefix_ARGS MK_STRN header, OT_OBJ_T Obj)
	helper to print a Tcl_Obj tclmkkernel::print object $RET
static void	tclmkkernel_AtomMetaDelete (MK_MNG mng)
static int	tclmkkernel_AtomMetaClone (OT_ENV_T interp, ClientData clientData, ClientData *out)
static int	tclmkkernel_Print_Class_Cmd (OtClass_ARGS)
	tclmkkernel::print object|type tclObj
static int	tclmkkernel_Const_Class_Cmd (OtClass_ARGS)
	tclObj [tclmkkernel::const maxY|minY|maxS|minS|maxI|minI|maxF|minF|maxW|minW|maxD|minD]
static OT_ProcRet	tclmkkernel_MkKernel_ErrorE_FromInt (OtClass_ARGS)
	Tcl: (static) MkErrorE [MkKernel ErrorE_FromInt value:int32] → C-API return the MkErrorE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_IdSE_FromInt (OtClass_ARGS)
	Tcl: (static) MkIdSE [MkKernel IdSE_FromInt value:int32] → C-API return the MkIdSE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_TimeoutE_FromInt (OtClass_ARGS)
	Tcl: (static) MkTimeoutE [MkKernel TimeoutE_FromInt value:int32] → C-API return the MkTimeoutE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_TypeE_FromInt (OtClass_ARGS)
	Tcl: (static) MkTypeE [MkKernel TypeE_FromInt value:int32] → C-API return the MkTypeE from integer …
static OT_ProcRet	tclmkkernel_MkKernel_ErrorE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel ErrorE_ToInt value:MkErrorE] → C-API return the MkErrorE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_ErrorE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel ErrorE_ToString value:MkErrorE] → C-API return the MkErrorE as string …
static OT_ProcRet	tclmkkernel_MkKernel_IdSE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel IdSE_ToInt value:MkIdSE] → C-API return the MkIdSE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_IdSE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel IdSE_ToString value:MkIdSE] → C-API return the MkIdSE as string …
static OT_ProcRet	tclmkkernel_MkKernel_TimeoutE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel TimeoutE_ToInt value:MkTimeoutE] → C-API return the MkTimeoutE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_TimeoutE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel TimeoutE_ToString value:MkTimeoutE] → C-API return the MkTimeoutE as string …
static OT_ProcRet	tclmkkernel_MkKernel_TypeE_ToInt (OtClass_ARGS)
	Tcl: (static) int32 [MkKernel TypeE_ToInt value:MkTypeE] → C-API return the MkTypeE as integer …
static OT_ProcRet	tclmkkernel_MkKernel_TypeE_ToString (OtClass_ARGS)
	Tcl: (static) string [MkKernel TypeE_ToString value:MkTypeE] → C-API return the MkTypeE as string …
static OT_ProcRet	tclmkkernel_MkKernel_Cleanup (OtClass_ARGS)
	Tcl: (static) MkKernel Cleanup → C-API cleanup tclmkkernel internal memory …
static OT_ProcRet	tclmkkernel_MkKernel_Setup (OtClass_ARGS)
	Tcl: (static) MkKernel Setup → C-API setup tclmkkernel internal memory …
OT_TCL_EXTERN int	Tclmkkernel_Unload (OT_ENV_T interp, int flags)
Enum From Obj
int	tclmkkernel_Get_MkErrorE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkErrorE *ret)
int	tclmkkernel_Get_MkIdSE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkIdSE *ret)
int	tclmkkernel_Get_MkTimeoutE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTimeoutE *ret)
int	tclmkkernel_Get_MkTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTypeE *ret)
Enum To String
OT_OBJ_T	tclmkkernel_MkBoolE_ToString (const enum MkBoolE type)
OT_OBJ_T	tclmkkernel_MkErrorE_ToString (const enum MkErrorE type)
OT_OBJ_T	tclmkkernel_MkIdSE_ToString (const enum MkIdSE type)
OT_OBJ_T	tclmkkernel_MkNativeIsE_ToString (const enum MkNativeIsE type)
OT_OBJ_T	tclmkkernel_MkTimeoutE_ToString (const enum MkTimeoutE type)
OT_OBJ_T	tclmkkernel_MkTypeE_ToString (const enum MkTypeE type)

Variables
const Tcl_ObjType *	tclmkkernel_tcl_LONG = NULL
const Tcl_ObjType *	tclmkkernel_tcl_WIDE = NULL
const Tcl_ObjType *	tclmkkernel_tcl_DOUBLE = NULL
const Tcl_ObjType *	tclmkkernel_tcl_BOOLEAN = NULL
const Tcl_ObjType *	tclmkkernel_tcl_INDEX = NULL
__thread OT_OBJ_T	tclmkkernel_reggv [100] = {0}
const Tcl_ObjectMetadataType	tclmkkernel_AtomMeta
static const OtObjProcDefS	tclmkkernel_sOtClassDef []
static const OtObjProcDefS	tclmkkernel_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 LibMkKernel_tcl.c.

Macro Definition Documentation

Cleanup_doc

#define Cleanup_doc   "MkKernel Cleanup"

Definition at line 180 of file LibMkKernel_tcl.c.

ErrorE_FromInt_doc

#define ErrorE_FromInt_doc   "MkErrorE [MkKernel ErrorE_FromInt value:int32]"

Definition at line 164 of file LibMkKernel_tcl.c.

ErrorE_ToInt_doc

#define ErrorE_ToInt_doc   "int32 [MkKernel ErrorE_ToInt value:MkErrorE]"

Definition at line 170 of file LibMkKernel_tcl.c.

ErrorE_ToString_doc

#define ErrorE_ToString_doc   "string [MkKernel ErrorE_ToString value:MkErrorE]"

Definition at line 171 of file LibMkKernel_tcl.c.

FRAME_GET

#define FRAME_GET

(

key

)

Value:

  OT_OBJ_T key = NULL;                            \
  Tcl_DictObjGet(interp,*frameP,RG(key),&key);    \

Definition at line 293 of file LibMkKernel_tcl.c.

#define FRAME_GET(key)                            \
  OT_OBJ_T key = NULL;                            \
  Tcl_DictObjGet(interp,*frameP,RG(key),&key);    \
 

FRAME_UPDATE

#define FRAME_UPDATE

Value:

  if (*frameP == NULL) {                                        \
    RL_init( RL_O(0,RG(infoFrameCmd)) RL_NewC(1,0) )               \
    OT_OBJ_T ret = MK(EvalObjvAR)(MK_RT_CALL NULL,interp,0,RL_objv(2));    \
    /* check_NULL(ret) OT_ERROR_ABNORMAL(MK_ERROR_PANIC); */    \
    Tcl_IncrRefCount(ret);                                      \
    *frameP = ret;                                              \
  }

Definition at line 284 of file LibMkKernel_tcl.c.

#define FRAME_UPDATE                                            \
  if (*frameP == NULL) {                                        \
    RL_init( RL_O(0,RG(infoFrameCmd)) RL_NewC(1,0) )               \
    OT_OBJ_T ret = MK(EvalObjvAR)(MK_RT_CALL NULL,interp,0,RL_objv(2));    \
    /* check_NULL(ret) OT_ERROR_ABNORMAL(MK_ERROR_PANIC); */    \
    Tcl_IncrRefCount(ret);                                      \
    *frameP = ret;                                              \
  }

Get_Call_Cmd__SIZE

#define Get_Call_Cmd__SIZE   100

IdSE_FromInt_doc

#define IdSE_FromInt_doc   "MkIdSE [MkKernel IdSE_FromInt value:int32]"

Definition at line 165 of file LibMkKernel_tcl.c.

IdSE_ToInt_doc

#define IdSE_ToInt_doc   "int32 [MkKernel IdSE_ToInt value:MkIdSE]"

Definition at line 172 of file LibMkKernel_tcl.c.

IdSE_ToString_doc

#define IdSE_ToString_doc   "string [MkKernel IdSE_ToString value:MkIdSE]"

Definition at line 173 of file LibMkKernel_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "MkKernel_tcl.c"

Definition at line 11 of file LibMkKernel_tcl.c.

MkCleanupTmpl

#define MkCleanupTmpl

(

)

Definition at line 35 of file LibMkKernel_tcl.c.

MkSetupTmpl

#define MkSetupTmpl

(

)

Definition at line 34 of file LibMkKernel_tcl.c.

objA

#define objA   type, (retObj?retObj->refCount:-1),Obj->refCount, Tcl_IsShared(Obj), retObj, (retObj?retObj->self:NULL)

objF

#define objF   "[type<%s>, refCount<MQ=%i,TCL=%i,SHARED=%i>, ptr<MQ=%p,TCL=%p>]"

OT_LNG_SKIP_TYPE

#define OT_LNG_SKIP_TYPE   int

Definition at line 709 of file LibMkKernel_tcl.c.

OT_LNG_STRING

#define OT_LNG_STRING

(

o

)

Value:

Tcl_GetString(o)

Definition at line 705 of file LibMkKernel_tcl.c.

OT_LNG_STRING_BYTES

#define OT_LNG_STRING_BYTES

(

o

)

Value:

o->bytes

Definition at line 707 of file LibMkKernel_tcl.c.

OT_LNG_STRING_LENGTH

#define OT_LNG_STRING_LENGTH

(

o

)

Value:

o->length

Definition at line 708 of file LibMkKernel_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 LibMkKernel_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 LibMkKernel_tcl.c.

regTclObj [1/2]

#define regTclObj

(

str

)

Value:

int MK(str);

Definition at line 153 of file LibMkKernel_tcl.c.

regTclObj [2/2]

#define regTclObj

(

str

)

Value:

MK(reggv)[MK(str)=key++] = Tcl_NewStringObj(#str,-1);Tcl_IncrRefCount(MK(reggv)[MK(str)]);

Definition at line 153 of file LibMkKernel_tcl.c.

regTclObj2 [1/2]

#define regTclObj2	(		def,
			str )

Value:

int MK(def);

Definition at line 154 of file LibMkKernel_tcl.c.

regTclObj2 [2/2]

#define regTclObj2	(		def,
			str )

Value:

MK(reggv)[MK(def)=key++] = Tcl_NewStringObj(str,-1);Tcl_IncrRefCount(MK(reggv)[MK(def)]);

Definition at line 154 of file LibMkKernel_tcl.c.

Setup_doc

#define Setup_doc   "MkKernel Setup"

Definition at line 181 of file LibMkKernel_tcl.c.

SIZE

#define SIZE   20

TimeoutE_FromInt_doc

#define TimeoutE_FromInt_doc   "MkTimeoutE [MkKernel TimeoutE_FromInt value:int32]"

Definition at line 166 of file LibMkKernel_tcl.c.

TimeoutE_ToInt_doc

#define TimeoutE_ToInt_doc   "int32 [MkKernel TimeoutE_ToInt value:MkTimeoutE]"

Definition at line 174 of file LibMkKernel_tcl.c.

TimeoutE_ToString_doc

#define TimeoutE_ToString_doc   "string [MkKernel TimeoutE_ToString value:MkTimeoutE]"

Definition at line 175 of file LibMkKernel_tcl.c.

TypeE_FromInt_doc

#define TypeE_FromInt_doc   "MkTypeE [MkKernel TypeE_FromInt value:int32]"

Definition at line 167 of file LibMkKernel_tcl.c.

TypeE_ToInt_doc

#define TypeE_ToInt_doc   "int32 [MkKernel TypeE_ToInt value:MkTypeE]"

Definition at line 176 of file LibMkKernel_tcl.c.

TypeE_ToString_doc

#define TypeE_ToString_doc   "string [MkKernel TypeE_ToString value:MkTypeE]"

Definition at line 177 of file LibMkKernel_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 12 of file LibMkKernel_tcl.c.

Function Documentation

tclmkkernel_AtomMetaClone()

static int tclmkkernel_AtomMetaClone ( OT_ENV_T interp, ClientData clientData, ClientData * out )

static

Definition at line 1139 of file LibMkKernel_tcl.c.

{
  *out = clientData;
  return TCL_OK;
}

tclmkkernel_AtomMetaDelete()

static void tclmkkernel_AtomMetaDelete ( MK_MNG mng )

static

ATOM API

Definition at line 1128 of file LibMkKernel_tcl.c.

{ 
  check_NULL(mng) return;
  MK_OBJ obj = MkObj(mng);
  check_NULL(obj) return;
  MkRtSetup_ON(obj);
//printObjO(obj);
  // SELF is alredy "dead"
  MkRefDecrWithoutSelf(obj);
}

tclmkkernel_ClassDef()

OT_SELF_T tclmkkernel_ClassDef	(	OT_ENV_T	interp,
		OT_NS_T	ns,
		MK_TYP	classM )

Definition at line 193 of file LibMkKernel_tcl.c.

  {
 
  // save base-class  "::oo::class" for later use
  static MkThreadLocal struct MkAtlClassDefS def = {0};
 
  Tcl_ResetResult(interp);
 
  while (def.ooclassC == NULL) {
    OT_OBJ_T objPtr   = Tcl_NewStringObj("::oo::class", -1);
    OT_SELF_T  ooclassO  = Tcl_GetObjectFromObj(interp, objPtr);
    Tcl_DecrRefCount(objPtr);
    check_NULL(ooclassO)                        goto error_ooclassC;
    def.ooclassC = Tcl_GetObjectAsClass(ooclassO);
    break;
error_ooclassC:
    Tcl_AppendResult(interp, "\nCLASS-SETUP-ERROR: unable to setup '::oo::class'", NULL);
    return NULL;
  }
 
  OT_OBJ_T cmdO = Tcl_ObjPrintf("%s::%s", ns->fullName, classM->type_class->type_name);
    OT_REF_INCR(cmdO);
  const char* cmdbuf = Tcl_GetString(cmdO);
 
//printC(cmdbuf)
  OT_SELF_T classO = Tcl_NewObjectInstance(interp,def.ooclassC,cmdbuf,cmdbuf,0, NULL, 0);
  check_NULL(classO)                            goto error;
 
  OT_OBJ_T classObj = Tcl_GetObjectName(interp,classO);
  Tcl_IncrRefCount(classObj);
  def.ooRefC[def.count] = classObj;
  MkSelfSet_3X(classM, (MK_PTR) def.count, interp);    // save reference on Tcl-Class in MQ-Type-Self
 
//printV("class=%-40s, pos=%ld", classM->type_name, def.count);
 
  def.count++;
 
//printV("name=%s, base=%p\n", classM->type_name, classM->type_base);
 
  // If base was defined - create a "tcl superclass" from MQ-Type-Self
  // > silent assume that "MkObjectC" is always FIRST !!
  if (def.count != 1 && classM->type_base != NULL /* && classM->type_base != MkTypeDefSTT && classM->type_base != MqTypeCtxSTT */ )  {
    OT_OBJ_T super = def.ooRefC[(long) (MkOBJ_R(classM->type_base).self ? MkOBJ_R(classM->type_base).self : 0)];
//printV("cmdbuf=%s, type_name=%s, base=%s\n", cmdbuf, classM->type_name, Tcl_GetStringFromObj(super,NULL));
/*
    // PROBLEM: MK(pMkObjectC_Init) not called -< code down create an EMPTY class
    check_NULL(super)
      super = Tcl_GetObjectName(interp, MK(ClassDef)(interp, ns, classM->type_base));
*/
    check_NULL(super) {
      Tcl_AppendResult(interp, "\nCLASS-SETUP-ERROR: class '", classM->type_base->type_name, 
                                    "' has EMPTY base SELF pointer", NULL);
      goto error;
    }
//printV("class=%-40s, super=%s", VAL2STR(cmdO), VAL2STR(super))
    RL_init( RL_NewS(0,"::oo::define") RL_NewC(2,superclass) ) ; RL_O(1,cmdO) ; RL_O(3,super)
    check_LNG(Tcl_EvalObjv(interp, 4, RL_data, TCL_EVAL_GLOBAL)) goto error;
  }
  
  OT_REF_DECR(cmdO);
  return classO;
error:
  Tcl_AppendResult(interp, "\nCLASS-SETUP-ERROR: found at '", __func__, "'", NULL);
  OT_REF_DECR(cmdO);
  return NULL;
}

tclmkkernel_ClassName()

MK_STRN tclmkkernel_ClassName	(	OT_Prefix_ARGS OT_OBJ_T	lngO,
		bool	doShort )

Definition at line 605 of file LibMkKernel_tcl.c.

{
  static MkThreadLocal char buffer[50] = {0};
  strncpy(buffer,lngO->typePtr ? lngO->typePtr->name : "unknown", 50);
  buffer[50-1] = '\0';
  OT_OBJ_T classO = NULL;
 
  OT_SELF_T  objO = Tcl_GetObjectFromObj (interp, lngO);
  if (objO == NULL)   goto type;
 
  OT_CLS_T cls = Tcl_GetObjectAsClass(objO);
  if (cls)  {
    classO = Tcl_GetObjectName(interp, objO);
    goto end;
  }
 
  RL_init( RL_O(0,RG(infoObjectClassCmd)) ) ; RL_O(1,lngO)
  classO = MK(EvalObjvAR)(MK_RT_CALL NULL,interp,0,RL_objv(2));
 
end:
  if (classO != NULL) {
    MK_STRN name = Tcl_GetString(classO);
    if (doShort) {
      // from: NamespaceTailCmd --------------------------
      const char *p;
      for (p = name;  *p != '\0';  p++) {
          /* empty body */
      }
      while (--p > name) {
          if ((*p == ':') && (*(p-1) == ':')) {
              p++;                        /* Just after the last "::" */
              break;
          }
      }
 
      if (p >= name) {
          name = p;
      }
      // ------------------------------------------------
    }
    return name;
  } else {
    return "unknown";
  }
type:
  if (strcmp(buffer,"cmdName")==0) {
    return Tcl_GetString(lngO);
  } else {
    return buffer;
  }
}

tclmkkernel_EnumFlagWorker()

int tclmkkernel_EnumFlagWorker	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		const struct LookupEnumE *	keys,
		OT_OBJ_T	enumE,
		int *	ret )

Definition at line 428 of file LibMkKernel_tcl.c.

{
  // read flag enum
  int     valI    = 0;
  int     index   = 0;
  int     objc    = 0;
  OT_OBJ_T *objv  = NULL;
  OtErrorCheckLng(Tcl_ListObjGetElements(interp,enumE,&objc,&objv));
  for (int i=0; i<objc; i++) {
    OtErrorCheckLng (Tcl_GetIndexFromObjStruct (interp, objv[i], keys,
        sizeof(struct LookupClassS), "enum", TCL_EXACT, &index));
    valI |= keys[index].val;
  }
//myprint(valI);
  *ret = valI;
  return TCL_OK;
}

tclmkkernel_EvalObjvAR()

OT_OBJ_T tclmkkernel_EvalObjvAR	(	OT_VARFRAME_ARGS	,
		OT_ENV_T	interp,
		int	flags,
		int	objc,
		OT_OBJ_T *	objv )

Definition at line 838 of file LibMkKernel_tcl.c.

{
//printAry2("objv",objc,objv)
  int ret = Tcl_EvalObjv (interp, objc, objv, flags);
  //int ret = MK(EvalObjv) (interp, objc, objv, flags);
  check_LNG(ret) return NULL;
  OT_OBJ_T result = OT_VARFRAME_OBJ_RESULT(interp);
//printLng(result)
  return result;
}

tclmkkernel_EvalObjvVA()

int tclmkkernel_EvalObjvVA	(	OT_ENV_T	interp,
		int	flags,
			... )

Definition at line 778 of file LibMkKernel_tcl.c.

  {
  #define SIZE  20
  int objc;
  OT_OBJ_T objv[SIZE];
  va_list ap;
  va_start(ap, flags);
  for (objc=0; (objv[objc]=(OT_OBJ_T )va_arg(ap,OT_OBJ_T )) != NULL; objc++) {
    //Tcl_IncrRefCount(objv[objc]);
    if (objc >= (SIZE-1)) {
      Tcl_SetResult(interp, "EVAL-ERROR: size in MkEvalObjvVA is limited to " xstr(SIZE), TCL_STATIC);
      return TCL_ERROR;
    }
  }
  va_end(ap);
//printAry2(__func__,objc,objv)
  int ret;
  //for (i=0;i<objc;i++) Tcl_IncrRefCount(objv[i]);
  ret = Tcl_EvalObjv (interp, objc, objv, flags);
  //for (i=0;i<objc;i++) Tcl_DecrRefCount(objv[i]);
  return ret;
  #undef SIZE
}

tclmkkernel_FillNamespace()

int tclmkkernel_FillNamespace	(	OT_ENV_T	interp,
		OT_NS_T	ns,
		const OtObjProcDefS	type[],
		ClientData	clientData )

Definition at line 909 of file LibMkKernel_tcl.c.

  {
  Tcl_DString buffer;
  // 2. create commands
  for (int i=0; type[i].version != 0; i++) {
    Tcl_DStringInit(&buffer);
    Tcl_DStringAppend(&buffer,ns->fullName,-1);
    Tcl_DStringAppend(&buffer,"::",-1);
    Tcl_DStringAppend(&buffer,type[i].name,-1);
    check_NULL  ( Tcl_CreateObjCommand(interp, Tcl_DStringValue(&buffer), 
                    type[i].callProc,clientData,type[i].deleteProc))
      goto error;
  }
  return TCL_OK;
error:
  return TCL_ERROR;
}

tclmkkernel_Get_Call_Cmd()

MK_STRN tclmkkernel_Get_Call_Cmd	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T *	frameP )

Definition at line 309 of file LibMkKernel_tcl.c.

                                                                         {
#define Get_Call_Cmd__SIZE 100
  static MkThreadLocal char buffer[Get_Call_Cmd__SIZE+10];
  FRAME_UPDATE
  FRAME_GET(cmd)
  if (cmd == NULL) goto error;
  int len;
  char* str = Tcl_GetStringFromObj(cmd, &len);
  if (len > Get_Call_Cmd__SIZE) {
    strncpy(buffer,str,Get_Call_Cmd__SIZE);
    char* nl=strchr(buffer,'\n');
    if (nl)
      *nl='\0';
    else
      buffer[Get_Call_Cmd__SIZE] = '\0';
    strcat(buffer," ...");
    return buffer;
  } else {
    return str;
  }
error:
  Tcl_ResetResult(interp);
  FRAME_GET(type)
  return Tcl_GetStringFromObj(type,NULL);
#undef Get_Call_Cmd__SIZE
}

tclmkkernel_Get_Call_File()

MK_STRN tclmkkernel_Get_Call_File	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T *	frameP )

Definition at line 346 of file LibMkKernel_tcl.c.

                                                                          {
  FRAME_UPDATE
  FRAME_GET(file)
  if (file == NULL) goto error;
  return Tcl_GetStringFromObj(file,NULL);
error: {
    MK_STRN script = MK(InfoScript)(MK_RT_CALL interp,NULL);
    check_NULL(script) goto error1;
    return script;
  }
error1:
  Tcl_ResetResult(interp);
  FRAME_GET(type)
  return Tcl_GetStringFromObj(type,NULL);
}

tclmkkernel_Get_Call_Line()

MK_I32 tclmkkernel_Get_Call_Line	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T *	frameP )

Definition at line 362 of file LibMkKernel_tcl.c.

                                                                         {
  FRAME_UPDATE
  FRAME_GET(line)
  if (line == NULL) goto error;
  MK_I32 lineI = -1;
  if (Tcl_GetIntFromObj(NULL,line,&lineI)==TCL_ERROR) goto error;
  return lineI;
error:
  Tcl_ResetResult(interp);
  return -1;
}

tclmkkernel_Get_Call_Proc()

MK_STRN tclmkkernel_Get_Call_Proc	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T *	frameP )

Definition at line 297 of file LibMkKernel_tcl.c.

                                                                          {
  OT_OBJ_T retObj = NULL;
  FRAME_UPDATE
  FRAME_GET(method)
  if (method != NULL) {retObj = method; goto end;}
  FRAME_GET(proc)
  if (proc != NULL)   {retObj = proc; goto end;}
  return "main";
end:
  return Tcl_GetStringFromObj(retObj,NULL);;
}

tclmkkernel_Get_Call_Stack()

bool tclmkkernel_Get_Call_Stack	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		MK_ERR const	err,
		int	level )

Definition at line 375 of file LibMkKernel_tcl.c.

                                                                                  {
  //Tcl_ResetResult(interp);
  RL_init( RL_O(0,RG(infoFrameCmd)) ) ; RL_NewI(1,level)
//printAryX(err,"Get_Call_Stack",3,RL_data)
  OT_OBJ_T frame = MK(EvalObjvAR)(MK_RT_CALL NULL,interp, TCL_EVAL_NOERR, RL_objv(2));
    check_NULL(frame) goto error;
  Tcl_IncrRefCount(frame);
  //MkErrorStackFormat(err,"mark","mark",-1);
  MkErrorStackFormat(err,
    MK(Get_Call_Cmd)(MK_RT_CALL interp,&frame),
      MK(Get_Call_File)(MK_RT_CALL interp,&frame),
        MK(Get_Call_Line)(MK_RT_CALL interp,&frame)
  );
  Tcl_DecrRefCount(frame);
  RL_Free(1)
  return true;
error:
  Tcl_ResetResult(interp);
  return false;
}

tclmkkernel_GetClassNameFromObject()

MK_STRN tclmkkernel_GetClassNameFromObject

(

OT_Prefix_ARGS OT_SELF_T

object

)

Definition at line 552 of file LibMkKernel_tcl.c.

  {
  OT_CLS_T cls = Tcl_GetObjectAsClass(object);
  // the "type" of a "Class" is "Class"
  //return OT_LNG_NAME_FROM_OBJECT(object);
  if (cls != NULL) return "Class";
/*
  if (cls != NULL) {
    // delete namespace
    char * run = Tcl_GetString(Tcl_GetObjectName(interp,object));
    char * last = run;
    while (*run != '\0') {
      if (*run == ':') last = run+1;
      run++;
    }
    return last;
  }
*/
 
  // only a real object
  RL_init( RL_O(0,RG(infoObjectClassCmd)) ) ; RL_O(1,Tcl_GetObjectName(interp,object))
  OT_OBJ_T classO = MK(EvalObjvAR)(MK_RT_CALL NULL,interp,0,RL_objv(2));
  check_NULL(classO) return Tcl_GetStringResult(interp);
  return OT_LNG_NAME_FROM_OBJ(classO);
}

tclmkkernel_GetClassObjectFromObj()

OT_SELF_T tclmkkernel_GetClassObjectFromObj	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_OBJ_T	selfO )

Definition at line 451 of file LibMkKernel_tcl.c.

                                                                                 {
  //MkRtSetup_NULL;
  //printLngObj(selfO);
  RL_init( RL_O(0,RG(infoObjectClassCmd)) ) ; RL_O(1,selfO)
  OT_OBJ_T clsObj = MK(EvalObjvAR)(MK_RT_CALL NULL,interp,TCL_EVAL_GLOBAL,  RL_objv(2));
  check_NULL(clsObj) goto error;
  return Tcl_GetObjectFromObj(interp, clsObj);
error:
  return NULL;
}

tclmkkernel_GetMNG()

static MK_MNG tclmkkernel_GetMNG ( OT_ENV_T interp, OT_OBJ_T tclO )

inlinestatic

Definition at line 462 of file LibMkKernel_tcl.c.

{
  OT_SELF_T  objO = Tcl_GetObjectFromObj (interp, tclO);
  if (objO == NULL)   return NULL;
  return Tcl_ObjectGetMetadata(objO, &MK(AtomMeta));
}

tclmkkernel_GetMyFromObject()

OT_OBJ_T tclmkkernel_GetMyFromObject	(	OT_ENV_T	interp,
		OT_SELF_T	object )

Definition at line 267 of file LibMkKernel_tcl.c.

                                                                 {
  OT_NS_T ns = Tcl_GetObjectNamespace(object);
  Tcl_Command   myCmdC = Tcl_FindCommand(interp, "my", ns, TCL_NAMESPACE_ONLY|TCL_LEAVE_ERR_MSG);
  check_NULL(myCmdC) goto error;
 
  OT_OBJ_T myCmdO = Tcl_NewObj();
  Tcl_GetCommandFullName(interp,myCmdC,myCmdO);
 
  return myCmdO;
error:
  return NULL;
}

tclmkkernel_GetTypeFromObj()

MK_STRN tclmkkernel_GetTypeFromObj	(	OT_Prefix_ARGS OT_OBJ_T	Obj,
		bool *	isObject )

helper to print the type-name of a Tcl_Obj tclmkkernel::print type $RET

Definition at line 582 of file LibMkKernel_tcl.c.

{
  static MkThreadLocal char buf[50];
  strncpy(buf, Obj->typePtr ? Obj->typePtr->name : "unknown", 50);
  buf[50-1] = '\0';
 
  if (strcmp(buf,"unknown")!=0 && strcmp(buf,"string")!=0 && strcmp(buf,"cmdName")!=0)
    goto end;
  
  OT_SELF_T object = Tcl_GetObjectFromObj(interp,Obj);
  if (object) {
    if (isObject) *isObject=true;
    return MK(GetClassNameFromObject)(OT_Prefix_CALL object);
  }
end:
  if (isObject) *isObject=false;
  return buf;
}

tclmkkernel_InfoScript()

MK_STRN tclmkkernel_InfoScript	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		MK_STRN	script )

Definition at line 336 of file LibMkKernel_tcl.c.

{
  RL_init( RL_O(0,RG(infoScriptCmd)) )
  if (script) RL_NewS(1,script)
  OT_OBJ_T ret = MK(EvalObjvAR)(MK_RT_CALL NULL, interp, 0, RL_objv(script?2:1));
  if (script) Tcl_DecrRefCount(RL_data[1]);
  check_NULL(ret) return NULL;
  return Tcl_GetStringFromObj(ret,NULL);
}

tclmkkernel_LngListToMkBufferListS()

enum MkErrorE tclmkkernel_LngListToMkBufferListS	(	OT_Prefix_ARGS OT_OBJ_T	argsO,
		MK_BFL *	retP )

Definition at line 679 of file LibMkKernel_tcl.c.

{
  if (argsO == NULL) {
    return MK_OK;
  } else {
    int         __skip=0;
    int         listObjc;
    OT_OBJ_T *  listObjv;
    OtErrorCheckLngGoto (Tcl_ListObjGetElements(interp,argsO,&listObjc,&listObjv));
    MK(LngTupleToMkBufferListS)( MK_RT_CALL interp,listObjc,listObjv,&__skip,retP);
  }
  return MK_OK;
error:
  return MK_ERROR;
}

tclmkkernel_LngTupleToMkBufferListS()

static void tclmkkernel_LngTupleToMkBufferListS ( SETUP_ARGS , int * skipP, MK_BFL * retP )

static

Definition at line 661 of file LibMkKernel_tcl.c.

  {
  MK_BFL retVal = *retP;
  int __skip = *skipP;
 
  if (retVal == NULL) retVal = MkBufferListCreate (objc-__skip);
  else                MkBufferListReserve(retVal,objc-__skip);
  for (int i=__skip; i<objc; i++) {
    MkBufferListIndexSetSTR(retVal, i-__skip, VAL2STR(objv[i]));
  }
 
  *skipP = objc;
  *retP = retVal;
}

tclmkkernel_Obj_AsSTR_COPY()

enum MkErrorE tclmkkernel_Obj_AsSTR_COPY	(	OT_Check_ARGS	,
		MK_STR	ret,
		size_t	size )

Definition at line 742 of file LibMkKernel_tcl.c.

                                                                          {
  if ((*skipP) >= objc) {
    return WrongNumArgs(hdl, (*skipP), objc, -999, +999, arg);
  }
  strncpy(ret,Tcl_GetString(objv[(*skipP)++]),size);
  return MK_OK;
}

tclmkkernel_Obj_AsSTRN()

enum MkErrorE tclmkkernel_Obj_AsSTRN	(	OT_Check_ARGS	,
		MK_STRN *	retP )

Definition at line 716 of file LibMkKernel_tcl.c.

                                                            {
  if ((*skipP) >= objc) {
    return WrongNumArgs(hdl, (*skipP), objc, -999, +999, arg);
  }
  int len=0;
  MK_STRN ret = Tcl_GetStringFromObj(objv[(*skipP)++], &len);
  // mark=MK_NULL
  if (MK_NULL_STR_CHECK(ret,len)) {
    ret = NULL;
  }
  *retP = ret;
  return MK_OK;
}

tclmkkernel_ObjvToString()

MK_STRN tclmkkernel_ObjvToString	(	MK_RT	mkrt,
		MK_STRN	cls,
		TCL_ARGS	)

Definition at line 931 of file LibMkKernel_tcl.c.

                                                            {
  MkBufferCreateTLS_T(MkBuffer64C,ret,50);
  MkBufferAppendV(ret,"&%s ", cls);
  for(int i=1;i<objc;i++) { 
    MkBufferAppendV(ret,"%s ", VAL2STR(objv[i]));
  }
  return MkBUF_R(&retR).storage.first.C;
}

tclmkkernel_PrintLngObj()

MK_STR tclmkkernel_PrintLngObj	(	OT_Prefix_ARGS MK_STRN	header,
		OT_OBJ_T	Obj )

helper to print a Tcl_Obj tclmkkernel::print object $RET

Definition at line 942 of file LibMkKernel_tcl.c.

  {
//printP(Obj)
  MK_OBJ retObj = NULL;
  bool isObject;
  MK_STRN type = MK(GetTypeFromObj) (OT_Prefix_CALL Obj, &isObject);
  if (isObject) OT_LNG_OBJECT_IS_3(Obj, &retObj, NULL);
 
  #define objF  "[type<%s>, refCount<MQ=%i,TCL=%i,SHARED=%i>, ptr<MQ=%p,TCL=%p>]"
  #define objA  type, (retObj?retObj->refCount:-1),Obj->refCount, Tcl_IsShared(Obj), retObj, (retObj?retObj->self:NULL)
 
/*
  printV("ObjName <%20s>, ObjPtr, <%p>, ObjRef  <%i>\n", Tcl_GetString(Obj), Obj, Obj->refCount)
if (retObj) {
  OT_OBJ_T nameO = OT_SELF_NAME_O(retObj);
  printV("NameStr <%20s>, NamePtr <%p>, NameRef <%i>\n", Tcl_GetString(nameO), nameO, nameO->refCount)
 
  OT_OBJ_T cmdO = Tcl_NewObj();
  Tcl_GetCommandFullName(interp,OT_SELF_CMD_O(retObj),cmdO);
  printV("CmdStr  <%20s>, CmdPtr  <%p>, CmdRef  <%i>\n", Tcl_GetString(cmdO), cmdO, cmdO->refCount)
}
*/
 
  // fill the buf and get the len back
  if (header) {
    MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%-20s: %s " objF, header, Tcl_GetString (Obj), objA);
  } else if (retObj) {
/*
    MQ_CTX ctx = MqCtx(retObj);
    if (ctx) {
      MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%s(%s) " objF, Tcl_GetString (Obj), MqConfigGetName(ctx), objA);
    } else {
      MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%s " objF, Tcl_GetString (Obj), objA);
    }
*/
    MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%s " objF, Tcl_GetString (Obj), objA);
        
  } else {
    MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%s " objF, Tcl_GetString (Obj), objA);
 
  }
 
  #undef objF
  #undef objA
 
  return MkBUF_R(&MK_RT_REF.tbuf).storage.first.S;
}

tclmkkernel_sCheckClass()

static MkTestClassE tclmkkernel_sCheckClass ( OT_ENV_T interp, OT_SELF_T tclObj, OT_CLS_T clazz, MkTestClassE def )

inlinestatic

Definition at line 472 of file LibMkKernel_tcl.c.

  {
  // check if object belong to class
  OT_OBJ_T objNameO = Tcl_GetObjectName(interp,tclObj);
  OT_OBJ_T clsNameO = Tcl_GetObjectName(interp,Tcl_GetClassAsObject(clazz));
  RL_init( RL_O(0,RG(infoObjectClassCmd)) ) ; RL_O(1,objNameO) ; RL_O(2,clsNameO)
  check_LNG(Tcl_EvalObjv(interp, RL_objv(3), TCL_EVAL_GLOBAL)) {
    return MkTestClassE_INTERNAL;
  }
  int isClass = 0;
  check_LNG(Tcl_GetBooleanFromObj(interp,Tcl_GetObjResult(interp),&isClass)) {
    return MkTestClassE_INTERNAL;
  }
  if (!isClass) { 
    return MkTestClassE_WRONG_CLASS;
  }
  return def;
}

tclmkkernel_TestObject()

bool tclmkkernel_TestObject	(	OT_Prefix_ARGS OT_OBJ_T	lngO,
		OT_CLS_T	clazz,
		MK_OBJ *	objP,
		MkTestClassE *	flagP )

Definition at line 495 of file LibMkKernel_tcl.c.

  {
  assert(lngO != NULL); 
  MkTestClassE flag = MkTestClassE_NONE_OBJECT; 
  MK_OBJ objM = NULL;
 
  // BUG FIX → need name WITH namespace from "Tcl_GetObjectName"
  OT_SELF_T tclObj = Tcl_GetObjectFromObj (interp, lngO); 
  if (tclObj == NULL)   {  
    Tcl_ResetResult(interp); 
    // first check for "", "MK_NULL", ...
    if (OT_LNG_NULL_IS(lngO)) { 
      flag=MkTestClassE_NULL; goto end; 
    } else {
      flag=MkTestClassE_NONE_OBJECT; goto end;  
    }
  };
 
  objM = Tcl_ObjectGetMetadata(tclObj, &MK(AtomMeta)); 
  /* NULL or wrong class */ 
  if (objM == NULL)   { 
    switch (flag = NS(sCheckClass)(interp,tclObj,clazz,flag)) {
      case MkTestClassE_INTERNAL:
      case MkTestClassE_WRONG_CLASS: break;
      default: flag=MkTestClassE_NULL;
    }
    goto end; 
  }
 
  if (clazz != MK(MkObjectC)) {
    // check if object belong to class
    switch (flag = NS(sCheckClass)(interp,tclObj,clazz,flag)) {
      case MkTestClassE_INTERNAL:
      case MkTestClassE_WRONG_CLASS: goto end;
      default: break;
    }
  } 
  
  objM = MkObj(objM); 
  if (objM == NULL)   { flag=MkTestClassE_INVALID_SIGNATURE  ; goto end; }; 
  
  flag = MkTestClassE_OK; 
  if (objP)   *objP = objM;
 
end: 
  if (flagP)  *flagP = flag; 
  switch(flag) { 
    case MkTestClassE_NONE_OBJECT : return false; 
    default                       : return true; 
  }
}

Tclmkkernel_Unload()

OT_TCL_EXTERN int Tclmkkernel_Unload	(	OT_ENV_T	interp,
		int	flags )

Definition at line 1782 of file LibMkKernel_tcl.c.

{
  MkCleanup();
 
  return TCL_OK;
}

Variable Documentation

tclmkkernel_AtomMeta

const Tcl_ObjectMetadataType tclmkkernel_AtomMeta

Initial value:

= {
  TCL_OO_METADATA_VERSION_CURRENT,
  "MK_OBJ",
   tclmkkernel_AtomMetaDelete ,
   tclmkkernel_AtomMetaClone 
}

Definition at line 1145 of file LibMkKernel_tcl.c.

                                            {
  TCL_OO_METADATA_VERSION_CURRENT,
  "MK_OBJ",
  MK(AtomMetaDelete),
  MK(AtomMetaClone)
};

tclmkkernel_reggv

__thread OT_OBJ_T tclmkkernel_reggv[100] = {0}

Definition at line 149 of file LibMkKernel_tcl.c.

{0};

tclmkkernel_sInstanceDef

const OtObjProcDefS tclmkkernel_sInstanceDef[]

static

Initial value:

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

Definition at line 1688 of file LibMkKernel_tcl.c.

                                                                         {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// → no data
 
// END-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
  {0, NULL, NULL, NULL, NULL}
};

tclmkkernel_sOtClassDef

const OtObjProcDefS tclmkkernel_sOtClassDef[]

static

Initial value:

= {
  {VER, "print"               ,  tclmkkernel_Print_Class_Cmd , NULL, NULL},
  {VER, "const"               ,  tclmkkernel_Const_Class_Cmd , NULL, NULL},
 
 
 
  {VER, "ErrorE_FromInt"      ,  tclmkkernel_MkKernel_ErrorE_FromInt , NULL, NULL},
  {VER, "IdSE_FromInt"        ,  tclmkkernel_MkKernel_IdSE_FromInt , NULL, NULL},
  {VER, "TimeoutE_FromInt"    ,  tclmkkernel_MkKernel_TimeoutE_FromInt , NULL, NULL},
  {VER, "TypeE_FromInt"       ,  tclmkkernel_MkKernel_TypeE_FromInt , NULL, NULL},
 
 
  {VER, "ErrorE_ToInt"        ,  tclmkkernel_MkKernel_ErrorE_ToInt , NULL, NULL},
  {VER, "ErrorE_ToString"     ,  tclmkkernel_MkKernel_ErrorE_ToString , NULL, NULL},
  {VER, "IdSE_ToInt"          ,  tclmkkernel_MkKernel_IdSE_ToInt , NULL, NULL},
  {VER, "IdSE_ToString"       ,  tclmkkernel_MkKernel_IdSE_ToString , NULL, NULL},
  {VER, "TimeoutE_ToInt"      ,  tclmkkernel_MkKernel_TimeoutE_ToInt , NULL, NULL},
  {VER, "TimeoutE_ToString"   ,  tclmkkernel_MkKernel_TimeoutE_ToString , NULL, NULL},
  {VER, "TypeE_ToInt"         ,  tclmkkernel_MkKernel_TypeE_ToInt , NULL, NULL},
  {VER, "TypeE_ToString"      ,  tclmkkernel_MkKernel_TypeE_ToString , NULL, NULL},
 
 
  {VER, "Cleanup"             ,  tclmkkernel_MkKernel_Cleanup , NULL, NULL},
  {VER, "Setup"               ,  tclmkkernel_MkKernel_Setup , NULL, NULL},
 
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 1656 of file LibMkKernel_tcl.c.

                                                                       {
  {VER, "print"               , NS(Print_Class_Cmd)                     , NULL, NULL},
  {VER, "const"               , NS(Const_Class_Cmd)                     , NULL, NULL},
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkKernel,EnumFunc,sco
  {VER, "ErrorE_FromInt"      , NS(MkKernel_ErrorE_FromInt)             , NULL, NULL},
  {VER, "IdSE_FromInt"        , NS(MkKernel_IdSE_FromInt)               , NULL, NULL},
  {VER, "TimeoutE_FromInt"    , NS(MkKernel_TimeoutE_FromInt)           , NULL, NULL},
  {VER, "TypeE_FromInt"       , NS(MkKernel_TypeE_FromInt)              , NULL, NULL},
 
// doc-key: MkKernel,EnumFunc,sm_
  {VER, "ErrorE_ToInt"        , NS(MkKernel_ErrorE_ToInt)               , NULL, NULL},
  {VER, "ErrorE_ToString"     , NS(MkKernel_ErrorE_ToString)            , NULL, NULL},
  {VER, "IdSE_ToInt"          , NS(MkKernel_IdSE_ToInt)                 , NULL, NULL},
  {VER, "IdSE_ToString"       , NS(MkKernel_IdSE_ToString)              , NULL, NULL},
  {VER, "TimeoutE_ToInt"      , NS(MkKernel_TimeoutE_ToInt)             , NULL, NULL},
  {VER, "TimeoutE_ToString"   , NS(MkKernel_TimeoutE_ToString)          , NULL, NULL},
  {VER, "TypeE_ToInt"         , NS(MkKernel_TypeE_ToInt)                , NULL, NULL},
  {VER, "TypeE_ToString"      , NS(MkKernel_TypeE_ToString)             , NULL, NULL},
 
// doc-key: MkKernel,Setup,sm_
  {VER, "Cleanup"             , NS(MkKernel_Cleanup)                    , NULL, NULL},
  {VER, "Setup"               , NS(MkKernel_Setup)                      , NULL, NULL},
 
// END-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
  {0, NULL, NULL, NULL, NULL}
};

tclmkkernel_tcl_BOOLEAN

const Tcl_ObjType* tclmkkernel_tcl_BOOLEAN = NULL

Definition at line 145 of file LibMkKernel_tcl.c.

tclmkkernel_tcl_DOUBLE

const Tcl_ObjType* tclmkkernel_tcl_DOUBLE = NULL

Definition at line 144 of file LibMkKernel_tcl.c.

tclmkkernel_tcl_INDEX

const Tcl_ObjType* tclmkkernel_tcl_INDEX = NULL

Definition at line 146 of file LibMkKernel_tcl.c.

tclmkkernel_tcl_LONG

const Tcl_ObjType* tclmkkernel_tcl_LONG = NULL

Definition at line 142 of file LibMkKernel_tcl.c.

tclmkkernel_tcl_WIDE

const Tcl_ObjType* tclmkkernel_tcl_WIDE = NULL

Definition at line 143 of file LibMkKernel_tcl.c.