LibMkKernel_atl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMkKernel_private_atl.h"
#include <stdlib.h>
#include <errno.h>
#include <limits.h>
#include <float.h>
#include <math.h>
#include <ctype.h>
#include "tmpl/mk_type_S_lng.h"
#include "mk_check_atl.h"
#include "utlist_mk.h"
#include "tmpl/mk_misc_ObjAs_lng.h"
#include "tmpl/mk_misc_check_lng.h"
#include "LibMkKernel_registry_atl.h"

Include dependency graph for LibMkKernel_atl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MkKernel_atl.c"
#define	VER   TCL_OO_METHOD_VERSION_CURRENT
#define	OtClass_ARGS   OBJCMD_ARGS
#define	OT_CLASS   NULL
#define	OT_SELF   NULL
#define	OT_SETUP_hdl_static
#define	MkSetupTmpl()
#define	MkCleanupTmpl()
#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	AtlClassDefS_SIG   0x88342873
#define	ClassDefCreateNN(...)
#define	AtlClassDefGetTypN(...)
#define	AtlClassDefGetTypNN(...)
#define	AtlClassDefGetTypNNN(...)
#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	__printV(_color, _caller, _fmt, ...)
#define	_printV(fmt, ...)
#define	objF   "[type<%s>, refCount<MQ=%i,TCL=%i,SHARED=%i>, ptr<MQ=%p,TCL=%p>]"
#define	objA   type, (retObj?retObj->refCount:-1),valO->refCount, Tcl_IsShared(valO), retObj, (retObj?retObj->self:NULL)
#define	AtlRtFree(tok)
#define	regTclObj2(t, v)
#define	regTclObj(t)
#define	regTclCmd(t)
#define	regTclObj2(t, v)
#define	regTclObj(t)
#define	regTclCmd(t)
#define	regTclObj2(t, v)
#define	regTclObj(t)
#define	regTclCmd(t)

Functions
void	atlmkkernel_ClassDef_ns_delete (ClientData clientData)
static AtlClassDefT	atlmkkernel_ClassDefCreateNN (OT_MK_ARGS OT_NS_T clsNS, OT_CLS_T classO, MK_TYP classTT)
static MK_TYP	atlmkkernel_AtlClassDefGetTypN (OT_MK_ARGS OT_CLS_T clsOi, int flags)
static MK_TYP	atlmkkernel_AtlClassDefGetTypNN (OT_MK_ARGS OT_NS_T clsP, OT_CLS_T clsO, int flags)
static MK_TYP	atlmkkernel_AtlClassDefGetTypNNN (OT_MK_ARGS OT_NS_T clsP, OT_CLS_T clsO, int flags)
AtlClassDefT	atlmkkernel_AtlClassDefGetNN (OT_MK_ARGS OT_NS_T classP, OT_CLS_T classO, MK_TYP classTT, int flags)
OT_CLS_T	atlmkkernel_ClassDef (OT_MK_ARGS MK_TYP typeTT, OT_NS_T *clsNsP)
MK_STRN	atlmkkernel_Get_Call_Proc (FRAME_ARGS)
MK_STRN	atlmkkernel_Get_Call_Cmd (FRAME_ARGS)
MK_STRN	atlmkkernel_Get_Call_File (FRAME_ARGS)
MK_I32	atlmkkernel_Get_Call_Line (FRAME_ARGS)
bool	atlmkkernel_Get_Call_Stack (OT_MK_ARGS MK_ERR const err, int level)
int	atlmkkernel_EnumFlagWorker (MK_RT mkrt, OT_ENV_T interp, const struct LookupEnumE *keys, OT_OBJ_T enumE, int *ret)
bool	atlmkkernel_TestObject (OT_Prefix_ARGS OT_OBJ_T myO, OT_CLS_T clsO, MK_OBJ *objP, MkTestClassE *flagP)
MK_STRN	atlmkkernel_GetTypeFromObj (OT_Prefix_ARGS OT_OBJ_T myO, bool *isObject)
	helper to print the type-name of a Tcl_Obj MkKernel::print type $RET
static MK_STRN	atlmkkernel_NamespaceTailCmd (MK_STRN name)
MK_STRN	atlmkkernel_ClassName (OT_Prefix_ARGS OT_OBJ_T myO, bool doShort)
static void	atlmkkernel_LngTupleToMkBufferListS (SETUP_ARGS, int *skipP, MK_BFL *retP)
enum MkErrorE	atlmkkernel_LngListToMkBufferListS (OT_Prefix_ARGS OT_OBJ_T argsO, MK_BFL *retP)
int	atlmkkernel_OT_ERROR_LNG_RETURN_HDL_IS_NULL (OT_MK_ARGS OT_CLS_T clsO, OT_OBJ_T objO)
int	atlmkkernel_UnknownSetup (OT_ENV_T interp, const OtObjProcDefS methodsDefs[], const ClientData clientData)
enum MkErrorE	atlmkkernel_Obj_AsSTRN (OT_Check_ARGS, MK_STRN *retP)
enum MkErrorE	atlmkkernel_Obj_AsSTR_COPY (OT_Check_ARGS, MK_STR ret, size_t size)
int	atlmkkernel_EvalObjvVA (OT_ENV_T interp, int flags,...)
int	atlmkkernel_FillNamespace (OT_ENV_T interp, const OtObjProcDefS type[], ClientData env)
MK_STRN	atlmkkernel_ObjvToString (MK_RT mkrt, MK_STRN cls, ATL_ARGS)
void	atlmkkernel_PrintObj2 (OT_Prefix_ARGS MK_STRN header, OT_OBJ_T obj, MK_STRN caller)
MK_STR	atlmkkernel_PrintObj (OT_Prefix_ARGS MK_STRN header, OT_OBJ_T valO)
	helper to print a Tcl_Obj MkKernel::print object $RET
int	atlmkkernel_AtlInfoExists (OT_MK_ARGS OT_OBJ_T var)
int	atlmkkernel_AtlArrayExists (OT_MK_ARGS OT_OBJ_T var)
MK_STRN	atlmkkernel_AtlInfoScript (OT_MK_ARGS MK_STRN script)
int	atlmkkernel_AtlClassIsN (OT_MK_ARGS OT_SELF_T myNsO, OT_CLS_T clsNsO, bool *boolP)
static void	atlmkkernel_Atom_ns_delete (MK_MNG mng)
OT_SELF_T	atlmkkernel_AtomInit (OT_MK_ARGS OT_SELF_T selfO, MK_OBJ obj, MK_PTR const env)
OT_SELF_T	atlmkkernel_AtomCreate (OT_MK_ARGS MK_OBJ obj, OT_CLS_T clsC, OT_OBJ_T nameO, OT_OBJ_T nsO, int objc, OT_OBJ_T const objv[], MK_PTR const env)
OT_SELF_T	atlmkkernel_AtomMake (OT_MK_ARGS MK_OBJ obj, OT_CLS_T clsC, OT_OBJ_T nameO, OT_OBJ_T nsO, MK_PTR const env)
OT_SELF_T	atlmkkernel_AtomCreateCONSTR (OT_MK_ARGS MK_OBJ obj, OT_CLS_T clsC, OT_OBJ_T nameO, MK_PTR const env)
static int	atlmkkernel_Print_Class_Cmd (OtClass_ARGS)
	MkKernel::print object|type tclObj
static int	atlmkkernel_Const_Class_Cmd (OtClass_ARGS)
	tclObj [MkKernel::const maxY|minY|maxS|minS|maxI|minI|maxF|minF|maxW|minW|maxD|minD]
static int	atlmkkernel_Support_Class_Cmd (OtClass_ARGS)
	bool [MkKernel::support thread|fork]
static OT_ProcRet	atlmkkernel_MkKernel_ErrorE_FromInt (OtClass_ARGS)
	Atl: (static) MkErrorE [MkKernel::ErrorE_FromInt value:int32] → C-API return the MkErrorE from integer …
static OT_ProcRet	atlmkkernel_MkKernel_IdSE_FromInt (OtClass_ARGS)
	Atl: (static) MkIdSE [MkKernel::IdSE_FromInt value:int32] → C-API return the MkIdSE from integer …
static OT_ProcRet	atlmkkernel_MkKernel_TimeoutE_FromInt (OtClass_ARGS)
	Atl: (static) MkTimeoutE [MkKernel::TimeoutE_FromInt value:int32] → C-API return the MkTimeoutE from integer …
static OT_ProcRet	atlmkkernel_MkKernel_TypeE_FromInt (OtClass_ARGS)
	Atl: (static) MkTypeE [MkKernel::TypeE_FromInt value:int32] → C-API return the MkTypeE from integer …
static OT_ProcRet	atlmkkernel_MkKernel_ErrorE_ToInt (OtClass_ARGS)
	Atl: (static) int32 [MkKernel::ErrorE_ToInt value:MkErrorE] → C-API return the MkErrorE as integer …
static OT_ProcRet	atlmkkernel_MkKernel_ErrorE_ToString (OtClass_ARGS)
	Atl: (static) string [MkKernel::ErrorE_ToString value:MkErrorE] → C-API return the MkErrorE as string …
static OT_ProcRet	atlmkkernel_MkKernel_IdSE_ToInt (OtClass_ARGS)
	Atl: (static) int32 [MkKernel::IdSE_ToInt value:MkIdSE] → C-API return the MkIdSE as integer …
static OT_ProcRet	atlmkkernel_MkKernel_IdSE_ToString (OtClass_ARGS)
	Atl: (static) string [MkKernel::IdSE_ToString value:MkIdSE] → C-API return the MkIdSE as string …
static OT_ProcRet	atlmkkernel_MkKernel_TimeoutE_ToInt (OtClass_ARGS)
	Atl: (static) int32 [MkKernel::TimeoutE_ToInt value:MkTimeoutE] → C-API return the MkTimeoutE as integer …
static OT_ProcRet	atlmkkernel_MkKernel_TimeoutE_ToString (OtClass_ARGS)
	Atl: (static) string [MkKernel::TimeoutE_ToString value:MkTimeoutE] → C-API return the MkTimeoutE as string …
static OT_ProcRet	atlmkkernel_MkKernel_TypeE_ToInt (OtClass_ARGS)
	Atl: (static) int32 [MkKernel::TypeE_ToInt value:MkTypeE] → C-API return the MkTypeE as integer …
static OT_ProcRet	atlmkkernel_MkKernel_TypeE_ToString (OtClass_ARGS)
	Atl: (static) string [MkKernel::TypeE_ToString value:MkTypeE] → C-API return the MkTypeE as string …
static OT_ProcRet	atlmkkernel_MkKernel_Cleanup (OtClass_ARGS)
	Atl: (static) MkKernel::Cleanup → C-API cleanup atlmkkernel internal memory …
static OT_ProcRet	atlmkkernel_MkKernel_Setup (OtClass_ARGS)
	Atl: (static) MkKernel::Setup → C-API setup atlmkkernel internal memory …
OT_ATL_EXTERN int	Atlmkkernel_Unload (OT_ENV_T interp, int flags)
Enum From Obj
int	atlmkkernel_Get_MkErrorE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkErrorE *ret)
int	atlmkkernel_Get_MkIdSE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkIdSE *ret)
int	atlmkkernel_Get_MkTimeoutE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTimeoutE *ret)
int	atlmkkernel_Get_MkTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTypeE *ret)
Enum To String
OT_OBJ_T	atlmkkernel_MkBoolE_ToString (const enum MkBoolE type)
OT_OBJ_T	atlmkkernel_MkErrorE_ToString (const enum MkErrorE type)
OT_OBJ_T	atlmkkernel_MkIdSE_ToString (const enum MkIdSE type)
OT_OBJ_T	atlmkkernel_MkNativeIsE_ToString (const enum MkNativeIsE type)
OT_OBJ_T	atlmkkernel_MkTimeoutE_ToString (const enum MkTimeoutE type)
OT_OBJ_T	atlmkkernel_MkTypeE_ToString (const enum MkTypeE type)

Variables
static MK_UNUSED const OtObjProcDefS	atlmkkernel_sOtClassDef []
static const OtObjProcDefS	atlmkkernel_sInstanceDef []
__thread OT_MK_RT_S	amkrtR = {0}

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

Macro Definition Documentation

__printV

#define __printV	(		_color,
			_caller,
			_fmt,
			... )

Value:

  fprintf(MK_OUT, MK_DEBUG_FMT _color _fmt MK_COLOR_RESET "\n", MK_DEBUG_ARG_1(_caller), __VA_ARGS__)

Definition at line 900 of file LibMkKernel_atl.c.

#define __printV(_color,_caller,_fmt,...) \
  fprintf(MK_OUT, MK_DEBUG_FMT _color _fmt MK_COLOR_RESET "\n", MK_DEBUG_ARG_1(_caller), __VA_ARGS__)

_printV

#define _printV	(		fmt,
			... )

Value:

  __printV(MK_COLOR_CYAN,caller,fmt, __VA_ARGS__)

Definition at line 902 of file LibMkKernel_atl.c.

#define _printV(fmt,...) \
  __printV(MK_COLOR_CYAN,caller,fmt, __VA_ARGS__)

AtlClassDefGetTypN

#define AtlClassDefGetTypN

(

...

)

Value:

NS(AtlClassDefGetTypN)(OT_MK_CALL __VA_ARGS__)

Definition at line 226 of file LibMkKernel_atl.c.

AtlClassDefGetTypNN

#define AtlClassDefGetTypNN

(

...

)

Value:

NS(AtlClassDefGetTypNN)(OT_MK_CALL __VA_ARGS__)

Definition at line 229 of file LibMkKernel_atl.c.

AtlClassDefGetTypNNN

#define AtlClassDefGetTypNNN

(

...

)

Value:

NS(AtlClassDefGetTypNNN)(OT_MK_CALL __VA_ARGS__)

Definition at line 232 of file LibMkKernel_atl.c.

AtlClassDefS_SIG

#define AtlClassDefS_SIG   0x88342873

Definition at line 180 of file LibMkKernel_atl.c.

AtlRtFree

#define AtlRtFree

(

tok

)

Value:

if (amkrt->tok) OT_REF_DECR_AND_NULL(amkrt->tok);

ClassDefCreateNN

#define ClassDefCreateNN

(

...

)

Value:

NS(ClassDefCreateNN)(OT_MK_CALL __VA_ARGS__)

Definition at line 211 of file LibMkKernel_atl.c.

Cleanup_doc

#define Cleanup_doc   "MkKernel::Cleanup"

Definition at line 173 of file LibMkKernel_atl.c.

ErrorE_FromInt_doc

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

Definition at line 157 of file LibMkKernel_atl.c.

ErrorE_ToInt_doc

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

Definition at line 163 of file LibMkKernel_atl.c.

ErrorE_ToString_doc

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

Definition at line 164 of file LibMkKernel_atl.c.

FRAME_GET

#define FRAME_GET

(

key

)

Value:

  OT_OBJ_T key = NULL;                                \
  Tcl_DictObjGet(interp,*frameP,amkrt->key,&key);

Definition at line 394 of file LibMkKernel_atl.c.

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

FRAME_UPDATE

#define FRAME_UPDATE

Value:

  if (*frameP == NULL) {                                        \
    RL_init( 2, info_frame_2, RL_NewS(0,"::tcl::info::frame") ) ; RL_T(1,null0) ; \
    OT_OBJ_T ret = RL_EvalRtEx(TCL_EVAL_GLOBAL);                \
      if (ret==NULL) OT_ERROR_ABNORMAL(MK_ERROR_PANIC);         \
    Tcl_IncrRefCount(ret);                                      \
    *frameP = ret;                                              \
  } \

Definition at line 385 of file LibMkKernel_atl.c.

#define FRAME_UPDATE                                            \
  if (*frameP == NULL) {                                        \
    RL_init( 2, info_frame_2, RL_NewS(0,"::tcl::info::frame") ) ; RL_T(1,null0) ; \
    OT_OBJ_T ret = RL_EvalRtEx(TCL_EVAL_GLOBAL);                \
      if (ret==NULL) 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 158 of file LibMkKernel_atl.c.

IdSE_ToInt_doc

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

Definition at line 165 of file LibMkKernel_atl.c.

IdSE_ToString_doc

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

Definition at line 166 of file LibMkKernel_atl.c.

META_FILE_NAME

#define META_FILE_NAME   "MkKernel_atl.c"

Definition at line 11 of file LibMkKernel_atl.c.

MkCleanupTmpl

#define MkCleanupTmpl

(

)

Definition at line 45 of file LibMkKernel_atl.c.

MkSetupTmpl

#define MkSetupTmpl

(

)

Definition at line 44 of file LibMkKernel_atl.c.

objA

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

objF

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

OT_CLASS

#define OT_CLASS   NULL

Definition at line 21 of file LibMkKernel_atl.c.

OT_LNG_SKIP_TYPE

#define OT_LNG_SKIP_TYPE   int

Definition at line 797 of file LibMkKernel_atl.c.

OT_LNG_STRING

#define OT_LNG_STRING

(

o

)

Value:

Tcl_GetString(o)

Definition at line 793 of file LibMkKernel_atl.c.

OT_LNG_STRING_BYTES

#define OT_LNG_STRING_BYTES

(

o

)

Value:

o->bytes

Definition at line 795 of file LibMkKernel_atl.c.

OT_LNG_STRING_LENGTH

#define OT_LNG_STRING_LENGTH

(

o

)

Value:

o->length

Definition at line 796 of file LibMkKernel_atl.c.

OT_SELF

#define OT_SELF   NULL

Definition at line 23 of file LibMkKernel_atl.c.

OT_SETUP_hdl_static

#define OT_SETUP_hdl_static

Value:

  MK_UNUSED int __skip=1; \
  MK_UNUSED OT_MK_RT_T amkrt = clientData; \
  MK_UNUSED MK_RT mkrt = amkrt->mkrt; \
  MK_UNUSED MK_ERR hdl = &MkERROR; \

Definition at line 25 of file LibMkKernel_atl.c.

#define OT_SETUP_hdl_static \
  MK_UNUSED int __skip=1; \
  MK_UNUSED OT_MK_RT_T amkrt = clientData; \
  MK_UNUSED MK_RT mkrt = amkrt->mkrt; \
  MK_UNUSED MK_ERR hdl = &MkERROR; \
 

OtClass_ARGS

#define OtClass_ARGS   OBJCMD_ARGS

Definition at line 19 of file LibMkKernel_atl.c.

regTclCmd [1/3]

#define regTclCmd

(

t

)

Value:

AtlRtFree(t)

regTclCmd [2/3]

#define regTclCmd

(

t

)

Value:

regTclObj2(t,#t)

regTclCmd [3/3]

#define regTclCmd

(

t

)

Value:

regTclObj2(t,#t)

regTclObj [1/3]

#define regTclObj

(

t

)

Value:

AtlRtFree(t)

regTclObj [2/3]

#define regTclObj

(

t

)

Value:

regTclObj2(t,#t)

regTclObj [3/3]

#define regTclObj

(

t

)

Value:

regTclObj2(t,#t)

regTclObj2 [1/3]

#define regTclObj2	(		t,
			v )

Value:

AtlRtFree(t)

regTclObj2 [2/3]

#define regTclObj2	(		t,
			v )

Value:

if (amkrt->t) OT_REF_DECR(amkrt->t)

regTclObj2 [3/3]

#define regTclObj2	(		t,
			v )

Value:

amkrt->t = STR2VAL(v); Tcl_IncrRefCount(amkrt->t);

Setup_doc

#define Setup_doc   "MkKernel::Setup"

Definition at line 174 of file LibMkKernel_atl.c.

SIZE

#define SIZE   20

TimeoutE_FromInt_doc

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

Definition at line 159 of file LibMkKernel_atl.c.

TimeoutE_ToInt_doc

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

Definition at line 167 of file LibMkKernel_atl.c.

TimeoutE_ToString_doc

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

Definition at line 168 of file LibMkKernel_atl.c.

TypeE_FromInt_doc

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

Definition at line 160 of file LibMkKernel_atl.c.

TypeE_ToInt_doc

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

Definition at line 169 of file LibMkKernel_atl.c.

TypeE_ToString_doc

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

Definition at line 170 of file LibMkKernel_atl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 12 of file LibMkKernel_atl.c.

Function Documentation

atlmkkernel_AtlArrayExists()

int atlmkkernel_AtlArrayExists

(

OT_MK_ARGS OT_OBJ_T

var

)

Definition at line 1013 of file LibMkKernel_atl.c.

{
  RL_init( 2, array_exists, RL_NewS(0,"::tcl::array::exists") ); RL_O(1,var) ;
  return Ot_GetBooleanFromObj(RL_EvalRt(TCL_EVAL_GLOBAL));
error:
  return 0;
}

atlmkkernel_AtlClassDefGetNN()

AtlClassDefT atlmkkernel_AtlClassDefGetNN	(	OT_MK_ARGS OT_NS_T	classP,
		OT_CLS_T	classO,
		MK_TYP	classTT,
		int	flags )

Definition at line 235 of file LibMkKernel_atl.c.

{
//colorBLUE("classP->fullName<%s>, classO<%s>, classTT<%s>", classP->fullName, VAL2STR_NULL(classO), MK_TYP2STR(classTT));
  assert(classP != NULL);
  if (classP->clientData) {
    AtlClassDefT clsDef = classP->clientData;
      assert(clsDef->signature == AtlClassDefS_SIG);
    return clsDef;
  }
  if (classO == NULL) 
    classO = STR2VAL(classP->fullName);
  #ifndef NDEBUG
    OT_NS_T classNsP = MoxResolveN(classO);
      assert(classNsP == classP);
  #endif
  if (classTT == NULL) {
    SETUP_moxrt;
    int retI;
 
    // is this a ATL Class ?
    OT_OBJ_T superO = MoxCls__SUPER__NN(classP,flags);
      if (superO == NULL) {
        if (flags & TCL_LEAVE_ERR_MSG) {
          OT_ERROR_VAR_DEFAULT("[ClassDefError] unable to retrieve '__SUPER__' from '%s'\n  -> %s",
            classP->fullName, Tcl_GetStringResult(interp));
          Tcl_SetErrorCode(interp,"ATLMK","CLASS","TYP","INVALID",NULL);
        }
        return NULL;
      }
    int objc;
    Tcl_Obj **objv;
    retI = Tcl_ListObjGetElements(interp,superO,&objc,&objv);
      if (retI == TCL_OK) {
        for (int i=0; i<objc; i++) {
          classTT = AtlClassDefGetTypN(objv[i],0);
          if (classTT) break;
        }
      }
 
      if (classTT == NULL) {
        if (flags & TCL_LEAVE_ERR_MSG) {
          OT_ERROR_VAR_DEFAULT("[ClassDefError] unable to retrieve 'MK_TYP' from '%s'",classP->fullName);
          Tcl_SetErrorCode(interp,"ATLMK","CLASS","TYP","INVALID",NULL);
        }
        return NULL;
      }
  }
  return ClassDefCreateNN(classP,classO,classTT);
}

atlmkkernel_AtlClassDefGetTypN()

static MK_TYP atlmkkernel_AtlClassDefGetTypN ( OT_MK_ARGS OT_CLS_T clsOi, int flags )

inlinestatic

Definition at line 300 of file LibMkKernel_atl.c.

{
  OT_NS_T ns = MoxResolveN(clsO);
    if (ns == NULL) return NULL;
  return AtlClassDefGetTypNN(ns,clsO,flags);
}

atlmkkernel_AtlClassDefGetTypNN()

static MK_TYP atlmkkernel_AtlClassDefGetTypNN ( OT_MK_ARGS OT_NS_T clsP, OT_CLS_T clsO, int flags )

inlinestatic

Definition at line 291 of file LibMkKernel_atl.c.

{
  MK_TYP retTT=NULL ;
  SETUP_moxrt;
  MoxPushN(clsP);
    retTT = AtlClassDefGetTypNNN(clsP,clsO,flags);
  MoxPopN();
  return retTT;
}

atlmkkernel_AtlClassDefGetTypNNN()

static MK_TYP atlmkkernel_AtlClassDefGetTypNNN ( OT_MK_ARGS OT_NS_T clsP, OT_CLS_T clsO, int flags )

inlinestatic

Definition at line 285 of file LibMkKernel_atl.c.

{
  AtlClassDefT clsDef = AtlClassDefGetNN(clsP,clsO,NULL,flags);
    if (clsDef == NULL) return NULL;
  return clsDef->classTT;
}

atlmkkernel_AtlClassIsN()

int atlmkkernel_AtlClassIsN	(	OT_MK_ARGS OT_SELF_T	myNsO,
		OT_CLS_T	clsNsO,
		bool *	boolP )

Definition at line 1036 of file LibMkKernel_atl.c.

{ 
  SETUP_moxrt;
  int retI;
  RL_init(3,MyIsClsN,RL_NewS(0,"::myooX::ClassIsN")) ; RL_O(1,myNsO) ; RL_O(2,clsNsO) ;
  retI = RL_EvalEx(TCL_EVAL_GLOBAL);
    if (retI != TCL_OK) goto error;
  OT_OBJ_T retO = Tcl_GetObjResult(interp);
  int intB;
  retI = Tcl_GetBooleanFromObj(interp,retO,&intB);
    if (retI != TCL_OK) goto error;
  (*boolP) = intB;
error:
  OT_ERROR_APPEND_LNG_STACK();
  return retI;
}

atlmkkernel_AtlInfoExists()

int atlmkkernel_AtlInfoExists

(

OT_MK_ARGS OT_OBJ_T

var

)

TCL PRIVATE INTERFACE

Definition at line 1005 of file LibMkKernel_atl.c.

{
  RL_init( 2, info_exists, RL_NewS(0,"::tcl::info::exists") ); RL_O(1,var) ;
  return Ot_GetBooleanFromObj(RL_EvalRt(TCL_EVAL_GLOBAL));
error:
  return 0;
}

atlmkkernel_AtlInfoScript()

MK_STRN atlmkkernel_AtlInfoScript

(

OT_MK_ARGS MK_STRN

script

)

Definition at line 1021 of file LibMkKernel_atl.c.

{
  OT_OBJ_T ret;
  if (script) {
    RL_init( 2, info_script_2, RL_NewS(0,"::tcl::info::script") ) ; RL_NewS(1,script) ;
    ret = RL_EvalRt(TCL_EVAL_GLOBAL);
  } else {
    RL_init( 1, info_script_1, RL_NewS(0,"::tcl::info::script") ) ; 
    ret = RL_EvalRt(TCL_EVAL_GLOBAL);
  }
  return Tcl_GetStringFromObj(ret,NULL);
error:
  return NULL;
}

atlmkkernel_Atom_ns_delete()

static void atlmkkernel_Atom_ns_delete ( MK_MNG mng )

static

ATOM API

Definition at line 1187 of file LibMkKernel_atl.c.

{ 
  assert(mng != NULL);
  MK_OBJ obj = MkObj(mng);
  check_NULL(obj) return;
  MkRtSetup_ON(obj);
  #ifdef OT_DEBUG_NAMESPACE_DELETE
    OT_SELF_T selfO = META2VAL_O(obj);
    if (selfO) {
      OT_DEBUG_NAMESPACE_DELETE(MK_COLOR_ORANGE,"%s<%p>"          , "INS", VAL2STR(selfO), selfO);
    } else {
      OT_DEBUG_NAMESPACE_DELETE(MK_COLOR_ORANGE,"(selfO=NULL) %s" , "INS", MkObjectToName(obj));
    }
  #endif
 
//MkObjectLogShort_2Lvl(obj,1);
//MkSysPrintStackTrace_4(obj,0,__func__,1);
//MkDLogV_O(obj,8,"%s [%s]\n",MkObjectToName(obj),__func__);
 
  // SELF is already "dead"
  MkRefDecrWithoutSelf(obj);
}

atlmkkernel_AtomCreate()

OT_SELF_T atlmkkernel_AtomCreate	(	OT_MK_ARGS MK_OBJ	obj,
		OT_CLS_T	clsC,
		OT_OBJ_T	nameO,
		OT_OBJ_T	nsO,
		int	objc,
		OT_OBJ_T const	objv[],
		MK_PTR const	env )

Definition at line 1241 of file LibMkKernel_atl.c.

  {
  SETUP_moxrt;
  int retI;
  OT_SELF_T selfO = NULL;
 
  retI = MoxCreate3N(clsC, nameO, nsO, objc, objv);
    if (retI != TCL_OK) goto error;
 
  selfO = Tcl_GetObjResult(interp);
    if (selfO == NULL) goto error;
 
  selfO = AtomInit(selfO,obj,env);
    if (selfO == NULL) goto error;
 
  return selfO;
error:
  OT_ERROR_LNG_2_META(obj);
  MkErrorStackFormat_0E();
  return NULL;
}

atlmkkernel_AtomCreateCONSTR()

OT_SELF_T atlmkkernel_AtomCreateCONSTR	(	OT_MK_ARGS MK_OBJ	obj,
		OT_CLS_T	clsC,
		OT_OBJ_T	nameO,
		MK_PTR const	env )

Definition at line 1296 of file LibMkKernel_atl.c.

  {
  assert(nameO != NULL);
 
  OT_SELF_T selfO = NULL;
  OT_OBJ_T nsO = NULL;
 
  // check if "nameO" has Namespace
  if (strncmp("::",Tcl_GetString(nameO),2) != 0) {
    nsO = STR2VAL(Tcl_GetCurrentNamespace(interp)->fullName);
    Tcl_IncrRefCount(nsO);
  }
  selfO = AtomCreate(obj, clsC, nameO, nsO, 0, NULL, env);
    if (selfO == NULL) goto error;
 
  Ot_DecrRefCount(nsO);
  return selfO;
error:
  Ot_DecrRefCount(nsO);
  OT_ERROR_APPEND_LNG_STACK();
  return NULL;
}

atlmkkernel_AtomInit()

OT_SELF_T atlmkkernel_AtomInit	(	OT_MK_ARGS OT_SELF_T	selfO,
		MK_OBJ	obj,
		MK_PTR const	env )

Definition at line 1212 of file LibMkKernel_atl.c.

  {
  if (obj) {
    MkSelfSet (obj, (void*) selfO, env);
    //attention "OT_REF_DECR" in "AtomDeleteHard"
    OT_REF_INCR(selfO);
    MkRefIncr(obj);
 
    OT_NS_T myNsP = MoxResolveN(selfO);
      if (myNsP == NULL) goto error;
 
    myNsP->clientData = obj;
    myNsP->deleteProc = MK(Atom_ns_delete);
  }
 
  return selfO;
error:
  // HINT: refCnt-leak in "selfO" and "obj"
  OT_ERROR_LNG_2_META(obj);
  MkErrorStackFormat_0E();
  return NULL;
}

atlmkkernel_AtomMake()

OT_SELF_T atlmkkernel_AtomMake	(	OT_MK_ARGS MK_OBJ	obj,
		OT_CLS_T	clsC,
		OT_OBJ_T	nameO,
		OT_OBJ_T	nsO,
		MK_PTR const	env )

Definition at line 1271 of file LibMkKernel_atl.c.

  {
  SETUP_moxrt;
  OT_SELF_T selfO = NULL;
 
  selfO = MoxMakeN(clsC, nameO, nsO);
    if (selfO == NULL) goto error;
 
  selfO = AtomInit(selfO,obj,env);
    if (selfO == NULL) goto error;
 
  return selfO;
error:
  OT_ERROR_LNG_2_META(obj);
  MkErrorStackFormat_0E();
  return NULL;
}

atlmkkernel_ClassDef()

OT_CLS_T atlmkkernel_ClassDef	(	OT_MK_ARGS MK_TYP	typeTT,
		OT_NS_T *	clsNsP )

Definition at line 308 of file LibMkKernel_atl.c.

  {
  int retI;
  Tcl_ResetResult(interp);
  assert(typeTT != NULL);
  MK_TYP  classTT = typeTT->type_class;
 
  // 1. ClassName = ::TypeName
  OT_OBJ_T classNs = Tcl_ObjPrintf("::%s", classTT->type_class->type_name);
    if (classNs == NULL) return NULL;
 
  OT_OBJ_T classO = NULL;
  OT_OBJ_T codeO = NULL;
 
  // If 'classTT->self' is defined - import it
  // > require that "interp" and "MkOBJ_R(classTT).env" are in the SAME thread.
  // > silent assume that class dependency is ORDERED with "MkObjectC" first !!
  if (classTT != MkObjectC_TT)  {
    if (MkOBJ_R(classTT->type_base).env != amkrt) {
      char buf[256] = {0};
      snprintf(buf,256,"\nCLASS-SETUP-ERROR: the '%s-env=%p' and the 'class-def-interp=%p' are not equal",
          MkOBJ_R(classTT->type_base).type->type_name, MkOBJ_R(classTT->type_base).env, interp
      );
      Tcl_AppendResult(interp, buf,NULL);
      Tcl_SetErrorCode(interp,"ATLMK","CLASS","ENV",NULL);
      goto error;
    } else if (MkOBJ_R(classTT->type_base).self == NULL) {
      Tcl_AppendResult(interp,
        "\nCLASS-SETUP-ERROR: class '", classTT->type_name, "' has a base class '", classTT->type_base->type_name, 
          "' with EMPTY SELF pointer", NULL);
      Tcl_SetErrorCode(interp,"ATLMK","CLASS","SELF",NULL);
      goto error;
    } else {
      codeO = MkOBJ_R(classTT->type_base).self;
    }
  }
  // 2. call class-CTOR
  retI = MOX(ClassN_direct)(amkrt->moxrt,interp,classNs,codeO);
    if (retI != TCL_OK) goto error;
 
  // 3. "final" class-Name (should by ClassName but open for future change)
  classO = Tcl_GetObjResult(interp);
    OT_REF_INCR(classO);
 
  OT_OBJ_T superO = Tcl_ObjPrintf("SuperI %s", Tcl_GetString(classO));
    MkSelfSet_3X(classTT, (MK_PTR) superO, amkrt);    // save reference of OT_CLS_T and OT_ENV_T
      Tcl_IncrRefCount(superO);
 
  // save my namespace
  OT_NS_T classNS = (*clsNsP) = MoxResolveN(classO);
    if (classNS == NULL) goto error;
 
  // attach Class-O to Class-NS
  ClassDefCreateNN(classNS,classO,classTT);
 
  // export public commands
  retI = Tcl_Export(interp, classNS, "[A-Za-z]*", 0);
    if (retI != TCL_OK) goto error;
 
end:
  if (classO) {
    Tcl_SetObjResult(interp,classO);
      OT_REF_DECR(classO);
  }
  return classO;
error:
  OT_ERROR_APPEND_LNG_STACK();
  goto end;
}

atlmkkernel_ClassDef_ns_delete()

void atlmkkernel_ClassDef_ns_delete

(

ClientData

clientData

)

Definition at line 182 of file LibMkKernel_atl.c.

                                                    {
  AtlClassDefT classDef = clientData;
    assert (classDef->signature == AtlClassDefS_SIG);
  OT_OBJ_T classO = classDef->classO;
    if (classO == NULL) return;
OT_DEBUG_NAMESPACE_DELETE(MK_COLOR_RED,"%s<%p> in clientData<%p>","CLS",VAL2STR(classO),classO,clientData);
  OT_MK_RT_T amkrt = classDef->amkrt;
    if (amkrt==NULL || amkrt->signature != OT_MK_RT_SIG) return;
  MK_TYP classTT = classDef->classTT;
  MkRtSetup_RT(amkrt->mkrt);
  OT_ENV_T interp = amkrt->interp;
 
  MK_OBJ obj,tmp;
  MkTypeForeachInstancesSave(classTT) {
    if (obj->self == NULL) { obj = MkObjectNext(obj); continue; }
    OT_OBJ_T selfO = obj->self;
    OT_NS_T ns = Tcl_FindNamespace(interp,VAL2STR(selfO),NULL,TCL_GLOBAL_ONLY);
      if (ns == NULL) { obj = MkObjectNext(obj); continue; }
      Tcl_DeleteNamespace(ns);
  }
 
  DL_DELETE(amkrt->atlClassDefL,classDef);
  classDef->next = NULL;
 
  classDef->signature = 0x0;
  OT_REF_DECR_AND_NULL(classDef->classO);
  MkSysFree(classDef);
}

atlmkkernel_ClassDefCreateNN()

static AtlClassDefT atlmkkernel_ClassDefCreateNN ( OT_MK_ARGS OT_NS_T clsNS, OT_CLS_T classO, MK_TYP classTT )

inlinestatic

Definition at line 212 of file LibMkKernel_atl.c.

{
  AtlClassDefT classDef = MkSysMalloc(MK_ERROR_PANIC,sizeof(*classDef));
//mk_dbg_color_ln(MK_COLOR_GREEN,"classDef<%p>",classDef);
  (*classDef) = (AtlClassDefS) {AtlClassDefS_SIG,classO,amkrt,classTT,clsNS,NULL,NULL};
    Tcl_IncrRefCount(classO);
  clsNS->clientData = classDef;
  clsNS->deleteProc = MK(ClassDef_ns_delete);
 
  DL_APPEND(amkrt->atlClassDefL,classDef);
  
  return classDef;
}

atlmkkernel_ClassName()

MK_STRN atlmkkernel_ClassName	(	OT_Prefix_ARGS OT_OBJ_T	myO,
		bool	doShort )

Definition at line 646 of file LibMkKernel_atl.c.

  {
  const Tcl_ObjType *typePtr=myO->typePtr;
  MK_STRN name = NULL;
  MOX_RT_T const moxrt = amkrt->moxrt;
 
  if (MoxMyIsN(myO)) {
    // myoo instance
    name = OT_LNG_NAME_FROM_CLASS(MoxMy__CLASS__N(myO));
  } else if (MoxClsIsN(myO)) {
    // myoo class
    name = OT_LNG_NAME_FROM_CLASS(myO);
  } else {
    snprintf(amkrt->AtlClassName_buf,AtlClassName_buf_size,"Tcl_ObjType<%s>",typePtr ? typePtr->name : "unknown");
    name = amkrt->AtlClassName_buf;
    doShort = false;
  }
  if (doShort) name = NS(NamespaceTailCmd)(name);
  return name;
}

atlmkkernel_EnumFlagWorker()

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

Definition at line 515 of file LibMkKernel_atl.c.

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

atlmkkernel_EvalObjvVA()

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

Definition at line 850 of file LibMkKernel_atl.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
}

atlmkkernel_FillNamespace()

int atlmkkernel_FillNamespace	(	OT_ENV_T	interp,
		const OtObjProcDefS	type[],
		ClientData	env )

Definition at line 877 of file LibMkKernel_atl.c.

  {
  // 2. create commands
  for (int i=0; type[i].name != NULL; i++) {
    check_NULL  ( 
      Tcl_CreateObjCommand(interp, type[i].name, type[i].callProc, env,NULL)
    ) return TCL_ERROR;
  }
  return TCL_OK;
}

atlmkkernel_Get_Call_Cmd()

MK_STRN atlmkkernel_Get_Call_Cmd

(

FRAME_ARGS

)

Definition at line 410 of file LibMkKernel_atl.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
}

atlmkkernel_Get_Call_File()

MK_STRN atlmkkernel_Get_Call_File

(

FRAME_ARGS

)

Definition at line 437 of file LibMkKernel_atl.c.

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

atlmkkernel_Get_Call_Line()

MK_I32 atlmkkernel_Get_Call_Line

(

FRAME_ARGS

)

Definition at line 453 of file LibMkKernel_atl.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;
}

atlmkkernel_Get_Call_Proc()

MK_STRN atlmkkernel_Get_Call_Proc

(

FRAME_ARGS

)

Definition at line 398 of file LibMkKernel_atl.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);;
}

atlmkkernel_Get_Call_Stack()

bool atlmkkernel_Get_Call_Stack	(	OT_MK_ARGS MK_ERR const	err,
		int	level )

Definition at line 466 of file LibMkKernel_atl.c.

                                                                 {
  RL_init( 2, info_frame_2, RL_NewS(0,"::tcl::info::frame") ) ; RL_NewI(1,level) ;
  OT_OBJ_T frame = RL_EvalRt(TCL_EVAL_GLOBAL);
  Tcl_IncrRefCount(frame);
//printLng(frame);
  MkErrorStackFormat(err,
    MK(Get_Call_Cmd)(FRAME_CALL),
      MK(Get_Call_File)(FRAME_CALL),
        MK(Get_Call_Line)(FRAME_CALL)
  );
  Tcl_DecrRefCount(frame);
  return true;
error:
  Tcl_ResetResult(interp);
  return false;
}

atlmkkernel_GetTypeFromObj()

MK_STRN atlmkkernel_GetTypeFromObj	(	OT_Prefix_ARGS OT_OBJ_T	myO,
		bool *	isObject )

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

Definition at line 599 of file LibMkKernel_atl.c.

  {
  SETUP_moxrt;
  const Tcl_ObjType *typePtr=myO->typePtr;
  MK_STRN name=NULL;
  bool isObjectB=false;
 
  if (MoxMyIsN(myO)) {
    // myoo instance NS
    isObjectB=true;
    name = OT_LNG_NAME_FROM_CLASS(MoxMy__CLASS__N(myO));
  } else if (MoxClsIsN(myO)) {
    // myoo class NS
    isObjectB=true;
    name = "Class";
  } else {
    // Tcl_Obj
    name = typePtr ? typePtr->name : "unknown";
    isObjectB=false;
  }
  if (isObject) *isObject=isObjectB;
  return name;
}

atlmkkernel_LngListToMkBufferListS()

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

Definition at line 688 of file LibMkKernel_atl.c.

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

atlmkkernel_LngTupleToMkBufferListS()

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

static

Definition at line 670 of file LibMkKernel_atl.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;
}

atlmkkernel_NamespaceTailCmd()

static MK_STRN atlmkkernel_NamespaceTailCmd ( MK_STRN name )

static

Definition at line 626 of file LibMkKernel_atl.c.

                                                  {
  // 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;
}

atlmkkernel_Obj_AsSTR_COPY()

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

Definition at line 830 of file LibMkKernel_atl.c.

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

atlmkkernel_Obj_AsSTRN()

enum MkErrorE atlmkkernel_Obj_AsSTRN	(	OT_Check_ARGS	,
		MK_STRN *	retP )

Definition at line 804 of file LibMkKernel_atl.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;
}

atlmkkernel_ObjvToString()

MK_STRN atlmkkernel_ObjvToString	(	MK_RT	mkrt,
		MK_STRN	cls,
		ATL_ARGS	)

Definition at line 891 of file LibMkKernel_atl.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;
}

atlmkkernel_OT_ERROR_LNG_RETURN_HDL_IS_NULL()

int atlmkkernel_OT_ERROR_LNG_RETURN_HDL_IS_NULL	(	OT_MK_ARGS OT_CLS_T	clsO,
		OT_OBJ_T	objO )

Definition at line 707 of file LibMkKernel_atl.c.

{
  MOX_RT_T const moxrt = amkrt->moxrt;
  OT_CLS_T  objClsO = MoxMy__CLASS__N(objO);
 
  if (objClsO == NULL) {
    OT_ERROR_VAR_DEFAULT("HdlIsNullError: '%s' hdl is NULL (not a myoox)",VAL2STR(clsO));
    Tcl_SetErrorCode(interp,"ATLMK","HDL","NULL",NULL);
    goto error;
  }
 
  MK_STRN   objClsC = VAL2STR(objClsO);
  MK_MNG mng = VAL2MNG(objO);
 
  if (mng == NULL) {
    OT_ERROR_VAR_DEFAULT("HdlIsNullError: '%s' hdl is NULL (not an instance)",objClsC);
    Tcl_SetErrorCode(interp,"ATLMK","HDL","NULL",NULL);
    goto error;
  }
 
  MK_OBJ obj = MkObj(mng);
  if (obj == NULL) {
    OT_ERROR_VAR_DEFAULT("HdlIsNullError: '%s' hdl is NULL (not an object)",objClsC);
    Tcl_SetErrorCode(interp,"ATLMK","HDL","NULL",NULL);
    goto error;
  }
 
  MK_TYP    objTT = AtlClassDefGetTypN(objClsO,TCL_LEAVE_ERR_MSG);
              if (objTT == NULL) goto error_and_stack;
  MK_TYP    clsTT = AtlClassDefGetTypN(clsO,TCL_LEAVE_ERR_MSG);
              if (clsTT == NULL) goto error_and_stack;
 
/*
  RL_init(3,hdl_is_null_3, RL_T(0,ClassIsN) ) ; RL_O(1,objO) ; RL_O(2,clsO) ;
  OT_OBJ_T retO = RL_EvalRt(TCL_EVAL_GLOBAL);
  int boolI;
  if (retO == NULL || Tcl_GetBooleanFromObj(interp,retO,&boolI) != TCL_OK) {
    OT_ERROR_VAR_DEFAULT("[HdlInternalError] '%s'",Tcl_GetStringResult(interp));
    Tcl_SetErrorCode(interp,"ATLMK","HDL","INTERNAL",NULL);
    goto error;
  }
*/
 
  MK_STRN   clsC = VAL2STR(clsO);
  if (objTT == clsTT) {
    OT_ERROR_VAR_DEFAULT("HdlClassInvalidError: Expected 'hdl' in class '%s' not found", objClsC);
    Tcl_SetErrorCode(interp,"ATLMK","HDL","INVALID",NULL);
  } else {
    OT_ERROR_VAR_DEFAULT("HdlClassInvalidError: Expecting 'hdl' class '%s', but getting class '%s'", clsC, objClsC);
    Tcl_SetErrorCode(interp,"ATLMK","HDL","WRONG","CLASS",NULL);
  }
error_and_stack:
  OT_ERROR_APPEND_LNG_STACK(); 
error:
  return TCL_ERROR;
}

atlmkkernel_PrintObj()

MK_STR atlmkkernel_PrintObj	(	OT_Prefix_ARGS MK_STRN	header,
		OT_OBJ_T	valO )

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

Definition at line 966 of file LibMkKernel_atl.c.

  {
  if (valO == NULL) {
    MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%s=NULL", header);
  } else {
  //printP(valO)
    MK_OBJ retObj = NULL;
    bool isObject;
    MK_STRN type = MK(GetTypeFromObj) (OT_Prefix_CALL valO, &isObject);
    if (isObject) OT_LNG_OBJECT_IS_3(valO, &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),valO->refCount, Tcl_IsShared(valO), retObj, (retObj?retObj->self:NULL)
 
    // fill the buf and get the len back
    if (header) {
      MkBufferSetV(MkBUF(&MK_RT_REF.tbuf), "%-20s: %s " objF, header,  Tcl_GetString (valO), objA);
    } else if (retObj) {
      MkBufferSetV(MkBUF(&MK_RT_REF.tbuf),        "%s " objF,          Tcl_GetString (valO), objA);
    } else {
      MkBufferSetV(MkBUF(&MK_RT_REF.tbuf),        "%s " objF,          Tcl_GetString (valO), objA);
    }
 
    #undef objF
    #undef objA
  }
 
  return MkBUF_R(&MK_RT_REF.tbuf).storage.first.S;
}

atlmkkernel_PrintObj2()

void atlmkkernel_PrintObj2	(	OT_Prefix_ARGS MK_STRN	header,
		OT_OBJ_T	obj,
		MK_STRN	caller )

Definition at line 905 of file LibMkKernel_atl.c.

  {
  if (obj == NULL) {
    _printV("%s=NULL", header);
  }
  const Tcl_ObjType *typePtr = obj->typePtr;
  _printV("STRING # %s<%s>", header, VAL2STR(obj));
  if (typePtr) {
    const char * typeName = typePtr->name;
    _printV("  | OBJECT # typePtr<%s>, refCount<%d>", typeName, obj->refCount);
    if (strcmp(typeName,"parsedVarName")==0) {
      _printV("    | %-10p # pointer to the array name Tcl_Obj, or NULL if it is ascalar variable",
                              obj->internalRep.twoPtrValue.ptr1);
      _printV("    | %-10p # pointer to the element name string (owned by this Tcl_Obj), or NULL if it is a scalar variable",
                              obj->internalRep.twoPtrValue.ptr2);
    } else if (strcmp(typeName,"nsName")==0) {
      // ===========================================================================
      // generic/tclNamesp.c
      /*
       * This structure contains a cached pointer to a namespace that is the result
       * of resolving the namespace's name in some other namespace. It is the
       * internal representation for a nsName object. It contains the pointer along
       * with some information that is used to check the cached pointer's validity.
       */
 
      typedef struct ResolvedNsName {
          Namespace *nsPtr;             /* A cached pointer to the Namespace that the
                                       * name resolved to. */
          Namespace *refNsPtr;  /* Points to the namespace context in which
                                       * the name was resolved. NULL if the name is
                                       * fully qualified and thus the resolution
                                       * does not depend on the context. */
          int refCount;         /* Reference count: 1 for each nsName object
                                       * that has a pointer to this ResolvedNsName
                                       * structure as its internal rep. This
                                       * structure can be freed when refCount
                                       * becomes zero. */
      } ResolvedNsName;
      // ===========================================================================
      ResolvedNsName *resNamePtr = obj->internalRep.twoPtrValue.ptr1;
        if (resNamePtr==NULL) return;
      Namespace* nsPtr = resNamePtr->nsPtr ;
        char *nsPtrS = nsPtr ? nsPtr->fullName : "null";
        ClientData nsPtrCD = nsPtr ? nsPtr->clientData : NULL;
      Namespace* refNsPtr = resNamePtr->refNsPtr;
        char *refNsPtrS = refNsPtr ? refNsPtr->fullName : "null";
        _printV("    | NAMESPACE # namespace<%s>, ClientData<%p>, refNsPtr<%s>", nsPtrS, nsPtrCD, refNsPtrS);
    }
  } else {
    _printV("  | OBJECT # refCount : %d", obj->refCount);
  }
}

atlmkkernel_TestObject()

bool atlmkkernel_TestObject	(	OT_Prefix_ARGS OT_OBJ_T	myO,
		OT_CLS_T	clsO,
		MK_OBJ *	objP,
		MkTestClassE *	flagP )

Definition at line 537 of file LibMkKernel_atl.c.

  {
  assert(myO != NULL); 
  assert(clsO!= NULL); 
  Tcl_ResetResult(interp); 
  MkTestClassE flag = MkTestClassE_OK; 
  MOX_RT_T moxrt = amkrt->moxrt;
  MK_OBJ myOBJ = NULL;
 
  OT_NS_T myNs = MoxResolveN(myO);
    if (myNs == NULL) {  
      // first check for "", "MK_NULL", ...
      int len=0; 
      MK_STRN str = Tcl_GetStringFromObj(myO,&len); 
      if (len == 0 || MkStringIsNULL(MkStringCreate(len,str))) { 
        flag=MkTestClassE_NULL;
      } else {
        flag=MkTestClassE_NONE_OBJECT;
      }
      goto end;
    }
 
  myOBJ = Self2PtrNN(myNs);
    if (myOBJ == NULL) {
      if (MoxMyIsNN(myNs)) {
        flag=MkTestClassE_NULL; goto end;
      } else {
        flag=MkTestClassE_NONE_OBJECT; goto end;
      }
    }
 
  if (!MkObjCheck(myOBJ)) {
    flag=MkTestClassE_INVALID_SIGNATURE; goto end;
  }
 
  MK_TYP clsTT = AtlClassDefGetTypN(clsO,0);
    if (clsTT == NULL) {
      flag=MkTestClassE_INTERNAL; goto end;
    }
 
  if (!__MkCheckTO(clsTT,myOBJ)) {
    flag = MkTestClassE_WRONG_CLASS; goto end;
  }
 
  flag = MkTestClassE_OK; 
  if (objP)   *objP = myOBJ;
 
end: 
  if (flagP)  *flagP = flag; 
  switch(flag) { 
    case MkTestClassE_NONE_OBJECT : return false; 
    default                       : return true; 
  }
}

atlmkkernel_UnknownSetup()

int atlmkkernel_UnknownSetup	(	OT_ENV_T	interp,
		const OtObjProcDefS	methodsDefs[],
		const ClientData	clientData )

"unknown" API

Definition at line 770 of file LibMkKernel_atl.c.

  {
 
  for (int i=0; methodsDefs[i].name != 0; i++) {
    check_NULL(Tcl_CreateObjCommand(interp, methodsDefs[i].name, methodsDefs[i].callProc, clientData, NULL)) 
      goto error;
  }
 
  return TCL_OK;
error:
  OT_ERROR_APPEND_LNG_STACK();
  return TCL_ERROR;
}

Atlmkkernel_Unload()

OT_ATL_EXTERN int Atlmkkernel_Unload	(	OT_ENV_T	interp,
		int	flags )

Definition at line 2101 of file LibMkKernel_atl.c.

{
  OT_NS_T ns = Tcl_FindNamespace(interp,"::MkKernel",NULL,TCL_GLOBAL_ONLY);
    if (ns) Tcl_DeleteNamespace(ns);
 
  MkCleanup();
 
  return TCL_OK;
}

Variable Documentation

amkrtR

__thread OT_MK_RT_S amkrtR = {0}

Definition at line 1989 of file LibMkKernel_atl.c.

{0};

atlmkkernel_sInstanceDef

const OtObjProcDefS atlmkkernel_sInstanceDef[]

static

Initial value:

= {
  
 
  
 
  
  { NULL }
}

Definition at line 1906 of file LibMkKernel_atl.c.

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

atlmkkernel_sOtClassDef

MK_UNUSED const OtObjProcDefS atlmkkernel_sOtClassDef[]

static

Initial value:

= {
  { "::MkKernel::print"             ,  atlmkkernel_Print_Class_Cmd },
  { "::MkKernel::const"             ,  atlmkkernel_Const_Class_Cmd },
  { "::MkKernel::support"           ,  atlmkkernel_Support_Class_Cmd },
  
 
  
  { "::MkKernel::ErrorE_FromInt"    ,  atlmkkernel_MkKernel_ErrorE_FromInt },
  { "::MkKernel::IdSE_FromInt"      ,  atlmkkernel_MkKernel_IdSE_FromInt },
  { "::MkKernel::TimeoutE_FromInt"  ,  atlmkkernel_MkKernel_TimeoutE_FromInt },
  { "::MkKernel::TypeE_FromInt"     ,  atlmkkernel_MkKernel_TypeE_FromInt },
 
  
  { "::MkKernel::ErrorE_ToInt"      ,  atlmkkernel_MkKernel_ErrorE_ToInt },
  { "::MkKernel::ErrorE_ToString"   ,  atlmkkernel_MkKernel_ErrorE_ToString },
  { "::MkKernel::IdSE_ToInt"        ,  atlmkkernel_MkKernel_IdSE_ToInt },
  { "::MkKernel::IdSE_ToString"     ,  atlmkkernel_MkKernel_IdSE_ToString },
  { "::MkKernel::TimeoutE_ToInt"    ,  atlmkkernel_MkKernel_TimeoutE_ToInt },
  { "::MkKernel::TimeoutE_ToString" ,  atlmkkernel_MkKernel_TimeoutE_ToString },
  { "::MkKernel::TypeE_ToInt"       ,  atlmkkernel_MkKernel_TypeE_ToInt },
  { "::MkKernel::TypeE_ToString"    ,  atlmkkernel_MkKernel_TypeE_ToString },
 
  
  { "::MkKernel::Cleanup"           ,  atlmkkernel_MkKernel_Cleanup },
  { "::MkKernel::Setup"             ,  atlmkkernel_MkKernel_Setup },
 
  
  { NULL }
}

Definition at line 1872 of file LibMkKernel_atl.c.

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