11#define META_FILE_NAME "MkRuntimeC_tcl.c"
15#define OT_CLASS NS(MkRuntimeC)
16#define OT_CLASS_NAME "MkRuntimeC"
18#define OBJECT2RT(O) MkAssertCastM(MkRuntimeC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))
48#define OT_SETUP_hdl_static_constr_pre
49#define OT_SETUP_hdl_static_constr \
50 OT_SETUP_hdl_static_constr_pre; \
53#define OT_SETUP_hdl_static \
54 int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
56 __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
57 __attribute__((unused)) MK_TYP hdl = MkRuntimeC##_TT;
59#define OT_SETUP_hdl SetupHdlFromMetaData_2(RT,MK_RT);
60#define OT_SETUP_hdl__null_allow SetupHdlFromMetaData__null_allow_2(RT,MK_RT);
61#define OT_SETUP_hdl_destr SetupHdlFromMetaData__null_allow_2(RT,MK_RT);
63#define OT_SETUP_hdl_constr_pre
64#define OT_SETUP_hdl_constr \
65 OT_SETUP_hdl_constr_pre; \
66 int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
68 MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
69 MK_RT hdl = (MK_RT) &MkERROR;
71#if !defined(SetupRtFromHdl_XN)
72 #define SetupRtFromHdl_XN(hdl) AllRtSetup_XN(hdl)
73 #define SetupRtFromHdl_X(hdl) AllRtSetup_X(hdl)
79 if (MkRuntimeCTT == NULL) MkRuntimeCTT = MkRuntimeSTT; \
82 if (MkRuntimeCTT->selfCreate == NS(MkRuntimeC_selfCreate)) return MK_OK; \
85 MkRuntimeCTT->selfCreate = NS(MkRuntimeC_selfCreate); \
86 MkRuntimeCTT->selfDelete = NS(MkRuntimeC_selfDelete); \
87 MkRuntimeCTT->selfUnlink = NS(MkRuntimeC_selfUnlink); \
90 OT_SELF_T classO = MK(ClassDef)(interp,ns,MkRuntimeCTT); \
91 check_NULL(classO) goto error; \
92 OT_CLASS = Tcl_GetObjectAsClass(classO); \
95 static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
96 check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
99 static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
100 check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
103 MK(MkRuntimeC_MK_NULL) = Tcl_GetObjectName(interp, \
104 MK(AtomCreate) (MK_RT_CALL interp, NULL , OT_CLASS, "MK_NULL" , "::tclmkkernel::MkRuntimeC" ) \
106 Tcl_IncrRefCount(MK(MkRuntimeC_MK_NULL));
108#define VER TCL_OO_METHOD_VERSION_CURRENT
115#define DebugGet_doc "int32 [MkRuntimeC DebugGet]"
116#define DebugSet_doc "MkRuntimeC DebugSet dbg:int32"
117#define ErrorGetCode_doc "MkErrorE [MkRuntimeC ErrorGetCode]"
118#define IsSilentGet_doc "bool [MkRuntimeC IsSilentGet]"
119#define IsSilentSet_doc "MkRuntimeC IsSilentSet silent:bool"
120#define Log0_doc "MkRuntimeC Log0 ?fmtobj:MkObjectC=\"MK_NULL\"? ?debug:int32=0? ?callfunc:string=\"MK_NULL\"? ?lvl:int32=0? (const)"
121#define LogTargetGet_doc "string [MkRuntimeC LogTargetGet]"
122#define LogTargetReset_doc "MkRuntimeC LogTargetReset"
123#define LogTargetSet_doc "MkRuntimeC LogTargetSet logTgt:string"
124#define NoDecoSet_doc "MkRuntimeC NoDecoSet noDeco:bool"
320const static Tcl_MethodType
NS(sOtClassDef)[] = {
324 {
VER,
"DebugGet" ,
NS(MkRuntimeC_DebugGet) , NULL, NULL},
325 {
VER,
"DebugSet" ,
NS(MkRuntimeC_DebugSet) , NULL, NULL},
326 {
VER,
"ErrorGetCode" ,
NS(MkRuntimeC_ErrorGetCode) , NULL, NULL},
327 {
VER,
"IsSilentGet" ,
NS(MkRuntimeC_IsSilentGet) , NULL, NULL},
328 {
VER,
"IsSilentSet" ,
NS(MkRuntimeC_IsSilentSet) , NULL, NULL},
329 {
VER,
"Log0" ,
NS(MkRuntimeC_Log0) , NULL, NULL},
330 {
VER,
"LogTargetGet" ,
NS(MkRuntimeC_LogTargetGet) , NULL, NULL},
331 {
VER,
"LogTargetReset" ,
NS(MkRuntimeC_LogTargetReset) , NULL, NULL},
332 {
VER,
"LogTargetSet" ,
NS(MkRuntimeC_LogTargetSet) , NULL, NULL},
333 {
VER,
"NoDecoSet" ,
NS(MkRuntimeC_NoDecoSet) , NULL, NULL},
336 {0, NULL, NULL, NULL}
341const static Tcl_MethodType
NS(sInstanceDef)[] = {
347 {0, NULL, NULL, NULL, NULL}
#define OT_CHECK_bool(val)
#define OT_SETUP_VARARGS(min, max, d)
#define OT_retObj_SET_BOL(nat)
#define OT_SETUP_NOARG(d)
#define OT_SETUP_ONEARG(d)
#define OT_CHECK_NI4(val)
#define OT_retObj_SET_Error
#define OT_CHECK_REQUIRED(val)
#define OT_retObj_SET_None
#define OT_retObj_SET_I32(nat)
#define OT_retObj_SET_STR(nat)
#define OT_NEW_Mk_enum_OBJ(typ, val)
#define OT_CHECK_OPTIONAL(val)
#define OT_retObj_SET(val)
#define MkErrorC_Check(mng, PROC)
#define OT_CHECK_STRN(val)
static __thread MK_TYP MkRuntimeCTT
#define LogTargetReset_doc
#define OT_SETUP_hdl_static
#define MK_NULL_YES
flag, allow NULL
MK_PTRB * MK_PTR
generic pointer data-type
const MK_STRB * MK_STRN
constant string pointer data-type
bool MK_BOOL
real bool data-type
signed int MK_I32
4 byte integer data-type
int MK_DBG
debug-level data-type …
static bool MkSysStringIsNULL(MK_STRN str)
test if string is NULL or EMPTY …
#define MkRuntimeLogTargetReset()
#define MkRuntimeErrorGetCode()
static void MkRuntimeDebugSet(MK_I32 dbg)
set the MkRuntimeS::debug value …
static bool MkRuntimeIsSilentGet(void)
get the MkRuntimeS::isSilent value …
#define MkRuntimeLogTargetSet(...)
#define MkRuntimeNoDecoSet(...)
static MK_I32 MkRuntimeDebugGet(void)
get the MkRuntimeS::debug value …
#define MkRuntimeIsSilentSet(...)
static MK_STRN MkRuntimeLogTargetGet(void)
get the MkLogDataS::logNAME value …
#define MkRuntimeLog0(...)
#define OT_CHECK_OBJN(val, nullB)
MkTypeS - class known as typ or type is used as class-base for a Managed-Object-Technology (MOT) type...