theSq3Lite 10.0 NHI1 - theKernel - theLink - theConfig - theSq3Lite - theCompiler - theBrain - theGuard - theLib - theATL
c - tcl - atl - cs - py - rb - jv - cc
Loading...
Searching...
No Matches
Data Structures | Macros | Typedefs | Enumerations | Functions | Variables
LibMkKernel_tcl.h File Reference

LibMkKernel_tcl.h - 10 Apr 2025 - aotto1968. More...

#include <tcl.h>
#include <tclOO.h>
#include "LibMkKernel_mk.h"
#include "tmpl/mk_type_S_lng.h"
#include "MkRegistry_tcl.h"
#include "tmpl/mk_misc_check_lng.h"
#include "tmpl/mk_misc_ObjAs_lng.h"
+ Include dependency graph for LibMkKernel_tcl.h:
+ This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures

struct  MkCallS
 
struct  LookupEnumE
 
struct  LookupClassS
 
struct  OtUnknownS
 
struct  MkVarFrameS
 
struct  OtObjProcDefS
 

Macros

#define HEADER
 
#define MK_TCL_EXTERN
 static library
 
#define MK_TCL_EXTERN_DATA   extern
 
#define MK(n)
 
#define NS(n)
 
#define META_CONTEXT_S   hdl
 
#define OT_ProcRet   int
 
#define TCL_ARGS   OT_ENV_T interp, int objc, OT_OBJ_T const *objv
 
#define TCL_ARGS_CALL   interp, objc, objv
 
#define OBJECT_ARGS
 
#define OBJECT_ARGS_CALL   hdl, interp, objCtx, objc, objv
 
#define OBJCMD_ARGS   ClientData clientData, OT_ENV_T interp, int objc, OT_OBJ_T const *objv
 
#define OBJCMD_ARGS_CALL   clientData, interp, objc, objv
 
#define CONSTR_ARGS   OBJECT_ARGS
 
#define SKIP_ARGS   TCL_ARGS, int __skip
 
#define SKIP_ARGS_CALL   TCL_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 TCL_ARGS
 
#define SETUP_ARGS_CALL   MK_RT_CALL TCL_ARGS_CALL
 
#define OT_retObj_CONSTR(x)
 
#define OT_CONSTRUCTOR_POST(x)
 
#define OT_retObj_SET(val)
 
#define OT_retObj_SET_None   retObj = RG(noneObj);
 
#define OT_retObj_SET_Error
 
#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_LNG_NULL   NULL
 
#define OT_LNG_UNDEF   NULL
 
#define OT_LNG_RETURN(ret, cmd)
 
#define OT_LNG_FULLNAME_FROM_OBJECT(_obj)
 
#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(obj)
 
#define OT_LNG_OBJ_CLASSNAME_SHORT(obj)
 
#define OT_OBJ_TYPE_STRING(obj)
 
#define OT_LNG_NAME_CLASS_FROM_CONTEXT(ox)
 
#define OT_LNG_OBJV(__skip)
 
#define OT_OBJ_TO_CLASS(str)
 
#define OT_OBJ_TO_ENUM(str)
 
#define OT_LNG_SET_VAR(var, val)
 
#define OT_REGISTRY_AS_TLS
 
#define RG(_key)
 
#define regTclObj(str)
 
#define regTclObj2(def, str)
 
#define RL(num)
 
#define RL_init(code)
 
#define RL_NewC(num, str)
 
#define RL_NewS(num, str)
 
#define RL_NewI(num, itg)
 
#define RL_O(num, obj)
 
#define RL_objv(num)
 
#define RL_Free(num)
 
#define OT_ERROR_LNG_RETURN   return TCL_ERROR
 
#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_LNG_RETURN_HDL_NAT_NULL(_hdl)
 
#define OT_ERROR_VAR_DEFAULT(...)
 
#define OT_ERROR_LNG_RETURN_VAR_ERROR(...)
 
#define OT_Prefix_ARGS   OT_ENV_T interp, MK_RT_ARGS
 
#define OT_Prefix_CALL   interp, MK_RT_CALL
 
#define OT_Check_ARGS   MK_RT_ARGS MK_MNG hdl, MK_STRN const arg, TCL_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 OtErrorCheckLng(cmd)
 
#define OtErrorCheckLngGoto(cmd)
 
#define OtErrorCheckLngGoto1(cmd)
 
#define OtErrorCheckLngGoto2(cmd)
 
#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 SETUP_interp   MK_UNUSED OT_ENV_T const interp = (OT_ENV_T const) MK_RT_REF.mkThreadData.ptr;
 
#define SETUP_mqctx   struct MqContextS * const mqctx = (struct MqContextS * const) hdl;
 
#define SETUP_tclctx   struct TclContextS * const tclctx = (struct TclContextS * const) hdl;
 
#define SETUP_selfO   OT_SELF_T selfO = OT_SELF_X(hdl);
 
#define SETUP_selfX(x)
 
#define MQCTX   (hdl)
 
#define TCLCTX   ((struct TclContextS * const)hdl)
 
#define OT_SELF_O(o)
 
#define OT_SELF_X(x)
 
#define OT_SELF   selfO
 
#define OT_SELF_NAME_O(o)
 
#define OT_SELF_CMD_O(o)
 
#define SetupHdlFromMetaData_init_2(_CLS, _SHORT)
 
#define SetupHdlFromMetaData_2(_CLS, _SHORT)
 
#define SetupHdlFromMetaData__null_allow_2(_CLS, _SHORT)
 
#define MkCallS_SIG   0x82335642
 
#define MkProcResolve_maxArgsLen   16
 
#define OT_OBJ_COPY(o)
 
#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)(MK_RT_CALL interp,&frame)
 
#define OT_GET_CALL_FILE   MK(Get_Call_File)(MK_RT_CALL interp,&frame)
 
#define OT_GET_CALL_LINE   MK(Get_Call_Line)(MK_RT_CALL interp,&frame)
 
#define WNA(min, max, txt)
 
#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_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 PTR2VAL(nat)
 
#define SELF2VAL(slf)
 
#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, len)
 
#define LONG2VAL(nat)
 
#define VAL2STR(obj)
 
#define VAL2SELF(obj)
 
#define SELF2MNG(slf)
 
#define OT_TCL_EXTERN   __attribute__ ((visibility("default")))
 
#define OT_TMP_BAC_OBJ(val)
 
#define MkBufferListC_lngO   MK(MkBufferListC)
 
#define OT_retObj_SET_BFL(nat)
 
#define OT_TMP_BFL_OBJ(val)
 
#define MkBufferC_lngO   MK(MkBufferC)
 
#define OT_retObj_SET_BUF(nat)
 
#define OT_TMP_BUF_OBJ(val)
 
#define MkBufferStreamC_lngO   MK(MkBufferStreamC)
 
#define OT_retObj_SET_BUS(nat)
 
#define OT_TMP_BUS_OBJ(val)
 
#define MkErrorC_lngO   MK(MkErrorC)
 
#define OT_retObj_SET_ERR(nat)
 
#define OT_TMP_ERR_OBJ(val)
 
#define MkLogFileC_lngO   MK(MkLogFileC)
 
#define OT_retObj_SET_LFL(nat)
 
#define OT_TMP_LFL_OBJ(val)
 
#define MkObjectC_lngO   MK(MkObjectC)
 
#define OT_retObj_SET_OBJ(nat)
 
#define OT_TMP_OBJ_OBJ(val)
 
#define MkRuntimeC_lngO   MK(MkRuntimeC)
 
#define OT_retObj_SET_RT(nat)
 
#define OT_TMP_RT_OBJ(val)
 
#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_fixstr(_s)
 
#define ot_fixstrobj(_s)
 
#define ot_enum_append(_o, _s)
 
#define printLng(var)
 
#define printXLng(x, var)
 
#define printLngObj(var)
 
#define printXLngObj(x, var)
 
#define printLLngObj(var)
 
#define printLngErrorCode()
 
#define printLngErrorInfo()
 
#define printObjv   printV( "__skip=%i, objc=%i",__skip,objc) ; printAry3( " ",objc,objv)
 
#define printXObjv(x)
 
#define printAry(c, o)
 
#define printAryDetail(c, o)
 
#define printXAry(x, pre, c, o)
 
#define printXAry4(x, pre, 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 __doc   "AtomObjNew"
 
#define BUFLEN   127
 

Typedefs

typedef Tcl_Obj * OT_OBJ_T
 
typedef MK_STRN OT_ENUM_T
 
typedef Tcl_Class OT_CLS_T
 
typedef Tcl_Interp * OT_ENV_T
 
typedef Tcl_Namespace * OT_NS_T
 
typedef Tcl_Object OT_SELF_T
 
typedef struct MkCallS MkCallS
 
typedef int(* LookupClassF) (SKIP_ARGS)
 
typedef struct MkVarFrameS * OT_VARFRAME
 

Enumerations

enum  OtUnknownE { OT_UNKNOWN_CLASS , OT_UNKNOWN_INSTANCE }
 

Functions

MK_TCL_EXTERN OT_SELF_T tclmkkernel_GetClassObjectFromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T selfO)
 
static OT_SELF_T tclmkkernel_AtomInit (MK_RT mkrt, OT_ENV_T, OT_SELF_T, MK_OBJ)
 
static OT_SELF_T tclmkkernel_AtomCreate (MK_RT mkrt, OT_ENV_T, MK_OBJ, OT_CLS_T, MK_STRN, MK_STRN)
 
static OT_OBJ_T tclmkkernel_AtomObjNew (MK_RT mkrt, OT_ENV_T, MK_OBJ)
 
static bool tclmkkernel_AtomDeleteHard (MK_RT mkrt, OT_ENV_T, OT_SELF_T)
 
static void tclmkkernel_AtomUnlink (MK_RT mkrt, OT_ENV_T, OT_SELF_T)
 
static void tclmkkernel_AtomDispose (MK_RT mkrt, OT_SELF_T)
 
MK_TCL_EXTERN enum MkErrorE tclmkkernel_ProcResolve (MK_RT mkrt, OT_ENV_T, MK_MNG, struct MkCallS *)
 
static void tclmkkernel_ProcResolveAppendArgs (struct MkCallS *call, int *objcP, OT_OBJ_T objv[])
 
static void tclmkkernel_CallFree (MK_CBP *dataP)
 
static void tclmkkernel_CallFreeOnce (MK_CBP *dataP)
 
static void tclmkkernel_CallCopy (MK_RT mkrt, MK_OBJ obj, MK_CBP *dataP)
 
MK_TCL_EXTERN enum MkErrorE tclmkkernel_Obj_AsSTR_COPY (OT_Check_ARGS, MK_STR, size_t)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_InfoScript (MK_RT mkrt, OT_ENV_T, MK_STRN)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_Get_Call_Proc (MK_RT mkrt, OT_ENV_T, OT_OBJ_T *)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_Get_Call_File (MK_RT mkrt, OT_ENV_T, OT_OBJ_T *)
 
MK_TCL_EXTERN MK_I32 tclmkkernel_Get_Call_Line (MK_RT mkrt, OT_ENV_T, OT_OBJ_T *)
 
MK_TCL_EXTERN bool tclmkkernel_Get_Call_Stack (MK_RT mkrt, OT_ENV_T, MK_ERR const, int)
 
MK_TCL_EXTERN int tclmkkernel_EnumFlagWorker (MK_RT mkrt, OT_ENV_T, const struct LookupEnumE *, OT_OBJ_T, int *)
 
MK_TCL_EXTERN int tclmkkernel_MkBufferC_ToObject (MkBufferC_ARGS)
 
MK_TCL_EXTERN int tclmkkernel_MkBufferC_GetBFL (MkBufferC_ARGS)
 
MK_TCL_EXTERN int tclmkkernel_MkBufferC_Temp (MkBufferC_ARGS)
 
MK_TCL_EXTERN int tclmkkernel_MkBufferListC_ToList (MkBufferListC_ARGS)
 
MK_TCL_EXTERN bool tclmkkernel_TestObject (OT_Prefix_ARGS OT_OBJ_T, OT_CLS_T, MK_OBJ *, MkTestClassE *)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_ClassName (OT_Prefix_ARGS OT_OBJ_T, bool)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_GetTypeFromObj (OT_Prefix_ARGS OT_OBJ_T, bool *)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_GetClassNameFromObject (OT_Prefix_ARGS OT_SELF_T)
 
MK_TCL_EXTERN OT_SELF_T tclmkkernel_ClassDef (OT_ENV_T, OT_NS_T, MK_TYP)
 
MK_TCL_EXTERN int tclmkkernel_UnknownSetup (OT_ENV_T, OT_SELF_T, const Tcl_MethodType[], OtUnknownS *)
 
static OT_OBJ_T tclmkkernel_OT_VARFRAME_ADD (OT_VARFRAME_ARGS, OT_OBJ_T add)
 
MK_TCL_EXTERN MK_STR tclmkkernel_PrintLngObj (OT_Prefix_ARGS const char *, OT_OBJ_T)
 
MK_TCL_EXTERN int tclmkkernel_EvalObjvVA (OT_ENV_T, int,...)
 
MK_TCL_EXTERN OT_OBJ_T tclmkkernel_EvalObjvAR (OT_VARFRAME_ARGS, OT_ENV_T, int, int, OT_OBJ_T *)
 
MK_TCL_EXTERN MK_STRN tclmkkernel_ObjvToString (MK_RT mkrt, MK_STRN cls, TCL_ARGS)
 
MK_TCL_EXTERN OT_OBJ_T tclmkkernel_GetMyFromObject (OT_ENV_T, OT_SELF_T)
 
MK_TCL_EXTERN enum MkErrorE tclmkkernel_LngListToMkBufferListS (OT_Prefix_ARGS OT_OBJ_T, MK_BFL *)
 
static int tclmkkernel_EvalObjv (OT_ENV_T interp, int objc, OT_OBJ_T const objv[], int flags)
 
MK_TCL_EXTERN int tclmkkernel_FillNamespace (OT_ENV_T, OT_NS_T, const OtObjProcDefS[], ClientData)
 
MK_TCL_EXTERN MK_ERR tclmkkernel_MkExceptionC_Catch (OT_Prefix_ARGS MK_MNG const, MK_EXP const, MK_STRN const)
 
MK_TCL_EXTERN void tclmkkernel_MkExceptionC_Raise (OT_Prefix_ARGS MK_MNGN const, MK_STRN const, MK_STRN const, MK_I32)
 
void tclmkkernel_ObjectDeleteFree (MkObjectDeleteFreeF_ARGS)
 
enum MkErrorE tclmkkernel_ObjectDeleteCall (MkObjectDeleteCallF_ARGS)
 
MK_TCL_EXTERN OT_OBJ_T tclmkkernel_MkErrorE_ToString (const enum MkErrorE)
 
MK_TCL_EXTERN OT_OBJ_T tclmkkernel_MkIdSE_ToString (const enum MkIdSE)
 
MK_TCL_EXTERN OT_OBJ_T tclmkkernel_MkTimeoutE_ToString (const enum MkTimeoutE)
 
MK_TCL_EXTERN OT_OBJ_T tclmkkernel_MkTypeE_ToString (const enum MkTypeE)
 
MK_TCL_EXTERN int tclmkkernel_Get_MkErrorE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkErrorE *ret)
 
MK_TCL_EXTERN int tclmkkernel_Get_MkIdSE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkIdSE *ret)
 
MK_TCL_EXTERN int tclmkkernel_Get_MkTimeoutE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTimeoutE *ret)
 
MK_TCL_EXTERN int tclmkkernel_Get_MkTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum MkTypeE *ret)
 
static OT_OBJ_T tclmkkernel_STRN2VAL (MK_STRN val)
 
int tclmkkernel_pMkBufferListC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkBufferListC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkBufferListC_type hdl)
 
int tclmkkernel_pMkBufferC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkBufferC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkBufferC_type hdl)
 
int tclmkkernel_pMkBufferStreamC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkBufferStreamC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkBufferStreamC_type hdl)
 
int tclmkkernel_pMkErrorC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkErrorC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkErrorC_type hdl)
 
int tclmkkernel_pMkLogFileC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkLogFileC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkLogFileC_type hdl)
 
int tclmkkernel_pMkObjectC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkObjectC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkObjectC_type hdl)
 
int tclmkkernel_pMkRuntimeC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
 
static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkRuntimeC_ObjNew (MK_RT mkrt, OT_ENV_T interp, MkRuntimeC_type hdl)
 
static MkStringR Ot_GetStringFromObj (OT_OBJ_T tclO)
 

Variables

MK_TCL_EXTERN_DATA const Tcl_ObjectMetadataType tclmkkernel_AtomMeta
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_reggv [100]
 
MK_TCL_EXTERN_DATA const Tcl_ObjType * tclmkkernel_tcl_LONG
 
MK_TCL_EXTERN_DATA const Tcl_ObjType * tclmkkernel_tcl_WIDE
 
MK_TCL_EXTERN_DATA const Tcl_ObjType * tclmkkernel_tcl_DOUBLE
 
MK_TCL_EXTERN_DATA const Tcl_ObjType * tclmkkernel_tcl_BOOLEAN
 
MK_TCL_EXTERN_DATA const Tcl_ObjType * tclmkkernel_tcl_INDEX
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkBufferListC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkBufferListC_MK_NULL
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkBufferC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkBufferC_MK_NULL
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkBufferStreamC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkBufferStreamC_MK_NULL
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkErrorC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkErrorC_MK_NULL
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkLogFileC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkLogFileC_MK_NULL
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkObjectC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkObjectC_MK_NULL
 
MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkRuntimeC
 
MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkRuntimeC_MK_NULL
 

Detailed Description

LibMkKernel_tcl.h - 10 Apr 2025 - aotto1968.

Copyright
(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information
Version
220e89cf9473580117e04029d678fcf7e7736959
Date
Thu Apr 10 14:00:03 2025 +0200
Author
aotto1968 aotto.nosp@m.1968.nosp@m.@t-on.nosp@m.line.nosp@m..de

Definition in file LibMkKernel_tcl.h.

Macro Definition Documentation

◆ __doc

#define __doc   "AtomObjNew"

◆ BIN2VAL

#define BIN2VAL ( ptr,
len )
Value:
Tcl_NewByteArrayObj((const unsigned char*)ptr,(int)len)

Definition at line 882 of file LibMkKernel_tcl.h.

◆ BOL2VAL

#define BOL2VAL ( nat)
Value:
Tcl_NewBooleanObj(nat)

Definition at line 872 of file LibMkKernel_tcl.h.

◆ BUFLEN

#define BUFLEN   127

◆ check_LNG

#define check_LNG ( code)
Value:
if ((code) != TCL_OK)

Definition at line 421 of file LibMkKernel_tcl.h.

◆ check_META

#define check_META ( code)
Value:
if (MkErrorCheckI(code))

Definition at line 423 of file LibMkKernel_tcl.h.

◆ check_NULL

#define check_NULL ( code)
Value:
if ((code) == NULL)

Definition at line 422 of file LibMkKernel_tcl.h.

◆ CONSTR_ARGS

#define CONSTR_ARGS   OBJECT_ARGS

Definition at line 105 of file LibMkKernel_tcl.h.

◆ DBL2VAL

#define DBL2VAL ( nat)
Value:
Tcl_NewDoubleObj(nat)

Definition at line 880 of file LibMkKernel_tcl.h.

◆ FLT2VAL

#define FLT2VAL ( nat)
Value:
Tcl_NewDoubleObj(nat)

Definition at line 879 of file LibMkKernel_tcl.h.

◆ Get_MkErrorE_FromObj_path

#define Get_MkErrorE_FromObj_path   MK(Get_MkErrorE_FromObj)

Definition at line 847 of file LibMkKernel_tcl.h.

◆ Get_MkIdSE_FromObj_path

#define Get_MkIdSE_FromObj_path   MK(Get_MkIdSE_FromObj)

Definition at line 850 of file LibMkKernel_tcl.h.

◆ Get_MkTimeoutE_FromObj_path

#define Get_MkTimeoutE_FromObj_path   MK(Get_MkTimeoutE_FromObj)

Definition at line 853 of file LibMkKernel_tcl.h.

◆ Get_MkTypeE_FromObj_path

#define Get_MkTypeE_FromObj_path   MK(Get_MkTypeE_FromObj)

Definition at line 856 of file LibMkKernel_tcl.h.

◆ HDL2VAL

#define HDL2VAL ( nat)
Value:
Tcl_NewIntObj(nat)

Definition at line 877 of file LibMkKernel_tcl.h.

◆ HEADER

#define HEADER

Definition at line 34 of file LibMkKernel_tcl.h.

◆ I162VAL

#define I162VAL ( nat)
Value:
Tcl_NewIntObj(nat)

Definition at line 873 of file LibMkKernel_tcl.h.

◆ I642VAL

#define I642VAL ( nat)
Value:
Tcl_NewWideIntObj(nat)

Definition at line 876 of file LibMkKernel_tcl.h.

◆ I82VAL

#define I82VAL ( nat)
Value:
Tcl_NewIntObj(nat)

Definition at line 871 of file LibMkKernel_tcl.h.

◆ INT2VAL

#define INT2VAL ( nat)
Value:
Tcl_NewIntObj(nat)

Definition at line 875 of file LibMkKernel_tcl.h.

◆ LLG2VAL

#define LLG2VAL ( nat)
Value:
Tcl_NewWideIntObj(nat)

Definition at line 878 of file LibMkKernel_tcl.h.

◆ LONG2VAL

#define LONG2VAL ( nat)
Value:
Tcl_NewLongObj(nat)

Definition at line 884 of file LibMkKernel_tcl.h.

◆ ME_REF_MkBinaryR

#define ME_REF_MkBinaryR   MkBinaryR

Definition at line 1059 of file LibMkKernel_tcl.h.

◆ ME_REF_MkStringR

#define ME_REF_MkStringR   MkStringR

Definition at line 1070 of file LibMkKernel_tcl.h.

◆ META2VAL_O

#define META2VAL_O ( o)
Value:
SELF2VAL(OT_SELF_O(o))
OT_SELF_O
#define OT_SELF_O(o)
Definition LibMkKernel_tcl.h:473
SELF2VAL
#define SELF2VAL(slf)
Definition LibMkKernel_tcl.h:867

Definition at line 869 of file LibMkKernel_tcl.h.

◆ META2VAL_X

#define META2VAL_X ( x)
Value:
SELF2VAL(OT_SELF_X(x))
OT_SELF_X
#define OT_SELF_X(x)
Definition LibMkKernel_tcl.h:474

Definition at line 868 of file LibMkKernel_tcl.h.

◆ META_CONTEXT_S

#define META_CONTEXT_S   hdl

Definition at line 91 of file LibMkKernel_tcl.h.

◆ MK

#define MK ( n)
Value:
tclmkkernel_ ## n

Definition at line 85 of file LibMkKernel_tcl.h.

◆ MK_TCL_EXTERN

#define MK_TCL_EXTERN

static library

Definition at line 58 of file LibMkKernel_tcl.h.

◆ MK_TCL_EXTERN_DATA

#define MK_TCL_EXTERN_DATA   extern

Definition at line 81 of file LibMkKernel_tcl.h.

◆ MkBufferC_ARGS

#define MkBufferC_ARGS   OBJECT_ARGS

Definition at line 119 of file LibMkKernel_tcl.h.

◆ MkBufferC_ARGS_CALL

#define MkBufferC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 120 of file LibMkKernel_tcl.h.

◆ MkBufferC_lngO

#define MkBufferC_lngO   MK(MkBufferC)

Definition at line 946 of file LibMkKernel_tcl.h.

◆ MkBufferListC_ARGS

#define MkBufferListC_ARGS   OBJECT_ARGS

Definition at line 117 of file LibMkKernel_tcl.h.

◆ MkBufferListC_ARGS_CALL

#define MkBufferListC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 118 of file LibMkKernel_tcl.h.

◆ MkBufferListC_lngO

#define MkBufferListC_lngO   MK(MkBufferListC)

Definition at line 928 of file LibMkKernel_tcl.h.

◆ MkBufferStreamC_ARGS

#define MkBufferStreamC_ARGS   OBJECT_ARGS

Definition at line 121 of file LibMkKernel_tcl.h.

◆ MkBufferStreamC_ARGS_CALL

#define MkBufferStreamC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 122 of file LibMkKernel_tcl.h.

◆ MkBufferStreamC_lngO

#define MkBufferStreamC_lngO   MK(MkBufferStreamC)

Definition at line 964 of file LibMkKernel_tcl.h.

◆ MkCallS_SIG

#define MkCallS_SIG   0x82335642

Definition at line 507 of file LibMkKernel_tcl.h.

◆ MkErrorC_ARGS

#define MkErrorC_ARGS   OBJECT_ARGS

Definition at line 123 of file LibMkKernel_tcl.h.

◆ MkErrorC_ARGS_CALL

#define MkErrorC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 124 of file LibMkKernel_tcl.h.

◆ MkErrorC_Check

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

Definition at line 403 of file LibMkKernel_tcl.h.

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

◆ MkErrorC_CheckD

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

Definition at line 408 of file LibMkKernel_tcl.h.

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

◆ MkErrorC_lngO

#define MkErrorC_lngO   MK(MkErrorC)

Definition at line 982 of file LibMkKernel_tcl.h.

◆ MkLogFileC_ARGS

#define MkLogFileC_ARGS   OBJECT_ARGS

Definition at line 125 of file LibMkKernel_tcl.h.

◆ MkLogFileC_ARGS_CALL

#define MkLogFileC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 126 of file LibMkKernel_tcl.h.

◆ MkLogFileC_lngO

#define MkLogFileC_lngO   MK(MkLogFileC)

Definition at line 1000 of file LibMkKernel_tcl.h.

◆ MkObjectC_ARGS

#define MkObjectC_ARGS   OBJECT_ARGS

Definition at line 127 of file LibMkKernel_tcl.h.

◆ MkObjectC_ARGS_CALL

#define MkObjectC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 128 of file LibMkKernel_tcl.h.

◆ MkObjectC_lngO

#define MkObjectC_lngO   MK(MkObjectC)

Definition at line 1018 of file LibMkKernel_tcl.h.

◆ MkProcResolve_maxArgsLen

#define MkProcResolve_maxArgsLen   16

Definition at line 530 of file LibMkKernel_tcl.h.

◆ MkRuntimeC_ARGS

#define MkRuntimeC_ARGS   OBJECT_ARGS

Definition at line 129 of file LibMkKernel_tcl.h.

◆ MkRuntimeC_ARGS_CALL

#define MkRuntimeC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 130 of file LibMkKernel_tcl.h.

◆ MkRuntimeC_lngO

#define MkRuntimeC_lngO   MK(MkRuntimeC)

Definition at line 1036 of file LibMkKernel_tcl.h.

◆ MQCTX

#define MQCTX   (hdl)

Definition at line 471 of file LibMkKernel_tcl.h.

◆ NO_OtCheckEnum

#define NO_OtCheckEnum

Definition at line 603 of file LibMkKernel_tcl.h.

◆ NO_OtCheckEnumFlag

#define NO_OtCheckEnumFlag

Definition at line 604 of file LibMkKernel_tcl.h.

◆ NO_TestObject

#define NO_TestObject

Definition at line 605 of file LibMkKernel_tcl.h.

◆ NS

#define NS ( n)
Value:
tclmkkernel_ ## n

Definition at line 87 of file LibMkKernel_tcl.h.

◆ OBJCMD_ARGS

#define OBJCMD_ARGS   ClientData clientData, OT_ENV_T interp, int objc, OT_OBJ_T const *objv

Definition at line 102 of file LibMkKernel_tcl.h.

◆ OBJCMD_ARGS_CALL

#define OBJCMD_ARGS_CALL   clientData, interp, objc, objv

Definition at line 103 of file LibMkKernel_tcl.h.

◆ OBJECT_ARGS

#define OBJECT_ARGS
Value:
ClientData clientData, OT_ENV_T interp, Tcl_ObjectContext objCtx, \
int objc, OT_OBJ_T const *objv
OT_ENV_T
Tcl_Interp * OT_ENV_T
Definition LibMkKernel_tcl.h:243
OT_OBJ_T
Tcl_Obj * OT_OBJ_T
Definition LibMkKernel_tcl.h:240

Definition at line 98 of file LibMkKernel_tcl.h.

98#define OBJECT_ARGS ClientData clientData, OT_ENV_T interp, Tcl_ObjectContext objCtx, \
99 int objc, OT_OBJ_T const *objv

◆ OBJECT_ARGS_CALL

#define OBJECT_ARGS_CALL   hdl, interp, objCtx, objc, objv

Definition at line 100 of file LibMkKernel_tcl.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++]); \
}
VAL2MkBinaryR
#define VAL2MkBinaryR(obj)
Definition LibMkKernel_tcl.h:1061

Definition at line 1063 of file LibMkKernel_tcl.h.

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

◆ 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++]); \
}
VAL2MkStringR
#define VAL2MkStringR(obj)
Definition LibMkKernel_tcl.h:1072

Definition at line 1074 of file LibMkKernel_tcl.h.

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

◆ OT_Check_ARGS

#define OT_Check_ARGS   MK_RT_ARGS MK_MNG hdl, MK_STRN const arg, TCL_ARGS, int *skipP

Definition at line 350 of file LibMkKernel_tcl.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); \
}
MK_BIN
MK_BINB * MK_BIN

Definition at line 381 of file LibMkKernel_tcl.h.

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

◆ 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); \
}
MK_BINN
MK_BINB const * MK_BINN

Definition at line 388 of file LibMkKernel_tcl.h.

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

◆ 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; \
}
MK_SIZE
long MK_SIZE

Definition at line 372 of file LibMkKernel_tcl.h.

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

◆ OT_CHECK_bool

#define OT_CHECK_bool ( val)
Value:
OT_CHECK_LNGTMPL(val,MK(Obj_AsBOOL))
MK
#define MK(n)
Definition LibMkKernel_tcl.h:85
OT_CHECK_LNGTMPL
#define OT_CHECK_LNGTMPL(val, func)
Definition LibMkKernel_tcl.h:627
Obj_AsBOOL
MK_ATTR_HOT MK_EXTERN enum MkErrorE MK_DECL MK Obj_AsBOOL(OT_Check_ARGS, bool *)

Definition at line 629 of file LibMkKernel_tcl.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_tcl.h:351
MkErrorC_CheckD
#define MkErrorC_CheckD(PROC)
Definition LibMkKernel_tcl.h:408

Definition at line 647 of file LibMkKernel_tcl.h.

◆ OT_Check_CALL

#define OT_Check_CALL ( arg)
Value:
MK_RT_CALL hdl, arg, TCL_ARGS_CALL, &__skip
TCL_ARGS_CALL
#define TCL_ARGS_CALL
Definition LibMkKernel_tcl.h:96
MK_RT_CALL
#define MK_RT_CALL

Definition at line 351 of file LibMkKernel_tcl.h.

◆ OT_Check_CALL2

#define OT_Check_CALL2 ( arg)
Value:
MK_RT_CALL hdl, arg, TCL_ARGS_CALL, skipP

Definition at line 352 of file LibMkKernel_tcl.h.

◆ OT_CHECK_ENUM

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

Definition at line 608 of file LibMkKernel_tcl.h.

608#define OT_CHECK_ENUM(ename,val) \
609 if (__skip >= objc) {\
610 OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
611 } else { \
612 OtErrorCheckLngGoto(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)); \
613 }

◆ 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 { \
OtErrorCheckLngGoto(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)); \
}

Definition at line 615 of file LibMkKernel_tcl.h.

615#define OT_CHECK_ENUM_FLAG(ename,val) \
616 if (__skip >= objc) {\
617 OT_ERROR_NUMARGS(hdl,__skip, objc, -999, +999, #val); \
618 } else { \
619 OtErrorCheckLngGoto(Get_ ## ename ## _FromObj_path (MK_RT_CALL interp,objv[__skip++],&val)); \
620 }

◆ OT_CHECK_IXN

#define OT_CHECK_IXN ( val)
Value:
OT_CHECK_LNGTMPL(val,MK(Obj_AsLLG))

Definition at line 637 of file LibMkKernel_tcl.h.

◆ OT_CHECK_LNGTMPL

#define OT_CHECK_LNGTMPL ( val,
func )
Value:
MkErrorC_CheckD (func(OT_Check_CALL(#val),&val));

Definition at line 627 of file LibMkKernel_tcl.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 630 of file LibMkKernel_tcl.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 638 of file LibMkKernel_tcl.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 639 of file LibMkKernel_tcl.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 631 of file LibMkKernel_tcl.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 632 of file LibMkKernel_tcl.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 634 of file LibMkKernel_tcl.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 636 of file LibMkKernel_tcl.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 642 of file LibMkKernel_tcl.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 641 of file LibMkKernel_tcl.h.

◆ OT_CHECK_NOARGS

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

Definition at line 363 of file LibMkKernel_tcl.h.

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

◆ 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 357 of file LibMkKernel_tcl.h.

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

◆ OT_CHECK_OPTIONAL

#define OT_CHECK_OPTIONAL ( val)
Value:
if (__skip < objc) {val}

Definition at line 354 of file LibMkKernel_tcl.h.

◆ OT_CHECK_REQUIRED

#define OT_CHECK_REQUIRED ( val)
Value:
val

Definition at line 355 of file LibMkKernel_tcl.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 640 of file LibMkKernel_tcl.h.

◆ OT_CHECK_STRN_NULL

#define OT_CHECK_STRN_NULL ( val)
Value:
OT_CHECK_LNGTMPL(val,MK(Obj_AsCSTNull))

Definition at line 644 of file LibMkKernel_tcl.h.

◆ OT_CHECK_U2N

#define OT_CHECK_U2N ( val)
Value:
OT_CHECK_LNGTMPL(val,MK(Obj_AsU16))

Definition at line 633 of file LibMkKernel_tcl.h.

◆ OT_CHECK_U4N

#define OT_CHECK_U4N ( val)
Value:
OT_CHECK_LNGTMPL(val,MK(Obj_AsU32))

Definition at line 635 of file LibMkKernel_tcl.h.

◆ OT_CONSTRUCTOR_POST

#define OT_CONSTRUCTOR_POST ( x)

Definition at line 167 of file LibMkKernel_tcl.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_tcl.h:1096

Definition at line 1097 of file LibMkKernel_tcl.h.

◆ OT_ERROR_ABNORMAL

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

Definition at line 329 of file LibMkKernel_tcl.h.

329#define OT_ERROR_ABNORMAL(mng) { \
330 MkErrorSetV_4M(mng,__func__,999,"AbnormalError: %s", Tcl_GetStringResult(interp));\
331 Tcl_ResetResult(interp); \
332}

◆ OT_ERROR_CONSTRUCTOR

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

Definition at line 317 of file LibMkKernel_tcl.h.

317#define OT_ERROR_CONSTRUCTOR(class) { \
318 Tcl_SetResult(interp, "InitError: '" #class "' constructor return 'NULL' pointer", TCL_STATIC); \
319 if (MkErrorCheckE_0E()) { \
320 Tcl_AppendResult(interp, "\nMqError: ", MkErrorGetText_0E(), NULL); \
321 MkErrorReset_0M(); \
322 } \
323}

◆ 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_tcl.h:349

Definition at line 414 of file LibMkKernel_tcl.h.

◆ OT_ERROR_LNG_RETURN

#define OT_ERROR_LNG_RETURN   return TCL_ERROR

Definition at line 308 of file LibMkKernel_tcl.h.

◆ OT_ERROR_LNG_RETURN_HDL_NAT_NULL

#define OT_ERROR_LNG_RETURN_HDL_NAT_NULL ( _hdl)
Value:
{ \
Tcl_SetResult(interp, "NatIsNullError : ", TCL_STATIC); \
Tcl_AppendResult(interp, MkObjectToString(_hdl)); \
return TCL_ERROR; \
}
MkObjectToString
#define MkObjectToString(...)

Definition at line 335 of file LibMkKernel_tcl.h.

335#define OT_ERROR_LNG_RETURN_HDL_NAT_NULL(_hdl) { \
336 Tcl_SetResult(interp, "NatIsNullError : ", TCL_STATIC); \
337 Tcl_AppendResult(interp, MkObjectToString(_hdl)); \
338 return TCL_ERROR; \
339}

◆ 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_tcl.h:341

Definition at line 343 of file LibMkKernel_tcl.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 413 of file LibMkKernel_tcl.h.

◆ OT_ERROR_NUMARGS

#define OT_ERROR_NUMARGS ( ...)
Value:
MkErrorC_CheckD(WrongNumArgs(__VA_ARGS__))
WrongNumArgs
#define WrongNumArgs(...)
Definition mk_misc_ObjAs_lng.h:35

Definition at line 326 of file LibMkKernel_tcl.h.

326#define OT_ERROR_NUMARGS(...) \
327 MkErrorC_CheckD(WrongNumArgs(__VA_ARGS__))

◆ OT_ERROR_SOFT_CONSTRUCTOR

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

Definition at line 313 of file LibMkKernel_tcl.h.

313#define OT_ERROR_SOFT_CONSTRUCTOR(class) { \
314 Tcl_SetResult(interp, "InitSoftError: '" #class "' soft constructor return 'NULL' pointer", TCL_STATIC); \
315}

◆ OT_ERROR_TYPE

#define OT_ERROR_TYPE ( str)
Value:
Tcl_SetObjResult(interp, Tcl_ObjPrintf("TYPE ERROR: %s", str));
str
#define str(s)
Definition LibMkKernel_tcl.h:1151

Definition at line 310 of file LibMkKernel_tcl.h.

310#define OT_ERROR_TYPE(str) \
311 Tcl_SetObjResult(interp, Tcl_ObjPrintf("TYPE ERROR: %s", str));

◆ OT_ERROR_VAR_DEFAULT

#define OT_ERROR_VAR_DEFAULT ( ...)
Value:
Tcl_SetObjResult(interp,Tcl_ObjPrintf(__VA_ARGS__));

Definition at line 341 of file LibMkKernel_tcl.h.

◆ ot_fixstr

#define ot_fixstr ( _s)
Value:
_s,strlen(_s)

Definition at line 1095 of file LibMkKernel_tcl.h.

◆ ot_fixstrobj

#define ot_fixstrobj ( _s)
Value:
Tcl_NewStringObj(_s,strlen(_s))

Definition at line 1096 of file LibMkKernel_tcl.h.

◆ OT_FRAME_CLEANUP

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

Definition at line 141 of file LibMkKernel_tcl.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_tcl.h:882

Definition at line 1060 of file LibMkKernel_tcl.h.

◆ OT_GET__ME_REF_MkStringR

#define OT_GET__ME_REF_MkStringR ( s)
Value:
STR2VAL(s.ptr,s.len)
STR2VAL
#define STR2VAL(ptr, len)
Definition LibMkKernel_tcl.h:883

Definition at line 1071 of file LibMkKernel_tcl.h.

◆ OT_GET_CALL_FILE

#define OT_GET_CALL_FILE   MK(Get_Call_File)(MK_RT_CALL interp,&frame)

Definition at line 652 of file LibMkKernel_tcl.h.

◆ OT_GET_CALL_LINE

#define OT_GET_CALL_LINE   MK(Get_Call_Line)(MK_RT_CALL interp,&frame)

Definition at line 653 of file LibMkKernel_tcl.h.

◆ OT_GET_CALL_PROC

#define OT_GET_CALL_PROC   MK(Get_Call_Proc)(MK_RT_CALL interp,&frame)

Definition at line 651 of file LibMkKernel_tcl.h.

◆ OT_GET_CONSTR_NAME

#define OT_GET_CONSTR_NAME ( ctor)
Value:
VAL2STR(ctor)
VAL2STR
#define VAL2STR(obj)
Definition LibMkKernel_tcl.h:886

Definition at line 368 of file LibMkKernel_tcl.h.

◆ OT_LNG_FULLNAME_FROM_OBJECT

#define OT_LNG_FULLNAME_FROM_OBJECT ( _obj)
Value:
Tcl_GetString(Tcl_GetObjectName(interp,_obj))

Definition at line 253 of file LibMkKernel_tcl.h.

◆ OT_LNG_NAME_CLASS_FROM_CONTEXT

#define OT_LNG_NAME_CLASS_FROM_CONTEXT ( ox)
Value:
OT_LNG_NAME_FROM_CLASS(Tcl_MethodDeclarerClass(Tcl_ObjectContextMethod(ox)))
OT_LNG_NAME_FROM_CLASS
#define OT_LNG_NAME_FROM_CLASS(_cls)
Definition LibMkKernel_tcl.h:255

Definition at line 263 of file LibMkKernel_tcl.h.

263#define OT_LNG_NAME_CLASS_FROM_CONTEXT(ox) \
264 OT_LNG_NAME_FROM_CLASS(Tcl_MethodDeclarerClass(Tcl_ObjectContextMethod(ox)))

◆ OT_LNG_NAME_FROM_CLASS

#define OT_LNG_NAME_FROM_CLASS ( _cls)
Value:
OT_LNG_NAME_FROM_OBJECT(Tcl_GetClassAsObject(_cls))
OT_LNG_NAME_FROM_OBJECT
#define OT_LNG_NAME_FROM_OBJECT(_obj)
Definition LibMkKernel_tcl.h:254

Definition at line 255 of file LibMkKernel_tcl.h.

◆ OT_LNG_NAME_FROM_OBJ

#define OT_LNG_NAME_FROM_OBJ ( _obj)
Value:
OT_LNG_NAME_FROM_OBJECT(Tcl_GetObjectFromObj(interp,_obj))

Definition at line 256 of file LibMkKernel_tcl.h.

◆ OT_LNG_NAME_FROM_OBJECT

#define OT_LNG_NAME_FROM_OBJECT ( _obj)
Value:
Tcl_GetCommandName(interp,Tcl_GetObjectCommand(_obj))

Definition at line 254 of file LibMkKernel_tcl.h.

◆ OT_LNG_NULL

#define OT_LNG_NULL   NULL

Definition at line 247 of file LibMkKernel_tcl.h.

◆ OT_LNG_OBJ_CLASSNAME

#define OT_LNG_OBJ_CLASSNAME ( obj)
Value:
MK(ClassName)(OT_Prefix_CALL obj, false)

Definition at line 258 of file LibMkKernel_tcl.h.

◆ OT_LNG_OBJ_CLASSNAME_SHORT

#define OT_LNG_OBJ_CLASSNAME_SHORT ( obj)
Value:
MK(ClassName)(OT_Prefix_CALL obj, true)

Definition at line 259 of file LibMkKernel_tcl.h.

◆ OT_LNG_OBJV

#define OT_LNG_OBJV ( __skip)
Value:
objv[__skip]

Definition at line 266 of file LibMkKernel_tcl.h.

◆ OT_LNG_RETURN

#define OT_LNG_RETURN ( ret,
cmd )
Value:
OtErrorCheckLngGoto(cmd); \
ret = Tcl_GetObjResult(interp); \
OtErrorCheckLngGoto
#define OtErrorCheckLngGoto(cmd)
Definition LibMkKernel_tcl.h:417

Definition at line 249 of file LibMkKernel_tcl.h.

249#define OT_LNG_RETURN(ret,cmd) \
250 OtErrorCheckLngGoto(cmd); \
251 ret = Tcl_GetObjResult(interp); \
252

◆ 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 271 of file LibMkKernel_tcl.h.

271#define OT_LNG_SET_VAR(var,val) \
272 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 248 of file LibMkKernel_tcl.h.

◆ OT_MK_CALL_0

#define OT_MK_CALL_0 ( hdl,
cls,
meth,
ret )
Value:
{ \
OtErrorCheckLngGoto(MK(cls##_##meth)(hdl,interp, NULL, 0, NULL)); \
ret = Tcl_GetObjResult(interp); \
}

Definition at line 231 of file LibMkKernel_tcl.h.

231#define OT_MK_CALL_0(hdl,cls,meth,ret) { \
232 OtErrorCheckLngGoto(MK(cls##_##meth)(hdl,interp, NULL, 0, NULL)); \
233 ret = Tcl_GetObjResult(interp); \
234}

◆ OT_NEW_Mk_enum_OBJ

#define OT_NEW_Mk_enum_OBJ ( typ,
val )
Value:
MK(Mk ## typ ## _ToString(val))

Definition at line 832 of file LibMkKernel_tcl.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_tcl.h:457

Definition at line 580 of file LibMkKernel_tcl.h.

◆ OT_OBJ_TO_CLASS

#define OT_OBJ_TO_CLASS ( str)
Value:
str

Definition at line 268 of file LibMkKernel_tcl.h.

◆ OT_OBJ_TO_ENUM

#define OT_OBJ_TO_ENUM ( str)
Value:
#str

Definition at line 269 of file LibMkKernel_tcl.h.

◆ OT_OBJ_TYPE_STRING

#define OT_OBJ_TYPE_STRING ( obj)
Value:
MK(ClassName)(OT_Prefix_CALL obj, false)

Definition at line 260 of file LibMkKernel_tcl.h.

◆ OT_OBJECT_DELETE

#define OT_OBJECT_DELETE ( O)
Value:
MK(AtomDeleteHard) (MK_RT_CALL interp, O)

Definition at line 455 of file LibMkKernel_tcl.h.

◆ OT_OBJECT_DELETE_HARD

#define OT_OBJECT_DELETE_HARD ( O)
Value:
MK(AtomDeleteHard) (MK_RT_CALL interp,O)

Definition at line 451 of file LibMkKernel_tcl.h.

◆ OT_OBJECT_DELETE_SOFT

#define OT_OBJECT_DELETE_SOFT ( O)
Value:
error: done in AtomMetaDelete

Definition at line 448 of file LibMkKernel_tcl.h.

◆ OT_OBJECT_DISPOSE

#define OT_OBJECT_DISPOSE ( O)
Value:
MK(AtomDispose) (MK_RT_CALL O)

Definition at line 454 of file LibMkKernel_tcl.h.

◆ OT_Prefix_ARGS

#define OT_Prefix_ARGS   OT_ENV_T interp, MK_RT_ARGS

Definition at line 348 of file LibMkKernel_tcl.h.

◆ OT_Prefix_CALL

#define OT_Prefix_CALL   interp, MK_RT_CALL

Definition at line 349 of file LibMkKernel_tcl.h.

◆ OT_ProcRet

#define OT_ProcRet   int

Definition at line 93 of file LibMkKernel_tcl.h.

◆ OT_REF_DECR

#define OT_REF_DECR ( _obj)
Value:
Tcl_DecrRefCount(_obj)

Definition at line 458 of file LibMkKernel_tcl.h.

◆ OT_REF_DECR_AND_NULL

#define OT_REF_DECR_AND_NULL ( _obj)
Value:
if (_obj) { Tcl_DecrRefCount (_obj) ; _obj = NULL; }

Definition at line 460 of file LibMkKernel_tcl.h.

◆ OT_REF_INCR

#define OT_REF_INCR ( _obj)
Value:
Tcl_IncrRefCount(_obj)

Definition at line 457 of file LibMkKernel_tcl.h.

◆ OT_REF_INCR_AND_RETURN

#define OT_REF_INCR_AND_RETURN ( _obj)
Value:
({ Tcl_IncrRefCount(_obj); _obj;})

Definition at line 459 of file LibMkKernel_tcl.h.

◆ OT_REGISTRY_AS_TLS

#define OT_REGISTRY_AS_TLS

Definition at line 276 of file LibMkKernel_tcl.h.

◆ OT_retObj_APPEND

#define OT_retObj_APPEND ( var)
Value:
OtErrorCheckLngGoto(Tcl_ListObjAppendElement(interp,retObj,var));

Definition at line 174 of file LibMkKernel_tcl.h.

◆ OT_retObj_CONSTR

#define OT_retObj_CONSTR ( x)
Value:
retObj = Tcl_GetObjectName(interp,MK(AtomInit)(MK_RT_CALL interp,selfO,MkOBJ(x)));
MkOBJ
#define MkOBJ(x)

Definition at line 166 of file LibMkKernel_tcl.h.

◆ OT_retObj_RETURN

#define OT_retObj_RETURN
Value:
if (retObj != NULL) { \
Tcl_SetObjResult(interp,retObj); \
return TCL_OK; \
} else { \
return TCL_ERROR; \
}

Definition at line 175 of file LibMkKernel_tcl.h.

175#define OT_retObj_RETURN \
176 if (retObj != NULL) { \
177 Tcl_SetObjResult(interp,retObj); \
178 return TCL_OK; \
179 } else { \
180 return TCL_ERROR; \
181 }

◆ OT_retObj_SET

#define OT_retObj_SET ( val)
Value:
retObj = (val);

Definition at line 169 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_BFL

#define OT_retObj_SET_BFL ( nat)
Value:
retObj = MK(MkBufferListC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 934 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_BIN

#define OT_retObj_SET_BIN ( nat,
len )
Value:
retObj = BIN2VAL(nat,len);

Definition at line 209 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_BOL

#define OT_retObj_SET_BOL ( nat)
Value:
retObj = BOL2VAL(nat);
BOL2VAL
#define BOL2VAL(nat)
Definition LibMkKernel_tcl.h:872

Definition at line 200 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_BUF

#define OT_retObj_SET_BUF ( nat)
Value:
retObj = MK(MkBufferC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 952 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_BUS

#define OT_retObj_SET_BUS ( nat)
Value:
retObj = MK(MkBufferStreamC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 970 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_DBL

#define OT_retObj_SET_DBL ( nat)
Value:
retObj = DBL2VAL(nat);
DBL2VAL
#define DBL2VAL(nat)
Definition LibMkKernel_tcl.h:880

Definition at line 208 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_ERR

#define OT_retObj_SET_ERR ( nat)
Value:
retObj = MK(MkErrorC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 988 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_Error

#define OT_retObj_SET_Error
Value:
retObj = NULL; \
/*Tcl_AppendResult(interp,"\n -> found in: ", doc, NULL);*/

Definition at line 171 of file LibMkKernel_tcl.h.

171#define OT_retObj_SET_Error retObj = NULL; \
172 /*Tcl_AppendResult(interp,"\n -> found in: ", doc, NULL);*/

◆ OT_retObj_SET_FLT

#define OT_retObj_SET_FLT ( nat)
Value:
retObj = FLT2VAL(nat);
FLT2VAL
#define FLT2VAL(nat)
Definition LibMkKernel_tcl.h:879

Definition at line 207 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_HDL

#define OT_retObj_SET_HDL ( nat)
Value:
retObj = HDL2VAL(nat);
HDL2VAL
#define HDL2VAL(nat)
Definition LibMkKernel_tcl.h:877

Definition at line 213 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_I16

#define OT_retObj_SET_I16 ( nat)
Value:
retObj = I162VAL(nat);
I162VAL
#define I162VAL(nat)
Definition LibMkKernel_tcl.h:873

Definition at line 202 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_I32

#define OT_retObj_SET_I32 ( nat)
Value:
retObj = INT2VAL(nat);
INT2VAL
#define INT2VAL(nat)
Definition LibMkKernel_tcl.h:875

Definition at line 204 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_I64

#define OT_retObj_SET_I64 ( nat)
Value:
retObj = I642VAL(nat);
I642VAL
#define I642VAL(nat)
Definition LibMkKernel_tcl.h:876

Definition at line 205 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_I8

#define OT_retObj_SET_I8 ( nat)
Value:
retObj = I82VAL(nat);
I82VAL
#define I82VAL(nat)
Definition LibMkKernel_tcl.h:871

Definition at line 201 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_LFL

#define OT_retObj_SET_LFL ( nat)
Value:
retObj = MK(MkLogFileC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 1006 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_List

#define OT_retObj_SET_List   retObj = Tcl_NewListObj(0,NULL);

Definition at line 173 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_LLG

#define OT_retObj_SET_LLG ( nat)
Value:
retObj = LLG2VAL(nat);
LLG2VAL
#define LLG2VAL(nat)
Definition LibMkKernel_tcl.h:878

Definition at line 206 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_LONG

#define OT_retObj_SET_LONG ( nat)
Value:
retObj = LONG2VAL(nat);
LONG2VAL
#define LONG2VAL(nat)
Definition LibMkKernel_tcl.h:884

Definition at line 212 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_None

#define OT_retObj_SET_None   retObj = RG(noneObj);

Definition at line 170 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_OBJ

#define OT_retObj_SET_OBJ ( nat)
Value:
retObj = MK(MkObjectC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 1024 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_RT

#define OT_retObj_SET_RT ( nat)
Value:
retObj = MK(MkRuntimeC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 1042 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_STR

#define OT_retObj_SET_STR ( nat)
Value:
retObj = STRN2VAL(nat);
STRN2VAL
#define STRN2VAL(nat)
Definition LibMkKernel_tcl.h:881

Definition at line 210 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_STRN

#define OT_retObj_SET_STRN ( nat)
Value:
retObj = STRN2VAL(nat);

Definition at line 211 of file LibMkKernel_tcl.h.

◆ OT_retObj_SET_U16

#define OT_retObj_SET_U16 ( nat)
Value:
retObj = U162VAL(nat);
U162VAL
#define U162VAL(nat)
Definition LibMkKernel_tcl.h:874

Definition at line 203 of file LibMkKernel_tcl.h.

◆ OT_SELF

#define OT_SELF   selfO

Definition at line 475 of file LibMkKernel_tcl.h.

◆ OT_SELF_CMD_O

#define OT_SELF_CMD_O ( o)
Value:
Tcl_GetObjectCommand(OT_SELF_O(o))

Definition at line 477 of file LibMkKernel_tcl.h.

◆ OT_SELF_NAME_O

#define OT_SELF_NAME_O ( o)
Value:
Tcl_GetObjectName(interp,OT_SELF_O(o))

Definition at line 476 of file LibMkKernel_tcl.h.

◆ OT_SELF_O

#define OT_SELF_O ( o)
Value:
((OT_SELF_T)(*o).self)
OT_SELF_T
Tcl_Object OT_SELF_T
Definition LibMkKernel_tcl.h:245

Definition at line 473 of file LibMkKernel_tcl.h.

◆ OT_SELF_X

#define OT_SELF_X ( x)
Value:
OT_SELF_O(MkOBJ(x))

Definition at line 474 of file LibMkKernel_tcl.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; \
MK_UNUSED
#define MK_UNUSED
MK_STRN
const MK_STRB * MK_STRN

Definition at line 136 of file LibMkKernel_tcl.h.

136#define OT_SETUP_ARGS_ALL(d) \
137 OT_OBJ_T retObj=NULL; \
138 MK_UNUSED static const MK_STRN __doc=d; \
139 MK_UNUSED OT_OBJ_T frame=NULL; \
140

◆ 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_tcl.h:143

Definition at line 147 of file LibMkKernel_tcl.h.

◆ OT_SETUP_doc

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

Definition at line 159 of file LibMkKernel_tcl.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_tcl.h:136

Definition at line 153 of file LibMkKernel_tcl.h.

153#define OT_SETUP_NOARG(d) \
154 OT_SETUP_ARGS_ALL(d); \
155 OT_CHECK_NUM_ARGS(0,0);

◆ OT_SETUP_obj

#define OT_SETUP_obj   MK_OBJ obj = OBJ;

Definition at line 158 of file LibMkKernel_tcl.h.

◆ OT_SETUP_ONEARG

#define OT_SETUP_ONEARG ( d)
Value:
OT_SETUP_ARGS_ALL(d); \
OT_CHECK_NUM_ARGS(1,1);

Definition at line 149 of file LibMkKernel_tcl.h.

149#define OT_SETUP_ONEARG(d) \
150 OT_SETUP_ARGS_ALL(d); \
151 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 143 of file LibMkKernel_tcl.h.

143#define OT_SETUP_VARARGS(min,max,d) \
144 OT_SETUP_ARGS_ALL(d); \
145 OT_CHECK_NUM_ARGS(min,max);

◆ OT_TCL_EXTERN

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

Definition at line 912 of file LibMkKernel_tcl.h.

◆ OT_TMP_BAC_OBJ

#define OT_TMP_BAC_OBJ ( val)
Value:
MK(MkBufferListC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 921 of file LibMkKernel_tcl.h.

◆ OT_TMP_BFL_OBJ

#define OT_TMP_BFL_OBJ ( val)
Value:
MK(MkBufferListC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 936 of file LibMkKernel_tcl.h.

◆ OT_TMP_BIN_OBJ

#define OT_TMP_BIN_OBJ ( val,
len )
Value:
BIN2VAL(val,len)

Definition at line 434 of file LibMkKernel_tcl.h.

◆ OT_TMP_BOL_OBJ

#define OT_TMP_BOL_OBJ ( val)
Value:
BOL2VAL(val)

Definition at line 427 of file LibMkKernel_tcl.h.

◆ OT_TMP_BUF_OBJ

#define OT_TMP_BUF_OBJ ( val)
Value:
MK(MkBufferC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 954 of file LibMkKernel_tcl.h.

◆ OT_TMP_BUS_OBJ

#define OT_TMP_BUS_OBJ ( val)
Value:
MK(MkBufferStreamC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 972 of file LibMkKernel_tcl.h.

◆ OT_TMP_CST_OBJ

#define OT_TMP_CST_OBJ ( val)
Value:
STRN2VAL(val)

Definition at line 436 of file LibMkKernel_tcl.h.

◆ OT_TMP_DBL_OBJ

#define OT_TMP_DBL_OBJ ( val)
Value:
DBL2VAL(val)

Definition at line 433 of file LibMkKernel_tcl.h.

◆ OT_TMP_ERR_OBJ

#define OT_TMP_ERR_OBJ ( val)
Value:
MK(MkErrorC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 990 of file LibMkKernel_tcl.h.

◆ OT_TMP_FLT_OBJ

#define OT_TMP_FLT_OBJ ( val)
Value:
FLT2VAL(val)

Definition at line 432 of file LibMkKernel_tcl.h.

◆ OT_TMP_I16_OBJ

#define OT_TMP_I16_OBJ ( val)
Value:
I162VAL(val)

Definition at line 429 of file LibMkKernel_tcl.h.

◆ OT_TMP_I32_OBJ

#define OT_TMP_I32_OBJ ( val)
Value:
INT2VAL(val)

Definition at line 430 of file LibMkKernel_tcl.h.

◆ OT_TMP_I64_OBJ

#define OT_TMP_I64_OBJ ( val)
Value:
I642VAL(val)

Definition at line 431 of file LibMkKernel_tcl.h.

◆ OT_TMP_I8_OBJ

#define OT_TMP_I8_OBJ ( val)
Value:
I82VAL(val)

Definition at line 428 of file LibMkKernel_tcl.h.

◆ OT_TMP_LFL_OBJ

#define OT_TMP_LFL_OBJ ( val)
Value:
MK(MkLogFileC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 1008 of file LibMkKernel_tcl.h.

◆ OT_TMP_OBJ_OBJ

#define OT_TMP_OBJ_OBJ ( val)
Value:
MK(MkObjectC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 1026 of file LibMkKernel_tcl.h.

◆ OT_TMP_RT_OBJ

#define OT_TMP_RT_OBJ ( val)
Value:
MK(MkRuntimeC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 1044 of file LibMkKernel_tcl.h.

◆ OT_TMP_STR_OBJ

#define OT_TMP_STR_OBJ ( val)
Value:
STRN2VAL(val)

Definition at line 435 of file LibMkKernel_tcl.h.

◆ OT_VARFRAME_ARGS

#define OT_VARFRAME_ARGS   MK_RT_ARGS OT_VARFRAME varframe

Definition at line 738 of file LibMkKernel_tcl.h.

◆ OT_VARFRAME_CALL

#define OT_VARFRAME_CALL   MK_RT_CALL varframe

Definition at line 739 of file LibMkKernel_tcl.h.

◆ OT_VARFRAME_CREATE

#define OT_VARFRAME_CREATE
Value:
struct MkVarFrameS otVarFrame = {50, 0}; otVarFrame.data = otVarFrame.prealloc; \
OT_VARFRAME varframe = &otVarFrame;
MkVarFrameS::prealloc
OT_OBJ_T prealloc[50]
Definition LibMkKernel_tcl.h:725
MkVarFrameS::data
OT_OBJ_T * data
Definition LibMkKernel_tcl.h:724

Definition at line 729 of file LibMkKernel_tcl.h.

729#define OT_VARFRAME_CREATE \
730 struct MkVarFrameS otVarFrame = {50, 0}; otVarFrame.data = otVarFrame.prealloc; \
731 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 733 of file LibMkKernel_tcl.h.

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

◆ 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_tcl.h:739

Definition at line 760 of file LibMkKernel_tcl.h.

◆ OtClass_ARGS

#define OtClass_ARGS   OBJECT_ARGS

Definition at line 110 of file LibMkKernel_tcl.h.

◆ OtClass_ARGS_CALL

#define OtClass_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 111 of file LibMkKernel_tcl.h.

◆ OtErrorCheckLng

#define OtErrorCheckLng ( cmd)
Value:
if (cmd != TCL_OK) return TCL_ERROR

Definition at line 416 of file LibMkKernel_tcl.h.

◆ OtErrorCheckLngGoto

#define OtErrorCheckLngGoto ( cmd)
Value:
if (cmd != TCL_OK) goto error

Definition at line 417 of file LibMkKernel_tcl.h.

◆ OtErrorCheckLngGoto1

#define OtErrorCheckLngGoto1 ( cmd)
Value:
if (cmd != TCL_OK) goto error1

Definition at line 418 of file LibMkKernel_tcl.h.

◆ OtErrorCheckLngGoto2

#define OtErrorCheckLngGoto2 ( cmd)
Value:
if (cmd != TCL_OK) goto error2

Definition at line 419 of file LibMkKernel_tcl.h.

◆ printAry

#define printAry ( c,
o )
Value:
printAry3(#o,c,o)
printAry3
#define printAry3(txt, c, o)
Definition LibMkKernel_tcl.h:1133

Definition at line 1126 of file LibMkKernel_tcl.h.

◆ 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 1133 of file LibMkKernel_tcl.h.

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

◆ printAryDetail

#define printAryDetail ( c,
o )
Value:
for(int i=0;i<c;i++) { printLngObj(o[i]) }
printLngObj
#define printLngObj(var)
Definition LibMkKernel_tcl.h:1109

Definition at line 1127 of file LibMkKernel_tcl.h.

◆ printAryL

#define printAryL ( t,
c,
o )
Value:
printAryX(META_CONTEXT_S,t,c,o) \
printAryX
#define printAryX(x, t, c, o)
Definition LibMkKernel_tcl.h:1141
META_CONTEXT_S
#define META_CONTEXT_S
Definition LibMkKernel_tcl.h:91

Definition at line 1148 of file LibMkKernel_tcl.h.

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

◆ 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 1141 of file LibMkKernel_tcl.h.

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

◆ printLLngObj

#define printLLngObj ( var)
Value:
if (var) {printXC2(META_CONTEXT_S,MK(PrintLngObj)(OT_Prefix_CALL #var,var))} else {printTxt(#var "=NULL")}

Definition at line 1111 of file LibMkKernel_tcl.h.

◆ printLng

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

Definition at line 1107 of file LibMkKernel_tcl.h.

◆ printLngClass

#define printLngClass ( clsC)
Value:
printV(#clsC " name = %s\n", OT_LNG_NAME_FROM_CLASS(clsC))

Definition at line 1153 of file LibMkKernel_tcl.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 1113 of file LibMkKernel_tcl.h.

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

◆ printLngErrorInfo

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

Definition at line 1118 of file LibMkKernel_tcl.h.

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

◆ printLngObj

#define printLngObj ( var)
Value:
if (var) {printTxt(MK(PrintLngObj)(OT_Prefix_CALL #var,var))} else {printTxt(#var "=NULL")}

Definition at line 1109 of file LibMkKernel_tcl.h.

◆ printLngObject

#define printLngObject ( objO)
Value:
printV(#objO " name = %s\n", OT_LNG_NAME_FROM_OBJECT(objO))

Definition at line 1154 of file LibMkKernel_tcl.h.

◆ printObjv

#define printObjv   printV( "__skip=%i, objc=%i",__skip,objc) ; printAry3( " ",objc,objv)

Definition at line 1123 of file LibMkKernel_tcl.h.

◆ printXAry

#define printXAry ( x,
pre,
c,
o )
Value:
printXAry4(x,"",c,o)
printXAry4
#define printXAry4(x, pre, c, o)
Definition LibMkKernel_tcl.h:1130

Definition at line 1129 of file LibMkKernel_tcl.h.

◆ printXAry4

#define printXAry4 ( x,
pre,
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 1130 of file LibMkKernel_tcl.h.

◆ 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_tcl.h:1110

Definition at line 1131 of file LibMkKernel_tcl.h.

◆ printXLng

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

Definition at line 1108 of file LibMkKernel_tcl.h.

◆ printXLngObj

#define printXLngObj ( x,
var )
Value:
if (var) {printXC2(x,MK(PrintLngObj)(OT_Prefix_CALL #var,var))} else {printTxt(#var "=NULL")}

Definition at line 1110 of file LibMkKernel_tcl.h.

◆ printXObjv

#define printXObjv ( x)
Value:
printXV(x,"__skip=%i, objc=%i",__skip,objc) ; printXAry4(x, " ",objc,objv)

Definition at line 1124 of file LibMkKernel_tcl.h.

◆ PTR2VAL

#define PTR2VAL ( nat)
Value:
(OT_OBJ_T)(nat)

Definition at line 866 of file LibMkKernel_tcl.h.

◆ regTclObj

#define regTclObj ( str)
Value:
MK_TCL_EXTERN_DATA int MK(str);
MK_TCL_EXTERN_DATA
#define MK_TCL_EXTERN_DATA
Definition LibMkKernel_tcl.h:81

Definition at line 285 of file LibMkKernel_tcl.h.

◆ regTclObj2

#define regTclObj2 ( def,
str )
Value:
MK_TCL_EXTERN_DATA int MK(def);

Definition at line 286 of file LibMkKernel_tcl.h.

◆ RG

#define RG ( _key)
Value:
MK(reggv)[MK(_key)]

Definition at line 278 of file LibMkKernel_tcl.h.

◆ RL

#define RL ( num)
Value:
RL_data[num]

Definition at line 291 of file LibMkKernel_tcl.h.

◆ RL_Free

#define RL_Free ( num)
Value:
do {Tcl_DecrRefCount(RL_data[num]); RL_data[num]=NULL;} while (0);

Definition at line 298 of file LibMkKernel_tcl.h.

◆ RL_init

#define RL_init ( code)
Value:
static MkThreadLocal OT_OBJ_T RL_data[10] = {0}; if (RL_data[0] == NULL) { code; }
MkThreadLocal
#define MkThreadLocal

Definition at line 292 of file LibMkKernel_tcl.h.

◆ RL_NewC

#define RL_NewC ( num,
str )
Value:
{ RL_data[num] = STRN2VAL(#str); Tcl_IncrRefCount(RL_data[num]); }

Definition at line 293 of file LibMkKernel_tcl.h.

◆ RL_NewI

#define RL_NewI ( num,
itg )
Value:
{ RL_data[num] = INT2VAL(itg); Tcl_IncrRefCount(RL_data[num]); }

Definition at line 295 of file LibMkKernel_tcl.h.

◆ RL_NewS

#define RL_NewS ( num,
str )
Value:
{ RL_data[num] = STRN2VAL(str); Tcl_IncrRefCount(RL_data[num]); }

Definition at line 294 of file LibMkKernel_tcl.h.

◆ RL_O

#define RL_O ( num,
obj )
Value:
{ RL_data[num] = obj; }

Definition at line 296 of file LibMkKernel_tcl.h.

◆ RL_objv

#define RL_objv ( num)
Value:
(num),RL_data

Definition at line 297 of file LibMkKernel_tcl.h.

◆ SELF2MNG

#define SELF2MNG ( slf)
Value:
Tcl_ObjectGetMetadata(slf, &MK(AtomMeta))

Definition at line 889 of file LibMkKernel_tcl.h.

◆ SELF2VAL

#define SELF2VAL ( slf)
Value:
Tcl_GetObjectName(interp,slf)

Definition at line 867 of file LibMkKernel_tcl.h.

◆ SETUP_ARGS

#define SETUP_ARGS   MK_RT_ARGS TCL_ARGS

Definition at line 161 of file LibMkKernel_tcl.h.

◆ SETUP_ARGS_CALL

#define SETUP_ARGS_CALL   MK_RT_CALL TCL_ARGS_CALL

Definition at line 162 of file LibMkKernel_tcl.h.

◆ SETUP_interp

#define SETUP_interp   MK_UNUSED OT_ENV_T const interp = (OT_ENV_T const) MK_RT_REF.mkThreadData.ptr;

Definition at line 466 of file LibMkKernel_tcl.h.

◆ SETUP_mqctx

#define SETUP_mqctx   struct MqContextS * const mqctx = (struct MqContextS * const) hdl;

Definition at line 467 of file LibMkKernel_tcl.h.

◆ SETUP_selfO

#define SETUP_selfO   OT_SELF_T selfO = OT_SELF_X(hdl);

Definition at line 469 of file LibMkKernel_tcl.h.

◆ SETUP_selfX

#define SETUP_selfX ( x)
Value:
OT_SELF_T selfO = OT_SELF_X(x);

Definition at line 470 of file LibMkKernel_tcl.h.

◆ SETUP_tclctx

#define SETUP_tclctx   struct TclContextS * const tclctx = (struct TclContextS * const) hdl;

Definition at line 468 of file LibMkKernel_tcl.h.

◆ SetupHdlFromMetaData_2

#define SetupHdlFromMetaData_2 ( _CLS,
_SHORT )
Value:
SetupHdlFromMetaData_init_2(_CLS,_SHORT) \
if (hdl == NULL) { \
MkRtSetup_NULL; \
OT_ERROR_LNG_RETURN_VAR_ERROR("'%s' hdl is NULL",OT_LNG_OBJ_CLASSNAME_SHORT(SELF2VAL(OT_SELF))); \
} \
SetupRtFromHdl_XN(hdl); \
OT_SELF
#define OT_SELF
Definition LibMkKernel_tcl.h:475
SetupHdlFromMetaData_init_2
#define SetupHdlFromMetaData_init_2(_CLS, _SHORT)
Definition LibMkKernel_tcl.h:479
OT_LNG_OBJ_CLASSNAME_SHORT
#define OT_LNG_OBJ_CLASSNAME_SHORT(obj)
Definition LibMkKernel_tcl.h:259
MkRtSetup_NULL
#define MkRtSetup_NULL

Definition at line 493 of file LibMkKernel_tcl.h.

493#define SetupHdlFromMetaData_2(_CLS,_SHORT) \
494 SetupHdlFromMetaData_init_2(_CLS,_SHORT) \
495 if (hdl == NULL) { \
496 MkRtSetup_NULL; \
497 OT_ERROR_LNG_RETURN_VAR_ERROR("'%s' hdl is NULL",OT_LNG_OBJ_CLASSNAME_SHORT(SELF2VAL(OT_SELF))); \
498 } \
499 SetupRtFromHdl_XN(hdl); \
500

◆ SetupHdlFromMetaData__null_allow_2

#define SetupHdlFromMetaData__null_allow_2 ( _CLS,
_SHORT )
Value:
SetupHdlFromMetaData_init_2(_CLS,_SHORT) \
SetupRtFromHdl_X(hdl); \

Definition at line 501 of file LibMkKernel_tcl.h.

501#define SetupHdlFromMetaData__null_allow_2(_CLS,_SHORT) \
502 SetupHdlFromMetaData_init_2(_CLS,_SHORT) \
503 SetupRtFromHdl_X(hdl); \
504

◆ SetupHdlFromMetaData_init_2

#define SetupHdlFromMetaData_init_2 ( _CLS,
_SHORT )
Value:
int __skip; OT_SELF_T selfO; _SHORT hdl; \
if (objCtx) { \
/* call method via TCL */ \
__skip = Tcl_ObjectContextSkippedArgs(objCtx); \
selfO = Tcl_ObjectContextObject(objCtx); \
hdl = OBJECT2##_CLS(selfO); \
} else { \
/* call method DIRECT */ \
__skip = 0; \
selfO = NULL; \
hdl = (_SHORT) clientData; \
} \

Definition at line 479 of file LibMkKernel_tcl.h.

479#define SetupHdlFromMetaData_init_2(_CLS,_SHORT) \
480 int __skip; OT_SELF_T selfO; _SHORT hdl; \
481 if (objCtx) { \
482 /* call method via TCL */ \
483 __skip = Tcl_ObjectContextSkippedArgs(objCtx); \
484 selfO = Tcl_ObjectContextObject(objCtx); \
485 hdl = OBJECT2##_CLS(selfO); \
486 } else { \
487 /* call method DIRECT */ \
488 __skip = 0; \
489 selfO = NULL; \
490 hdl = (_SHORT) clientData; \
491 } \
492

◆ SKIP_ARGS

#define SKIP_ARGS   TCL_ARGS, int __skip

Definition at line 107 of file LibMkKernel_tcl.h.

◆ SKIP_ARGS_CALL

#define SKIP_ARGS_CALL   TCL_ARGS_CALL, __skip

Definition at line 108 of file LibMkKernel_tcl.h.

◆ str

#define str ( s)
Value:
#s

Definition at line 1151 of file LibMkKernel_tcl.h.

◆ STR2VAL

#define STR2VAL ( ptr,
len )
Value:
Tcl_NewStringObj((const char*)ptr,(int)len)

Definition at line 883 of file LibMkKernel_tcl.h.

◆ STRN2VAL

#define STRN2VAL ( nat)
Value:
MK(STRN2VAL)(nat)

Definition at line 881 of file LibMkKernel_tcl.h.

◆ TCL_ARGS

#define TCL_ARGS   OT_ENV_T interp, int objc, OT_OBJ_T const *objv

Definition at line 95 of file LibMkKernel_tcl.h.

◆ TCL_ARGS_CALL

#define TCL_ARGS_CALL   interp, objc, objv

Definition at line 96 of file LibMkKernel_tcl.h.

◆ TCLCTX

#define TCLCTX   ((struct TclContextS * const)hdl)

Definition at line 472 of file LibMkKernel_tcl.h.

◆ U162VAL

#define U162VAL ( nat)
Value:
Tcl_NewIntObj((int)nat)

Definition at line 874 of file LibMkKernel_tcl.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 1061 of file LibMkKernel_tcl.h.

1061#define VAL2MkBinaryR(obj) \
1062 ({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 1072 of file LibMkKernel_tcl.h.

1072#define VAL2MkStringR(obj) \
1073 ({int len;char * str =Tcl_GetStringFromObj(obj,&len);MkStringCreate(len,str);})

◆ VAL2SELF

#define VAL2SELF ( obj)
Value:
Tcl_GetObjectFromObj(interp,obj)

Definition at line 887 of file LibMkKernel_tcl.h.

◆ VAL2STR

#define VAL2STR ( obj)
Value:
Tcl_GetString(obj)

Definition at line 886 of file LibMkKernel_tcl.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 690 of file LibMkKernel_tcl.h.

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

◆ xstr

#define xstr ( s)
Value:
str(s)

Definition at line 1150 of file LibMkKernel_tcl.h.

Typedef Documentation

◆ LookupClassF

typedef int(* LookupClassF) (SKIP_ARGS)

Definition at line 683 of file LibMkKernel_tcl.h.

◆ MkCallS

typedef struct MkCallS MkCallS

◆ OT_CLS_T

typedef Tcl_Class OT_CLS_T

Definition at line 242 of file LibMkKernel_tcl.h.

◆ OT_ENUM_T

typedef MK_STRN OT_ENUM_T

Definition at line 241 of file LibMkKernel_tcl.h.

◆ OT_ENV_T

typedef Tcl_Interp* OT_ENV_T

Definition at line 243 of file LibMkKernel_tcl.h.

◆ OT_NS_T

typedef Tcl_Namespace* OT_NS_T

Definition at line 244 of file LibMkKernel_tcl.h.

◆ OT_OBJ_T

typedef Tcl_Obj* OT_OBJ_T

Definition at line 240 of file LibMkKernel_tcl.h.

◆ OT_SELF_T

typedef Tcl_Object OT_SELF_T

Definition at line 245 of file LibMkKernel_tcl.h.

◆ OT_VARFRAME

typedef struct MkVarFrameS* OT_VARFRAME

Definition at line 727 of file LibMkKernel_tcl.h.

Enumeration Type Documentation

◆ OtUnknownE

enum OtUnknownE
Enumerator
OT_UNKNOWN_CLASS 
OT_UNKNOWN_INSTANCE 

Definition at line 700 of file LibMkKernel_tcl.h.

700 {
701 OT_UNKNOWN_CLASS,
702 OT_UNKNOWN_INSTANCE,
703} OtUnknownE;
OtUnknownE
OtUnknownE
Definition LibMkKernel_tcl.h:700
OT_UNKNOWN_CLASS
@ OT_UNKNOWN_CLASS
Definition LibMkKernel_tcl.h:701
OT_UNKNOWN_INSTANCE
@ OT_UNKNOWN_INSTANCE
Definition LibMkKernel_tcl.h:702

Function Documentation

◆ Ot_GetStringFromObj()

static MkStringR Ot_GetStringFromObj ( OT_OBJ_T tclO)
inlinestatic

Definition at line 1081 of file LibMkKernel_tcl.h.

1082{
1083 int len = 0;
1084 char* str = Tcl_GetStringFromObj(tclO,&len);
1085 return MkStringCreate(len,str);
1086}

◆ tclmkkernel_AtomCreate()

static OT_SELF_T tclmkkernel_AtomCreate ( MK_RT mkrt,
OT_ENV_T interp,
MK_OBJ obj,
OT_CLS_T class,
MK_STRN name,
MK_STRN ns )
inlinestatic

Definition at line 1214 of file LibMkKernel_tcl.h.

1221 {
1222 // create name if not set
1223 #define BUFLEN 127
1224 char nameBuf[BUFLEN+1] = {0};
1225 int retLen = 0;
1226 if (name == NULL) {
1227 if (obj) {
1228 retLen = snprintf(nameBuf,BUFLEN,"%s::<%s-%p>",ns?ns:"",obj->type->type_name,obj);
1229 } else {
1230 MkLogV_1("SUSPICIOS WARNING[%s]: 'name' and 'obj' are NULL", OT_LNG_NAME_FROM_CLASS(class));
1231 retLen = snprintf(nameBuf,BUFLEN,"%s::<UNKNOWN>",ns?ns:"");
1232 }
1233 } else {
1234 retLen = snprintf(nameBuf,BUFLEN,"%s::%s",ns?ns:"",name);
1235 }
1236 if (retLen>=BUFLEN) {
1237 MkLogV_1("SUSPICIOS WARNING[%s]: 'name' truncate to '%s'", OT_LNG_NAME_FROM_CLASS(class), nameBuf);
1238 }
1239 #undef BUFLEN
1240
1241 OT_OBJ_T nameObj = STRN2VAL(nameBuf);
1242 OT_REF_INCR(nameObj);
1243 name = nameBuf;
1244
1245 // 1. with the "noSelf" feature no "self" pointer is saved into "obj->self" and
1246 // the "atomCreate" is always called -> BUT an object COULD be already available.
1247 // 2. multiple objects using the SAME name are possible, but not allowed.
1248 OT_SELF_T object = NULL;
1249 if (obj && Tcl_GetCommandFromObj(interp, nameObj) != NULL) {
1250 object = Tcl_GetObjectFromObj(interp,nameObj);
1251 // don't trust the name -> get REAL MQ-OBJ from TCL-OBJECT
1252 MK_OBJ object_hdl = MkObj(SELF2MNG(object));
1253 if (object_hdl == obj) {
1254 // OK: "reborn" self or stalled delete or something broken
1255
1256 // SUSPICIUS -> self == NULL but command is available
1257 // PROBLEM: MkAtomInit->Tcl_ObjectSetMetadata" will DECR the refCount from object_hdl.
1258 // With refCount <= 1 the "obj" will be deleted !!
1259 // restrict to "obj->isLocal" because this was the concret problem with "ReadBUF" reference
1260 //if (obj->self == NULL && obj->isLocal) MkRefIncr(obj);
1261 if (obj->self == NULL && obj->obj_protect.isLocal)
1262 MkPanicV_2(obj,"reuse tcl-command<%s> with mq-obj<%p>", name, object_hdl);
1263 } else {
1264 // ATTENTION: MkAtomInit->Tcl_ObjectSetMetadata will DECR the refCount from object_hdl
1265 MkLogV_2(object_hdl, "MANIPULATION WARNING[%s]: found tcl-command<%s> with wrong mq-obj<%p>\n",
1266 OT_LNG_NAME_FROM_CLASS(class), name, object_hdl);
1267 }
1268 }
1269
1270 // create object WITHOUT calling the CONSTR because the MK_OBJ is already available
1271 // tclOO.c: Run constructors, except when objc < 0, which is a special flag case
1272 // used for object cloning only.
1273 if (object==NULL) {
1274 object = Tcl_NewObjectInstance(interp, class, name, name, -1, NULL, 0);
1275 }
1276
1277//printV("class=%s(%p), object=%s(%p)\n", OT_LNG_NAME_FROM_CLASS(class), class, OT_LNG_FULLNAME_FROM_OBJECT(object), object)
1278
1279 check_NULL(object) {
1280 OT_ERROR_ABNORMAL(MK_ERROR_PANIC);
1281 return NULL;
1282 }
1283
1284 if (nameObj) Tcl_DecrRefCount(nameObj);
1285 return MK(AtomInit)(MK_RT_CALL interp,object,obj);
1286}
OT_ERROR_ABNORMAL
#define OT_ERROR_ABNORMAL(mng)
Definition LibMkKernel_tcl.h:329
check_NULL
#define check_NULL(code)
Definition LibMkKernel_tcl.h:422
SELF2MNG
#define SELF2MNG(slf)
Definition LibMkKernel_tcl.h:889
BUFLEN
#define BUFLEN
MkPanicV_2
#define MkPanicV_2(fmtobj, printfmt,...)
MK_ERROR_PANIC
#define MK_ERROR_PANIC
MkObj
static MK_OBJ MkObj(MK_MNG mng)
MkLogV_1
#define MkLogV_1(printfmt,...)
MkLogV_2
#define MkLogV_2(fmtobj, printfmt,...)
MkObjectS::obj_protect
struct MkObjectProtectS obj_protect
MkObjectS::type
MK_TYP type
MkObjectS::self
MK_PTR self
MkTypeS::type_name
MK_STRB type_name[MkTypeS_name_size]

◆ tclmkkernel_AtomDeleteHard()

static bool tclmkkernel_AtomDeleteHard ( MK_RT mkrt,
OT_ENV_T interp,
OT_SELF_T selfO )
inlinestatic

Definition at line 1291 of file LibMkKernel_tcl.h.

1291 {
1292 assert(interp!=NULL || selfO!=NULL);
1293 if (Tcl_InterpDeleted(interp) || Tcl_ObjectDeleted(selfO)) return false;
1294 check_LNG(Tcl_DeleteCommandFromToken (interp, Tcl_GetObjectCommand(selfO))) {
1295 OT_ERROR_ABNORMAL(MK_ERROR_PRINT);
1296 return false;
1297 }
1298 return true;
1299}
check_LNG
#define check_LNG(code)
Definition LibMkKernel_tcl.h:421
MK_ERROR_PRINT
#define MK_ERROR_PRINT

◆ tclmkkernel_AtomDispose()

static void tclmkkernel_AtomDispose ( MK_RT mkrt,
OT_SELF_T selfO )
inlinestatic

Definition at line 1310 of file LibMkKernel_tcl.h.

1311{
1312 assert(selfO!=NULL);
1313 MK_MNG mng = SELF2MNG(selfO);
1314 check_NULL(mng) return;
1315 MK_OBJ obj = MkObj(mng);
1316 check_NULL(obj) return;
1317 // unlink TCL from META
1318 MkRefDecrWithoutSelf(obj);
1319 // unlink META from TCL → call: AtomMetaDelete, with disabled META
1320 Tcl_ObjectSetMetadata(selfO,&MK(AtomMeta),NULL);
1321}
MK_MNG
MK_PTRB * MK_MNG
MkRefDecrWithoutSelf
#define MkRefDecrWithoutSelf(...)

◆ tclmkkernel_AtomInit()

static OT_SELF_T tclmkkernel_AtomInit ( MK_RT mkrt,
OT_ENV_T interp,
OT_SELF_T object,
MK_OBJ obj )
inlinestatic

Definition at line 1182 of file LibMkKernel_tcl.h.

1187 {
1188 if (obj) MkRefIncrSelf (obj, (void*) object, interp);
1189 ClientData meta = Tcl_ObjectGetMetadata(object,&MK(AtomMeta));
1190 // a "reborn" object as result from a AtomMetaDelete→MkRefDecrWithoutSelf→self=NULL
1191 // BUG fix for LibLcConfig_lc_prv.c→pSettingDelete
1192 if (meta != (ClientData)obj) {
1193 if (meta) {
1194 MkDLogV_O(obj, 3, "WARNING: REBORN object[%s] REPLACE meta[%p -> %p]\n", \
1195 OT_LNG_FULLNAME_FROM_OBJECT(object), meta, obj);
1196 } else {
1197 MkDLogV_O(obj, 6, "INFO: BORN object[%s] with NEW meta[%p]\n", \
1198 OT_LNG_FULLNAME_FROM_OBJECT(object),obj);
1199 }
1200 Tcl_ObjectSetMetadata(object,&MK(AtomMeta),(ClientData)obj);
1201 } else {
1202 // This is a result of a DELETE & CREATE
1203 if (obj != NULL) {
1204 MkDLogV_O(obj, 3, "WARNING: REBORN object[%s] with SAME meta[%p]\n", \
1205 OT_LNG_FULLNAME_FROM_OBJECT(object),obj);
1206 }
1207 Tcl_ObjectSetMetadata(object,&MK(AtomMeta),(ClientData)obj);
1208 }
1209 return object;
1210}
OT_LNG_FULLNAME_FROM_OBJECT
#define OT_LNG_FULLNAME_FROM_OBJECT(_obj)
Definition LibMkKernel_tcl.h:253
MkDLogV_O
#define MkDLogV_O(fmtobj, _debug, printfmt,...)
MkRefIncrSelf
static void MkRefIncrSelf(MK_OBJ const obj, MK_PTR const self, MK_PTR const env)

◆ tclmkkernel_AtomObjNew()

static OT_OBJ_T tclmkkernel_AtomObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MK_OBJ obj )
inlinestatic

ATOM API

Definition at line 1165 of file LibMkKernel_tcl.h.

1166{
1167 #define __doc "AtomObjNew"
1168 MK_PTR selfO = NULL;
1169 // force "class-NULL object → test done BEFORE "AtomObjNew" is called
1170 assert(obj != NULL);
1171 //if (obj == NULL) return RG(nullObj);
1172 MkErrorC_Check(obj, MkSelfNew(obj,&selfO,interp))
1173 OT_OBJ_T ret = Tcl_GetObjectName(interp,(OT_SELF_T)selfO);
1174 return ret;
1175 #undef __doc
1176error:
1177 return NULL;
1178}
MkErrorC_Check
#define MkErrorC_Check(mng, PROC)
Definition LibMkKernel_tcl.h:403
MK_PTR
MK_PTRB * MK_PTR
MkSelfNew
#define MkSelfNew(...)

◆ tclmkkernel_AtomUnlink()

static void tclmkkernel_AtomUnlink ( MK_RT mkrt,
OT_ENV_T interp,
OT_SELF_T selfO )
inlinestatic

Definition at line 1303 of file LibMkKernel_tcl.h.

1303 {
1304 assert(interp!=NULL || selfO!=NULL);
1305 Tcl_ObjectSetMetadata(selfO,&MK(AtomMeta),NULL);
1306}

◆ tclmkkernel_CallCopy()

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

Definition at line 585 of file LibMkKernel_tcl.h.

586{
587 assert (dataP != NULL && *dataP != NULL);
588
589 MkCallS *call = MkSysMemDup(MK_ERROR_PANIC,*dataP,sizeof(*call));
590 call->isAlloc = true;
591
592 call->my = OT_OBJ_COPY (call->my) ;
593 call->mth = OT_OBJ_COPY (call->mth) ;
594 call->args = OT_OBJ_COPY (call->args) ;
595 call->nsO = OT_OBJ_COPY (call->nsO) ;
596 call->nsPtr = NULL;
597
598 *dataP = call;
599}
OT_OBJ_COPY
#define OT_OBJ_COPY(o)
Definition LibMkKernel_tcl.h:580
MkSysMemDup
MK_PTR MkSysMemDup(MK_OBJN fmtobj, MK_PTRN const blck, size_t const size)
MkCallS::mth
OT_OBJ_T mth
Definition LibMkKernel_tcl.h:520
MkCallS::args
OT_OBJ_T args
Definition LibMkKernel_tcl.h:521
MkCallS::nsPtr
OT_NS_T nsPtr
Definition LibMkKernel_tcl.h:527
MkCallS::nsO
OT_OBJ_T nsO
Definition LibMkKernel_tcl.h:526
MkCallS::my
OT_OBJ_T my
Definition LibMkKernel_tcl.h:519

◆ tclmkkernel_CallFree()

static void tclmkkernel_CallFree ( MK_CBP * dataP)
inlinestatic

Definition at line 556 of file LibMkKernel_tcl.h.

557{
558 assert (dataP != NULL && *dataP != NULL);
559
560 MkCallS * call = *dataP;
561
562 call->signature = 0x0;
563
564 OT_REF_DECR_AND_NULL(call->my);
565 OT_REF_DECR_AND_NULL(call->mth);
566 OT_REF_DECR_AND_NULL(call->args);
567 OT_REF_DECR_AND_NULL(call->nsO);
568 call->nsPtr = NULL;
569
570 if (call->isAlloc) MkSysFree(*dataP);
571 else *dataP = NULL;
572}
OT_REF_DECR_AND_NULL
#define OT_REF_DECR_AND_NULL(_obj)
Definition LibMkKernel_tcl.h:460
MkSysFree
#define MkSysFree(pointer)
MkCallS::signature
MK_SIG signature
Definition LibMkKernel_tcl.h:509

◆ tclmkkernel_CallFreeOnce()

static void tclmkkernel_CallFreeOnce ( MK_CBP * dataP)
inlinestatic

Definition at line 574 of file LibMkKernel_tcl.h.

575{
576 MK(CallFree) (dataP);
577}

◆ tclmkkernel_ClassDef()

MK_TCL_EXTERN OT_SELF_T tclmkkernel_ClassDef ( OT_ENV_T ,
OT_NS_T ,
MK_TYP  )

◆ tclmkkernel_ClassName()

MK_TCL_EXTERN MK_STRN tclmkkernel_ClassName ( OT_Prefix_ARGS OT_OBJ_T,
bool  )

◆ tclmkkernel_EnumFlagWorker()

MK_TCL_EXTERN int tclmkkernel_EnumFlagWorker ( MK_RT mkrt,
OT_ENV_T ,
const struct LookupEnumE * ,
OT_OBJ_T ,
int *  )

◆ tclmkkernel_EvalObjv()

static int tclmkkernel_EvalObjv ( OT_ENV_T interp,
int objc,
OT_OBJ_T const objv[],
int flags )
inlinestatic

Definition at line 779 of file LibMkKernel_tcl.h.

784 {
785 int i,ret;
786//printAry(objc,objv)
787 for (i=0;i<objc;i++) Tcl_IncrRefCount(objv[i]);
788 ret = Tcl_EvalObjv (interp, objc, objv, flags);
789 for (i=0;i<objc;i++) Tcl_DecrRefCount(objv[i]);
790 return ret;
791}

◆ tclmkkernel_EvalObjvAR()

MK_TCL_EXTERN OT_OBJ_T tclmkkernel_EvalObjvAR ( OT_VARFRAME_ARGS ,
OT_ENV_T ,
int ,
int ,
OT_OBJ_T *  )

◆ tclmkkernel_EvalObjvVA()

MK_TCL_EXTERN int tclmkkernel_EvalObjvVA ( OT_ENV_T ,
int ,
... )

◆ tclmkkernel_FillNamespace()

MK_TCL_EXTERN int tclmkkernel_FillNamespace ( OT_ENV_T ,
OT_NS_T ,
const OtObjProcDefS [],
ClientData  )

◆ tclmkkernel_Get_Call_File()

MK_TCL_EXTERN MK_STRN tclmkkernel_Get_Call_File ( MK_RT mkrt,
OT_ENV_T ,
OT_OBJ_T *  )

◆ tclmkkernel_Get_Call_Line()

MK_TCL_EXTERN MK_I32 tclmkkernel_Get_Call_Line ( MK_RT mkrt,
OT_ENV_T ,
OT_OBJ_T *  )

◆ tclmkkernel_Get_Call_Proc()

MK_TCL_EXTERN MK_STRN tclmkkernel_Get_Call_Proc ( MK_RT mkrt,
OT_ENV_T ,
OT_OBJ_T *  )

◆ tclmkkernel_Get_Call_Stack()

MK_TCL_EXTERN bool tclmkkernel_Get_Call_Stack ( MK_RT mkrt,
OT_ENV_T ,
MK_ERR const ,
int  )

◆ tclmkkernel_GetClassNameFromObject()

MK_TCL_EXTERN MK_STRN tclmkkernel_GetClassNameFromObject ( OT_Prefix_ARGS OT_SELF_T)

◆ tclmkkernel_GetClassObjectFromObj()

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

◆ tclmkkernel_GetMyFromObject()

MK_TCL_EXTERN OT_OBJ_T tclmkkernel_GetMyFromObject ( OT_ENV_T ,
OT_SELF_T  )

◆ tclmkkernel_GetTypeFromObj()

MK_TCL_EXTERN MK_STRN tclmkkernel_GetTypeFromObj ( OT_Prefix_ARGS OT_OBJ_T,
bool *  )

◆ tclmkkernel_InfoScript()

MK_TCL_EXTERN MK_STRN tclmkkernel_InfoScript ( MK_RT mkrt,
OT_ENV_T ,
MK_STRN  )

◆ tclmkkernel_LngListToMkBufferListS()

MK_TCL_EXTERN enum MkErrorE tclmkkernel_LngListToMkBufferListS ( OT_Prefix_ARGS OT_OBJ_T,
MK_BFL *  )

◆ tclmkkernel_MkBufferC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkBufferC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkBufferC_type hdl )
inlinestatic

Definition at line 957 of file LibMkKernel_tcl.h.

957 {
958 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkBufferC_X2obj(hdl)) : MK(MkBufferC_MK_NULL) );
959 }
MkBufferC_X2obj
#define MkBufferC_X2obj(x)

◆ tclmkkernel_MkBufferListC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkBufferListC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkBufferListC_type hdl )
inlinestatic

Definition at line 939 of file LibMkKernel_tcl.h.

939 {
940 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkBufferListC_X2obj(hdl)) : MK(MkBufferListC_MK_NULL) );
941 }
MkBufferListC_X2obj
#define MkBufferListC_X2obj(x)

◆ tclmkkernel_MkBufferStreamC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkBufferStreamC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkBufferStreamC_type hdl )
inlinestatic

Definition at line 975 of file LibMkKernel_tcl.h.

975 {
976 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkBufferStreamC_X2obj(hdl)) : MK(MkBufferStreamC_MK_NULL) );
977 }
MkBufferStreamC_X2obj
#define MkBufferStreamC_X2obj(x)

◆ tclmkkernel_MkErrorC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkErrorC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkErrorC_type hdl )
inlinestatic

Definition at line 993 of file LibMkKernel_tcl.h.

993 {
994 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkErrorC_X2obj(hdl)) : MK(MkErrorC_MK_NULL) );
995 }
MkErrorC_X2obj
#define MkErrorC_X2obj(x)

◆ tclmkkernel_MkLogFileC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkLogFileC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkLogFileC_type hdl )
inlinestatic

Definition at line 1011 of file LibMkKernel_tcl.h.

1011 {
1012 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkLogFileC_X2obj(hdl)) : MK(MkLogFileC_MK_NULL) );
1013 }
MkLogFileC_X2obj
#define MkLogFileC_X2obj(x)

◆ tclmkkernel_MkObjectC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkObjectC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkObjectC_type hdl )
inlinestatic

Definition at line 1029 of file LibMkKernel_tcl.h.

1029 {
1030 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkObjectC_X2obj(hdl)) : MK(MkObjectC_MK_NULL) );
1031 }
MkObjectC_X2obj
#define MkObjectC_X2obj(x)

◆ tclmkkernel_MkRuntimeC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tclmkkernel_MkRuntimeC_ObjNew ( MK_RT mkrt,
OT_ENV_T interp,
MkRuntimeC_type hdl )
inlinestatic

Definition at line 1047 of file LibMkKernel_tcl.h.

1047 {
1048 return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, MkRuntimeC_X2obj(hdl)) : MK(MkRuntimeC_MK_NULL) );
1049 }
MkRuntimeC_X2obj
#define MkRuntimeC_X2obj(x)

◆ tclmkkernel_Obj_AsSTR_COPY()

MK_TCL_EXTERN enum MkErrorE tclmkkernel_Obj_AsSTR_COPY ( OT_Check_ARGS ,
MK_STR ,
size_t  )

◆ tclmkkernel_ObjectDeleteCall()

enum MkErrorE tclmkkernel_ObjectDeleteCall ( MkObjectDeleteCallF_ARGS )

◆ tclmkkernel_ObjectDeleteFree()

void tclmkkernel_ObjectDeleteFree ( MkObjectDeleteFreeF_ARGS )

◆ tclmkkernel_ObjvToString()

MK_TCL_EXTERN MK_STRN tclmkkernel_ObjvToString ( MK_RT mkrt,
MK_STRN cls,
TCL_ARGS  )

◆ tclmkkernel_OT_VARFRAME_ADD()

static OT_OBJ_T tclmkkernel_OT_VARFRAME_ADD ( OT_VARFRAME_ARGS ,
OT_OBJ_T add )
inlinestatic

Definition at line 741 of file LibMkKernel_tcl.h.

741 {
742 if (varframe != NULL) {
743 if (varframe->num >= varframe->max) {
744 void *tmp;
745 if (varframe->data == varframe->prealloc) {
746 tmp = MkSysCalloc(MK_ERROR_PANIC,(size_t)varframe->max*2,sizeof(OT_OBJ_T));
747 memcpy(tmp,varframe->data,(size_t)varframe->max*sizeof(OT_OBJ_T));
748 } else {
749 tmp = MkSysReCalloc(MK_ERROR_PANIC,varframe->data,varframe->max,varframe->max,sizeof(OT_OBJ_T));
750 }
751 varframe->data = tmp;
752 varframe->max *= 2;
753 }
754 varframe->data[varframe->num++] = add;
755 Tcl_IncrRefCount(add);
756 }
757 return add;
758}
MkSysCalloc
MK_PTR MkSysCalloc(MK_OBJN fmtobj, size_t const nmemb, size_t const size)
MkSysReCalloc
MK_PTR MkSysReCalloc(MK_OBJN fmtobj, MK_PTR const buf, MK_NUM const oldnum, MK_NUM const addnum, size_t const size)

◆ tclmkkernel_pMkBufferC_Init()

int tclmkkernel_pMkBufferC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_pMkBufferListC_Init()

int tclmkkernel_pMkBufferListC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_pMkBufferStreamC_Init()

int tclmkkernel_pMkBufferStreamC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_pMkErrorC_Init()

int tclmkkernel_pMkErrorC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_pMkLogFileC_Init()

int tclmkkernel_pMkLogFileC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_pMkObjectC_Init()

int tclmkkernel_pMkObjectC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_pMkRuntimeC_Init()

int tclmkkernel_pMkRuntimeC_Init ( MK_RT mkrt,
OT_ENV_T ,
OT_NS_T  )

◆ tclmkkernel_PrintLngObj()

MK_TCL_EXTERN MK_STR tclmkkernel_PrintLngObj ( OT_Prefix_ARGS const char * ,
OT_OBJ_T  )

◆ tclmkkernel_ProcResolve()

MK_TCL_EXTERN enum MkErrorE tclmkkernel_ProcResolve ( MK_RT mkrt,
OT_ENV_T ,
MK_MNG ,
struct MkCallS *  )

◆ tclmkkernel_ProcResolveAppendArgs()

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

Definition at line 533 of file LibMkKernel_tcl.h.

537 {
538 assert(call != NULL);
539 assert(objcP != NULL);
540 assert(objv != NULL);
541
542 if (call->args) {
543 int myobjc;
544 OT_OBJ_T *myobjv;
545 int objc = *objcP;
546 // call->args already checked to be a valid TCL-LIST
547 Tcl_ListObjGetElements(NULL,call->args,&myobjc,&myobjv);
548 for (int i=0; i<myobjc; i++) {
549//printLLngObj(objv[i])
550 objv[objc++] = myobjv[i];
551 }
552 *objcP = objc;
553 }
554}

◆ tclmkkernel_STRN2VAL()

static OT_OBJ_T tclmkkernel_STRN2VAL ( MK_STRN val)
inlinestatic

Definition at line 893 of file LibMkKernel_tcl.h.

893 {
894 // mark=MK_NULL
895 if (val==MK_NULL) {
896 return RG(MK_NULL_OBJ);
897 } else {
898 return Tcl_NewStringObj(val,-1);
899 }
900}
RG
#define RG(_key)
Definition LibMkKernel_tcl.h:278
MK_NULL
#define MK_NULL

◆ tclmkkernel_TestObject()

MK_TCL_EXTERN bool tclmkkernel_TestObject ( OT_Prefix_ARGS OT_OBJ_T,
OT_CLS_T ,
MK_OBJ * ,
MkTestClassE *  )

◆ tclmkkernel_UnknownSetup()

MK_TCL_EXTERN int tclmkkernel_UnknownSetup ( OT_ENV_T ,
OT_SELF_T ,
const Tcl_MethodType [],
OtUnknownS *  )

Variable Documentation

◆ tclmkkernel_AtomMeta

MK_TCL_EXTERN_DATA const Tcl_ObjectMetadataType tclmkkernel_AtomMeta

Definition at line 164 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkBufferC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkBufferC

Definition at line 947 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkBufferC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkBufferC_MK_NULL

Definition at line 948 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkBufferListC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkBufferListC

Definition at line 929 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkBufferListC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkBufferListC_MK_NULL

Definition at line 930 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkBufferStreamC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkBufferStreamC

Definition at line 965 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkBufferStreamC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkBufferStreamC_MK_NULL

Definition at line 966 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkErrorC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkErrorC

Definition at line 983 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkErrorC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkErrorC_MK_NULL

Definition at line 984 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkLogFileC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkLogFileC

Definition at line 1001 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkLogFileC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkLogFileC_MK_NULL

Definition at line 1002 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkObjectC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkObjectC

Definition at line 1019 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkObjectC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkObjectC_MK_NULL

Definition at line 1020 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkRuntimeC

MK_TCL_EXTERN_DATA __thread OT_CLS_T tclmkkernel_MkRuntimeC

Definition at line 1037 of file LibMkKernel_tcl.h.

◆ tclmkkernel_MkRuntimeC_MK_NULL

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_MkRuntimeC_MK_NULL

Definition at line 1038 of file LibMkKernel_tcl.h.

◆ tclmkkernel_reggv

MK_TCL_EXTERN_DATA __thread OT_OBJ_T tclmkkernel_reggv[100]

Definition at line 280 of file LibMkKernel_tcl.h.

◆ tclmkkernel_tcl_BOOLEAN

MK_TCL_EXTERN_DATA const Tcl_ObjType* tclmkkernel_tcl_BOOLEAN

Definition at line 303 of file LibMkKernel_tcl.h.

◆ tclmkkernel_tcl_DOUBLE

MK_TCL_EXTERN_DATA const Tcl_ObjType* tclmkkernel_tcl_DOUBLE

Definition at line 302 of file LibMkKernel_tcl.h.

◆ tclmkkernel_tcl_INDEX

MK_TCL_EXTERN_DATA const Tcl_ObjType* tclmkkernel_tcl_INDEX

Definition at line 304 of file LibMkKernel_tcl.h.

◆ tclmkkernel_tcl_LONG

MK_TCL_EXTERN_DATA const Tcl_ObjType* tclmkkernel_tcl_LONG

Definition at line 300 of file LibMkKernel_tcl.h.

◆ tclmkkernel_tcl_WIDE

MK_TCL_EXTERN_DATA const Tcl_ObjType* tclmkkernel_tcl_WIDE

Definition at line 301 of file LibMkKernel_tcl.h.

Generated on Fri Apr 25 2025 22:58:28 for theSq3Lite by doxygen 1.12.0