MkErrorC_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMkKernel_private_tcl.h"

Include dependency graph for MkErrorC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MkErrorC_tcl.c"
#define	OT_CLASS   NS(MkErrorC)
#define	OT_CLASS_NAME   "MkErrorC"
#define	OBJECT2ERR(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(ERR,MK_ERR);
#define	OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(ERR,MK_ERR);
#define	OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(ERR,MK_ERR);
#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	DEFAULT_doc   "MkErrorC [MkErrorC DEFAULT]"
#define	FORMAT_doc   "MkErrorC [MkErrorC FORMAT ?fmtobj:MkObjectC=\"MK_NULL\"?]"
#define	GetNull_doc   "MkErrorC [MkErrorC GetNull]"
#define	HandleResolve_doc   "MkErrorC [MkErrorC HandleResolve netHdl:MK_HDL]"
#define	IGNORE_doc   "MkErrorC [MkErrorC IGNORE]"
#define	Instances_doc   "MkErrorC [MkErrorC Instances]"
#define	PRINT_doc   "MkErrorC [MkErrorC PRINT]"
#define	Dup_doc   "MkErrorC [$srce Dup] (const)"
#define	Catch_doc   "MkErrorC [$err Catch ?exception:errorCode=\"MK_NULL\"? ?callfunc:string=\"MK_NULL\"?]"
#define	Next_doc   "MkErrorC [$err Next]"
#define	NoRaise_doc   "MkErrorC [$err NoRaise]"
#define	Prev_doc   "MkErrorC [$err Prev]"
#define	AppendC_doc   "$err AppendC message:string"
#define	Cleanup_doc   "$err Cleanup ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1?"
#define	Copy_doc   "$dest Copy srce:MkErrorC"
#define	GetCode_doc   "MkErrorE [$err GetCode] (const)"
#define	GetNum_doc   "int32 [$err GetNum] (const)"
#define	GetSize_doc   "long [$err GetSize] (const)"
#define	GetText_doc   "string [$err GetText] (const)"
#define	IsABORT_doc   "bool [$err IsABORT] (const)"
#define	IsEXIT_doc   "bool [$err IsEXIT]"
#define	IsSOCKET_doc   "bool [$err IsSOCKET] (const)"
#define	IsTIMEOUT_doc   "bool [$err IsTIMEOUT] (const)"
#define	Println_doc   "$err Println ?msg:string=\"\"? ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1?"
#define	Raise_doc   "$err Raise (const)"
#define	Reset_doc   "$err Reset ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1? ?force:bool=false?"
#define	SetABORT_doc   "$err SetABORT ?detail:string=\"UNKNOWN\"? ?callfunc:string=\"MK_NULL\"?"
#define	SetC_doc   "$err SetC message:string ?callfunc:string=\"MK_NULL\"? ?errnum:int32=-1?"
#define	SetCONTINUE_doc   "$err SetCONTINUE"
#define	SetCode_doc   "$err SetCode code:MkErrorE"
#define	SetEXIT_doc   "$err SetEXIT ?callfunc:string=\"MK_NULL\"?"
#define	SetSOCKET_doc   "$err SetSOCKET ?detail:string=\"UNKNOWN\"? ?callfunc:string=\"MK_NULL\"?"
#define	Stack_doc   "MkErrorE [$err Stack ?callfunc:string=\"MK_NULL\"? ?callfile:string=\"MK_NULL\"? ?callline:int32=-1?]"
#define	StackFormat_doc   "$err StackFormat ?callfunc:string=\"MK_NULL\"? ?callfile:string=\"MK_NULL\"? ?callline:int32=-1?"
#define	PanicC_doc   "MkErrorC PanicC fmtobj:MkObjectC callfunc:string errnum:int32 message:string"
#define	PanicDEFAULT_doc   "MkErrorC PanicDEFAULT ?fmtobj:MkObjectC=\"MK_NULL\"? ?callfunc:string=\"MK_NULL\"?"
#define	MkErrorCatchTmpl(...)

Functions
static MK_PTR	tclmkkernel_MkErrorC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclmkkernel_MkErrorC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclmkkernel_MkErrorC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	tclmkkernel_MkErrorC_HandleResolve (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC HandleResolve netHdl:MK_HDL] → C-API Handle-Resolve-Slot - return a MkErrorC from netHdl or "MK_NULL" if invalid…
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmkkernel_MkErrorC_HandleGet (MkErrorC_ARGS)
static OT_ProcRet	tclmkkernel_MkErrorC_Next (MkErrorC_ARGS)
	Tcl: MkErrorC [$err Next] → C-API get next instance from linked-list of MkErrorS type
static OT_ProcRet	tclmkkernel_MkErrorC_Prev (MkErrorC_ARGS)
	Tcl: MkErrorC [$err Prev] → C-API get previous instance from linked-list of MkErrorS type
static OT_ProcRet	tclmkkernel_MkErrorC_Instances (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC Instances] → C-API get head-instance from linked-list of MkErrorS type …
static OT_ProcRet	tclmkkernel_MkErrorC_GetNull (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC GetNull] → C-API Null-Slot - return a MkErrorC typed NULL instance …
static OT_ProcRet	tclmkkernel_MkErrorC_GetCode (MkErrorC_ARGS)
	Tcl: MkErrorE [$err GetCode] → C-API get the value of MkErrorS::code …
static OT_ProcRet	tclmkkernel_MkErrorC_GetNum (MkErrorC_ARGS)
	Tcl: int32 [$err GetNum] → C-API get the MkErrorS::num. The number can be used as exit-code …
static OT_ProcRet	tclmkkernel_MkErrorC_GetSize (MkErrorC_ARGS)
	Tcl: long [$err GetSize] → C-API get the error-message-size from the exception-object …
static OT_ProcRet	tclmkkernel_MkErrorC_GetText (MkErrorC_ARGS)
	Tcl: string [$err GetText] → C-API get the MkErrorS::text …
static OT_ProcRet	tclmkkernel_MkErrorC_Catch (MkErrorC_ARGS)
	Tcl: MkErrorC [$err Catch ?exception:errorCode="MK_NULL"? ?callfunc:string="MK_NULL"?] → C-API convert a programming-language-error into an tclmkkernel error …
static OT_ProcRet	tclmkkernel_MkErrorC_Cleanup (MkErrorC_ARGS)
	Tcl: $err Cleanup ?callfunc:string="MK_NULL"? ?callline:int32=-1? → C-API cleanup and print unwanted active error …
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmkkernel_MkErrorC_Log (MkErrorC_ARGS)
static OT_ProcRet	tclmkkernel_MkErrorC_Println (MkErrorC_ARGS)
	Tcl: $err Println ?msg:string=""? ?callfunc:string="MK_NULL"? ?callline:int32=-1? → C-API print the default-error to the MkLogFileC (default: stderr) and clear the error afterwards …
static OT_ProcRet	tclmkkernel_MkErrorC_Reset (MkErrorC_ARGS)
	Tcl: $err Reset ?callfunc:string="MK_NULL"? ?callline:int32=-1? ?force:bool=false? → C-API This function clears the err and resets to MK_OK …
static OT_ProcRet	tclmkkernel_MkErrorC_Stack (MkErrorC_ARGS)
	Tcl: MkErrorE [$err Stack ?callfunc:string="MK_NULL"? ?callfile:string="MK_NULL"? ?callline:int32=-1?] → C-API check on error and if yes append an ErrorStackFormat to the error-message …
static OT_ProcRet	tclmkkernel_MkErrorC_StackFormat (MkErrorC_ARGS)
	Tcl: $err StackFormat ?callfunc:string="MK_NULL"? ?callfile:string="MK_NULL"? ?callline:int32=-1? → C-API append an ensemble of func, file and line to the error-message …
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmkkernel_MkErrorC_ToString (MkErrorC_ARGS)
static OT_ProcRet	tclmkkernel_MkErrorC_NoRaise (MkErrorC_ARGS)
	Tcl: MkErrorC [$err NoRaise] → C-API ignore the next return of MK_ERROR and do not raise an target-language-exception …
static OT_ProcRet	tclmkkernel_MkErrorC_AppendC (MkErrorC_ARGS)
	Tcl: $err AppendC message:string → C-API append the message to the MkErrorS::text …
static OT_ProcRet	tclmkkernel_MkErrorC_Raise (MkErrorC_ARGS)
	Tcl: $err Raise → C-API convert an tclmkkernel error into an programming-language-error and raise afterwards. …
static OT_ProcRet	tclmkkernel_MkErrorC_SetC (MkErrorC_ARGS)
	Tcl: $err SetC message:string ?callfunc:string="MK_NULL"? ?errnum:int32=-1? → C-API 'set' and 'raise' the MkErrorC using a string-message and a errnum-number …
static OT_ProcRet	tclmkkernel_MkErrorC_PanicC (OtClass_ARGS)
	Tcl: (static) MkErrorC PanicC fmtobj:MkObjectC callfunc:string errnum:int32 message:string → C-API do a panic with string as argument …
static OT_ProcRet	tclmkkernel_MkErrorC_PanicDEFAULT (OtClass_ARGS)
	Tcl: (static) MkErrorC PanicDEFAULT ?fmtobj:MkObjectC="MK_NULL"? ?callfunc:string="MK_NULL"? → C-API make panic from MkErrorDEFAULT_RT …
static OT_ProcRet	tclmkkernel_MkErrorC_IsABORT (MkErrorC_ARGS)
	Tcl: bool [$err IsABORT] → C-API check on ABORT signal …
static OT_ProcRet	tclmkkernel_MkErrorC_IsEXIT (MkErrorC_ARGS)
	Tcl: bool [$err IsEXIT] → C-API check on APPLICATION-EXIT error …
static OT_ProcRet	tclmkkernel_MkErrorC_IsSOCKET (MkErrorC_ARGS)
	Tcl: bool [$err IsSOCKET] → C-API check on SOCKET-DOWN error …
static OT_ProcRet	tclmkkernel_MkErrorC_IsTIMEOUT (MkErrorC_ARGS)
	Tcl: bool [$err IsTIMEOUT] → C-API check on TIMEOUT error …
static OT_ProcRet	tclmkkernel_MkErrorC_SetABORT (MkErrorC_ARGS)
	Tcl: $err SetABORT ?detail:string="UNKNOWN"? ?callfunc:string="MK_NULL"? → C-API send the ABORT signal to the calling stack…
static OT_ProcRet	tclmkkernel_MkErrorC_SetCONTINUE (MkErrorC_ARGS)
	Tcl: $err SetCONTINUE → C-API signal end of processing in an MqMqEventIF callback …
static OT_ProcRet	tclmkkernel_MkErrorC_SetCode (MkErrorC_ARGS)
	Tcl: $err SetCode code:MkErrorE → C-API set the MkErrorS::code value …
static OT_ProcRet	tclmkkernel_MkErrorC_SetEXIT (MkErrorC_ARGS)
	Tcl: $err SetEXIT ?callfunc:string="MK_NULL"? → C-API finish the current callback, return to toplevel and MqExit the application …
static OT_ProcRet	tclmkkernel_MkErrorC_SetSOCKET (MkErrorC_ARGS)
	Tcl: $err SetSOCKET ?detail:string="UNKNOWN"? ?callfunc:string="MK_NULL"? → C-API create SOCKET-DOWN error …
static OT_ProcRet	tclmkkernel_MkErrorC_DEFAULT (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC DEFAULT] → C-API default-system-error - default-error …
static OT_ProcRet	tclmkkernel_MkErrorC_FORMAT (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC FORMAT ?fmtobj:MkObjectC="MK_NULL"?] → C-API system-error-format - format and return the default-error …
static OT_ProcRet	tclmkkernel_MkErrorC_IGNORE (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC IGNORE] → C-API ignore-system-error - ignore the next error …
static OT_ProcRet	tclmkkernel_MkErrorC_PRINT (OtClass_ARGS)
	Tcl: (static) MkErrorC [MkErrorC PRINT] → C-API ignore-system-error - print the next error into MkLogFileC …
static OT_ProcRet	tclmkkernel_MkErrorC_Dup (MkErrorC_ARGS)
	Tcl: (constructor) MkErrorC [$srce Dup] → C-API Dup-Constructor - create a new MkErrorC instance as copy from an existing MkErrorC instance …
static OT_ProcRet	tclmkkernel_MkErrorC_Copy (MkErrorC_ARGS)
	Tcl: $dest Copy srce:MkErrorC → C-API Copy-Constructor - sync an existing MkErrorC instance with the values from an existing MkErrorC instance …
int	tclmkkernel_pMkErrorC_Init (MK_RT mkrt, OT_ENV_T interp, OT_NS_T ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	MkErrorCTT = NULL
__thread OT_OBJ_T	tclmkkernel_MkErrorC_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 MkErrorC_tcl.c.

Macro Definition Documentation

AppendC_doc

#define AppendC_doc   "$err AppendC message:string"

Definition at line 139 of file MkErrorC_tcl.c.

Catch_doc

#define Catch_doc   "MkErrorC [$err Catch ?exception:errorCode=\"MK_NULL\"? ?callfunc:string=\"MK_NULL\"?]"

Definition at line 133 of file MkErrorC_tcl.c.

ClassInit

#define ClassInit

Value:

  /* if not already done, initialize NEW MQ type */ \
  if (MkErrorCTT == NULL) MkErrorCTT = MkErrorSTT; \
 \
  /* protect against double call */ \
  if (MkErrorCTT->selfCreate == NS(MkErrorC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MkErrorCTT->selfCreate    = NS(MkErrorC_selfCreate); \
  MkErrorCTT->selfDelete    = NS(MkErrorC_selfDelete); \
  MkErrorCTT->selfUnlink    = NS(MkErrorC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MkErrorCTT); \
  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(MkErrorC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkErrorC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MK(MkErrorC_MK_NULL));

Definition at line 77 of file MkErrorC_tcl.c.

#define   ClassInit \
  /* if not already done, initialize NEW MQ type */ \
  if (MkErrorCTT == NULL) MkErrorCTT = MkErrorSTT; \
 \
  /* protect against double call */ \
  if (MkErrorCTT->selfCreate == NS(MkErrorC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MkErrorCTT->selfCreate    = NS(MkErrorC_selfCreate); \
  MkErrorCTT->selfDelete    = NS(MkErrorC_selfDelete); \
  MkErrorCTT->selfUnlink    = NS(MkErrorC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MkErrorCTT); \
  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(MkErrorC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkErrorC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MK(MkErrorC_MK_NULL));

Cleanup_doc

#define Cleanup_doc   "$err Cleanup ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1?"

Definition at line 140 of file MkErrorC_tcl.c.

Copy_doc

#define Copy_doc   "$dest Copy srce:MkErrorC"

Definition at line 141 of file MkErrorC_tcl.c.

DEFAULT_doc

#define DEFAULT_doc   "MkErrorC [MkErrorC DEFAULT]"

Definition at line 121 of file MkErrorC_tcl.c.

Dup_doc

#define Dup_doc   "MkErrorC [$srce Dup] (const)"

Definition at line 130 of file MkErrorC_tcl.c.

FORMAT_doc

#define FORMAT_doc   "MkErrorC [MkErrorC FORMAT ?fmtobj:MkObjectC=\"MK_NULL\"?]"

Definition at line 122 of file MkErrorC_tcl.c.

GetCode_doc

#define GetCode_doc   "MkErrorE [$err GetCode] (const)"

Definition at line 142 of file MkErrorC_tcl.c.

GetNull_doc

#define GetNull_doc   "MkErrorC [MkErrorC GetNull]"

Definition at line 123 of file MkErrorC_tcl.c.

GetNum_doc

#define GetNum_doc   "int32 [$err GetNum] (const)"

Definition at line 143 of file MkErrorC_tcl.c.

GetSize_doc

#define GetSize_doc   "long [$err GetSize] (const)"

Definition at line 144 of file MkErrorC_tcl.c.

GetText_doc

#define GetText_doc   "string [$err GetText] (const)"

Definition at line 145 of file MkErrorC_tcl.c.

HandleResolve_doc

#define HandleResolve_doc   "MkErrorC [MkErrorC HandleResolve netHdl:MK_HDL]"

Definition at line 124 of file MkErrorC_tcl.c.

IGNORE_doc

#define IGNORE_doc   "MkErrorC [MkErrorC IGNORE]"

Definition at line 125 of file MkErrorC_tcl.c.

Instances_doc

#define Instances_doc   "MkErrorC [MkErrorC Instances]"

Definition at line 126 of file MkErrorC_tcl.c.

IsABORT_doc

#define IsABORT_doc   "bool [$err IsABORT] (const)"

Definition at line 147 of file MkErrorC_tcl.c.

IsEXIT_doc

#define IsEXIT_doc   "bool [$err IsEXIT]"

Definition at line 148 of file MkErrorC_tcl.c.

IsSOCKET_doc

#define IsSOCKET_doc   "bool [$err IsSOCKET] (const)"

Definition at line 149 of file MkErrorC_tcl.c.

IsTIMEOUT_doc

#define IsTIMEOUT_doc   "bool [$err IsTIMEOUT] (const)"

Definition at line 150 of file MkErrorC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "MkErrorC_tcl.c"

Definition at line 11 of file MkErrorC_tcl.c.

MkErrorCatchTmpl

#define MkErrorCatchTmpl

(

...

)

Value:

MK(MkExceptionC_Catch)(OT_Prefix_CALL __VA_ARGS__)

Definition at line 178 of file MkErrorC_tcl.c.

Next_doc

#define Next_doc   "MkErrorC [$err Next]"

Definition at line 134 of file MkErrorC_tcl.c.

NoRaise_doc

#define NoRaise_doc   "MkErrorC [$err NoRaise]"

Definition at line 135 of file MkErrorC_tcl.c.

OBJECT2ERR

#define OBJECT2ERR

(

O

)

Value:

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

Definition at line 18 of file MkErrorC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(MkErrorC)

Definition at line 15 of file MkErrorC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "MkErrorC"

Definition at line 16 of file MkErrorC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(ERR,MK_ERR);

Definition at line 59 of file MkErrorC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(ERR,MK_ERR);

Definition at line 60 of file MkErrorC_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_ERR hdl = (MK_ERR) &MkERROR;

Definition at line 64 of file MkErrorC_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_ERR hdl = (MK_ERR) &MkERROR;

OT_SETUP_hdl_constr_pre

#define OT_SETUP_hdl_constr_pre

Definition at line 63 of file MkErrorC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(ERR,MK_ERR);

Definition at line 61 of file MkErrorC_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 = MkErrorC##_TT;

Definition at line 53 of file MkErrorC_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 = MkErrorC##_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 MkErrorC_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 MkErrorC_tcl.c.

PanicC_doc

#define PanicC_doc   "MkErrorC PanicC fmtobj:MkObjectC callfunc:string errnum:int32 message:string"

Definition at line 166 of file MkErrorC_tcl.c.

PanicDEFAULT_doc

#define PanicDEFAULT_doc   "MkErrorC PanicDEFAULT ?fmtobj:MkObjectC=\"MK_NULL\"? ?callfunc:string=\"MK_NULL\"?"

Definition at line 167 of file MkErrorC_tcl.c.

Prev_doc

#define Prev_doc   "MkErrorC [$err Prev]"

Definition at line 136 of file MkErrorC_tcl.c.

PRINT_doc

#define PRINT_doc   "MkErrorC [MkErrorC PRINT]"

Definition at line 127 of file MkErrorC_tcl.c.

Println_doc

#define Println_doc   "$err Println ?msg:string=\"\"? ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1?"

Definition at line 152 of file MkErrorC_tcl.c.

Raise_doc

#define Raise_doc   "$err Raise (const)"

Definition at line 153 of file MkErrorC_tcl.c.

Reset_doc

#define Reset_doc   "$err Reset ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1? ?force:bool=false?"

Definition at line 154 of file MkErrorC_tcl.c.

SetABORT_doc

#define SetABORT_doc   "$err SetABORT ?detail:string=\"UNKNOWN\"? ?callfunc:string=\"MK_NULL\"?"

Definition at line 155 of file MkErrorC_tcl.c.

SetC_doc

#define SetC_doc   "$err SetC message:string ?callfunc:string=\"MK_NULL\"? ?errnum:int32=-1?"

Definition at line 156 of file MkErrorC_tcl.c.

SetCode_doc

#define SetCode_doc   "$err SetCode code:MkErrorE"

Definition at line 158 of file MkErrorC_tcl.c.

SetCONTINUE_doc

#define SetCONTINUE_doc   "$err SetCONTINUE"

Definition at line 157 of file MkErrorC_tcl.c.

SetEXIT_doc

#define SetEXIT_doc   "$err SetEXIT ?callfunc:string=\"MK_NULL\"?"

Definition at line 159 of file MkErrorC_tcl.c.

SetSOCKET_doc

#define SetSOCKET_doc   "$err SetSOCKET ?detail:string=\"UNKNOWN\"? ?callfunc:string=\"MK_NULL\"?"

Definition at line 160 of file MkErrorC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 73 of file MkErrorC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 72 of file MkErrorC_tcl.c.

Stack_doc

#define Stack_doc   "MkErrorE [$err Stack ?callfunc:string=\"MK_NULL\"? ?callfile:string=\"MK_NULL\"? ?callline:int32=-1?]"

Definition at line 161 of file MkErrorC_tcl.c.

StackFormat_doc

#define StackFormat_doc   "$err StackFormat ?callfunc:string=\"MK_NULL\"? ?callfile:string=\"MK_NULL\"? ?callline:int32=-1?"

Definition at line 162 of file MkErrorC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 108 of file MkErrorC_tcl.c.

Function Documentation

tclmkkernel_MkErrorC_selfCreate()

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

static

Definition at line 28 of file MkErrorC_tcl.c.

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

tclmkkernel_MkErrorC_selfDelete()

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

static

Definition at line 33 of file MkErrorC_tcl.c.

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

tclmkkernel_MkErrorC_selfUnlink()

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

static

Definition at line 39 of file MkErrorC_tcl.c.

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

tclmkkernel_pMkErrorC_Init()

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

TCL API Public API

Definition at line 981 of file MkErrorC_tcl.c.

{
  ClassInit
 
  MkErrorDefaultC_TT->selfCreate    = NS(MkErrorC_selfCreate);
  MkErrorDefaultC_TT->selfDelete    = NS(MkErrorC_selfDelete);
  MkErrorDefaultC_TT->selfUnlink    = NS(MkErrorC_selfUnlink);
 
  // if (Tcl_Eval (interp, MkErrorC_tcl) != TCL_OK) goto error;
 
  return TCL_OK;
error:
  return TCL_ERROR;
}

Variable Documentation

MkErrorCTT

__thread MK_TYP MkErrorCTT = NULL

static

Definition at line 24 of file MkErrorC_tcl.c.

OT_CLASS

__thread OT_CLS_T OT_CLASS = NULL

Definition at line 21 of file MkErrorC_tcl.c.

tclmkkernel_MkErrorC_MK_NULL

__thread OT_OBJ_T tclmkkernel_MkErrorC_MK_NULL = NULL

Definition at line 25 of file MkErrorC_tcl.c.

tclmkkernel_sInstanceDef

const Tcl_MethodType tclmkkernel_sInstanceDef[]

static

Definition at line 923 of file MkErrorC_tcl.c.

                                                 {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkErrorC,MkError,oCx
  {VER, "Dup"                 , NS(MkErrorC_Dup)                        , NULL, NULL},
 
// doc-key: MkErrorC,MkError,oc_
  {VER, "Catch"               , NS(MkErrorC_Catch)                      , NULL, NULL},
  {VER, "Next"                , NS(MkErrorC_Next)                       , NULL, NULL},
  {VER, "NoRaise"             , NS(MkErrorC_NoRaise)                    , NULL, NULL},
  {VER, "Prev"                , NS(MkErrorC_Prev)                       , NULL, NULL},
 
// doc-key: MkErrorC,MkError,om_
  {VER, "AppendC"             , NS(MkErrorC_AppendC)                    , NULL, NULL},
  {VER, "Cleanup"             , NS(MkErrorC_Cleanup)                    , NULL, NULL},
  {VER, "Copy"                , NS(MkErrorC_Copy)                       , NULL, NULL},
  {VER, "GetCode"             , NS(MkErrorC_GetCode)                    , NULL, NULL},
  {VER, "GetNum"              , NS(MkErrorC_GetNum)                     , NULL, NULL},
  {VER, "GetSize"             , NS(MkErrorC_GetSize)                    , NULL, NULL},
  {VER, "GetText"             , NS(MkErrorC_GetText)                    , NULL, NULL},
  // skip class-overload: MkErrorHandleGet → HandleGet, NS(MkErrorC_HandleGet)
  {VER, "IsABORT"             , NS(MkErrorC_IsABORT)                    , NULL, NULL},
  {VER, "IsEXIT"              , NS(MkErrorC_IsEXIT)                     , NULL, NULL},
  {VER, "IsSOCKET"            , NS(MkErrorC_IsSOCKET)                   , NULL, NULL},
  {VER, "IsTIMEOUT"           , NS(MkErrorC_IsTIMEOUT)                  , NULL, NULL},
  // skip class-overload: MkErrorLog → Log, NS(MkErrorC_Log)
  {VER, "Println"             , NS(MkErrorC_Println)                    , NULL, NULL},
  {VER, "Raise"               , NS(MkErrorC_Raise)                      , NULL, NULL},
  {VER, "Reset"               , NS(MkErrorC_Reset)                      , NULL, NULL},
  {VER, "SetABORT"            , NS(MkErrorC_SetABORT)                   , NULL, NULL},
  {VER, "SetC"                , NS(MkErrorC_SetC)                       , NULL, NULL},
  {VER, "SetCONTINUE"         , NS(MkErrorC_SetCONTINUE)                , NULL, NULL},
  {VER, "SetCode"             , NS(MkErrorC_SetCode)                    , NULL, NULL},
  {VER, "SetEXIT"             , NS(MkErrorC_SetEXIT)                    , NULL, NULL},
  {VER, "SetSOCKET"           , NS(MkErrorC_SetSOCKET)                  , NULL, NULL},
  {VER, "Stack"               , NS(MkErrorC_Stack)                      , NULL, NULL},
  {VER, "StackFormat"         , NS(MkErrorC_StackFormat)                , NULL, NULL},
  // skip class-overload: MkErrorToString → ToString, NS(MkErrorC_ToString)
 
// 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, "DEFAULT"             ,  tclmkkernel_MkErrorC_DEFAULT , NULL, NULL},
  {VER, "FORMAT"              ,  tclmkkernel_MkErrorC_FORMAT , NULL, NULL},
  {VER, "GetNull"             ,  tclmkkernel_MkErrorC_GetNull , NULL, NULL},
  {VER, "HandleResolve"       ,  tclmkkernel_MkErrorC_HandleResolve , NULL, NULL},
  {VER, "IGNORE"              ,  tclmkkernel_MkErrorC_IGNORE , NULL, NULL},
  {VER, "Instances"           ,  tclmkkernel_MkErrorC_Instances , NULL, NULL},
  {VER, "PRINT"               ,  tclmkkernel_MkErrorC_PRINT , NULL, NULL},
 
 
  {VER, "PanicC"              ,  tclmkkernel_MkErrorC_PanicC , NULL, NULL},
  {VER, "PanicDEFAULT"        ,  tclmkkernel_MkErrorC_PanicDEFAULT , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

METHOD API

Definition at line 901 of file MkErrorC_tcl.c.

                                                {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkErrorC,MkError,sc_
  {VER, "DEFAULT"             , NS(MkErrorC_DEFAULT)                    , NULL, NULL},
  {VER, "FORMAT"              , NS(MkErrorC_FORMAT)                     , NULL, NULL},
  {VER, "GetNull"             , NS(MkErrorC_GetNull)                    , NULL, NULL},
  {VER, "HandleResolve"       , NS(MkErrorC_HandleResolve)              , NULL, NULL},
  {VER, "IGNORE"              , NS(MkErrorC_IGNORE)                     , NULL, NULL},
  {VER, "Instances"           , NS(MkErrorC_Instances)                  , NULL, NULL},
  {VER, "PRINT"               , NS(MkErrorC_PRINT)                      , NULL, NULL},
 
// doc-key: MkErrorC,MkPanic,sm_
  {VER, "PanicC"              , NS(MkErrorC_PanicC)                     , NULL, NULL},
  {VER, "PanicDEFAULT"        , NS(MkErrorC_PanicDEFAULT)               , 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}
};