tag: nhi1-release-250425 More...

#include "libmyoox_mox.h"
#include "LibMkKernel_mk.h"
#include "tmpl/mk_type_S_lng.h"
#include "LibMkKernel_registry_atl.h"
#include "tmpl/mk_misc_check_lng.h"
#include "tmpl/mk_misc_ObjAs_lng.h"

Include dependency graph for LibMkKernel_atl.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	OT_MK_RT_S

struct	MkCallS

struct	LookupEnumE

struct	LookupClassS

struct	OtObjProcDefS

struct	MkVarFrameS

struct	AtlClassDefS

Macros
#define	OT_DEBUG_NAMESPACE_DELETE(...)

#define	HEADER

#define	MK_ATL_EXTERN
	static library

#define	MK_ATL_EXTERN_DATA extern

#define	MK(n)

#define	NS(n)

#define	META_CONTEXT_S hdl

#define	OT_ProcRet int

#define	ATL_OBJV_ARGS int objc, OT_OBJ_T const objv[]

#define	ATL_OBJV_ARGS_CALL objc, objv

#define	ATL_ARGS OT_ENV_T interp, int objc, OT_OBJ_T const objv[]

#define	ATL_ARGS_CALL interp, objc, objv

#define	OBJECT_ARGS ClientData clientData, ATL_ARGS

#define	OBJECT_ARGS_CALL hdl, ATL_ARGS_CALL

#define	OBJCMD_ARGS ClientData clientData, ATL_ARGS

#define	OBJCMD_ARGS_CALL clientData, ATL_ARGS_CALL

#define	CONSTR_ARGS OBJECT_ARGS

#define	SKIP_ARGS ATL_ARGS, int __skip

#define	SKIP_ARGS_CALL ATL_ARGS_CALL, __skip

#define	OtClass_ARGS OBJECT_ARGS

#define	OtClass_ARGS_CALL OBJECT_ARGS_CALL

#define	MkBufferListC_ARGS OBJECT_ARGS

#define	MkBufferListC_ARGS_CALL OBJECT_ARGS_CALL

#define	MkBufferC_ARGS OBJECT_ARGS

#define	MkBufferC_ARGS_CALL OBJECT_ARGS_CALL

#define	MkBufferStreamC_ARGS OBJECT_ARGS

#define	MkBufferStreamC_ARGS_CALL OBJECT_ARGS_CALL

#define	MkErrorC_ARGS OBJECT_ARGS

#define	MkErrorC_ARGS_CALL OBJECT_ARGS_CALL

#define	MkLogFileC_ARGS OBJECT_ARGS

#define	MkLogFileC_ARGS_CALL OBJECT_ARGS_CALL

#define	MkObjectC_ARGS OBJECT_ARGS

#define	MkObjectC_ARGS_CALL OBJECT_ARGS_CALL

#define	MkRuntimeC_ARGS OBJECT_ARGS

#define	MkRuntimeC_ARGS_CALL OBJECT_ARGS_CALL

#define	OT_SETUP_ARGS_ALL(d)

#define	OT_FRAME_CLEANUP if (frame != NULL) { Tcl_DecrRefCount(frame); frame = NULL; }

#define	OT_SETUP_VARARGS(min, max, d)

#define	OT_SETUP_CONSTRUCTOR_ARGS(...)

#define	OT_SETUP_ONEARG(d)

#define	OT_SETUP_NOARG(d)

#define	OT_SETUP_obj MK_OBJ obj = OBJ

#define	OT_SETUP_doc __attribute__((unused)) const MK_STRN __doc = __func__;

#define	SETUP_ARGS MK_RT_ARGS ATL_ARGS

#define	SETUP_ARGS_CALL MK_RT_CALL ATL_ARGS_CALL

#define	OT_CONSTRUCTOR_POST(x)

#define	OT_retObj_SET(val)

#define	OT_retObj_SET_isPtr ((long)retObj) > 0x1

#define	OT_retObj_SET_None retObj = ((OT_OBJ_T)0x1)

#define	OT_retObj_SET_isNone ((long)retObj) == 0x1

#define	OT_retObj_SET_Error retObj = NULL

#define	OT_retObj_SET_List retObj = Tcl_NewListObj(0,NULL)

#define	OT_retObj_APPEND(var)

#define	OT_retObj_RETURN

#define	OT_retObj_SET_BOL(nat)

#define	OT_retObj_SET_I8(nat)

#define	OT_retObj_SET_I16(nat)

#define	OT_retObj_SET_U16(nat)

#define	OT_retObj_SET_I32(nat)

#define	OT_retObj_SET_I64(nat)

#define	OT_retObj_SET_LLG(nat)

#define	OT_retObj_SET_FLT(nat)

#define	OT_retObj_SET_DBL(nat)

#define	OT_retObj_SET_BIN(nat, len)

#define	OT_retObj_SET_STR(nat)

#define	OT_retObj_SET_STRN(nat)

#define	OT_retObj_SET_LONG(nat)

#define	OT_retObj_SET_HDL(nat)

#define	OT_MK_CALL_0(hdl, cls, meth, ret)

#define	OT_MK_RT_SIG 0x62384526

#define	AtlClassName_buf_size 64

#define	regTclObj(t)

#define	regTclObj2(t, v)

#define	regTclCmd(t)

#define	regTclArray(m, t)

#define	OT_MK_ARGS OT_MK_RT_T amkrt, OT_ENV_T interp, MK_RT_ARGS

#define	OT_MK_CALL amkrt, interp, MK_RT_CALL

#define	OT_LNG_NULL NULL

#define	OT_LNG_UNDEF NULL

#define	OT_LNG_RETURN(ret, cmd)

#define	OT_LNG_NAME_FROM_OBJECT(_obj)

#define	OT_LNG_NAME_FROM_CLASS(_cls)

#define	OT_LNG_NAME_FROM_OBJ(_obj)

#define	OT_LNG_OBJ_CLASSNAME(val)

#define	OT_LNG_OBJ_CLASSNAME_SHORT(val)

#define	OT_OBJ_TYPE_STRING(val)

#define	OT_LNG_SELF_2_LNG(selfT)

#define	OT_LNG_OBJV(__skip)

#define	OT_OBJ_TO_CLASS(obj)

#define	OT_OBJ_TO_ENUM(str)

#define	OT_LNG_SET_VAR(var, val)

#define	OT_LNG_EMBEDDED(type, call, ...)

#define	OT_ERROR_LNG_RETURN return TCL_ERROR

#define	OT_ERROR_VAR_DEFAULT(...)

#define	OT_ERROR_STR_DEFAULT(...)

#define	OT_ERROR_TYPE(str)

#define	OT_ERROR_SOFT_CONSTRUCTOR(class)

#define	OT_ERROR_CONSTRUCTOR(class)

#define	OT_ERROR_NUMARGS(...)

#define	OT_ERROR_ABNORMAL(mng)

#define	OT_ERROR_APPEND_LNG_STACK()

#define	OT_ERROR_LNG_RETURN_VAR_ERROR(...)

#define	OT_ERROR_LNG_RETURN_STR_ERROR(...)

#define	OT_ERROR_LNG_RETURN_HDL_NAT_NULL(_hdl)

#define	OT_ERROR_LNG_RETURN_INVALID_CLASS(_clsHasS, _clsExpS)

#define	OT_ERROR_LNG_RETURN_HDL_IS_NULL()

#define	OT_Prefix_ARGS OT_MK_ARGS

#define	OT_Prefix_CALL OT_MK_CALL

#define	OT_Check_ARGS OT_MK_ARGS MK_MNG hdl, MK_STRN const arg, ATL_OBJV_ARGS, int *skipP

#define	OT_Check_CALL(arg)

#define	OT_Check_CALL2(arg)

#define	OT_CHECK_OPTIONAL(val)

#define	OT_CHECK_REQUIRED(val)

#define	OT_CHECK_NUM_ARGS(min, max)

#define	OT_CHECK_NOARGS

#define	OT_GET_CONSTR_NAME(ctor)

#define	OT_CHECK_BNP(val, len)

#define	OT_CHECK_BCP(val)

#define	OT_CHECK_BCPN(val)

#define	MkErrorC_Check(mng, PROC)

#define	MkErrorC_CheckD(PROC)

#define	OT_ERROR_META_2_LNG(m)

#define	OT_ERROR_LNG_2_META(m)

#define	check_LNG(code)

#define	check_NULL(code)

#define	check_META(code)

#define	OT_TMP_BOL_OBJ(val)

#define	OT_TMP_I8_OBJ(val)

#define	OT_TMP_I16_OBJ(val)

#define	OT_TMP_I32_OBJ(val)

#define	OT_TMP_I64_OBJ(val)

#define	OT_TMP_FLT_OBJ(val)

#define	OT_TMP_DBL_OBJ(val)

#define	OT_TMP_BIN_OBJ(val, len)

#define	OT_TMP_STR_OBJ(val)

#define	OT_TMP_CST_OBJ(val)

#define	OT_OBJECT_DELETE_SOFT(O)

#define	OT_OBJECT_DELETE_HARD(O)

#define	OT_OBJECT_DISPOSE(O)

#define	OT_OBJECT_DELETE(O)

#define	OT_REF_INCR(_obj)

#define	OT_REF_DECR(_obj)

#define	OT_REF_INCR_AND_RETURN(_obj)

#define	OT_REF_DECR_AND_NULL(_obj)

#define	MkCallS_SIG 0x30364351

#define	MkCallLog(c)

#define	MkProcResolve_maxArgsLen 16

#define	OT_OBJ_COPY(o)

#define	CallProlog(m)

#define	NO_OtCheckEnum

#define	NO_OtCheckEnumFlag

#define	NO_TestObject

#define	OT_CHECK_ENUM(ename, val)

#define	OT_CHECK_ENUM_FLAG(ename, val)

#define	OT_CHECK_LNGTMPL(val, func)

#define	OT_CHECK_bool(val)

#define	OT_CHECK_NB1(val)

#define	OT_CHECK_NI1(val)

#define	OT_CHECK_NI2(val)

#define	OT_CHECK_U2N(val)

#define	OT_CHECK_NI4(val)

#define	OT_CHECK_U4N(val)

#define	OT_CHECK_NI8(val)

#define	OT_CHECK_IXN(val)

#define	OT_CHECK_NF4(val)

#define	OT_CHECK_NF8(val)

#define	OT_CHECK_STRN(val)

#define	OT_CHECK_NIL(val)

#define	OT_CHECK_NIH(val)

#define	OT_CHECK_STRN_NULL(val)

#define	OT_CHECK_C_COPY(val, size)

#define	OT_GET_CALL_PROC MK(Get_Call_Proc)(OT_MK_CALL &frame)

#define	OT_GET_CALL_FILE MK(Get_Call_File)(OT_MK_CALL &frame)

#define	OT_GET_CALL_LINE MK(Get_Call_Line)(OT_MK_CALL &frame)

#define	FRAME_ARGS OT_MK_ARGS OT_OBJ_T * frameP

#define	FRAME_CALL OT_MK_CALL &frame

#define	WNA(min, max, txt)

#define	AltClassDef(...)

#define	AtlUnknownSetup(...)

#define	OT_VARFRAME_CREATE

#define	OT_VARFRAME_DELETE

#define	OT_VARFRAME_ARGS MK_RT_ARGS OT_VARFRAME varframe

#define	OT_VARFRAME_CALL MK_RT_CALL varframe

#define	OT_VARFRAME_OBJ_RESULT(itp)

#define	OT_EVAL_ARGS OT_ENV_T interp, int objc, OT_OBJ_T const objv[], int flags

#define	OT_EVAL_CALL interp, objc, objv , flags

#define	OT_NEW_Mk_enum_OBJ(typ, val)

#define	Get_MkErrorE_FromObj_path MK(Get_MkErrorE_FromObj)

#define	Get_MkIdSE_FromObj_path MK(Get_MkIdSE_FromObj)

#define	Get_MkTimeoutE_FromObj_path MK(Get_MkTimeoutE_FromObj)

#define	Get_MkTypeE_FromObj_path MK(Get_MkTypeE_FromObj)

#define	SETUP_interp MK_UNUSED OT_ENV_T interp = amkrt->interp

#define	SETUP_moxrt

#define	SETUP_amkrt(r)

#define	OT_SELF_O(o)

#define	OT_SELF_X(x)

#define	OT_SELF_M(m)

#define	OT_SELF selfO

#define	SetupHdlFromMetaData_init_2(_SHORT)

#define	SetupHdlFromMetaData_2(_SHORT)

#define	SetupHdlFromMetaData__null_allow_2(_SHORT)

#define	SetupHdlConstr(_ClassC)

#define	SetupHdlStatic(_ClassC)

#define	PTR2VAL(nat)

#define	SELF2VAL(slf)

#define	CLS2VAL(cls)

#define	META2VAL_X(x)

#define	META2VAL_O(o)

#define	I82VAL(nat)

#define	BOL2VAL(nat)

#define	I162VAL(nat)

#define	U162VAL(nat)

#define	INT2VAL(nat)

#define	I642VAL(nat)

#define	HDL2VAL(nat)

#define	LLG2VAL(nat)

#define	FLT2VAL(nat)

#define	DBL2VAL(nat)

#define	STRN2VAL(nat)

#define	BIN2VAL(ptr, len)

#define	STR2VAL(ptr)

#define	STR2VAL_2(ptr, len)

#define	LONG2VAL(nat)

#define	VAL2STR(val)

#define	VAL2STR_NULL(val)

#define	VAL2SELF(val)

#define	VAL2OBJ(val)

#define	VAL2BFL(val)

#define	VAL2MNG(val)

#define	AtlInfoScript(s)

#define	AtlInfoExists(l)

#define	AtlArrayExists(l)

#define	AtlClassIsN(...)

#define	OT_ATL_EXTERN __attribute__ ((visibility("default")))

#define	AtlClassDefGetNN(...)

#define	AtlGetClassFrmNsPtr(nsP, flg)

#define	AtlGetClassFromProc(cmdT)

#define	OT_TMP_BAC_OBJ(val)

#define	MkBufferListC_rt (*amkrt)

#define	MkBufferListC_lngO (MkBufferListC_rt.AtlMkBufferListC)

#define	MkBufferListCTT (MkBufferListC_rt.AtlMkBufferListCTT)

#define	MkBufferListC_ObjNew(nat)

#define	OT_TMP_BFL_OBJ(nat)

#define	OT_retObj_SET_BFL(nat)

#define	MkBufferC_rt (*amkrt)

#define	MkBufferC_lngO (MkBufferC_rt.AtlMkBufferC)

#define	MkBufferCTT (MkBufferC_rt.AtlMkBufferCTT)

#define	MkBufferC_ObjNew(nat)

#define	OT_TMP_BUF_OBJ(nat)

#define	OT_retObj_SET_BUF(nat)

#define	MkBufferStreamC_rt (*amkrt)

#define	MkBufferStreamC_lngO (MkBufferStreamC_rt.AtlMkBufferStreamC)

#define	MkBufferStreamCTT (MkBufferStreamC_rt.AtlMkBufferStreamCTT)

#define	MkBufferStreamC_ObjNew(nat)

#define	OT_TMP_BUS_OBJ(nat)

#define	OT_retObj_SET_BUS(nat)

#define	MkErrorC_rt (*amkrt)

#define	MkErrorC_lngO (MkErrorC_rt.AtlMkErrorC)

#define	MkErrorCTT (MkErrorC_rt.AtlMkErrorCTT)

#define	MkErrorC_ObjNew(nat)

#define	OT_TMP_ERR_OBJ(nat)

#define	OT_retObj_SET_ERR(nat)

#define	MkLogFileC_rt (*amkrt)

#define	MkLogFileC_lngO (MkLogFileC_rt.AtlMkLogFileC)

#define	MkLogFileCTT (MkLogFileC_rt.AtlMkLogFileCTT)

#define	MkLogFileC_ObjNew(nat)

#define	OT_TMP_LFL_OBJ(nat)

#define	OT_retObj_SET_LFL(nat)

#define	MkObjectC_rt (*amkrt)

#define	MkObjectC_lngO (MkObjectC_rt.AtlMkObjectC)

#define	MkObjectCTT (MkObjectC_rt.AtlMkObjectCTT)

#define	MkObjectC_ObjNew(nat)

#define	OT_TMP_OBJ_OBJ(nat)

#define	OT_retObj_SET_OBJ(nat)

#define	MkRuntimeC_rt (*amkrt)

#define	MkRuntimeC_lngO (MkRuntimeC_rt.AtlMkRuntimeC)

#define	MkRuntimeCTT (MkRuntimeC_rt.AtlMkRuntimeCTT)

#define	MkRuntimeC_ObjNew(nat)

#define	OT_TMP_RT_OBJ(nat)

#define	OT_retObj_SET_RT(nat)

#define	ME_REF_MkBinaryR MkBinaryR

#define	OT_GET__ME_REF_MkBinaryR(b)

#define	VAL2MkBinaryR(obj)

#define	OT_CHECK__ME_REF_MkBinaryR(val)

#define	ME_REF_MkStringR MkStringR

#define	OT_GET__ME_REF_MkStringR(s)

#define	VAL2MkStringR(obj)

#define	OT_CHECK__ME_REF_MkStringR(val)

#define	Ot_GetBooleanFromObj(val)

#define	ot_fixstr(_s, _l)

#define	ot_fixstrobj(_s)

#define	ot_enum_append(_o, _s)

#define	printLng(var)

#define	printXLng(x, var)

#define	printXLngObj(x, var)

#define	printLLngObj(var)

#define	printLngObj(var)

#define	printLngObj2(var)

#define	printLngErrorCode()

#define	printLngErrorInfo()

#define	printObjv

#define	printXObjv(x)

#define	printAry(c, o)

#define	printAryDetail(c, o)

#define	printXAry(x, c, o)

#define	printXAryDetail(x, c, o)

#define	printAry3(txt, c, o)

#define	printAryX(x, t, c, o)

#define	printAryL(t, c, o)

#define	xstr(s)

#define	str(s)

#define	printLngClass(clsC)

#define	printLngObject(objO)

#define	Self2PtrNN(myP)

#define	Self2PtrN(myO)

#define	__doc "AtomObjNew"

#define	AtomInit(...)

#define	AtomCreate(...)

#define	AtomMake(...)

#define	AtomCreateNULL(...)

#define	AtomCreateCONSTR(...)

#define	Atl_EvalObjv(...)

Typedefs
typedef MOX_PTR	OT_PTR_T

typedef MOX_ENV_T	OT_ENV_T

typedef MOX_NS_T	OT_NS_T

typedef MOX_CLS_T	OT_CLS_T

typedef MOX_OBJ_T	OT_OBJ_T

typedef MK_STRN	OT_ENUM_T

typedef MOX_OBJ_T	OT_SELF_T

typedef enum OT_MK_RT_StatusE	OT_MK_RT_StatusE

typedef OT_MK_RT_S *	OT_MK_RT_T

typedef enum MkCallTypeE	MkCallTypeE

typedef struct MkCallS	MkCallS

typedef int(*	LookupClassF) (SKIP_ARGS)

typedef struct MkVarFrameS *	OT_VARFRAME

typedef struct AtlClassDefS	AtlClassDefS

typedef AtlClassDefS *	AtlClassDefT

Enumerations
enum	OT_MK_RT_StatusE { OT_MK_RT_STATUS_NEW = 0 , OT_MK_RT_STATUS_ONEXIT = 1 , OT_MK_RT_STATUS_DELETED = 2 }

enum	MkCallTypeE { MkCallS_init = 0 , MkCallS_null = 1 , MkCallS_proc = 2 , MkCallS_static = 3 , MkCallS_own_method = 4 , MkCallS_other_method = 5 , MkCallS_error = 6 }

Functions
int	atlmkkernel_OT_ERROR_LNG_RETURN_HDL_IS_NULL (OT_MK_ARGS OT_CLS_T, OT_OBJ_T)

static OT_OBJ_T	atlmkkernel_AtomObjNew (OT_MK_ARGS MK_OBJ, MK_PTR)

static bool	atlmkkernel_AtomDeleteHard (OT_MK_ARGS OT_SELF_T)

static void	atlmkkernel_AtomDispose (OT_MK_ARGS OT_SELF_T)

MK_ATL_EXTERN void	atlmkkernel_CallLog (MK_RT mkrt, MkCallS *call, MK_STRN caller)

MK_ATL_EXTERN enum MkErrorE	atlmkkernel_ProcResolve (OT_MK_ARGS MK_MNG, struct MkCallS *)

static void	atlmkkernel_ProcResolveAppendArgs (struct MkCallS call, int objcP, OT_OBJ_T objv[])

static void	atlmkkernel_CallFree (MK_CBP *dataP)

static void	atlmkkernel_CallFreeOnce (MK_CBP *callP)

static void	atlmkkernel_CallCopy (MK_RT mkrt, MK_OBJ obj, MK_CBP *dataP)

MK_ATL_EXTERN enum MkErrorE	atlmkkernel_Obj_AsSTR_COPY (OT_Check_ARGS, MK_STR, size_t)

MK_ATL_EXTERN MK_STRN	atlmkkernel_Get_Call_Proc (FRAME_ARGS)

MK_ATL_EXTERN MK_STRN	atlmkkernel_Get_Call_File (FRAME_ARGS)

MK_ATL_EXTERN MK_I32	atlmkkernel_Get_Call_Line (FRAME_ARGS)

MK_ATL_EXTERN bool	atlmkkernel_Get_Call_Stack (OT_MK_ARGS MK_ERR const, int)

MK_ATL_EXTERN int	atlmkkernel_EnumFlagWorker (MK_RT mkrt, OT_ENV_T, const struct LookupEnumE , OT_OBJ_T, int )

MK_ATL_EXTERN int	atlmkkernel_MkBufferC_ToObject (MkBufferC_ARGS)

MK_ATL_EXTERN int	atlmkkernel_MkBufferC_GetBFL (MkBufferC_ARGS)

MK_ATL_EXTERN int	atlmkkernel_MkBufferC_Temp (MkBufferC_ARGS)

MK_ATL_EXTERN int	atlmkkernel_MkBufferListC_ToList (MkBufferListC_ARGS)

MK_ATL_EXTERN bool	atlmkkernel_TestObject (OT_Prefix_ARGS OT_OBJ_T, OT_CLS_T, MK_OBJ , MkTestClassE )

MK_ATL_EXTERN MK_STRN	atlmkkernel_ClassName (OT_Prefix_ARGS OT_OBJ_T, bool)

MK_ATL_EXTERN MK_STRN	atlmkkernel_GetTypeFromObj (OT_Prefix_ARGS OT_OBJ_T, bool *)

MK_ATL_EXTERN OT_CLS_T	atlmkkernel_ClassDef (OT_MK_ARGS MK_TYP, OT_NS_T *)

MK_ATL_EXTERN int	atlmkkernel_UnknownSetup (OT_ENV_T, const OtObjProcDefS[], ClientData)

static OT_OBJ_T	atlmkkernel_OT_VARFRAME_ADD (OT_VARFRAME_ARGS, OT_OBJ_T add)

MK_ATL_EXTERN MK_STR	atlmkkernel_PrintObj (OT_Prefix_ARGS MK_STRN, OT_OBJ_T)

MK_ATL_EXTERN void	atlmkkernel_PrintObj2 (OT_Prefix_ARGS MK_STRN, OT_OBJ_T, MK_STRN)

MK_ATL_EXTERN int	atlmkkernel_EvalObjvVA (OT_ENV_T, int,...)

MK_ATL_EXTERN MK_STRN	atlmkkernel_ObjvToString (MK_RT mkrt, MK_STRN cls, ATL_ARGS)

MK_ATL_EXTERN enum MkErrorE	atlmkkernel_LngListToMkBufferListS (OT_Prefix_ARGS OT_OBJ_T, MK_BFL *)

static OT_OBJ_T	atlmkkernel_EvalObjvRt (OT_EVAL_ARGS)

static OT_OBJ_T	atlmkkernel_EvalObjvFr (OT_VARFRAME_ARGS, OT_EVAL_ARGS)

static int	atlmkkernel_EvalObjv (OT_EVAL_ARGS)

MK_ATL_EXTERN int	atlmkkernel_FillNamespace (OT_ENV_T, const OtObjProcDefS[], ClientData)

MK_ATL_EXTERN MK_ERR	atlmkkernel_MkExceptionC_Catch (OT_Prefix_ARGS MK_MNG const, MK_EXP const, MK_STRN const)

MK_ATL_EXTERN void	atlmkkernel_MkExceptionC_Raise (OT_Prefix_ARGS MK_MNGN const, MK_STRN const, MK_STRN const, MK_I32)

void	atlmkkernel_ObjectDeleteFree (MkObjectDeleteFreeF_ARGS)

enum MkErrorE	atlmkkernel_ObjectDeleteCall (MkObjectDeleteCallF_ARGS)

MK_ATL_EXTERN OT_OBJ_T	atlmkkernel_MkErrorE_ToString (const enum MkErrorE)

MK_ATL_EXTERN OT_OBJ_T	atlmkkernel_MkIdSE_ToString (const enum MkIdSE)

MK_ATL_EXTERN OT_OBJ_T	atlmkkernel_MkTimeoutE_ToString (const enum MkTimeoutE)

MK_ATL_EXTERN OT_OBJ_T	atlmkkernel_MkTypeE_ToString (const enum MkTypeE)

MK_ATL_EXTERN int	atlmkkernel_Get_MkErrorE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkErrorE *ret)

MK_ATL_EXTERN int	atlmkkernel_Get_MkIdSE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkIdSE *ret)

MK_ATL_EXTERN int	atlmkkernel_Get_MkTimeoutE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTimeoutE *ret)

MK_ATL_EXTERN int	atlmkkernel_Get_MkTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTypeE *ret)

static OT_OBJ_T	atlmkkernel_STRN2VAL (MK_STRN val)

MK_ATL_EXTERN MK_STRN	atlmkkernel_AtlInfoScript (OT_MK_ARGS MK_STRN)

MK_ATL_EXTERN int	atlmkkernel_AtlInfoExists (OT_MK_ARGS OT_OBJ_T)

MK_ATL_EXTERN int	atlmkkernel_AtlArrayExists (OT_MK_ARGS OT_OBJ_T)

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

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

static OT_CLS_T	atlmkkernel_GetClassFrmNsPtr (OT_MK_ARGS OT_NS_T nsP, int flags)

static OT_CLS_T	atlmkkernel_GetClassFromProc (OT_MK_ARGS Tcl_Command cmdT)

int	atlmkkernel_pMkBufferListC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkBufferListC_ObjNew (OT_MK_ARGS MkBufferListC_type hdl)

int	atlmkkernel_pMkBufferC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkBufferC_ObjNew (OT_MK_ARGS MkBufferC_type hdl)

int	atlmkkernel_pMkBufferStreamC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkBufferStreamC_ObjNew (OT_MK_ARGS MkBufferStreamC_type hdl)

int	atlmkkernel_pMkErrorC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkErrorC_ObjNew (OT_MK_ARGS MkErrorC_type hdl)

int	atlmkkernel_pMkLogFileC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkLogFileC_ObjNew (OT_MK_ARGS MkLogFileC_type hdl)

int	atlmkkernel_pMkObjectC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkObjectC_ObjNew (OT_MK_ARGS MkObjectC_type hdl)

int	atlmkkernel_pMkRuntimeC_Init (OT_MK_ARGS OT_NS_T)

static MK_ARTIFICIAL OT_OBJ_T	atlmkkernel_MkRuntimeC_ObjNew (OT_MK_ARGS MkRuntimeC_type hdl)

static MkStringR	Ot_GetStringFromObj (OT_OBJ_T tclO)

static void	Ot_DecrRefCount (OT_OBJ_T tclO)

static MK_MNG	atlmkkernel_Self2PtrNN (OT_NS_T nsP)

static MK_MNG	atlmkkernel_Self2PtrN (OT_ENV_T interp, OT_SELF_T myO)

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 cls, 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 cls, OT_OBJ_T nameO, OT_OBJ_T nsO, MK_PTR const env)

static OT_SELF_T	atlmkkernel_AtomCreateNULL (OT_MK_ARGS OT_CLS_T cls, MK_STRN name, MK_PTR const env)

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

static void	atlmkkernel_AtomUnlink (OT_MK_ARGS OT_SELF_T selfO)

Variables
__thread OT_MK_RT_S	amkrtR

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.h.

Macro Definition Documentation

◆ __doc

#define __doc "AtomObjNew"

◆ AltClassDef

#define AltClassDef ( ... )

Value:

MK(ClassDef)(OT_MK_CALL __VA_ARGS__)

MK

#define MK(n)

Definition LibMkKernel_atl.h:89

OT_MK_CALL

#define OT_MK_CALL

Definition LibMkKernel_atl.h:322

Definition at line 769 of file LibMkKernel_atl.h.

◆ ATL_ARGS

#define ATL_ARGS OT_ENV_T interp, int objc, OT_OBJ_T const objv[]

Definition at line 102 of file LibMkKernel_atl.h.

◆ ATL_ARGS_CALL

#define ATL_ARGS_CALL interp, objc, objv

Definition at line 103 of file LibMkKernel_atl.h.

◆ Atl_EvalObjv

#define Atl_EvalObjv ( ... )

Value:

Tcl_EvalObjv(__VA_ARGS__)

Definition at line 1522 of file LibMkKernel_atl.h.

◆ ATL_OBJV_ARGS

#define ATL_OBJV_ARGS int objc, OT_OBJ_T const objv[]

Definition at line 99 of file LibMkKernel_atl.h.

◆ ATL_OBJV_ARGS_CALL

#define ATL_OBJV_ARGS_CALL objc, objv

Definition at line 100 of file LibMkKernel_atl.h.

◆ AtlArrayExists

#define AtlArrayExists ( l )

Value:

MK(AtlArrayExists)(OT_MK_CALL l)

AtlArrayExists

#define AtlArrayExists(l)

Definition LibMkKernel_atl.h:1035

Definition at line 1035 of file LibMkKernel_atl.h.

◆ AtlClassDefGetNN

#define AtlClassDefGetNN ( ... )

Value:

NS(AtlClassDefGetNN)(OT_MK_CALL __VA_ARGS__)

NS

#define NS(n)

Definition LibMkKernel_atl.h:91

AtlClassDefGetNN

#define AtlClassDefGetNN(...)

Definition LibMkKernel_atl.h:1071

Definition at line 1071 of file LibMkKernel_atl.h.

◆ AtlClassIsN

#define AtlClassIsN ( ... )

Value:

OT_LNG_EMBEDDED(bool,MK(AtlClassIsN),OT_MK_CALL __VA_ARGS__)

OT_LNG_EMBEDDED

#define OT_LNG_EMBEDDED(type, call,...)

Definition LibMkKernel_atl.h:349

AtlClassIsN

#define AtlClassIsN(...)

Definition LibMkKernel_atl.h:1038

Definition at line 1038 of file LibMkKernel_atl.h.

◆ AtlClassName_buf_size

#define AtlClassName_buf_size 64

Definition at line 261 of file LibMkKernel_atl.h.

◆ AtlGetClassFrmNsPtr

#define AtlGetClassFrmNsPtr	(		nsP,
			flg )

Value:

MK(GetClassFrmNsPtr)(OT_MK_CALL nsP, flg)

Definition at line 1074 of file LibMkKernel_atl.h.

◆ AtlGetClassFromProc

#define AtlGetClassFromProc ( cmdT )

Value:

MK(GetClassFromProc)(OT_MK_CALL cmdT)

Definition at line 1087 of file LibMkKernel_atl.h.

◆ AtlInfoExists

#define AtlInfoExists ( l )

Value:

MK(AtlInfoExists)(OT_MK_CALL l)

AtlInfoExists

#define AtlInfoExists(l)

Definition LibMkKernel_atl.h:1032

Definition at line 1032 of file LibMkKernel_atl.h.

◆ AtlInfoScript

#define AtlInfoScript ( s )

Value:

MK(AtlInfoScript)(OT_MK_CALL s)

AtlInfoScript

#define AtlInfoScript(s)

Definition LibMkKernel_atl.h:1029

Definition at line 1029 of file LibMkKernel_atl.h.

◆ AtlUnknownSetup

#define AtlUnknownSetup ( ... )

Value:

MK(UnknownSetup) (interp, __VA_ARGS__)

Definition at line 778 of file LibMkKernel_atl.h.

◆ AtomCreate

#define AtomCreate ( ... )

Value:

MK(AtomCreate)(OT_MK_CALL __VA_ARGS__)

AtomCreate

#define AtomCreate(...)

Definition LibMkKernel_atl.h:1426

Definition at line 1426 of file LibMkKernel_atl.h.

◆ AtomCreateCONSTR

#define AtomCreateCONSTR ( ... )

Value:

MK(AtomCreateCONSTR)(OT_MK_CALL __VA_ARGS__)

AtomCreateCONSTR

#define AtomCreateCONSTR(...)

Definition LibMkKernel_atl.h:1458

Definition at line 1458 of file LibMkKernel_atl.h.

◆ AtomCreateNULL

#define AtomCreateNULL ( ... )

Value:

MK(AtomCreateNULL)(OT_MK_CALL __VA_ARGS__)

AtomCreateNULL

#define AtomCreateNULL(...)

Definition LibMkKernel_atl.h:1448

Definition at line 1448 of file LibMkKernel_atl.h.

◆ AtomInit

#define AtomInit ( ... )

Value:

MK(AtomInit)(OT_MK_CALL __VA_ARGS__)

AtomInit

#define AtomInit(...)

Definition LibMkKernel_atl.h:1411

Definition at line 1411 of file LibMkKernel_atl.h.

◆ AtomMake

#define AtomMake ( ... )

Value:

MK(AtomMake)(OT_MK_CALL __VA_ARGS__)

AtomMake

#define AtomMake(...)

Definition LibMkKernel_atl.h:1437

Definition at line 1437 of file LibMkKernel_atl.h.

◆ BIN2VAL

#define BIN2VAL	(		ptr,
			len )

Value:

Tcl_NewByteArrayObj((const unsigned char*)ptr,(int)len)

ptr

MK_STRN ptr

Definition high_lng.h:130

Definition at line 994 of file LibMkKernel_atl.h.

◆ BOL2VAL

#define BOL2VAL ( nat )

Value:

Tcl_NewBooleanObj(nat)

Definition at line 984 of file LibMkKernel_atl.h.

◆ CallProlog

#define CallProlog ( m )

Definition at line 628 of file LibMkKernel_atl.h.

#define CallProlog(m)                                                       \
  /* 1. setup runtime */                                                    \
  OT_MK_RT_T const amkrt = call->amkrt;                                     \
    assert (amkrt->signature == OT_MK_RT_SIG);                              \
  OT_ENV_T const interp = amkrt->interp;                                    \
    assert (!Tcl_InterpDeleted(interp));                                    \
                                                                            \
  /* 2. setup arguments */                                                  \
  Tcl_Obj *objv[5+MkProcResolve_maxArgsLen];                                \
                                                                            \
  rescan:                                                                   \
    int objc = 1;                                                           \
                                                                            \
    /* 1. setup methode */                                                  \
    objv[0] = call->mth;                                                    \
                                                                            \
    /* 2. setup my */                                                       \
    switch (call->type) {                                                   \
      case MkCallS_own_method:                                              \
        dbgMsg("%s","MkCallS_own_method");                                  \
        break;                                                              \
      case MkCallS_static:                                                  \
        dbgMsg("%s","MkCallS_static");                                      \
        break;                                                              \
      case MkCallS_proc:                                                    \
        dbgMsg("%s","MkCallS_proc");                                        \
        break;                                                              \
      case MkCallS_other_method:                                            \
        dbgMsg("%s","MkCallS_other_method");                                \
        objv[objc++] = call->my;                                            \
        break;                                                              \
      case MkCallS_init: {                                                  \
        dbgMsg("%s","MkCallS_init");                                        \
        check_META(MK(ProcResolve)(OT_MK_CALL (m), call)) goto error_mq;    \
        goto rescan;                                                        \
      }                                                                     \
      case MkCallS_null:                                                    \
        dbgMsg("%s","MkCallS_null");                                        \
        return MK_OK;                                                       \
      case MkCallS_error:                                                   \
        dbgMsg("%s","MkCallS_error");                                       \
        goto error;                                                         \
    }

◆ check_LNG

#define check_LNG ( code )

Value:

if ((code) != TCL_OK)

Definition at line 472 of file LibMkKernel_atl.h.

◆ check_META

#define check_META ( code )

Value:

if (MkErrorCheckI(code))

Definition at line 474 of file LibMkKernel_atl.h.

◆ check_NULL

#define check_NULL ( code )

Value:

if ((code) == NULL)

Definition at line 473 of file LibMkKernel_atl.h.

◆ CLS2VAL

#define CLS2VAL ( cls )

Value:

(cls)

Definition at line 979 of file LibMkKernel_atl.h.

◆ CONSTR_ARGS

#define CONSTR_ARGS OBJECT_ARGS

Definition at line 111 of file LibMkKernel_atl.h.

◆ DBL2VAL

#define DBL2VAL ( nat )

Value:

Tcl_NewDoubleObj(nat)

Definition at line 992 of file LibMkKernel_atl.h.

◆ FLT2VAL

#define FLT2VAL ( nat )

Value:

Tcl_NewDoubleObj(nat)

Definition at line 991 of file LibMkKernel_atl.h.

◆ FRAME_ARGS

#define FRAME_ARGS OT_MK_ARGS OT_OBJ_T * frameP

Definition at line 725 of file LibMkKernel_atl.h.

◆ FRAME_CALL

#define FRAME_CALL OT_MK_CALL &frame

Definition at line 726 of file LibMkKernel_atl.h.

◆ Get_MkErrorE_FromObj_path

#define Get_MkErrorE_FromObj_path MK(Get_MkErrorE_FromObj)

Definition at line 902 of file LibMkKernel_atl.h.

◆ Get_MkIdSE_FromObj_path

#define Get_MkIdSE_FromObj_path MK(Get_MkIdSE_FromObj)

Definition at line 905 of file LibMkKernel_atl.h.

◆ Get_MkTimeoutE_FromObj_path

#define Get_MkTimeoutE_FromObj_path MK(Get_MkTimeoutE_FromObj)

Definition at line 908 of file LibMkKernel_atl.h.

◆ Get_MkTypeE_FromObj_path

#define Get_MkTypeE_FromObj_path MK(Get_MkTypeE_FromObj)

Definition at line 911 of file LibMkKernel_atl.h.

◆ HDL2VAL

#define HDL2VAL ( nat )

Value:

Tcl_NewIntObj(nat)

Definition at line 989 of file LibMkKernel_atl.h.

◆ HEADER

#define HEADER

Definition at line 38 of file LibMkKernel_atl.h.

◆ I162VAL

#define I162VAL ( nat )

Value:

Tcl_NewIntObj(nat)

Definition at line 985 of file LibMkKernel_atl.h.

◆ I642VAL

#define I642VAL ( nat )

Value:

Tcl_NewWideIntObj(nat)

Definition at line 988 of file LibMkKernel_atl.h.

◆ I82VAL

#define I82VAL ( nat )

Value:

Tcl_NewIntObj(nat)

Definition at line 983 of file LibMkKernel_atl.h.

◆ INT2VAL

#define INT2VAL ( nat )

Value:

Tcl_NewIntObj(nat)

Definition at line 987 of file LibMkKernel_atl.h.

◆ LLG2VAL

#define LLG2VAL ( nat )

Value:

Tcl_NewWideIntObj(nat)

Definition at line 990 of file LibMkKernel_atl.h.

◆ LONG2VAL

#define LONG2VAL ( nat )

Value:

Tcl_NewLongObj(nat)

Definition at line 997 of file LibMkKernel_atl.h.

◆ ME_REF_MkBinaryR

#define ME_REF_MkBinaryR MkBinaryR

Definition at line 1240 of file LibMkKernel_atl.h.

◆ ME_REF_MkStringR

#define ME_REF_MkStringR MkStringR

Definition at line 1251 of file LibMkKernel_atl.h.

◆ META2VAL_O

#define META2VAL_O ( o )

Value:

SELF2VAL(OT_SELF_O(o))

OT_SELF_O

#define OT_SELF_O(o)

Definition LibMkKernel_atl.h:927

SELF2VAL

#define SELF2VAL(slf)

Definition LibMkKernel_atl.h:978

Definition at line 981 of file LibMkKernel_atl.h.

◆ META2VAL_X

#define META2VAL_X ( x )

Value:

SELF2VAL(OT_SELF_X(x))

OT_SELF_X

#define OT_SELF_X(x)

Definition LibMkKernel_atl.h:928

Definition at line 980 of file LibMkKernel_atl.h.

◆ META_CONTEXT_S

#define META_CONTEXT_S hdl

Definition at line 95 of file LibMkKernel_atl.h.

◆ MK

#define MK ( n )

Value:

atlmkkernel_ ## n

Definition at line 89 of file LibMkKernel_atl.h.

◆ MK_ATL_EXTERN

#define MK_ATL_EXTERN

static library

Definition at line 62 of file LibMkKernel_atl.h.

◆ MK_ATL_EXTERN_DATA

#define MK_ATL_EXTERN_DATA extern

Definition at line 85 of file LibMkKernel_atl.h.

◆ MkBufferC_ARGS

#define MkBufferC_ARGS OBJECT_ARGS

Definition at line 125 of file LibMkKernel_atl.h.

◆ MkBufferC_ARGS_CALL

#define MkBufferC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 126 of file LibMkKernel_atl.h.

◆ MkBufferC_lngO

#define MkBufferC_lngO (MkBufferC_rt.AtlMkBufferC)

Definition at line 1122 of file LibMkKernel_atl.h.

◆ MkBufferC_ObjNew

#define MkBufferC_ObjNew ( nat )

Value:

MK(MkBufferC_ObjNew) (OT_MK_CALL nat)

MkBufferC_ObjNew

#define MkBufferC_ObjNew(nat)

Definition LibMkKernel_atl.h:1128

Definition at line 1128 of file LibMkKernel_atl.h.

◆ MkBufferC_rt

#define MkBufferC_rt (*amkrt)

Definition at line 1121 of file LibMkKernel_atl.h.

◆ MkBufferCTT

#define MkBufferCTT (MkBufferC_rt.AtlMkBufferCTT)

Definition at line 1124 of file LibMkKernel_atl.h.

◆ MkBufferListC_ARGS

#define MkBufferListC_ARGS OBJECT_ARGS

Definition at line 123 of file LibMkKernel_atl.h.

◆ MkBufferListC_ARGS_CALL

#define MkBufferListC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 124 of file LibMkKernel_atl.h.

◆ MkBufferListC_lngO

#define MkBufferListC_lngO (MkBufferListC_rt.AtlMkBufferListC)

Definition at line 1103 of file LibMkKernel_atl.h.

◆ MkBufferListC_ObjNew

#define MkBufferListC_ObjNew ( nat )

Value:

MK(MkBufferListC_ObjNew) (OT_MK_CALL nat)

MkBufferListC_ObjNew

#define MkBufferListC_ObjNew(nat)

Definition LibMkKernel_atl.h:1109

Definition at line 1109 of file LibMkKernel_atl.h.

◆ MkBufferListC_rt

#define MkBufferListC_rt (*amkrt)

Definition at line 1102 of file LibMkKernel_atl.h.

◆ MkBufferListCTT

#define MkBufferListCTT (MkBufferListC_rt.AtlMkBufferListCTT)

Definition at line 1105 of file LibMkKernel_atl.h.

◆ MkBufferStreamC_ARGS

#define MkBufferStreamC_ARGS OBJECT_ARGS

Definition at line 127 of file LibMkKernel_atl.h.

◆ MkBufferStreamC_ARGS_CALL

#define MkBufferStreamC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 128 of file LibMkKernel_atl.h.

◆ MkBufferStreamC_lngO

#define MkBufferStreamC_lngO (MkBufferStreamC_rt.AtlMkBufferStreamC)

Definition at line 1141 of file LibMkKernel_atl.h.

◆ MkBufferStreamC_ObjNew

#define MkBufferStreamC_ObjNew ( nat )

Value:

MK(MkBufferStreamC_ObjNew) (OT_MK_CALL nat)

MkBufferStreamC_ObjNew

#define MkBufferStreamC_ObjNew(nat)

Definition LibMkKernel_atl.h:1147

Definition at line 1147 of file LibMkKernel_atl.h.

◆ MkBufferStreamC_rt

#define MkBufferStreamC_rt (*amkrt)

Definition at line 1140 of file LibMkKernel_atl.h.

◆ MkBufferStreamCTT

#define MkBufferStreamCTT (MkBufferStreamC_rt.AtlMkBufferStreamCTT)

Definition at line 1143 of file LibMkKernel_atl.h.

◆ MkCallLog

#define MkCallLog ( c )

Value:

MK(CallLog) ( MK_RT_CALL_NULL (c), __func__ )

MK_RT_CALL_NULL

#define MK_RT_CALL_NULL

Definition at line 539 of file LibMkKernel_atl.h.

◆ MkCallS_SIG

#define MkCallS_SIG 0x30364351

Definition at line 513 of file LibMkKernel_atl.h.

◆ MkErrorC_ARGS

#define MkErrorC_ARGS OBJECT_ARGS

Definition at line 129 of file LibMkKernel_atl.h.

◆ MkErrorC_ARGS_CALL

#define MkErrorC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 130 of file LibMkKernel_atl.h.

◆ MkErrorC_Check

#define MkErrorC_Check	(		mng,
			PROC )

Value:

  if (unlikely(MkErrorCheckI(PROC))) { \
    OT_ERROR_META_2_LNG(mng); goto error; \
  }

Definition at line 459 of file LibMkKernel_atl.h.

#define MkErrorC_Check(mng,PROC) \
  if (unlikely(MkErrorCheckI(PROC))) { \
    OT_ERROR_META_2_LNG(mng); goto error; \
  }

◆ MkErrorC_CheckD

#define MkErrorC_CheckD ( PROC )

Value:

  if (unlikely(MkErrorCheckI(PROC))) { \
    OT_ERROR_META_2_LNG(hdl); goto error; \
  }

Definition at line 464 of file LibMkKernel_atl.h.

#define MkErrorC_CheckD(PROC) \
  if (unlikely(MkErrorCheckI(PROC))) { \
    OT_ERROR_META_2_LNG(hdl); goto error; \
  }

◆ MkErrorC_lngO

#define MkErrorC_lngO (MkErrorC_rt.AtlMkErrorC)

Definition at line 1160 of file LibMkKernel_atl.h.

◆ MkErrorC_ObjNew

#define MkErrorC_ObjNew ( nat )

Value:

MK(MkErrorC_ObjNew) (OT_MK_CALL nat)

MkErrorC_ObjNew

#define MkErrorC_ObjNew(nat)

Definition LibMkKernel_atl.h:1166

Definition at line 1166 of file LibMkKernel_atl.h.

◆ MkErrorC_rt

#define MkErrorC_rt (*amkrt)

Definition at line 1159 of file LibMkKernel_atl.h.

◆ MkErrorCTT

#define MkErrorCTT (MkErrorC_rt.AtlMkErrorCTT)

Definition at line 1162 of file LibMkKernel_atl.h.

◆ MkLogFileC_ARGS

#define MkLogFileC_ARGS OBJECT_ARGS

Definition at line 131 of file LibMkKernel_atl.h.

◆ MkLogFileC_ARGS_CALL

#define MkLogFileC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 132 of file LibMkKernel_atl.h.

◆ MkLogFileC_lngO

#define MkLogFileC_lngO (MkLogFileC_rt.AtlMkLogFileC)

Definition at line 1179 of file LibMkKernel_atl.h.

◆ MkLogFileC_ObjNew

#define MkLogFileC_ObjNew ( nat )

Value:

MK(MkLogFileC_ObjNew) (OT_MK_CALL nat)

MkLogFileC_ObjNew

#define MkLogFileC_ObjNew(nat)

Definition LibMkKernel_atl.h:1185

Definition at line 1185 of file LibMkKernel_atl.h.

◆ MkLogFileC_rt

#define MkLogFileC_rt (*amkrt)

Definition at line 1178 of file LibMkKernel_atl.h.

◆ MkLogFileCTT

#define MkLogFileCTT (MkLogFileC_rt.AtlMkLogFileCTT)

Definition at line 1181 of file LibMkKernel_atl.h.

◆ MkObjectC_ARGS

#define MkObjectC_ARGS OBJECT_ARGS

Definition at line 133 of file LibMkKernel_atl.h.

◆ MkObjectC_ARGS_CALL

#define MkObjectC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 134 of file LibMkKernel_atl.h.

◆ MkObjectC_lngO

#define MkObjectC_lngO (MkObjectC_rt.AtlMkObjectC)

Definition at line 1198 of file LibMkKernel_atl.h.

◆ MkObjectC_ObjNew

#define MkObjectC_ObjNew ( nat )

Value:

MK(MkObjectC_ObjNew) (OT_MK_CALL nat)

MkObjectC_ObjNew

#define MkObjectC_ObjNew(nat)

Definition LibMkKernel_atl.h:1204

Definition at line 1204 of file LibMkKernel_atl.h.

◆ MkObjectC_rt

#define MkObjectC_rt (*amkrt)

Definition at line 1197 of file LibMkKernel_atl.h.

◆ MkObjectCTT

#define MkObjectCTT (MkObjectC_rt.AtlMkObjectCTT)

Definition at line 1200 of file LibMkKernel_atl.h.

◆ MkProcResolve_maxArgsLen

#define MkProcResolve_maxArgsLen 16

Definition at line 541 of file LibMkKernel_atl.h.

◆ MkRuntimeC_ARGS

#define MkRuntimeC_ARGS OBJECT_ARGS

Definition at line 135 of file LibMkKernel_atl.h.

◆ MkRuntimeC_ARGS_CALL

#define MkRuntimeC_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 136 of file LibMkKernel_atl.h.

◆ MkRuntimeC_lngO

#define MkRuntimeC_lngO (MkRuntimeC_rt.AtlMkRuntimeC)

Definition at line 1217 of file LibMkKernel_atl.h.

◆ MkRuntimeC_ObjNew

#define MkRuntimeC_ObjNew ( nat )

Value:

MK(MkRuntimeC_ObjNew) (OT_MK_CALL nat)

MkRuntimeC_ObjNew

#define MkRuntimeC_ObjNew(nat)

Definition LibMkKernel_atl.h:1223

Definition at line 1223 of file LibMkKernel_atl.h.

◆ MkRuntimeC_rt

#define MkRuntimeC_rt (*amkrt)

Definition at line 1216 of file LibMkKernel_atl.h.

◆ MkRuntimeCTT

#define MkRuntimeCTT (MkRuntimeC_rt.AtlMkRuntimeCTT)

Definition at line 1219 of file LibMkKernel_atl.h.

◆ NO_OtCheckEnum

#define NO_OtCheckEnum

Definition at line 674 of file LibMkKernel_atl.h.

◆ NO_OtCheckEnumFlag

#define NO_OtCheckEnumFlag

Definition at line 675 of file LibMkKernel_atl.h.

◆ NO_TestObject

#define NO_TestObject

Definition at line 676 of file LibMkKernel_atl.h.

◆ NS

#define NS ( n )

Value:

atlmkkernel_ ## n

Definition at line 91 of file LibMkKernel_atl.h.

◆ OBJCMD_ARGS

#define OBJCMD_ARGS ClientData clientData, ATL_ARGS

Definition at line 108 of file LibMkKernel_atl.h.

◆ OBJCMD_ARGS_CALL

#define OBJCMD_ARGS_CALL clientData, ATL_ARGS_CALL

Definition at line 109 of file LibMkKernel_atl.h.

◆ OBJECT_ARGS

#define OBJECT_ARGS ClientData clientData, ATL_ARGS

Definition at line 105 of file LibMkKernel_atl.h.

◆ OBJECT_ARGS_CALL

#define OBJECT_ARGS_CALL hdl, ATL_ARGS_CALL

Definition at line 106 of file LibMkKernel_atl.h.

◆ OT_ATL_EXTERN

#define OT_ATL_EXTERN __attribute__ ((visibility("default")))

Definition at line 1051 of file LibMkKernel_atl.h.

◆ OT_CHECK__ME_REF_MkBinaryR

#define OT_CHECK__ME_REF_MkBinaryR ( val )

Value:

  if (__skip >= objc) {                                      \
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val);    \
  } else {                                                   \
    val = VAL2MkBinaryR(objv[__skip++]);                     \
  }

Definition at line 1244 of file LibMkKernel_atl.h.

#define OT_CHECK__ME_REF_MkBinaryR(val)                      \
  if (__skip >= objc) {                                      \
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val);    \
  } else {                                                   \
    val = VAL2MkBinaryR(objv[__skip++]);                     \
  }

◆ OT_CHECK__ME_REF_MkStringR

#define OT_CHECK__ME_REF_MkStringR ( val )

Value:

  if (__skip >= objc) {                                      \
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val);    \
  } else {                                                   \
    val = VAL2MkStringR(objv[__skip++]);                     \
  }

Definition at line 1255 of file LibMkKernel_atl.h.

#define OT_CHECK__ME_REF_MkStringR(val)                      \
  if (__skip >= objc) {                                      \
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val);    \
  } else {                                                   \
    val = VAL2MkStringR(objv[__skip++]);                     \
  }

◆ OT_Check_ARGS

#define OT_Check_ARGS OT_MK_ARGS MK_MNG hdl, MK_STRN const arg, ATL_OBJV_ARGS, int *skipP

Definition at line 414 of file LibMkKernel_atl.h.

◆ OT_CHECK_BCP

#define OT_CHECK_BCP ( val )

Value:

  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    val = (MK_BIN) Tcl_GetByteArrayFromObj(objv[__skip++], NULL); \
  }

Definition at line 443 of file LibMkKernel_atl.h.

#define OT_CHECK_BCP(val) \
  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    val = (MK_BIN) Tcl_GetByteArrayFromObj(objv[__skip++], NULL); \
  }

◆ OT_CHECK_BCPN

#define OT_CHECK_BCPN ( val )

Value:

  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    val = (MK_BINN) Tcl_GetByteArrayFromObj(objv[__skip++], NULL); \
  }

Definition at line 450 of file LibMkKernel_atl.h.

#define OT_CHECK_BCPN(val) \
  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    val = (MK_BINN) Tcl_GetByteArrayFromObj(objv[__skip++], NULL); \
  }

◆ OT_CHECK_BNP

#define OT_CHECK_BNP	(		val,
			len )

Value:

  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    int i; \
    val = (MK_BINN) Tcl_GetByteArrayFromObj(objv[__skip++], &i); \
    len = (MK_SIZE)i; \
  }

Definition at line 434 of file LibMkKernel_atl.h.

#define OT_CHECK_BNP(val,len) \
  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    int i; \
    val = (MK_BINN) Tcl_GetByteArrayFromObj(objv[__skip++], &i); \
    len = (MK_SIZE)i; \
  }

◆ OT_CHECK_bool

#define OT_CHECK_bool ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsBOOL))

OT_CHECK_LNGTMPL

#define OT_CHECK_LNGTMPL(val, func)

Definition LibMkKernel_atl.h:697

Obj_AsBOOL

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsBOOL(OT_Check_ARGS, bool *)

Definition at line 699 of file LibMkKernel_atl.h.

◆ OT_CHECK_C_COPY

#define OT_CHECK_C_COPY	(		val,
			size )

Value:

MkErrorC_CheckD (MK(Obj_AsSTR_COPY)(OT_Check_CALL(#val),val,size));

OT_Check_CALL

#define OT_Check_CALL(arg)

Definition LibMkKernel_atl.h:415

MkErrorC_CheckD

#define MkErrorC_CheckD(PROC)

Definition LibMkKernel_atl.h:464

Definition at line 717 of file LibMkKernel_atl.h.

◆ OT_Check_CALL

#define OT_Check_CALL ( arg )

Value:

OT_MK_CALL hdl, arg, ATL_OBJV_ARGS_CALL, &__skip

ATL_OBJV_ARGS_CALL

#define ATL_OBJV_ARGS_CALL

Definition LibMkKernel_atl.h:100

Definition at line 415 of file LibMkKernel_atl.h.

◆ OT_Check_CALL2

#define OT_Check_CALL2 ( arg )

Value:

OT_MK_CALL hdl, arg, ATL_OBJV_ARGS_CALL, skipP

Definition at line 416 of file LibMkKernel_atl.h.

◆ OT_CHECK_ENUM

#define OT_CHECK_ENUM	(		ename,
			val )

Value:

  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    check_LNG(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)) goto error; \
  }

Definition at line 679 of file LibMkKernel_atl.h.

#define OT_CHECK_ENUM(ename,val) \
  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    check_LNG(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)) goto error; \
  }

◆ OT_CHECK_ENUM_FLAG

#define OT_CHECK_ENUM_FLAG	(		ename,
			val )

Value:

  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    check_LNG(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)) goto error; \
  }

Definition at line 686 of file LibMkKernel_atl.h.

#define OT_CHECK_ENUM_FLAG(ename,val) \
  if (__skip >= objc) {\
    OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
  } else { \
    check_LNG(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)) goto error; \
  }

◆ OT_CHECK_IXN

#define OT_CHECK_IXN ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsLLG))

Definition at line 707 of file LibMkKernel_atl.h.

◆ OT_CHECK_LNGTMPL

#define OT_CHECK_LNGTMPL	(		val,
			func )

Value:

MkErrorC_CheckD (func(OT_Check_CALL(#val),&val));

Definition at line 697 of file LibMkKernel_atl.h.

◆ OT_CHECK_NB1

#define OT_CHECK_NB1 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsBOL))

Obj_AsBOL

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsBOL(OT_Check_ARGS, MK_BOL *)

Definition at line 700 of file LibMkKernel_atl.h.

◆ OT_CHECK_NF4

#define OT_CHECK_NF4 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsFLT))

Obj_AsFLT

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsFLT(OT_Check_ARGS, MK_FLT *)

Definition at line 708 of file LibMkKernel_atl.h.

◆ OT_CHECK_NF8

#define OT_CHECK_NF8 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsDBL))

Obj_AsDBL

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsDBL(OT_Check_ARGS, MK_DBL *)

Definition at line 709 of file LibMkKernel_atl.h.

◆ OT_CHECK_NI1

#define OT_CHECK_NI1 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsI8))

Obj_AsI8

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsI8(OT_Check_ARGS, MK_I8 *)

Definition at line 701 of file LibMkKernel_atl.h.

◆ OT_CHECK_NI2

#define OT_CHECK_NI2 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsI16))

Obj_AsI16

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsI16(OT_Check_ARGS, MK_I16 *)

Definition at line 702 of file LibMkKernel_atl.h.

◆ OT_CHECK_NI4

#define OT_CHECK_NI4 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsI32))

Obj_AsI32

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsI32(OT_Check_ARGS, MK_I32 *)

Definition at line 704 of file LibMkKernel_atl.h.

◆ OT_CHECK_NI8

#define OT_CHECK_NI8 ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsI64))

Obj_AsI64

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsI64(OT_Check_ARGS, MK_I64 *)

Definition at line 706 of file LibMkKernel_atl.h.

◆ OT_CHECK_NIH

#define OT_CHECK_NIH ( val )

Value:

MK_HDL_REF_S3(OT_CHECK_) (val)

MK_HDL_REF_S3

#define MK_HDL_REF_S3(__prefix)

Definition at line 712 of file LibMkKernel_atl.h.

◆ OT_CHECK_NIL

#define OT_CHECK_NIL ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsLONG))

Obj_AsLONG

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsLONG(OT_Check_ARGS, long *)

Definition at line 711 of file LibMkKernel_atl.h.

◆ OT_CHECK_NOARGS

#define OT_CHECK_NOARGS

Value:

  if (__skip != objc) {                                \
    OT_ERROR_NUMARGS(hdl,objc, __skip, -999, +999, "");    \
  }

Definition at line 427 of file LibMkKernel_atl.h.

#define OT_CHECK_NOARGS                              \
  if (__skip != objc) {                                \
    OT_ERROR_NUMARGS(hdl,objc, __skip, -999, +999, "");    \
  }

◆ OT_CHECK_NUM_ARGS

#define OT_CHECK_NUM_ARGS	(		min,
			max )

Value:

  if ((objc-__skip) < min || (objc-__skip) > max) {     \
    OT_ERROR_NUMARGS(hdl,__skip, objc, min, max, "");    \
  }

Definition at line 421 of file LibMkKernel_atl.h.

#define OT_CHECK_NUM_ARGS(min,max)                  \
  if ((objc-__skip) < min || (objc-__skip) > max) {     \
    OT_ERROR_NUMARGS(hdl,__skip, objc, min, max, "");    \
  }

◆ OT_CHECK_OPTIONAL

#define OT_CHECK_OPTIONAL ( val )

Value:

if (__skip < objc) {val}

Definition at line 418 of file LibMkKernel_atl.h.

◆ OT_CHECK_REQUIRED

#define OT_CHECK_REQUIRED ( val )

Value:

val

Definition at line 419 of file LibMkKernel_atl.h.

◆ OT_CHECK_STRN

#define OT_CHECK_STRN ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsSTRN))

Obj_AsSTRN

MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsSTRN(OT_Check_ARGS, MK_STRN *)

Definition at line 710 of file LibMkKernel_atl.h.

◆ OT_CHECK_STRN_NULL

#define OT_CHECK_STRN_NULL ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsCSTNull))

Definition at line 714 of file LibMkKernel_atl.h.

◆ OT_CHECK_U2N

#define OT_CHECK_U2N ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsU16))

Definition at line 703 of file LibMkKernel_atl.h.

◆ OT_CHECK_U4N

#define OT_CHECK_U4N ( val )

Value:

OT_CHECK_LNGTMPL(val,MK(Obj_AsU32))

Definition at line 705 of file LibMkKernel_atl.h.

◆ OT_CONSTRUCTOR_POST

#define OT_CONSTRUCTOR_POST ( x )

Definition at line 170 of file LibMkKernel_atl.h.

◆ OT_DEBUG_NAMESPACE_DELETE

#define OT_DEBUG_NAMESPACE_DELETE ( ... )

Definition at line 26 of file LibMkKernel_atl.h.

◆ ot_enum_append

#define ot_enum_append	(		_o,
			_s )

Value:

Tcl_ListObjAppendElement(NULL,_o,ot_fixstrobj(_s))

ot_fixstrobj

#define ot_fixstrobj(_s)

Definition LibMkKernel_atl.h:1282

Definition at line 1283 of file LibMkKernel_atl.h.

◆ OT_ERROR_ABNORMAL

#define OT_ERROR_ABNORMAL ( mng )

Value:

  do { \
  MkErrorSetV_4M(mng,__func__,999,"AbnormalError: %s", Tcl_GetStringResult(interp));\
  Tcl_ResetResult(interp); \
} while (0)

Definition at line 383 of file LibMkKernel_atl.h.

#define OT_ERROR_ABNORMAL(mng) do { \
  MkErrorSetV_4M(mng,__func__,999,"AbnormalError: %s", Tcl_GetStringResult(interp));\
  Tcl_ResetResult(interp); \
} while (0)

◆ OT_ERROR_APPEND_LNG_STACK

#define OT_ERROR_APPEND_LNG_STACK ( )

Value:

Tcl_AppendResult(interp,"\nERROR-STACK: func=",__func__,", file=",__FILE__,", line=",MK_CPPXSTR(__LINE__),NULL)

MK_CPPXSTR

#define MK_CPPXSTR(s)

Definition at line 388 of file LibMkKernel_atl.h.

388#define OT_ERROR_APPEND_LNG_STACK() \

389 Tcl_AppendResult(interp,"\nERROR-STACK: func=",__func__,", file=",__FILE__,", line=",MK_CPPXSTR(__LINE__),NULL)

◆ OT_ERROR_CONSTRUCTOR

#define OT_ERROR_CONSTRUCTOR ( class )

Value:

  do { \
  Tcl_SetResult(interp, "InitError: '" #class "' constructor return 'NULL' pointer", TCL_STATIC); \
  if (MkErrorCheckE_0E()) { \
    Tcl_AppendResult(interp, "\nMqError: ", MkErrorGetText_0E(), NULL); \
    MkErrorReset_0M(); \
  } \
} while (0)

Definition at line 371 of file LibMkKernel_atl.h.

#define OT_ERROR_CONSTRUCTOR(class)       do { \
  Tcl_SetResult(interp, "InitError: '" #class "' constructor return 'NULL' pointer", TCL_STATIC); \
  if (MkErrorCheckE_0E()) { \
    Tcl_AppendResult(interp, "\nMqError: ", MkErrorGetText_0E(), NULL); \
    MkErrorReset_0M(); \
  } \
} while (0)

◆ OT_ERROR_LNG_2_META

#define OT_ERROR_LNG_2_META ( m )

Value:

MK(MkExceptionC_Catch) (OT_Prefix_CALL m, NULL, __func__)

OT_Prefix_CALL

#define OT_Prefix_CALL

Definition LibMkKernel_atl.h:413

m

#define m

Definition at line 470 of file LibMkKernel_atl.h.

◆ OT_ERROR_LNG_RETURN

#define OT_ERROR_LNG_RETURN return TCL_ERROR

Definition at line 360 of file LibMkKernel_atl.h.

◆ OT_ERROR_LNG_RETURN_HDL_IS_NULL

#define OT_ERROR_LNG_RETURN_HDL_IS_NULL ( )

Value:

return MK(OT_ERROR_LNG_RETURN_HDL_IS_NULL)(OT_MK_CALL OT_CLASS, OT_SELF)

OT_SELF

#define OT_SELF

Definition LibMkKernel_atl.h:930

OT_ERROR_LNG_RETURN_HDL_IS_NULL

#define OT_ERROR_LNG_RETURN_HDL_IS_NULL()

Definition LibMkKernel_atl.h:407

OT_CLASS

#define OT_CLASS

Definition MqContextC_atl.c:15

Definition at line 407 of file LibMkKernel_atl.h.

◆ OT_ERROR_LNG_RETURN_HDL_NAT_NULL

#define OT_ERROR_LNG_RETURN_HDL_NAT_NULL ( _hdl )

Value:

  do {                         \
  OT_ERROR_VAR_DEFAULT("[HdlIsNullError] : %s", MkObjectToString(_hdl));    \
  return TCL_ERROR;                                                         \
} while (0)

Definition at line 397 of file LibMkKernel_atl.h.

#define OT_ERROR_LNG_RETURN_HDL_NAT_NULL(_hdl) do {                         \
  OT_ERROR_VAR_DEFAULT("[HdlIsNullError] : %s", MkObjectToString(_hdl));    \
  return TCL_ERROR;                                                         \
} while (0)

◆ OT_ERROR_LNG_RETURN_INVALID_CLASS

#define OT_ERROR_LNG_RETURN_INVALID_CLASS	(		_clsHasS,
			_clsExpS )

Value:

  do {                                             \
  OT_ERROR_VAR_DEFAULT("[InvalidClassError] : Expect class '%s' but get class '%s'", _clsExpS, _clsHasS );    \
  return TCL_ERROR;                                                                                           \
} while (0)

Definition at line 402 of file LibMkKernel_atl.h.

#define OT_ERROR_LNG_RETURN_INVALID_CLASS(_clsHasS,_clsExpS) do {                                             \
  OT_ERROR_VAR_DEFAULT("[InvalidClassError] : Expect class '%s' but get class '%s'", _clsExpS, _clsHasS );    \
  return TCL_ERROR;                                                                                           \
} while (0)

◆ OT_ERROR_LNG_RETURN_STR_ERROR

#define OT_ERROR_LNG_RETURN_STR_ERROR ( ... )

Value:

return ({ OT_ERROR_STR_DEFAULT(__VA_ARGS__); TCL_ERROR; })

OT_ERROR_STR_DEFAULT

#define OT_ERROR_STR_DEFAULT(...)

Definition LibMkKernel_atl.h:363

Definition at line 395 of file LibMkKernel_atl.h.

◆ OT_ERROR_LNG_RETURN_VAR_ERROR

#define OT_ERROR_LNG_RETURN_VAR_ERROR ( ... )

Value:

return ({ OT_ERROR_VAR_DEFAULT(__VA_ARGS__); TCL_ERROR; })

OT_ERROR_VAR_DEFAULT

#define OT_ERROR_VAR_DEFAULT(...)

Definition LibMkKernel_atl.h:362

Definition at line 394 of file LibMkKernel_atl.h.

◆ OT_ERROR_META_2_LNG

#define OT_ERROR_META_2_LNG ( m )

Value:

MK(MkExceptionC_Raise) (OT_Prefix_CALL m, __doc, __FILE__, __LINE__)

__doc

#define __doc

Definition at line 469 of file LibMkKernel_atl.h.

◆ OT_ERROR_NUMARGS

#define OT_ERROR_NUMARGS ( ... )

Value:

MkErrorC_CheckD(WrongNumArgs(__VA_ARGS__))

WrongNumArgs

#define WrongNumArgs(...)

Definition mk_misc_ObjAs_lng.h:32

Definition at line 380 of file LibMkKernel_atl.h.

380#define OT_ERROR_NUMARGS(...) \

381 MkErrorC_CheckD(WrongNumArgs(__VA_ARGS__))

◆ OT_ERROR_SOFT_CONSTRUCTOR

#define OT_ERROR_SOFT_CONSTRUCTOR ( class )

Value:

  do { \
  Tcl_SetResult(interp, "InitSoftError: '" #class "' soft constructor return 'NULL' pointer", TCL_STATIC); \
} while (0)

Definition at line 367 of file LibMkKernel_atl.h.

#define OT_ERROR_SOFT_CONSTRUCTOR(class)  do { \
  Tcl_SetResult(interp, "InitSoftError: '" #class "' soft constructor return 'NULL' pointer", TCL_STATIC); \
} while (0)

◆ OT_ERROR_STR_DEFAULT

#define OT_ERROR_STR_DEFAULT ( ... )

Value:

Tcl_SetObjResult(interp,Tcl_NewStringObj(__VA_ARGS__,-1))

Definition at line 363 of file LibMkKernel_atl.h.

◆ OT_ERROR_TYPE

#define OT_ERROR_TYPE ( str )

Value:

Tcl_SetObjResult(interp, Tcl_ObjPrintf("TYPE ERROR: %s", str))

str

#define str(s)

Definition LibMkKernel_atl.h:1348

Definition at line 365 of file LibMkKernel_atl.h.

◆ OT_ERROR_VAR_DEFAULT

#define OT_ERROR_VAR_DEFAULT ( ... )

Value:

Tcl_SetObjResult(interp,Tcl_ObjPrintf(__VA_ARGS__))

Definition at line 362 of file LibMkKernel_atl.h.

◆ OT_EVAL_ARGS

#define OT_EVAL_ARGS OT_ENV_T interp, int objc, OT_OBJ_T const objv[], int flags

Definition at line 846 of file LibMkKernel_atl.h.

◆ OT_EVAL_CALL

#define OT_EVAL_CALL interp, objc, objv , flags

Definition at line 847 of file LibMkKernel_atl.h.

◆ ot_fixstr

#define ot_fixstr	(		_s,
			_l )

Value:

Tcl_NewStringObj(_s,_l)

Definition at line 1281 of file LibMkKernel_atl.h.

◆ ot_fixstrobj

#define ot_fixstrobj ( _s )

Value:

ot_fixstr(_s,strlen(_s))

ot_fixstr

#define ot_fixstr(_s, _l)

Definition LibMkKernel_atl.h:1281

Definition at line 1282 of file LibMkKernel_atl.h.

◆ OT_FRAME_CLEANUP

#define OT_FRAME_CLEANUP if (frame != NULL) { Tcl_DecrRefCount(frame); frame = NULL; }

Definition at line 147 of file LibMkKernel_atl.h.

◆ OT_GET__ME_REF_MkBinaryR

#define OT_GET__ME_REF_MkBinaryR ( b )

Value:

BIN2VAL(b.data,b.size)

BIN2VAL

#define BIN2VAL(ptr, len)

Definition LibMkKernel_atl.h:994

Definition at line 1241 of file LibMkKernel_atl.h.

◆ OT_GET__ME_REF_MkStringR

#define OT_GET__ME_REF_MkStringR ( s )

Value:

STR2VAL_2(s.ptr,s.len)

STR2VAL_2

#define STR2VAL_2(ptr, len)

Definition LibMkKernel_atl.h:996

Definition at line 1252 of file LibMkKernel_atl.h.

◆ OT_GET_CALL_FILE

#define OT_GET_CALL_FILE MK(Get_Call_File)(OT_MK_CALL &frame)

Definition at line 722 of file LibMkKernel_atl.h.

◆ OT_GET_CALL_LINE

#define OT_GET_CALL_LINE MK(Get_Call_Line)(OT_MK_CALL &frame)

Definition at line 723 of file LibMkKernel_atl.h.

◆ OT_GET_CALL_PROC

#define OT_GET_CALL_PROC MK(Get_Call_Proc)(OT_MK_CALL &frame)

Definition at line 721 of file LibMkKernel_atl.h.

◆ OT_GET_CONSTR_NAME

#define OT_GET_CONSTR_NAME ( ctor )

Value:

VAL2STR(MoxCls__NAME__N(ctor))

VAL2STR

#define VAL2STR(val)

Definition LibMkKernel_atl.h:999

Definition at line 432 of file LibMkKernel_atl.h.

◆ Ot_GetBooleanFromObj

#define Ot_GetBooleanFromObj ( val )

Value:

({int bol; if (Tcl_GetBooleanFromObj(interp,val,&bol)==TCL_ERROR) goto error; bol;})

Definition at line 1272 of file LibMkKernel_atl.h.

◆ OT_LNG_EMBEDDED

#define OT_LNG_EMBEDDED	(	type,
		call,
		... )

Value:

  ({ \
  type ret = (type) 0; \
  check_LNG(call (__VA_ARGS__,&ret)) { \
    OT_ERROR_APPEND_LNG_STACK(); \
    goto error; \
  } \
  ret; \
})

Definition at line 349 of file LibMkKernel_atl.h.

#define OT_LNG_EMBEDDED(type,call,...) ({ \
  type ret = (type) 0; \
  check_LNG(call (__VA_ARGS__,&ret)) { \
    OT_ERROR_APPEND_LNG_STACK(); \
    goto error; \
  } \
  ret; \
})

◆ OT_LNG_NAME_FROM_CLASS

#define OT_LNG_NAME_FROM_CLASS ( _cls )

Value:

OT_LNG_NAME_FROM_OBJECT(_cls)

OT_LNG_NAME_FROM_OBJECT

#define OT_LNG_NAME_FROM_OBJECT(_obj)

Definition LibMkKernel_atl.h:330

Definition at line 331 of file LibMkKernel_atl.h.

◆ OT_LNG_NAME_FROM_OBJ

#define OT_LNG_NAME_FROM_OBJ ( _obj )

Value:

OT_LNG_NAME_FROM_OBJECT(_obj)

Definition at line 332 of file LibMkKernel_atl.h.

◆ OT_LNG_NAME_FROM_OBJECT

#define OT_LNG_NAME_FROM_OBJECT ( _obj )

Value:

VAL2STR(_obj)

Definition at line 330 of file LibMkKernel_atl.h.

◆ OT_LNG_NULL

#define OT_LNG_NULL NULL

Definition at line 324 of file LibMkKernel_atl.h.

◆ OT_LNG_OBJ_CLASSNAME

#define OT_LNG_OBJ_CLASSNAME ( val )

Value:

MK(ClassName)(OT_Prefix_CALL val, false)

Definition at line 334 of file LibMkKernel_atl.h.

◆ OT_LNG_OBJ_CLASSNAME_SHORT

#define OT_LNG_OBJ_CLASSNAME_SHORT ( val )

Value:

MK(ClassName)(OT_Prefix_CALL val, true)

Definition at line 335 of file LibMkKernel_atl.h.

◆ OT_LNG_OBJV

#define OT_LNG_OBJV ( __skip )

Value:

objv[__skip]

Definition at line 341 of file LibMkKernel_atl.h.

◆ OT_LNG_RETURN

#define OT_LNG_RETURN	(		ret,
			cmd )

Value:

check_LNG(cmd) goto error; \

ret = Tcl_GetObjResult(interp); \

check_LNG

#define check_LNG(code)

Definition LibMkKernel_atl.h:472

Definition at line 326 of file LibMkKernel_atl.h.

#define OT_LNG_RETURN(ret,cmd)        \
  check_LNG(cmd) goto error;          \
  ret = Tcl_GetObjResult(interp);     \
 

◆ OT_LNG_SELF_2_LNG

#define OT_LNG_SELF_2_LNG ( selfT )

Value:

((OT_OBJ_T)(selfT))

OT_OBJ_T

MOX_OBJ_T OT_OBJ_T

Definition LibMkKernel_atl.h:240

Definition at line 339 of file LibMkKernel_atl.h.

◆ OT_LNG_SET_VAR

#define OT_LNG_SET_VAR	(		var,
			val )

Value:

if (Tcl_ObjSetVar2(interp, var, NULL, val, TCL_LEAVE_ERR_MSG) == NULL) goto error

Definition at line 346 of file LibMkKernel_atl.h.

346#define OT_LNG_SET_VAR(var,val) \

347 if (Tcl_ObjSetVar2(interp, var, NULL, val, TCL_LEAVE_ERR_MSG) == NULL) goto error

◆ OT_LNG_UNDEF

#define OT_LNG_UNDEF NULL

Definition at line 325 of file LibMkKernel_atl.h.

◆ OT_MK_ARGS

#define OT_MK_ARGS OT_MK_RT_T amkrt, OT_ENV_T interp, MK_RT_ARGS

Definition at line 321 of file LibMkKernel_atl.h.

◆ OT_MK_CALL

#define OT_MK_CALL amkrt, interp, MK_RT_CALL

Definition at line 322 of file LibMkKernel_atl.h.

◆ OT_MK_CALL_0

#define OT_MK_CALL_0	(	hdl,
		cls,
		meth,
		ret )

Value:

  {                            \
  OT_SELF_T selfO = cls##_ObjNew(hdl);                              \
    assert(selfO != NULL);                                          \
  RL_init(2,cls##_##meth,RL_NewS(0,MK_CPPXSTR(::cls::meth))) ; RL_O(1,SELF2VAL(selfO)) ; \
  check_LNG(RL_EvalEx(TCL_EVAL_GLOBAL)) goto error; \
  ret = Tcl_GetObjResult(interp); \
}

Definition at line 223 of file LibMkKernel_atl.h.

#define OT_MK_CALL_0(hdl,cls,meth,ret) {                            \
  OT_SELF_T selfO = cls##_ObjNew(hdl);                              \
    assert(selfO != NULL);                                          \
  RL_init(2,cls##_##meth,RL_NewS(0,MK_CPPXSTR(::cls::meth))) ; RL_O(1,SELF2VAL(selfO)) ; \
  check_LNG(RL_EvalEx(TCL_EVAL_GLOBAL)) goto error; \
  ret = Tcl_GetObjResult(interp); \
}

◆ OT_MK_RT_SIG

#define OT_MK_RT_SIG 0x62384526

Definition at line 251 of file LibMkKernel_atl.h.

◆ OT_NEW_Mk_enum_OBJ

#define OT_NEW_Mk_enum_OBJ	(		typ,
			val )

Value:

MK(Mk ## typ ## _ToString(val))

Definition at line 887 of file LibMkKernel_atl.h.

◆ OT_OBJ_COPY

#define OT_OBJ_COPY ( o )

Value:

({OT_OBJ_T t=(o); if (t) { t = Tcl_NewStringObj(Tcl_GetString(t),-1); OT_REF_INCR(t); }; t; })

OT_REF_INCR

#define OT_REF_INCR(_obj)

Definition LibMkKernel_atl.h:506

Definition at line 591 of file LibMkKernel_atl.h.

◆ OT_OBJ_TO_CLASS

#define OT_OBJ_TO_CLASS ( obj )

Value:

obj

MK_OBJ const obj

Definition high_lng.h:136

Definition at line 343 of file LibMkKernel_atl.h.

◆ OT_OBJ_TO_ENUM

#define OT_OBJ_TO_ENUM ( str )

Value:

#str

Definition at line 344 of file LibMkKernel_atl.h.

◆ OT_OBJ_TYPE_STRING

#define OT_OBJ_TYPE_STRING ( val )

Value:

MK(ClassName)(OT_Prefix_CALL val, false)

Definition at line 336 of file LibMkKernel_atl.h.

◆ OT_OBJECT_DELETE

#define OT_OBJECT_DELETE ( O )

Value:

MK(AtomDispose) (OT_MK_CALL O)

Definition at line 504 of file LibMkKernel_atl.h.

◆ OT_OBJECT_DELETE_HARD

#define OT_OBJECT_DELETE_HARD ( O )

Value:

MK(AtomDeleteHard) (OT_MK_CALL O)

Definition at line 499 of file LibMkKernel_atl.h.

◆ OT_OBJECT_DELETE_SOFT

#define OT_OBJECT_DELETE_SOFT ( O )

Value:

error: done in Atom_ns_delete

Definition at line 496 of file LibMkKernel_atl.h.

◆ OT_OBJECT_DISPOSE

#define OT_OBJECT_DISPOSE ( O )

Value:

MK(AtomDispose) (OT_MK_CALL O)

Definition at line 502 of file LibMkKernel_atl.h.

◆ OT_Prefix_ARGS

#define OT_Prefix_ARGS OT_MK_ARGS

Definition at line 412 of file LibMkKernel_atl.h.

◆ OT_Prefix_CALL

#define OT_Prefix_CALL OT_MK_CALL

Definition at line 413 of file LibMkKernel_atl.h.

◆ OT_ProcRet

#define OT_ProcRet int

Definition at line 97 of file LibMkKernel_atl.h.

◆ OT_REF_DECR

#define OT_REF_DECR ( _obj )

Value:

Tcl_DecrRefCount(_obj)

Definition at line 507 of file LibMkKernel_atl.h.

◆ OT_REF_DECR_AND_NULL

#define OT_REF_DECR_AND_NULL ( _obj )

Value:

if (_obj) { Tcl_DecrRefCount (_obj) ; _obj = NULL; }

Definition at line 509 of file LibMkKernel_atl.h.

◆ OT_REF_INCR

#define OT_REF_INCR ( _obj )

Value:

Tcl_IncrRefCount(_obj)

Definition at line 506 of file LibMkKernel_atl.h.

◆ OT_REF_INCR_AND_RETURN

#define OT_REF_INCR_AND_RETURN ( _obj )

Value:

({ Tcl_IncrRefCount(_obj); _obj;})

Definition at line 508 of file LibMkKernel_atl.h.

◆ OT_retObj_APPEND

#define OT_retObj_APPEND ( var )

Value:

check_LNG(Tcl_ListObjAppendElement(interp,retObj,var)) goto error

Definition at line 179 of file LibMkKernel_atl.h.

◆ OT_retObj_RETURN

#define OT_retObj_RETURN

Value:

  do {           \
  if (OT_retObj_SET_isPtr) {            \
    Tcl_SetObjResult(interp,retObj);    \
    return TCL_OK;                      \
  } else if (OT_retObj_SET_isNone) {    \
    Tcl_ResetResult(interp);            \
    return TCL_OK;                      \
  } else {                              \
    return TCL_ERROR;                   \
  }                                     \
} while (0)

Definition at line 180 of file LibMkKernel_atl.h.

#define OT_retObj_RETURN do {           \
  if (OT_retObj_SET_isPtr) {            \
    Tcl_SetObjResult(interp,retObj);    \
    return TCL_OK;                      \
  } else if (OT_retObj_SET_isNone) {    \
    Tcl_ResetResult(interp);            \
    return TCL_OK;                      \
  } else {                              \
    return TCL_ERROR;                   \
  }                                     \
} while (0)

◆ OT_retObj_SET

#define OT_retObj_SET ( val )

Value:

retObj = (val)

Definition at line 172 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_BFL

#define OT_retObj_SET_BFL ( nat )

Value:

retObj = MkBufferListC_ObjNew (nat)

Definition at line 1111 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_BIN

#define OT_retObj_SET_BIN	(		nat,
			len )

Value:

retObj = BIN2VAL(nat,len);

Definition at line 201 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_BOL

#define OT_retObj_SET_BOL ( nat )

Value:

retObj = BOL2VAL(nat);

BOL2VAL

#define BOL2VAL(nat)

Definition LibMkKernel_atl.h:984

Definition at line 192 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_BUF

#define OT_retObj_SET_BUF ( nat )

Value:

retObj = MkBufferC_ObjNew (nat)

Definition at line 1130 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_BUS

#define OT_retObj_SET_BUS ( nat )

Value:

retObj = MkBufferStreamC_ObjNew (nat)

Definition at line 1149 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_DBL

#define OT_retObj_SET_DBL ( nat )

Value:

retObj = DBL2VAL(nat);

DBL2VAL

#define DBL2VAL(nat)

Definition LibMkKernel_atl.h:992

Definition at line 200 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_ERR

#define OT_retObj_SET_ERR ( nat )

Value:

retObj = MkErrorC_ObjNew (nat)

Definition at line 1168 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_Error

#define OT_retObj_SET_Error retObj = NULL

Definition at line 176 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_FLT

#define OT_retObj_SET_FLT ( nat )

Value:

retObj = FLT2VAL(nat);

FLT2VAL

#define FLT2VAL(nat)

Definition LibMkKernel_atl.h:991

Definition at line 199 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_HDL

#define OT_retObj_SET_HDL ( nat )

Value:

retObj = HDL2VAL(nat);

HDL2VAL

#define HDL2VAL(nat)

Definition LibMkKernel_atl.h:989

Definition at line 205 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_I16

#define OT_retObj_SET_I16 ( nat )

Value:

retObj = I162VAL(nat);

I162VAL

#define I162VAL(nat)

Definition LibMkKernel_atl.h:985

Definition at line 194 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_I32

#define OT_retObj_SET_I32 ( nat )

Value:

retObj = INT2VAL(nat);

INT2VAL

#define INT2VAL(nat)

Definition LibMkKernel_atl.h:987

Definition at line 196 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_I64

#define OT_retObj_SET_I64 ( nat )

Value:

retObj = I642VAL(nat);

I642VAL

#define I642VAL(nat)

Definition LibMkKernel_atl.h:988

Definition at line 197 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_I8

#define OT_retObj_SET_I8 ( nat )

Value:

retObj = I82VAL(nat);

I82VAL

#define I82VAL(nat)

Definition LibMkKernel_atl.h:983

Definition at line 193 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_isNone

#define OT_retObj_SET_isNone ((long)retObj) == 0x1

Definition at line 175 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_isPtr

#define OT_retObj_SET_isPtr ((long)retObj) > 0x1

Definition at line 173 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_LFL

#define OT_retObj_SET_LFL ( nat )

Value:

retObj = MkLogFileC_ObjNew (nat)

Definition at line 1187 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_List

#define OT_retObj_SET_List retObj = Tcl_NewListObj(0,NULL)

Definition at line 178 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_LLG

#define OT_retObj_SET_LLG ( nat )

Value:

retObj = LLG2VAL(nat);

LLG2VAL

#define LLG2VAL(nat)

Definition LibMkKernel_atl.h:990

Definition at line 198 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_LONG

#define OT_retObj_SET_LONG ( nat )

Value:

retObj = LONG2VAL(nat);

LONG2VAL

#define LONG2VAL(nat)

Definition LibMkKernel_atl.h:997

Definition at line 204 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_None

#define OT_retObj_SET_None retObj = ((OT_OBJ_T)0x1)

Definition at line 174 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_OBJ

#define OT_retObj_SET_OBJ ( nat )

Value:

retObj = MkObjectC_ObjNew (nat)

Definition at line 1206 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_RT

#define OT_retObj_SET_RT ( nat )

Value:

retObj = MkRuntimeC_ObjNew (nat)

Definition at line 1225 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_STR

#define OT_retObj_SET_STR ( nat )

Value:

retObj = STRN2VAL(nat);

STRN2VAL

#define STRN2VAL(nat)

Definition LibMkKernel_atl.h:993

Definition at line 202 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_STRN

#define OT_retObj_SET_STRN ( nat )

Value:

retObj = STRN2VAL(nat);

Definition at line 203 of file LibMkKernel_atl.h.

◆ OT_retObj_SET_U16

#define OT_retObj_SET_U16 ( nat )

Value:

retObj = U162VAL(nat);

U162VAL

#define U162VAL(nat)

Definition LibMkKernel_atl.h:986

Definition at line 195 of file LibMkKernel_atl.h.

◆ OT_SELF

#define OT_SELF selfO

Definition at line 930 of file LibMkKernel_atl.h.

◆ OT_SELF_M

#define OT_SELF_M ( m )

Value:

OT_SELF_O((MK_OBJ)(m)) /* unsafe */

MkObjectS

Definition at line 929 of file LibMkKernel_atl.h.

◆ OT_SELF_O

#define OT_SELF_O ( o )

Value:

((OT_SELF_T)(*o).self)

Definition at line 927 of file LibMkKernel_atl.h.

◆ OT_SELF_X

#define OT_SELF_X ( x )

Value:

OT_SELF_O(MkOBJ(x))

MkOBJ

#define MkOBJ(x)

Definition at line 928 of file LibMkKernel_atl.h.

◆ OT_SETUP_ARGS_ALL

#define OT_SETUP_ARGS_ALL ( d )

Value:

  OT_OBJ_T retObj=NULL;                      \
  MK_UNUSED static const MK_STRN __doc=d;    \
  MK_UNUSED OT_OBJ_T frame=NULL;             \

Definition at line 142 of file LibMkKernel_atl.h.

#define OT_SETUP_ARGS_ALL(d)                 \
  OT_OBJ_T retObj=NULL;                      \
  MK_UNUSED static const MK_STRN __doc=d;    \
  MK_UNUSED OT_OBJ_T frame=NULL;             \
 

◆ OT_SETUP_CONSTRUCTOR_ARGS

#define OT_SETUP_CONSTRUCTOR_ARGS ( ... )

Value:

OT_SETUP_VARARGS(__VA_ARGS__)

OT_SETUP_VARARGS

#define OT_SETUP_VARARGS(min, max, d)

Definition LibMkKernel_atl.h:149

Definition at line 153 of file LibMkKernel_atl.h.

◆ OT_SETUP_doc

#define OT_SETUP_doc __attribute__((unused)) const MK_STRN __doc = __func__;

Definition at line 164 of file LibMkKernel_atl.h.

◆ OT_SETUP_NOARG

#define OT_SETUP_NOARG ( d )

Value:

OT_SETUP_ARGS_ALL(d) \

OT_CHECK_NUM_ARGS(0,0)

OT_SETUP_ARGS_ALL

#define OT_SETUP_ARGS_ALL(d)

Definition LibMkKernel_atl.h:142

Definition at line 159 of file LibMkKernel_atl.h.

#define OT_SETUP_NOARG(d)    \
  OT_SETUP_ARGS_ALL(d)       \
  OT_CHECK_NUM_ARGS(0,0)

◆ OT_SETUP_obj

#define OT_SETUP_obj MK_OBJ obj = OBJ

Definition at line 163 of file LibMkKernel_atl.h.

◆ OT_SETUP_ONEARG

#define OT_SETUP_ONEARG ( d )

Value:

OT_SETUP_ARGS_ALL(d) \

OT_CHECK_NUM_ARGS(1,1)

Definition at line 155 of file LibMkKernel_atl.h.

#define OT_SETUP_ONEARG(d)    \
  OT_SETUP_ARGS_ALL(d)        \
  OT_CHECK_NUM_ARGS(1,1)

◆ OT_SETUP_VARARGS

#define OT_SETUP_VARARGS	(	min,
		max,
		d )

Value:

OT_SETUP_ARGS_ALL(d) \

OT_CHECK_NUM_ARGS(min,max)

Definition at line 149 of file LibMkKernel_atl.h.

#define OT_SETUP_VARARGS(min,max,d)    \
  OT_SETUP_ARGS_ALL(d)                 \
  OT_CHECK_NUM_ARGS(min,max)

◆ OT_TMP_BAC_OBJ

#define OT_TMP_BAC_OBJ ( val )

Value:

MK(MkBufferListC_ObjNew) (OT_MK_CALL val)

Definition at line 1095 of file LibMkKernel_atl.h.

◆ OT_TMP_BFL_OBJ

#define OT_TMP_BFL_OBJ ( nat )

Value:

MkBufferListC_ObjNew (nat)

Definition at line 1110 of file LibMkKernel_atl.h.

◆ OT_TMP_BIN_OBJ

#define OT_TMP_BIN_OBJ	(		val,
			len )

Value:

BIN2VAL(val,len)

Definition at line 485 of file LibMkKernel_atl.h.

◆ OT_TMP_BOL_OBJ

#define OT_TMP_BOL_OBJ ( val )

Value:

BOL2VAL(val)

Definition at line 478 of file LibMkKernel_atl.h.

◆ OT_TMP_BUF_OBJ

#define OT_TMP_BUF_OBJ ( nat )

Value:

MkBufferC_ObjNew (nat)

Definition at line 1129 of file LibMkKernel_atl.h.

◆ OT_TMP_BUS_OBJ

#define OT_TMP_BUS_OBJ ( nat )

Value:

MkBufferStreamC_ObjNew (nat)

Definition at line 1148 of file LibMkKernel_atl.h.

◆ OT_TMP_CST_OBJ

#define OT_TMP_CST_OBJ ( val )

Value:

STRN2VAL(val)

Definition at line 487 of file LibMkKernel_atl.h.

◆ OT_TMP_DBL_OBJ

#define OT_TMP_DBL_OBJ ( val )

Value:

DBL2VAL(val)

Definition at line 484 of file LibMkKernel_atl.h.

◆ OT_TMP_ERR_OBJ

#define OT_TMP_ERR_OBJ ( nat )

Value:

MkErrorC_ObjNew (nat)

Definition at line 1167 of file LibMkKernel_atl.h.

◆ OT_TMP_FLT_OBJ

#define OT_TMP_FLT_OBJ ( val )

Value:

FLT2VAL(val)

Definition at line 483 of file LibMkKernel_atl.h.

◆ OT_TMP_I16_OBJ

#define OT_TMP_I16_OBJ ( val )

Value:

I162VAL(val)

Definition at line 480 of file LibMkKernel_atl.h.

◆ OT_TMP_I32_OBJ

#define OT_TMP_I32_OBJ ( val )

Value:

INT2VAL(val)

Definition at line 481 of file LibMkKernel_atl.h.

◆ OT_TMP_I64_OBJ

#define OT_TMP_I64_OBJ ( val )

Value:

I642VAL(val)

Definition at line 482 of file LibMkKernel_atl.h.

◆ OT_TMP_I8_OBJ

#define OT_TMP_I8_OBJ ( val )

Value:

I82VAL(val)

Definition at line 479 of file LibMkKernel_atl.h.

◆ OT_TMP_LFL_OBJ

#define OT_TMP_LFL_OBJ ( nat )

Value:

MkLogFileC_ObjNew (nat)

Definition at line 1186 of file LibMkKernel_atl.h.

◆ OT_TMP_OBJ_OBJ

#define OT_TMP_OBJ_OBJ ( nat )

Value:

MkObjectC_ObjNew (nat)

Definition at line 1205 of file LibMkKernel_atl.h.

◆ OT_TMP_RT_OBJ

#define OT_TMP_RT_OBJ ( nat )

Value:

MkRuntimeC_ObjNew (nat)

Definition at line 1224 of file LibMkKernel_atl.h.

◆ OT_TMP_STR_OBJ

#define OT_TMP_STR_OBJ ( val )

Value:

STRN2VAL(val)

Definition at line 486 of file LibMkKernel_atl.h.

◆ OT_VARFRAME_ARGS

#define OT_VARFRAME_ARGS MK_RT_ARGS OT_VARFRAME varframe

Definition at line 808 of file LibMkKernel_atl.h.

◆ OT_VARFRAME_CALL

#define OT_VARFRAME_CALL MK_RT_CALL varframe

Definition at line 809 of file LibMkKernel_atl.h.

◆ OT_VARFRAME_CREATE

#define OT_VARFRAME_CREATE

Value:

struct MkVarFrameS otVarFrame = {50, 0}; otVarFrame.data = otVarFrame.prealloc; \

OT_VARFRAME varframe = &otVarFrame;

MkVarFrameS

Definition LibMkKernel_atl.h:791

MkVarFrameS::prealloc

OT_OBJ_T prealloc[50]

Definition LibMkKernel_atl.h:795

MkVarFrameS::data

OT_OBJ_T * data

Definition LibMkKernel_atl.h:794

Definition at line 799 of file LibMkKernel_atl.h.

#define OT_VARFRAME_CREATE   \
  struct MkVarFrameS otVarFrame = {50, 0}; otVarFrame.data = otVarFrame.prealloc; \
  OT_VARFRAME varframe = &otVarFrame;

◆ OT_VARFRAME_DELETE

#define OT_VARFRAME_DELETE

Value:

  { \
  for (int i=0; i<varframe->num; i++) Tcl_DecrRefCount(varframe->data[i]); \
  varframe = NULL; \
}

Definition at line 803 of file LibMkKernel_atl.h.

#define OT_VARFRAME_DELETE { \
  for (int i=0; i<varframe->num; i++) Tcl_DecrRefCount(varframe->data[i]); \
  varframe = NULL; \
}

◆ OT_VARFRAME_OBJ_RESULT

#define OT_VARFRAME_OBJ_RESULT ( itp )

Value:

MK(OT_VARFRAME_ADD)(OT_VARFRAME_CALL,Tcl_GetObjResult(itp))

OT_VARFRAME_CALL

#define OT_VARFRAME_CALL

Definition LibMkKernel_atl.h:809

Definition at line 830 of file LibMkKernel_atl.h.

◆ OtClass_ARGS

#define OtClass_ARGS OBJECT_ARGS

Definition at line 116 of file LibMkKernel_atl.h.

◆ OtClass_ARGS_CALL

#define OtClass_ARGS_CALL OBJECT_ARGS_CALL

Definition at line 117 of file LibMkKernel_atl.h.

◆ printAry

#define printAry	(		c,
			o )

Value:

printAry3(#o,c,o)

printAry3

#define printAry3(txt, c, o)

Definition LibMkKernel_atl.h:1330

Definition at line 1318 of file LibMkKernel_atl.h.

1318#define printAry(c,o) \

1319 printAry3(#o,c,o)

◆ printAry3

#define printAry3	(	txt,
		c,
		o )

Value:

  do { \
  mk_dbg_Z_start(512,MK_COLOR_BLUE "%s : ",txt); \
  for(int i=0;i<c;i++) { \
    mk_dbg_Z_next(MK_COLOR_YELLOW "[%d:%p]" MK_COLOR_RESET "='%s' ",i,o[i],o[i]?Tcl_GetString(o[i]):"NULL"); \
  } \
  mk_dbg_Z_end(); \
} while (0)

Definition at line 1330 of file LibMkKernel_atl.h.

#define printAry3(txt, c,o) do { \
  mk_dbg_Z_start(512,MK_COLOR_BLUE "%s : ",txt); \
  for(int i=0;i<c;i++) { \
    mk_dbg_Z_next(MK_COLOR_YELLOW "[%d:%p]" MK_COLOR_RESET "='%s' ",i,o[i],o[i]?Tcl_GetString(o[i]):"NULL"); \
  } \
  mk_dbg_Z_end(); \
} while (0)

◆ printAryDetail

#define printAryDetail	(		c,
			o )

Value:

for(int i=0;i<c;i++) { printLngObj(o[i]) }

printLngObj

#define printLngObj(var)

Definition LibMkKernel_atl.h:1297

Definition at line 1321 of file LibMkKernel_atl.h.

1321#define printAryDetail(c,o) \

1322 for(int i=0;i<c;i++) { printLngObj(o[i]) }

◆ printAryL

#define printAryL	(	t,
		c,
		o )

Value:

printAryX(META_CONTEXT_S,t,c,o) \

printAryX

#define printAryX(x, t, c, o)

Definition LibMkKernel_atl.h:1338

META_CONTEXT_S

#define META_CONTEXT_S

Definition LibMkKernel_atl.h:95

Definition at line 1345 of file LibMkKernel_atl.h.

1345#define printAryL(t,c,o) printAryX(META_CONTEXT_S,t,c,o) \

1346

◆ printAryX

#define printAryX	(	x,
		t,
		c,
		o )

Value:

  printXV(x, "%-15s = ",t); \
  for(int i=0;i<c;i++) { \
    fprintf(stderr, "'%s' ",o[i]?Tcl_GetString(o[i]):"NULL"); \
  } \
  fputc('\n', stderr);

Definition at line 1338 of file LibMkKernel_atl.h.

#define printAryX(x,t,c,o) \
  printXV(x, "%-15s = ",t); \
  for(int i=0;i<c;i++) { \
    fprintf(stderr, "'%s' ",o[i]?Tcl_GetString(o[i]):"NULL"); \
  } \
  fputc('\n', stderr);

◆ printLLngObj

#define printLLngObj ( var )

Value:

printLC2( MK(PrintObj)(OT_Prefix_CALL #var,var))

Definition at line 1296 of file LibMkKernel_atl.h.

◆ printLng

#define printLng ( var )

Value:

printV(#var" = '%s' [ref=%i]",(var?VAL2STR(var):"NULL"),(var)?(var)->refCount:-1)

Definition at line 1293 of file LibMkKernel_atl.h.

◆ printLngClass

#define printLngClass ( clsC )

Value:

printV(#clsC " name = %s", OT_LNG_NAME_FROM_CLASS(clsC))

OT_LNG_NAME_FROM_CLASS

#define OT_LNG_NAME_FROM_CLASS(_cls)

Definition LibMkKernel_atl.h:331

Definition at line 1350 of file LibMkKernel_atl.h.

◆ printLngErrorCode

#define printLngErrorCode ( )

Value:

  do {                                                       \
  OT_OBJ_T errorCode = Tcl_GetVar2Ex (interp, "errorCode", NULL, TCL_GLOBAL_ONLY);    \
  printLngObj(errorCode);                                                              \
} while (0);                                                                           \

Definition at line 1300 of file LibMkKernel_atl.h.

#define printLngErrorCode() do {                                                       \
  OT_OBJ_T errorCode = Tcl_GetVar2Ex (interp, "errorCode", NULL, TCL_GLOBAL_ONLY);    \
  printLngObj(errorCode);                                                              \
} while (0);                                                                           \
 

◆ printLngErrorInfo

#define printLngErrorInfo ( )

Value:

  do {                                                       \
  OT_OBJ_T errorInfo = Tcl_GetVar2Ex (interp, "errorInfo", NULL, TCL_GLOBAL_ONLY);    \
  printLngObj(errorInfo);                                                              \
} while (0);                                                                           \

Definition at line 1305 of file LibMkKernel_atl.h.

#define printLngErrorInfo() do {                                                       \
  OT_OBJ_T errorInfo = Tcl_GetVar2Ex (interp, "errorInfo", NULL, TCL_GLOBAL_ONLY);    \
  printLngObj(errorInfo);                                                              \
} while (0);                                                                           \
 

◆ printLngObj

#define printLngObj ( var )

Value:

printTxt(MK(PrintObj)(OT_Prefix_CALL #var,var))

Definition at line 1297 of file LibMkKernel_atl.h.

◆ printLngObj2

#define printLngObj2 ( var )

Value:

MK(PrintObj2)(OT_Prefix_CALL #var,var,__func__)

Definition at line 1298 of file LibMkKernel_atl.h.

◆ printLngObject

#define printLngObject ( objO )

Value:

printV(#objO " name = %s", OT_LNG_NAME_FROM_OBJECT(objO))

Definition at line 1351 of file LibMkKernel_atl.h.

◆ printObjv

#define printObjv

Value:

printV("printObjv: __skip=%i, objc=%i",__skip,objc);\

printAry(objc,objv)

Definition at line 1310 of file LibMkKernel_atl.h.

#define printObjv \
  printV("printObjv: __skip=%i, objc=%i",__skip,objc);\
  printAry(objc,objv)

◆ printXAry

#define printXAry	(	x,
		c,
		o )

Value:

for(int i=0;i<c;i++) { printXV(x,"%2i= %s",i,o[i]?Tcl_GetString(o[i]):"NULL"); }

Definition at line 1324 of file LibMkKernel_atl.h.

1324#define printXAry(x,c,o) \

1325 for(int i=0;i<c;i++) { printXV(x,"%2i= %s",i,o[i]?Tcl_GetString(o[i]):"NULL"); }

◆ printXAryDetail

#define printXAryDetail	(	x,
		c,
		o )

Value:

for(int i=0;i<c;i++) { printXLngObj(x,o[i]) }

printXLngObj

#define printXLngObj(x, var)

Definition LibMkKernel_atl.h:1295

Definition at line 1327 of file LibMkKernel_atl.h.

1327#define printXAryDetail(x,c,o) \

1328 for(int i=0;i<c;i++) { printXLngObj(x,o[i]) }

◆ printXLng

#define printXLng	(		x,
			var )

Value:

printXV(x,#var" = '%s' [ref=%i]",(var?VAL2STR(var):"NULL"),(var)?(var)->refCount:-1)

Definition at line 1294 of file LibMkKernel_atl.h.

◆ printXLngObj

#define printXLngObj	(		x,
			var )

Value:

printXC2(x,MK(PrintObj)(OT_Prefix_CALL #var,var))

Definition at line 1295 of file LibMkKernel_atl.h.

◆ printXObjv

#define printXObjv ( x )

Value:

printXV(x,"__skip=%i, objc=%i",__skip,objc);\

printXAry(x,objc,objv)

Definition at line 1314 of file LibMkKernel_atl.h.

#define printXObjv(x) \
  printXV(x,"__skip=%i, objc=%i",__skip,objc);\
  printXAry(x,objc,objv)

◆ PTR2VAL

#define PTR2VAL ( nat )

Value:

(OT_OBJ_T)(nat)

Definition at line 977 of file LibMkKernel_atl.h.

◆ regTclArray

#define regTclArray	(		m,
			t )

Value:

OT_OBJ_T t[m];

Definition at line 267 of file LibMkKernel_atl.h.

◆ regTclCmd

#define regTclCmd ( t )

Value:

OT_OBJ_T t;

Definition at line 266 of file LibMkKernel_atl.h.

◆ regTclObj

#define regTclObj ( t )

Value:

OT_OBJ_T t;

Definition at line 264 of file LibMkKernel_atl.h.

◆ regTclObj2

#define regTclObj2	(		t,
			v )

Value:

OT_OBJ_T t;

Definition at line 265 of file LibMkKernel_atl.h.

◆ Self2PtrN

#define Self2PtrN ( myO )

Value:

MK(Self2PtrN)(interp,myO)

Self2PtrN

#define Self2PtrN(myO)

Definition LibMkKernel_atl.h:1357

Definition at line 1357 of file LibMkKernel_atl.h.

◆ Self2PtrNN

#define Self2PtrNN ( myP )

Value:

MK(Self2PtrNN)(myP)

Self2PtrNN

#define Self2PtrNN(myP)

Definition LibMkKernel_atl.h:1356

Definition at line 1356 of file LibMkKernel_atl.h.

◆ SELF2VAL

#define SELF2VAL ( slf )

Value:

(slf)

Definition at line 978 of file LibMkKernel_atl.h.

◆ SETUP_amkrt

#define SETUP_amkrt ( r )

Value:

                            MK_UNUSED OT_MK_RT_T const amkrt = (r) ? (r) : &amkrtR; \
                            assert(amkrt && amkrt->signature == OT_MK_RT_SIG); \
                          SETUP_interp; \
                          SETUP_moxrt

Definition at line 922 of file LibMkKernel_atl.h.

#define SETUP_amkrt(r)    MK_UNUSED OT_MK_RT_T const amkrt = (r) ? (r) : &amkrtR; \
                            assert(amkrt && amkrt->signature == OT_MK_RT_SIG); \
                          SETUP_interp; \
                          SETUP_moxrt  

◆ SETUP_ARGS

#define SETUP_ARGS MK_RT_ARGS ATL_ARGS

Definition at line 166 of file LibMkKernel_atl.h.

◆ SETUP_ARGS_CALL

#define SETUP_ARGS_CALL MK_RT_CALL ATL_ARGS_CALL

Definition at line 167 of file LibMkKernel_atl.h.

◆ SETUP_interp

#define SETUP_interp MK_UNUSED OT_ENV_T interp = amkrt->interp

Definition at line 919 of file LibMkKernel_atl.h.

◆ SETUP_moxrt

#define SETUP_moxrt

Value:

MK_UNUSED MOX_RT_T moxrt = amkrt->moxrt; \

assert(moxrt && moxrt->signature == MOX_RT_SIG);

Definition at line 920 of file LibMkKernel_atl.h.

920#define SETUP_moxrt MK_UNUSED MOX_RT_T moxrt = amkrt->moxrt; \

921 assert(moxrt && moxrt->signature == MOX_RT_SIG);

◆ SetupHdlConstr

#define SetupHdlConstr ( _ClassC )

Value:

  MK_RT_SETUP_METHOD;                                                                      \
  int __skip=2;                                                                            \
  /* on ATL the self is already available if the CTOR is called */                         \
  MK_UNUSED OT_SELF_T selfO = objv[1];                                                     \
    if (!AtlClassIsN(selfO,_ClassC##_lngO))                                                \
      OT_ERROR_LNG_RETURN_INVALID_CLASS(VAL2STR(MoxMy__CLASS__N(selfO)),OT_CLASS_NAME);    \
  MK_UNUSED MK_TYP hdl = _ClassC##_TT;         \

Definition at line 956 of file LibMkKernel_atl.h.

#define   SetupHdlConstr(_ClassC)                                                          \
  MK_RT_SETUP_METHOD;                                                                      \
  int __skip=2;                                                                            \
  /* on ATL the self is already available if the CTOR is called */                         \
  MK_UNUSED OT_SELF_T selfO = objv[1];                                                     \
    if (!AtlClassIsN(selfO,_ClassC##_lngO))                                                \
      OT_ERROR_LNG_RETURN_INVALID_CLASS(VAL2STR(MoxMy__CLASS__N(selfO)),OT_CLASS_NAME);    \
  MK_UNUSED MK_TYP hdl = _ClassC##_TT;         \
 

◆ SetupHdlFromMetaData_2

#define SetupHdlFromMetaData_2 ( _SHORT )

Value:

  SetupHdlFromMetaData_init_2(_SHORT)                                              \
    if (objc < 2) OT_ERROR_LNG_RETURN_STR_ERROR("error: missing hdl argument");    \
  __skip = 2;                                                                      \
  selfO = objv[1];                                                                 \
  hdl = SELF2HDL(selfO);                                                           \
    if (hdl == NULL) OT_ERROR_LNG_RETURN_HDL_IS_NULL();

Definition at line 936 of file LibMkKernel_atl.h.

#define   SetupHdlFromMetaData_2(_SHORT)                                           \
  SetupHdlFromMetaData_init_2(_SHORT)                                              \
    if (objc < 2) OT_ERROR_LNG_RETURN_STR_ERROR("error: missing hdl argument");    \
  __skip = 2;                                                                      \
  selfO = objv[1];                                                                 \
  hdl = SELF2HDL(selfO);                                                           \
    if (hdl == NULL) OT_ERROR_LNG_RETURN_HDL_IS_NULL(); 

◆ SetupHdlFromMetaData__null_allow_2

#define SetupHdlFromMetaData__null_allow_2 ( _SHORT )

Value:

  SetupHdlFromMetaData_init_2(_SHORT)                        \
  if (objc < 2) {                                            \
    __skip = 1;                                              \
    selfO = OT_CLASS;                                        \
    hdl = NULL;                                              \
  } else {                                                   \
    __skip = 2;                                              \
    selfO = objv[1];                                         \
    hdl = SELF2HDL(selfO);                                   \
  }

Definition at line 944 of file LibMkKernel_atl.h.

#define   SetupHdlFromMetaData__null_allow_2(_SHORT)         \
  SetupHdlFromMetaData_init_2(_SHORT)                        \
  if (objc < 2) {                                            \
    __skip = 1;                                              \
    selfO = OT_CLASS;                                        \
    hdl = NULL;                                              \
  } else {                                                   \
    __skip = 2;                                              \
    selfO = objv[1];                                         \
    hdl = SELF2HDL(selfO);                                   \
  }

◆ SetupHdlFromMetaData_init_2

#define SetupHdlFromMetaData_init_2 ( _SHORT )

Value:

MK_RT_SETUP_METHOD; \

int __skip; OT_SELF_T selfO; _SHORT hdl;

Definition at line 932 of file LibMkKernel_atl.h.

#define   SetupHdlFromMetaData_init_2(_SHORT)    \
  MK_RT_SETUP_METHOD;                            \
  int __skip; OT_SELF_T selfO; _SHORT hdl;

◆ SetupHdlStatic

#define SetupHdlStatic ( _ClassC )

Value:

  MK_RT_SETUP_METHOD;                          \
  int __skip=1;                                \
  MK_UNUSED OT_SELF_T selfO = OT_CLASS;        \
  MK_UNUSED MK_TYP hdl = _ClassC##_TT;         \

Definition at line 965 of file LibMkKernel_atl.h.

#define   SetupHdlStatic(_ClassC)              \
  MK_RT_SETUP_METHOD;                          \
  int __skip=1;                                \
  MK_UNUSED OT_SELF_T selfO = OT_CLASS;        \
  MK_UNUSED MK_TYP hdl = _ClassC##_TT;         \
 

◆ SKIP_ARGS

#define SKIP_ARGS ATL_ARGS, int __skip

Definition at line 113 of file LibMkKernel_atl.h.

◆ SKIP_ARGS_CALL

#define SKIP_ARGS_CALL ATL_ARGS_CALL, __skip

Definition at line 114 of file LibMkKernel_atl.h.

◆ str

#define str ( s )

Value:

#s

Definition at line 1348 of file LibMkKernel_atl.h.

◆ STR2VAL

#define STR2VAL ( ptr )

Value:

Tcl_NewStringObj((const char*)ptr,-1)

Definition at line 995 of file LibMkKernel_atl.h.

◆ STR2VAL_2

#define STR2VAL_2	(		ptr,
			len )

Value:

Tcl_NewStringObj((const char*)ptr,(int)len)

Definition at line 996 of file LibMkKernel_atl.h.

◆ STRN2VAL

#define STRN2VAL ( nat )

Value:

MK(STRN2VAL)(nat)

Definition at line 993 of file LibMkKernel_atl.h.

◆ U162VAL

#define U162VAL ( nat )

Value:

Tcl_NewIntObj((int)nat)

Definition at line 986 of file LibMkKernel_atl.h.

◆ VAL2BFL

#define VAL2BFL ( val )

Value:

((MK_BFL)Self2PtrN(val))

MK_BFL

struct MkBufferListS * MK_BFL

Definition at line 1004 of file LibMkKernel_atl.h.

◆ VAL2MkBinaryR

#define VAL2MkBinaryR ( obj )

Value:

({int size;unsigned char * bin =Tcl_GetByteArrayFromObj(obj,&size);MkBinaryCreate(size,bin);})

MkBinaryCreate

static MkBinaryR MkBinaryCreate(MK_SIZE size, MK_BINN data)

Definition at line 1242 of file LibMkKernel_atl.h.

1242#define VAL2MkBinaryR(obj) \

1243 ({int size;unsigned char * bin =Tcl_GetByteArrayFromObj(obj,&size);MkBinaryCreate(size,bin);})

◆ VAL2MkStringR

#define VAL2MkStringR ( obj )

Value:

({int len;char * str =Tcl_GetStringFromObj(obj,&len);MkStringCreate(len,str);})

MkStringCreate

static MkStringR MkStringCreate(MK_NUM len, MK_STRN str)

Definition at line 1253 of file LibMkKernel_atl.h.

1253#define VAL2MkStringR(obj) \

1254 ({int len;char * str =Tcl_GetStringFromObj(obj,&len);MkStringCreate(len,str);})

◆ VAL2MNG

#define VAL2MNG ( val )

Value:

((MK_MNG)Self2PtrN(val))

MK_MNG

MK_PTRB * MK_MNG

Definition at line 1005 of file LibMkKernel_atl.h.

◆ VAL2OBJ

#define VAL2OBJ ( val )

Value:

((MK_OBJ)Self2PtrN(val))

MK_OBJ

struct MkObjectS * MK_OBJ

Definition at line 1003 of file LibMkKernel_atl.h.

◆ VAL2SELF

#define VAL2SELF ( val )

Value:

(val)

Definition at line 1001 of file LibMkKernel_atl.h.

◆ VAL2STR

#define VAL2STR ( val )

Value:

Tcl_GetString(val)

Definition at line 999 of file LibMkKernel_atl.h.

◆ VAL2STR_NULL

#define VAL2STR_NULL ( val )

Value:

(val?Tcl_GetString(val):"NULL")

Definition at line 1000 of file LibMkKernel_atl.h.

◆ WNA

#define WNA	(	min,
		max,
		txt )

Value:

{ \
/* printObjV */ \
  if (objc<(__skip+min) || objc>(__skip+max)) { \
    Tcl_WrongNumArgs (interp, __skip, objv, txt); \
    return TCL_ERROR; \
  } \
}

Definition at line 761 of file LibMkKernel_atl.h.

#define WNA(min,max,txt) { \
/* printObjV */ \
  if (objc<(__skip+min) || objc>(__skip+max)) { \
    Tcl_WrongNumArgs (interp, __skip, objv, txt); \
    return TCL_ERROR; \
  } \
}

◆ xstr

#define xstr ( s )

Value:

str(s)

Definition at line 1347 of file LibMkKernel_atl.h.

Typedef Documentation

◆ AtlClassDefS

typedef struct AtlClassDefS AtlClassDefS

◆ AtlClassDefT

typedef AtlClassDefS* AtlClassDefT

Definition at line 1069 of file LibMkKernel_atl.h.

◆ LookupClassF

typedef int(* LookupClassF) (SKIP_ARGS)

Definition at line 754 of file LibMkKernel_atl.h.

◆ MkCallS

typedef struct MkCallS MkCallS

◆ MkCallTypeE

typedef enum MkCallTypeE MkCallTypeE

◆ OT_CLS_T

typedef MOX_CLS_T OT_CLS_T

Definition at line 239 of file LibMkKernel_atl.h.

◆ OT_ENUM_T

typedef MK_STRN OT_ENUM_T

Definition at line 242 of file LibMkKernel_atl.h.

◆ OT_ENV_T

typedef MOX_ENV_T OT_ENV_T

Definition at line 237 of file LibMkKernel_atl.h.

◆ OT_MK_RT_StatusE

typedef enum OT_MK_RT_StatusE OT_MK_RT_StatusE

◆ OT_MK_RT_T

typedef OT_MK_RT_S* OT_MK_RT_T

Definition at line 317 of file LibMkKernel_atl.h.

◆ OT_NS_T

typedef MOX_NS_T OT_NS_T

Definition at line 238 of file LibMkKernel_atl.h.

◆ OT_OBJ_T

typedef MOX_OBJ_T OT_OBJ_T

Definition at line 240 of file LibMkKernel_atl.h.

◆ OT_PTR_T

typedef MOX_PTR OT_PTR_T

Definition at line 236 of file LibMkKernel_atl.h.

◆ OT_SELF_T

typedef MOX_OBJ_T OT_SELF_T

Definition at line 243 of file LibMkKernel_atl.h.

◆ OT_VARFRAME

typedef struct MkVarFrameS* OT_VARFRAME

Definition at line 797 of file LibMkKernel_atl.h.

Enumeration Type Documentation

◆ MkCallTypeE

enum MkCallTypeE

Enumerator
MkCallS_init	0
MkCallS_null	1
MkCallS_proc	2
MkCallS_static	3
MkCallS_own_method	4
MkCallS_other_method	5
MkCallS_error	6

Definition at line 514 of file LibMkKernel_atl.h.

                         {
    MkCallS_init          = 0,
    MkCallS_null          = 1,
    MkCallS_proc          = 2,
    MkCallS_static        = 3,
    MkCallS_own_method    = 4,
    MkCallS_other_method  = 5,
    MkCallS_error         = 6,
} MkCallTypeE;

◆ OT_MK_RT_StatusE

enum OT_MK_RT_StatusE

Enumerator
OT_MK_RT_STATUS_NEW	0
OT_MK_RT_STATUS_ONEXIT	1
OT_MK_RT_STATUS_DELETED	2

Definition at line 245 of file LibMkKernel_atl.h.

                              {
  OT_MK_RT_STATUS_NEW     = 0,
  OT_MK_RT_STATUS_ONEXIT  = 1,
  OT_MK_RT_STATUS_DELETED = 2,
} OT_MK_RT_StatusE;

Function Documentation

◆ atlmkkernel_AtlArrayExists()

MK_ATL_EXTERN int atlmkkernel_AtlArrayExists ( OT_MK_ARGS OT_OBJ_T )

◆ atlmkkernel_AtlClassDefGetNN()

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

◆ atlmkkernel_AtlClassIsN()

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

◆ atlmkkernel_AtlInfoExists()

MK_ATL_EXTERN int atlmkkernel_AtlInfoExists ( OT_MK_ARGS OT_OBJ_T )

◆ atlmkkernel_AtlInfoScript()

MK_ATL_EXTERN MK_STRN atlmkkernel_AtlInfoScript ( OT_MK_ARGS MK_STRN )

◆ atlmkkernel_AtomCreate()

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

◆ atlmkkernel_AtomCreateCONSTR()

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

◆ atlmkkernel_AtomCreateNULL()

static OT_SELF_T atlmkkernel_AtomCreateNULL	(	OT_MK_ARGS OT_CLS_T	cls,
		MK_STRN	name,
		MK_PTR const	env )

inlinestatic

Definition at line 1439 of file LibMkKernel_atl.h.

  {
  return AtomMake(NULL, cls, STR2VAL(name), NULL, env);
}

◆ atlmkkernel_AtomDeleteHard()

static bool atlmkkernel_AtomDeleteHard ( OT_MK_ARGS OT_SELF_T selfO )

inlinestatic

Definition at line 1462 of file LibMkKernel_atl.h.

  {
  assert(selfO != NULL);
  // if (Tcl_InterpDeleted(interp)) return false;
  OT_NS_T ns = MoxResolveN(selfO);
    check_NULL(ns) return false;
  Tcl_DeleteNamespace(ns);
  // refer: AtomInit
  OT_REF_DECR(selfO);
  return true;
}

◆ atlmkkernel_AtomDispose()

static void atlmkkernel_AtomDispose ( OT_MK_ARGS OT_SELF_T selfO )

inlinestatic

Definition at line 1478 of file LibMkKernel_atl.h.

  { 
  assert(selfO != NULL);
  MK_MNG mng = VAL2MNG(selfO);
  check_NULL(mng) return;
  MK_OBJ obj = MkObj(mng);
  check_NULL(obj) return;
  // unlink ATL from META
  MkRefDecrWithUnlinkSelf(obj);
}

◆ atlmkkernel_AtomInit()

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

◆ atlmkkernel_AtomMake()

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

◆ atlmkkernel_AtomObjNew()

static OT_OBJ_T atlmkkernel_AtomObjNew	(	OT_MK_ARGS MK_OBJ	obj,
		MK_PTR	env )

inlinestatic

ATOM API

Definition at line 1385 of file LibMkKernel_atl.h.

  {
  #define __doc  "AtomObjNew"
  MK_PTR selfO = NULL;
  // force "class-NULL object → test done BEFORE "AtomObjNew" is called
  assert(obj != NULL);
  MkErrorC_Check(obj, MkSelfNew(obj,&selfO,env))
  OT_OBJ_T ret = OT_LNG_SELF_2_LNG(selfO);
  return ret;
  #undef  __doc
error:
  return NULL;
}

◆ atlmkkernel_AtomUnlink()

static void atlmkkernel_AtomUnlink ( OT_MK_ARGS OT_SELF_T selfO )

inlinestatic

Definition at line 1493 of file LibMkKernel_atl.h.

  { 
#if 0
  // I need a HATRD-DELETE here because the namespace should also be deleted.
  //
  // Every instance has a namespace, and the @e instance-ns has a dependency on the @e instance-type-ns. 
  // The @RMqExit uses `Tcl_Exit` to delete, among other things, all namespaces, including the @e instance-ns. 
  // However, the @e instance-ns in turn has a dependency on the @e type-ns, which is also deleted. 
  // A simple @e unlink removes the dependency, which then results in the @e type-ns being deleted, perhaps @b BEFORE 
  // the @e instance-ns, which in turn has consequences for memory management.
  MK(AtomDeleteHard) ( OT_MK_CALL selfO );
#else
  assert(selfO != NULL);
  OT_OBJ_T  myO = SELF2VAL(selfO);
    check_NULL(myO) return;
 
  OT_NS_T myNs = MoxResolveN(myO);
  myNs->clientData = NULL;
  myNs->deleteProc = NULL;
  //PTR2SELF(selfO,0);
#endif
}

◆ atlmkkernel_CallCopy()

static void atlmkkernel_CallCopy	(	MK_RT	mkrt,
		MK_OBJ	obj,
		MK_CBP *	dataP )

inlinestatic

Definition at line 596 of file LibMkKernel_atl.h.

{
  assert (dataP != NULL && *dataP != NULL);
 
  MkCallS *call = MkSysMemDup(MK_ERROR_PANIC,*dataP,sizeof(*call));
  call->isAlloc = true;
 
  call->my   = OT_OBJ_COPY (call->my)     ;
  call->mth  = OT_OBJ_COPY (call->mth)    ;
  call->args = OT_OBJ_COPY (call->args)   ;
  call->nsO  = OT_OBJ_COPY (call->nsO)    ;
 
  *dataP = call;
}

◆ atlmkkernel_CallFree()

static void atlmkkernel_CallFree ( MK_CBP * dataP )

inlinestatic

Definition at line 566 of file LibMkKernel_atl.h.

{
  if (amkrtR.signature != OT_MK_RT_SIG) return;
 
  MkCallS * call = *dataP;
 
//MkCallLog(call);
 
  call->signature = 0x0;
 
  OT_REF_DECR_AND_NULL(call->mth);
  OT_REF_DECR_AND_NULL(call->my);
  OT_REF_DECR_AND_NULL(call->args);
  OT_REF_DECR_AND_NULL(call->nsO);
 
  if (call->isAlloc)  MkSysFree(*dataP); 
  else                *dataP = NULL;
}

◆ atlmkkernel_CallFreeOnce()

static void atlmkkernel_CallFreeOnce ( MK_CBP * callP )

inlinestatic

Definition at line 585 of file LibMkKernel_atl.h.

{
  MK(CallFree) (callP);
}

◆ atlmkkernel_CallLog()

MK_ATL_EXTERN void atlmkkernel_CallLog	(	MK_RT	mkrt,
		MkCallS *	call,
		MK_STRN	caller )

◆ atlmkkernel_ClassDef()

MK_ATL_EXTERN OT_CLS_T atlmkkernel_ClassDef	(	OT_MK_ARGS	MK_TYP,
		OT_NS_T *	)

◆ atlmkkernel_ClassName()

MK_ATL_EXTERN MK_STRN atlmkkernel_ClassName	(	OT_Prefix_ARGS	OT_OBJ_T,
		bool	)

◆ atlmkkernel_EnumFlagWorker()

MK_ATL_EXTERN int atlmkkernel_EnumFlagWorker	(	MK_RT	mkrt,
		OT_ENV_T	,
		const struct LookupEnumE *	,
		OT_OBJ_T	,
		int *	)

◆ atlmkkernel_EvalObjv()

static int atlmkkernel_EvalObjv ( OT_EVAL_ARGS )

inlinestatic

Definition at line 865 of file LibMkKernel_atl.h.

{
  int i,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;
}

◆ atlmkkernel_EvalObjvFr()

static OT_OBJ_T atlmkkernel_EvalObjvFr	(	OT_VARFRAME_ARGS	,
		OT_EVAL_ARGS	)

inlinestatic

Definition at line 855 of file LibMkKernel_atl.h.

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

◆ atlmkkernel_EvalObjvRt()

static OT_OBJ_T atlmkkernel_EvalObjvRt ( OT_EVAL_ARGS )

inlinestatic

Definition at line 849 of file LibMkKernel_atl.h.

{
  check_LNG(Tcl_EvalObjv (interp, objc, objv, flags)) return NULL;
  return Tcl_GetObjResult(interp);
}

◆ atlmkkernel_EvalObjvVA()

MK_ATL_EXTERN int atlmkkernel_EvalObjvVA	(	OT_ENV_T	,
		int	,
			... )

◆ atlmkkernel_FillNamespace()

MK_ATL_EXTERN int atlmkkernel_FillNamespace	(	OT_ENV_T	,
		const OtObjProcDefS	[],
		ClientData	)

◆ atlmkkernel_Get_Call_File()

MK_ATL_EXTERN MK_STRN atlmkkernel_Get_Call_File ( FRAME_ARGS )

◆ atlmkkernel_Get_Call_Line()

MK_ATL_EXTERN MK_I32 atlmkkernel_Get_Call_Line ( FRAME_ARGS )

◆ atlmkkernel_Get_Call_Proc()

MK_ATL_EXTERN MK_STRN atlmkkernel_Get_Call_Proc ( FRAME_ARGS )

◆ atlmkkernel_Get_Call_Stack()

MK_ATL_EXTERN bool atlmkkernel_Get_Call_Stack	(	OT_MK_ARGS MK_ERR const	,
		int	)

◆ atlmkkernel_GetClassFrmNsPtr()

static OT_CLS_T atlmkkernel_GetClassFrmNsPtr	(	OT_MK_ARGS OT_NS_T	nsP,
		int	flags )

inlinestatic

Definition at line 1075 of file LibMkKernel_atl.h.

                                                                              {
  AtlClassDefT clsDef = AtlClassDefGetNN(nsP,NULL,NULL,flags);
    if (clsDef != NULL) return clsDef->classO;
/*
  assert(nsP != NULL);
  SETUP_moxrt;
  return MoxCls__NS__NN(nsP,0);
*/
  return NULL;
}

◆ atlmkkernel_GetClassFromProc()

static OT_CLS_T atlmkkernel_GetClassFromProc ( OT_MK_ARGS Tcl_Command cmdT )

inlinestatic

Definition at line 1088 of file LibMkKernel_atl.h.

                                                                        {
  Tcl_CmdInfo cmdInfo;
  Tcl_GetCommandInfoFromToken(cmdT,&cmdInfo);
  SETUP_moxrt;
  return MoxCls__NS__NN(cmdInfo.namespacePtr,0);
}

◆ atlmkkernel_GetTypeFromObj()

MK_ATL_EXTERN MK_STRN atlmkkernel_GetTypeFromObj	(	OT_Prefix_ARGS	OT_OBJ_T,
		bool *	)

◆ atlmkkernel_LngListToMkBufferListS()

MK_ATL_EXTERN enum MkErrorE atlmkkernel_LngListToMkBufferListS	(	OT_Prefix_ARGS	OT_OBJ_T,
		MK_BFL *	)

◆ atlmkkernel_MkBufferC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkBufferC_ObjNew ( OT_MK_ARGS MkBufferC_type hdl )

inlinestatic

Definition at line 1133 of file LibMkKernel_atl.h.

                                                                          {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkBufferC_X2obj(hdl), amkrt) : MkBufferC_rt.AtlMkBufferC_MK_NULL );
  }

◆ atlmkkernel_MkBufferListC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkBufferListC_ObjNew ( OT_MK_ARGS MkBufferListC_type hdl )

inlinestatic

Definition at line 1114 of file LibMkKernel_atl.h.

                                                                                  {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkBufferListC_X2obj(hdl), amkrt) : MkBufferListC_rt.AtlMkBufferListC_MK_NULL );
  }

◆ atlmkkernel_MkBufferStreamC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkBufferStreamC_ObjNew ( OT_MK_ARGS MkBufferStreamC_type hdl )

inlinestatic

Definition at line 1152 of file LibMkKernel_atl.h.

                                                                                      {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkBufferStreamC_X2obj(hdl), amkrt) : MkBufferStreamC_rt.AtlMkBufferStreamC_MK_NULL );
  }

◆ atlmkkernel_MkErrorC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkErrorC_ObjNew ( OT_MK_ARGS MkErrorC_type hdl )

inlinestatic

Definition at line 1171 of file LibMkKernel_atl.h.

                                                                        {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkErrorC_X2obj(hdl), amkrt) : MkErrorC_rt.AtlMkErrorC_MK_NULL );
  }

◆ atlmkkernel_MkLogFileC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkLogFileC_ObjNew ( OT_MK_ARGS MkLogFileC_type hdl )

inlinestatic

Definition at line 1190 of file LibMkKernel_atl.h.

                                                                            {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkLogFileC_X2obj(hdl), amkrt) : MkLogFileC_rt.AtlMkLogFileC_MK_NULL );
  }

◆ atlmkkernel_MkObjectC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkObjectC_ObjNew ( OT_MK_ARGS MkObjectC_type hdl )

inlinestatic

Definition at line 1209 of file LibMkKernel_atl.h.

                                                                          {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkObjectC_X2obj(hdl), amkrt) : MkObjectC_rt.AtlMkObjectC_MK_NULL );
  }

◆ atlmkkernel_MkRuntimeC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T atlmkkernel_MkRuntimeC_ObjNew ( OT_MK_ARGS MkRuntimeC_type hdl )

inlinestatic

Definition at line 1228 of file LibMkKernel_atl.h.

                                                                            {
    return ( hdl ? MK(AtomObjNew) (OT_MK_CALL MkRuntimeC_X2obj(hdl), amkrt) : MkRuntimeC_rt.AtlMkRuntimeC_MK_NULL );
  }

◆ atlmkkernel_Obj_AsSTR_COPY()

MK_ATL_EXTERN enum MkErrorE atlmkkernel_Obj_AsSTR_COPY	(	OT_Check_ARGS	,
		MK_STR	,
		size_t	)

◆ atlmkkernel_ObjectDeleteCall()

enum MkErrorE atlmkkernel_ObjectDeleteCall ( MkObjectDeleteCallF_ARGS )

◆ atlmkkernel_ObjectDeleteFree()

void atlmkkernel_ObjectDeleteFree ( MkObjectDeleteFreeF_ARGS )

◆ atlmkkernel_ObjvToString()

MK_ATL_EXTERN MK_STRN atlmkkernel_ObjvToString	(	MK_RT	mkrt,
		MK_STRN	cls,
		ATL_ARGS	)

◆ atlmkkernel_OT_ERROR_LNG_RETURN_HDL_IS_NULL()

int atlmkkernel_OT_ERROR_LNG_RETURN_HDL_IS_NULL	(	OT_MK_ARGS	OT_CLS_T,
		OT_OBJ_T	)

◆ atlmkkernel_OT_VARFRAME_ADD()

static OT_OBJ_T atlmkkernel_OT_VARFRAME_ADD	(	OT_VARFRAME_ARGS	,
		OT_OBJ_T	add )

inlinestatic

Definition at line 811 of file LibMkKernel_atl.h.

                                                                           {
  if (varframe != NULL) {
    if (varframe->num >= varframe->max) {
      void *tmp;
      if (varframe->data == varframe->prealloc) {
        tmp = MkSysCalloc(MK_ERROR_PANIC,(size_t)varframe->max*2,sizeof(OT_OBJ_T));
        memcpy(tmp,varframe->data,(size_t)varframe->max*sizeof(OT_OBJ_T));
      } else {
        tmp = MkSysReCalloc(MK_ERROR_PANIC,varframe->data,varframe->max,varframe->max,sizeof(OT_OBJ_T));
      }
      varframe->data = tmp;
      varframe->max *= 2;
    }
    varframe->data[varframe->num++] = add;
    Tcl_IncrRefCount(add);
  }
  return add;
}

◆ atlmkkernel_pMkBufferC_Init()

int atlmkkernel_pMkBufferC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_pMkBufferListC_Init()

int atlmkkernel_pMkBufferListC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_pMkBufferStreamC_Init()

int atlmkkernel_pMkBufferStreamC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_pMkErrorC_Init()

int atlmkkernel_pMkErrorC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_pMkLogFileC_Init()

int atlmkkernel_pMkLogFileC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_pMkObjectC_Init()

int atlmkkernel_pMkObjectC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_pMkRuntimeC_Init()

int atlmkkernel_pMkRuntimeC_Init ( OT_MK_ARGS OT_NS_T )

◆ atlmkkernel_PrintObj()

MK_ATL_EXTERN MK_STR atlmkkernel_PrintObj	(	OT_Prefix_ARGS	MK_STRN,
		OT_OBJ_T	)

◆ atlmkkernel_PrintObj2()

MK_ATL_EXTERN void atlmkkernel_PrintObj2	(	OT_Prefix_ARGS	MK_STRN,
		OT_OBJ_T	,
		MK_STRN	)

◆ atlmkkernel_ProcResolve()

MK_ATL_EXTERN enum MkErrorE atlmkkernel_ProcResolve	(	OT_MK_ARGS	MK_MNG,
		struct MkCallS *	)

◆ atlmkkernel_ProcResolveAppendArgs()

static void atlmkkernel_ProcResolveAppendArgs	(	struct MkCallS *	call,
		int *	objcP,
		OT_OBJ_T	objv[] )

inlinestatic

Definition at line 544 of file LibMkKernel_atl.h.

  {
  assert(call   != NULL);
  assert(objcP  != NULL);
  assert(objv   != NULL);
 
  if (call->args == NULL) return;
  int myobjc;
  OT_OBJ_T *myobjv;
  int objc = *objcP;
  // call->args already checked to be a valid TCL-LIST
  Tcl_ListObjGetElements(NULL,call->args,&myobjc,&myobjv);
  for (int i=0; i<myobjc; i++) {
//printLLngObj(objv[i])
    objv[objc++] = myobjv[i];
  }
  *objcP = objc;
}

◆ atlmkkernel_Self2PtrN()

static MK_MNG atlmkkernel_Self2PtrN	(	OT_ENV_T	interp,
		OT_SELF_T	myO )

inlinestatic

Definition at line 1363 of file LibMkKernel_atl.h.

                                                                  {
  OT_NS_T myP = MoxResolveN(myO);
    if (myP == NULL) return NULL;
  return Self2PtrNN(myP);
}

◆ atlmkkernel_Self2PtrNN()

static MK_MNG atlmkkernel_Self2PtrNN ( OT_NS_T nsP )

inlinestatic

Definition at line 1359 of file LibMkKernel_atl.h.

                                                {
  return nsP->clientData;
}

◆ atlmkkernel_STRN2VAL()

static OT_OBJ_T atlmkkernel_STRN2VAL ( MK_STRN val )

inlinestatic

Definition at line 1009 of file LibMkKernel_atl.h.

                                             {
  static MkThreadLocal OT_OBJ_T T_MK_NULL = NULL;
  if (T_MK_NULL == NULL) {
    T_MK_NULL = Tcl_NewStringObj(MK_NULL_STR,-1);
    Tcl_IncrRefCount(T_MK_NULL);
  }
  // mark=MK_NULL
  if (val==MK_NULL) {
    return T_MK_NULL;
  } else {
    return Tcl_NewStringObj(val,-1);
  }
}

◆ atlmkkernel_TestObject()

MK_ATL_EXTERN bool atlmkkernel_TestObject	(	OT_Prefix_ARGS	OT_OBJ_T,
		OT_CLS_T	,
		MK_OBJ *	,
		MkTestClassE *	)

◆ atlmkkernel_UnknownSetup()

MK_ATL_EXTERN int atlmkkernel_UnknownSetup	(	OT_ENV_T	,
		const OtObjProcDefS	[],
		ClientData	)

◆ Ot_DecrRefCount()

static void Ot_DecrRefCount ( OT_OBJ_T tclO )

inlinestatic

Definition at line 1268 of file LibMkKernel_atl.h.

                                                 {
  if (tclO) Tcl_DecrRefCount(tclO);
}

Here is the caller graph for this function:

◆ Ot_GetStringFromObj()

static MkStringR Ot_GetStringFromObj ( OT_OBJ_T tclO )

inlinestatic

Definition at line 1262 of file LibMkKernel_atl.h.

                                                          {
  int len = 0;
  char* str = Tcl_GetStringFromObj(tclO,&len);
  return MkStringCreate(len,str);
}

Variable Documentation

◆ amkrtR

__thread OT_MK_RT_S amkrtR

extern

Data Structures

Macros

Typedefs

Enumerations

Functions

Variables

Detailed Description

Macro Definition Documentation

◆ __doc

◆ AltClassDef

◆ ATL_ARGS

◆ ATL_ARGS_CALL

◆ Atl_EvalObjv

◆ ATL_OBJV_ARGS

◆ ATL_OBJV_ARGS_CALL

◆ AtlArrayExists

◆ AtlClassDefGetNN

◆ AtlClassIsN

◆ AtlClassName_buf_size

◆ AtlGetClassFrmNsPtr

◆ AtlGetClassFromProc

◆ AtlInfoExists

◆ AtlInfoScript

◆ AtlUnknownSetup

◆ AtomCreate

◆ AtomCreateCONSTR

◆ AtomCreateNULL

◆ AtomInit

◆ AtomMake

◆ BIN2VAL

◆ BOL2VAL

◆ CallProlog

◆ check_LNG

◆ check_META

◆ check_NULL

◆ CLS2VAL

◆ CONSTR_ARGS

◆ DBL2VAL

◆ FLT2VAL

◆ FRAME_ARGS

◆ FRAME_CALL

◆ Get_MkErrorE_FromObj_path

◆ Get_MkIdSE_FromObj_path

◆ Get_MkTimeoutE_FromObj_path

◆ Get_MkTypeE_FromObj_path

◆ HDL2VAL

◆ HEADER

◆ I162VAL

◆ I642VAL

◆ I82VAL

◆ INT2VAL

◆ LLG2VAL

◆ LONG2VAL

◆ ME_REF_MkBinaryR

◆ ME_REF_MkStringR

◆ META2VAL_O

◆ META2VAL_X

◆ META_CONTEXT_S

◆ MK

◆ MK_ATL_EXTERN

◆ MK_ATL_EXTERN_DATA

◆ MkBufferC_ARGS

◆ MkBufferC_ARGS_CALL

◆ MkBufferC_lngO

◆ MkBufferC_ObjNew

◆ MkBufferC_rt

◆ MkBufferCTT

◆ MkBufferListC_ARGS

◆ MkBufferListC_ARGS_CALL

◆ MkBufferListC_lngO

◆ MkBufferListC_ObjNew

◆ MkBufferListC_rt

◆ MkBufferListCTT

◆ MkBufferStreamC_ARGS

◆ MkBufferStreamC_ARGS_CALL

◆ MkBufferStreamC_lngO

◆ MkBufferStreamC_ObjNew

◆ MkBufferStreamC_rt

◆ MkBufferStreamCTT

◆ MkCallLog