MkRuntimeC_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMkKernel_private_tcl.h"

Include dependency graph for MkRuntimeC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MkRuntimeC_tcl.c"
#define	OT_CLASS   NS(MkRuntimeC)
#define	OT_CLASS_NAME   "MkRuntimeC"
#define	OBJECT2RT(O)
#define	OT_SETUP_hdl_static_constr_pre
#define	OT_SETUP_hdl_static_constr
#define	OT_SETUP_hdl_static
#define	OT_SETUP_hdl   SetupHdlFromMetaData_2(RT,MK_RT);
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(RT,MK_RT);
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(RT,MK_RT);
#define	OT_SETUP_hdl_constr_pre
#define	OT_SETUP_hdl_constr
#define	SetupRtFromHdl_XN(hdl)
#define	SetupRtFromHdl_X(hdl)
#define	ClassInit
#define	VER   TCL_OO_METHOD_VERSION_CURRENT
#define	DebugGet_doc   "int32 [MkRuntimeC DebugGet]"
#define	DebugSet_doc   "MkRuntimeC DebugSet dbg:int32"
#define	ErrorGetCode_doc   "MkErrorE [MkRuntimeC ErrorGetCode]"
#define	IsSilentGet_doc   "bool [MkRuntimeC IsSilentGet]"
#define	IsSilentSet_doc   "MkRuntimeC IsSilentSet silent:bool"
#define	Log0_doc   "MkRuntimeC Log0 ?fmtobj:MkObjectC=\"MK_NULL\"? ?debug:int32=0? ?callfunc:string=\"MK_NULL\"? ?lvl:int32=0? (const)"
#define	LogTargetGet_doc   "string [MkRuntimeC LogTargetGet]"
#define	LogTargetReset_doc   "MkRuntimeC LogTargetReset"
#define	LogTargetSet_doc   "MkRuntimeC LogTargetSet logTgt:string"
#define	NoDecoSet_doc   "MkRuntimeC NoDecoSet noDeco:bool"

Functions
static MK_PTR	tclmkkernel_MkRuntimeC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclmkkernel_MkRuntimeC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclmkkernel_MkRuntimeC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	tclmkkernel_MkRuntimeC_DebugGet (OtClass_ARGS)
	Tcl: (static) int32 [MkRuntimeC DebugGet] → C-API get the MkRuntimeS::debug value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_DebugSet (OtClass_ARGS)
	Tcl: (static) MkRuntimeC DebugSet dbg:int32 → C-API set the MkRuntimeS::debug value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_ErrorGetCode (OtClass_ARGS)
	Tcl: (static) MkErrorE [MkRuntimeC ErrorGetCode] → C-API return MkErrorS::code from a given MkRuntimeC …
static OT_ProcRet	tclmkkernel_MkRuntimeC_IsSilentGet (OtClass_ARGS)
	Tcl: (static) bool [MkRuntimeC IsSilentGet] → C-API get the MkRuntimeS::isSilent value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_IsSilentSet (OtClass_ARGS)
	Tcl: (static) MkRuntimeC IsSilentSet silent:bool → C-API set the MkRuntimeS::isSilent value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_LogTargetGet (OtClass_ARGS)
	Tcl: (static) string [MkRuntimeC LogTargetGet] → C-API get the MkLogDataS::logNAME value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_LogTargetReset (OtClass_ARGS)
	Tcl: (static) MkRuntimeC LogTargetReset → C-API set the MkRuntimeS::log value to the DEFAULT value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_LogTargetSet (OtClass_ARGS)
	Tcl: (static) MkRuntimeC LogTargetSet logTgt:string → C-API set the MkRuntimeS::log value and cleanup old value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_NoDecoSet (OtClass_ARGS)
	Tcl: (static) MkRuntimeC NoDecoSet noDeco:bool → C-API set the MkRuntimeS::noDeco value …
static OT_ProcRet	tclmkkernel_MkRuntimeC_Log0 (OtClass_ARGS)
	Tcl: (static) MkRuntimeC Log0 ?fmtobj:MkObjectC="MK_NULL"? ?debug:int32=0? ?callfunc:string="MK_NULL"? ?lvl:int32=0? → C-API log the MkRuntimeC …
int	tclmkkernel_pMkRuntimeC_Init (MK_RT mkrt, OT_ENV_T interp, OT_NS_T ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	MkRuntimeCTT = NULL
__thread OT_OBJ_T	tclmkkernel_MkRuntimeC_MK_NULL = NULL
static const Tcl_MethodType	tclmkkernel_sOtClassDef []
static const Tcl_MethodType	tclmkkernel_sInstanceDef []

Detailed Description

tag: nhi1-release-250425

Copyright

(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information

Definition in file MkRuntimeC_tcl.c.

Macro Definition Documentation

ClassInit

#define ClassInit

Value:

  /* if not already done, initialize NEW MQ type */ \
  if (MkRuntimeCTT == NULL) MkRuntimeCTT = MkRuntimeSTT; \
 \
  /* protect against double call */ \
  if (MkRuntimeCTT->selfCreate == NS(MkRuntimeC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MkRuntimeCTT->selfCreate    = NS(MkRuntimeC_selfCreate); \
  MkRuntimeCTT->selfDelete    = NS(MkRuntimeC_selfDelete); \
  MkRuntimeCTT->selfUnlink    = NS(MkRuntimeC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MkRuntimeCTT); \
  check_NULL(classO) goto error; \
  OT_CLASS = Tcl_GetObjectAsClass(classO); \
 \
  /* create the TCL static Methods */ \
  static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
 \
  /* create the TCL instance Methods */ \
  static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
 \
  /* define the "NULL" object */ \
  MK(MkRuntimeC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkRuntimeC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MK(MkRuntimeC_MK_NULL));

Definition at line 77 of file MkRuntimeC_tcl.c.

#define   ClassInit \
  /* if not already done, initialize NEW MQ type */ \
  if (MkRuntimeCTT == NULL) MkRuntimeCTT = MkRuntimeSTT; \
 \
  /* protect against double call */ \
  if (MkRuntimeCTT->selfCreate == NS(MkRuntimeC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MkRuntimeCTT->selfCreate    = NS(MkRuntimeC_selfCreate); \
  MkRuntimeCTT->selfDelete    = NS(MkRuntimeC_selfDelete); \
  MkRuntimeCTT->selfUnlink    = NS(MkRuntimeC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MkRuntimeCTT); \
  check_NULL(classO) goto error; \
  OT_CLASS = Tcl_GetObjectAsClass(classO); \
 \
  /* create the TCL static Methods */ \
  static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
 \
  /* create the TCL instance Methods */ \
  static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
  check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
 \
  /* define the "NULL" object */ \
  MK(MkRuntimeC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkRuntimeC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MK(MkRuntimeC_MK_NULL));

DebugGet_doc

#define DebugGet_doc   "int32 [MkRuntimeC DebugGet]"

Definition at line 115 of file MkRuntimeC_tcl.c.

DebugSet_doc

#define DebugSet_doc   "MkRuntimeC DebugSet dbg:int32"

Definition at line 116 of file MkRuntimeC_tcl.c.

ErrorGetCode_doc

#define ErrorGetCode_doc   "MkErrorE [MkRuntimeC ErrorGetCode]"

Definition at line 117 of file MkRuntimeC_tcl.c.

IsSilentGet_doc

#define IsSilentGet_doc   "bool [MkRuntimeC IsSilentGet]"

Definition at line 118 of file MkRuntimeC_tcl.c.

IsSilentSet_doc

#define IsSilentSet_doc   "MkRuntimeC IsSilentSet silent:bool"

Definition at line 119 of file MkRuntimeC_tcl.c.

Log0_doc

#define Log0_doc   "MkRuntimeC Log0 ?fmtobj:MkObjectC=\"MK_NULL\"? ?debug:int32=0? ?callfunc:string=\"MK_NULL\"? ?lvl:int32=0? (const)"

Definition at line 120 of file MkRuntimeC_tcl.c.

LogTargetGet_doc

#define LogTargetGet_doc   "string [MkRuntimeC LogTargetGet]"

Definition at line 121 of file MkRuntimeC_tcl.c.

LogTargetReset_doc

#define LogTargetReset_doc   "MkRuntimeC LogTargetReset"

Definition at line 122 of file MkRuntimeC_tcl.c.

LogTargetSet_doc

#define LogTargetSet_doc   "MkRuntimeC LogTargetSet logTgt:string"

Definition at line 123 of file MkRuntimeC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "MkRuntimeC_tcl.c"

Definition at line 11 of file MkRuntimeC_tcl.c.

NoDecoSet_doc

#define NoDecoSet_doc   "MkRuntimeC NoDecoSet noDeco:bool"

Definition at line 124 of file MkRuntimeC_tcl.c.

OBJECT2RT

#define OBJECT2RT

(

O

)

Value:

MkAssertCastM(MkRuntimeC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))

Definition at line 18 of file MkRuntimeC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(MkRuntimeC)

Definition at line 15 of file MkRuntimeC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "MkRuntimeC"

Definition at line 16 of file MkRuntimeC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(RT,MK_RT);

Definition at line 59 of file MkRuntimeC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(RT,MK_RT);

Definition at line 60 of file MkRuntimeC_tcl.c.

OT_SETUP_hdl_constr

#define OT_SETUP_hdl_constr

Value:

  OT_SETUP_hdl_constr_pre; \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  MK_RT hdl = (MK_RT) &MkERROR;

Definition at line 64 of file MkRuntimeC_tcl.c.

#define   OT_SETUP_hdl_constr \
  OT_SETUP_hdl_constr_pre; \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  MK_RT hdl = (MK_RT) &MkERROR;

OT_SETUP_hdl_constr_pre

#define OT_SETUP_hdl_constr_pre

Definition at line 63 of file MkRuntimeC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(RT,MK_RT);

Definition at line 61 of file MkRuntimeC_tcl.c.

OT_SETUP_hdl_static

#define OT_SETUP_hdl_static

Value:

  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  __attribute__((unused)) MK_TYP hdl = MkRuntimeC##_TT;

Definition at line 53 of file MkRuntimeC_tcl.c.

#define   OT_SETUP_hdl_static     \
  int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
  AllRtSetup_NULL; \
  __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
  __attribute__((unused)) MK_TYP hdl = MkRuntimeC##_TT;

OT_SETUP_hdl_static_constr

#define OT_SETUP_hdl_static_constr

Value:

  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

Definition at line 49 of file MkRuntimeC_tcl.c.

#define   OT_SETUP_hdl_static_constr \
  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static

OT_SETUP_hdl_static_constr_pre

#define OT_SETUP_hdl_static_constr_pre

Definition at line 48 of file MkRuntimeC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 73 of file MkRuntimeC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 72 of file MkRuntimeC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 108 of file MkRuntimeC_tcl.c.

Function Documentation

tclmkkernel_MkRuntimeC_selfCreate()

static MK_PTR tclmkkernel_MkRuntimeC_selfCreate ( MK_RT mkrt, MK_OBJ const obj, MK_PTR const env )

static

Definition at line 28 of file MkRuntimeC_tcl.c.

                                                                                        {
  OT_ENV_T interp = env;
  return MK(AtomCreate) (MK_RT_CALL interp,obj,OT_CLASS,NULL,NULL);
}

tclmkkernel_MkRuntimeC_selfDelete()

static void tclmkkernel_MkRuntimeC_selfDelete ( MK_RT mkrt, MK_PTR selfP, MK_PTR const env )

static

Definition at line 33 of file MkRuntimeC_tcl.c.

                                                                                  {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomDeleteHard) (MK_RT_CALL interp, selfO);
}

tclmkkernel_MkRuntimeC_selfUnlink()

static void tclmkkernel_MkRuntimeC_selfUnlink ( MK_RT mkrt, MK_PTR selfP, MK_PTR const env )

static

Definition at line 39 of file MkRuntimeC_tcl.c.

                                                                                  {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomUnlink) (MK_RT_CALL interp, selfO);
}

tclmkkernel_pMkRuntimeC_Init()

int tclmkkernel_pMkRuntimeC_Init	(	MK_RT	mkrt,
		OT_ENV_T	interp,
		OT_NS_T	ns )

TCL API Public API

Definition at line 362 of file MkRuntimeC_tcl.c.

{
  ClassInit
 
  return TCL_OK;
error:
  return TCL_ERROR;
}

Variable Documentation

MkRuntimeCTT

__thread MK_TYP MkRuntimeCTT = NULL

static

Definition at line 24 of file MkRuntimeC_tcl.c.

OT_CLASS

__thread OT_CLS_T OT_CLASS = NULL

Definition at line 21 of file MkRuntimeC_tcl.c.

tclmkkernel_MkRuntimeC_MK_NULL

__thread OT_OBJ_T tclmkkernel_MkRuntimeC_MK_NULL = NULL

Definition at line 25 of file MkRuntimeC_tcl.c.

tclmkkernel_sInstanceDef

const Tcl_MethodType tclmkkernel_sInstanceDef[]

static

Initial value:

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

Definition at line 341 of file MkRuntimeC_tcl.c.

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

tclmkkernel_sOtClassDef

const Tcl_MethodType tclmkkernel_sOtClassDef[]

static

Initial value:

= {
 
 
 
  {VER, "DebugGet"            ,  tclmkkernel_MkRuntimeC_DebugGet , NULL, NULL},
  {VER, "DebugSet"            ,  tclmkkernel_MkRuntimeC_DebugSet , NULL, NULL},
  {VER, "ErrorGetCode"        ,  tclmkkernel_MkRuntimeC_ErrorGetCode , NULL, NULL},
  {VER, "IsSilentGet"         ,  tclmkkernel_MkRuntimeC_IsSilentGet , NULL, NULL},
  {VER, "IsSilentSet"         ,  tclmkkernel_MkRuntimeC_IsSilentSet , NULL, NULL},
  {VER, "Log0"                ,  tclmkkernel_MkRuntimeC_Log0 , NULL, NULL},
  {VER, "LogTargetGet"        ,  tclmkkernel_MkRuntimeC_LogTargetGet , NULL, NULL},
  {VER, "LogTargetReset"      ,  tclmkkernel_MkRuntimeC_LogTargetReset , NULL, NULL},
  {VER, "LogTargetSet"        ,  tclmkkernel_MkRuntimeC_LogTargetSet , NULL, NULL},
  {VER, "NoDecoSet"           ,  tclmkkernel_MkRuntimeC_NoDecoSet , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

METHOD API

Definition at line 320 of file MkRuntimeC_tcl.c.

                                                {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkRuntimeC,MkRuntime,sm_
  {VER, "DebugGet"            , NS(MkRuntimeC_DebugGet)                 , NULL, NULL},
  {VER, "DebugSet"            , NS(MkRuntimeC_DebugSet)                 , NULL, NULL},
  {VER, "ErrorGetCode"        , NS(MkRuntimeC_ErrorGetCode)             , NULL, NULL},
  {VER, "IsSilentGet"         , NS(MkRuntimeC_IsSilentGet)              , NULL, NULL},
  {VER, "IsSilentSet"         , NS(MkRuntimeC_IsSilentSet)              , NULL, NULL},
  {VER, "Log0"                , NS(MkRuntimeC_Log0)                     , NULL, NULL},
  {VER, "LogTargetGet"        , NS(MkRuntimeC_LogTargetGet)             , NULL, NULL},
  {VER, "LogTargetReset"      , NS(MkRuntimeC_LogTargetReset)           , NULL, NULL},
  {VER, "LogTargetSet"        , NS(MkRuntimeC_LogTargetSet)             , NULL, NULL},
  {VER, "NoDecoSet"           , NS(MkRuntimeC_NoDecoSet)                , NULL, NULL},
 
// END-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
  {0, NULL, NULL, NULL}
};