theKernel 10.0
Loading...
Searching...
No Matches
MkErrorC_tcl.c
Go to the documentation of this file.
1
9/* LABEL-START */
10
11#define META_FILE_NAME "MkErrorC_tcl.c"
12
14
15#define OT_CLASS NS(MkErrorC)
16#define OT_CLASS_NAME "MkErrorC"
17
18#define OBJECT2ERR(O) MkAssertCastM(MkErrorC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))
19
20// TCL class
22
23// META class
25MkThreadLocal OT_OBJ_T MK(MkErrorC_MK_NULL) = NULL;
26
27// META: ObjNew feature: selfCreate will be called from "ObjNew->MkSelfNew" if MkObj need a SELF pointer
28static MK_PTR NS(MkErrorC_selfCreate) (MK_RT_ARGS MK_OBJ const obj, MK_PTR const env) {
29 OT_ENV_T interp = env;
30 return MK(AtomCreate) (MK_RT_CALL interp,obj,OT_CLASS,NULL,NULL);
31}
32// META: is called when the META object is destroyed and SELF does NOT belongs to the META.
33static void NS(MkErrorC_selfDelete) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
34 OT_SELF_T selfO = selfP;
35 OT_ENV_T interp = env;
36 MK(AtomDeleteHard) (MK_RT_CALL interp, selfO);
37}
38// META: is called when the META object is destroyed and SELF does NOT belong to the META.
39static void NS(MkErrorC_selfUnlink) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
40 OT_SELF_T selfO = selfP;
41 OT_ENV_T interp = env;
42 MK(AtomUnlink) (MK_RT_CALL interp, selfO);
43}
44
45// ATTENTION: TCL has no "Unlink" because the "Tcl_ObjectSetMetadata(selfO,&MK(AtomMeta),NULL);" call
46// also the destructor
47
48#define OT_SETUP_hdl_static_constr_pre
49#define OT_SETUP_hdl_static_constr \
50 OT_SETUP_hdl_static_constr_pre; \
51 OT_SETUP_hdl_static
52
53#define OT_SETUP_hdl_static \
54 int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
55 AllRtSetup_NULL; \
56 __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
57 __attribute__((unused)) MK_TYP hdl = MkErrorC##_TT;
58
59#define OT_SETUP_hdl SetupHdlFromMetaData_2(ERR,MK_ERR);
60#define OT_SETUP_hdl__null_allow SetupHdlFromMetaData__null_allow_2(ERR,MK_ERR);
61#define OT_SETUP_hdl_destr SetupHdlFromMetaData__null_allow_2(ERR,MK_ERR);
62
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); \
67 AllRtSetup_NULL; \
68 MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
69 MK_ERR hdl = (MK_ERR) &MkERROR;
70
71#if !defined(SetupRtFromHdl_XN)
72 #define SetupRtFromHdl_XN(hdl) AllRtSetup_XN(hdl)
73 #define SetupRtFromHdl_X(hdl) AllRtSetup_X(hdl)
74#endif
75
76// initialize the TCL and MO class specific object
77#define ClassInit \
78 /* if not already done, initialize NEW MQ type */ \
79 if (MkErrorCTT == NULL) MkErrorCTT = MkErrorSTT; \
80 \
81 /* protect against double call */ \
82 if (MkErrorCTT->selfCreate == NS(MkErrorC_selfCreate)) return MK_OK; \
83 \
84 /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
85 MkErrorCTT->selfCreate = NS(MkErrorC_selfCreate); \
86 MkErrorCTT->selfDelete = NS(MkErrorC_selfDelete); \
87 MkErrorCTT->selfUnlink = NS(MkErrorC_selfUnlink); \
88 \
89 /* create the TCL-class */ \
90 OT_SELF_T classO = MK(ClassDef)(interp,ns,MkErrorCTT); \
91 check_NULL(classO) goto error; \
92 OT_CLASS = Tcl_GetObjectAsClass(classO); \
93 \
94 /* create the TCL static Methods */ \
95 static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
96 check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
97 \
98 /* create the TCL instance Methods */ \
99 static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
100 check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
101 \
102 /* define the "NULL" object */ \
103 MK(MkErrorC_MK_NULL) = Tcl_GetObjectName(interp, \
104 MK(AtomCreate) (MK_RT_CALL interp, NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkErrorC" /*ns*/) \
105 ); \
106 Tcl_IncrRefCount(MK(MkErrorC_MK_NULL));
107
108#define VER TCL_OO_METHOD_VERSION_CURRENT
109
110/* LABEL-END */
111
112/*****************************************************************************/
113/* */
114/* D O C */
115/* */
116/*****************************************************************************/
117
118// BEGIN-DOC - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
119
120// doc-key: MkErrorC,MkError,sc_,func
121#define DEFAULT_doc "MkErrorC [MkErrorC DEFAULT]"
122#define FORMAT_doc "MkErrorC [MkErrorC FORMAT ?fmtobj:MkObjectC=\"MK_NULL\"?]"
123#define GetNull_doc "MkErrorC [MkErrorC GetNull]"
124#define HandleResolve_doc "MkErrorC [MkErrorC HandleResolve netHdl:MK_HDL]"
125#define IGNORE_doc "MkErrorC [MkErrorC IGNORE]"
126#define Instances_doc "MkErrorC [MkErrorC Instances]"
127#define PRINT_doc "MkErrorC [MkErrorC PRINT]"
128
129// doc-key: MkErrorC,MkError,oCx,func
130#define Dup_doc "MkErrorC [$srce Dup] (const)"
131
132// doc-key: MkErrorC,MkError,oc_,func
133#define Catch_doc "MkErrorC [$err Catch ?exception:errorCode=\"MK_NULL\"? ?callfunc:string=\"MK_NULL\"?]"
134#define Next_doc "MkErrorC [$err Next]"
135#define NoRaise_doc "MkErrorC [$err NoRaise]"
136#define Prev_doc "MkErrorC [$err Prev]"
137
138// doc-key: MkErrorC,MkError,om_,func
139#define AppendC_doc "$err AppendC message:string"
140#define Cleanup_doc "$err Cleanup ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1?"
141#define Copy_doc "$dest Copy srce:MkErrorC"
142#define GetCode_doc "MkErrorE [$err GetCode] (const)"
143#define GetNum_doc "int32 [$err GetNum] (const)"
144#define GetSize_doc "long [$err GetSize] (const)"
145#define GetText_doc "string [$err GetText] (const)"
146// skip class-overload: HandleGet → MkObjectHandleGet
147#define IsABORT_doc "bool [$err IsABORT] (const)"
148#define IsEXIT_doc "bool [$err IsEXIT]"
149#define IsSOCKET_doc "bool [$err IsSOCKET] (const)"
150#define IsTIMEOUT_doc "bool [$err IsTIMEOUT] (const)"
151// skip class-overload: Log → MkObjectLog
152#define Println_doc "$err Println ?msg:string=\"\"? ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1?"
153#define Raise_doc "$err Raise (const)"
154#define Reset_doc "$err Reset ?callfunc:string=\"MK_NULL\"? ?callline:int32=-1? ?force:bool=false?"
155#define SetABORT_doc "$err SetABORT ?detail:string=\"UNKNOWN\"? ?callfunc:string=\"MK_NULL\"?"
156#define SetC_doc "$err SetC message:string ?callfunc:string=\"MK_NULL\"? ?errnum:int32=-1?"
157#define SetCONTINUE_doc "$err SetCONTINUE"
158#define SetCode_doc "$err SetCode code:MkErrorE"
159#define SetEXIT_doc "$err SetEXIT ?callfunc:string=\"MK_NULL\"?"
160#define SetSOCKET_doc "$err SetSOCKET ?detail:string=\"UNKNOWN\"? ?callfunc:string=\"MK_NULL\"?"
161#define Stack_doc "MkErrorE [$err Stack ?callfunc:string=\"MK_NULL\"? ?callfile:string=\"MK_NULL\"? ?callline:int32=-1?]"
162#define StackFormat_doc "$err StackFormat ?callfunc:string=\"MK_NULL\"? ?callfile:string=\"MK_NULL\"? ?callline:int32=-1?"
163// skip class-overload: ToString → MkObjectToString
164
165// doc-key: MkErrorC,MkPanic,sm_,func
166#define PanicC_doc "MkErrorC PanicC fmtobj:MkObjectC callfunc:string errnum:int32 message:string"
167#define PanicDEFAULT_doc "MkErrorC PanicDEFAULT ?fmtobj:MkObjectC=\"MK_NULL\"? ?callfunc:string=\"MK_NULL\"?"
168
169// END-DOC - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
170
171/*****************************************************************************/
172/* */
173/* S T A R T */
174/* */
175/*****************************************************************************/
176
177// catch ignore MkErrorE
178#define MkErrorCatchTmpl(...) MK(MkExceptionC_Catch)(OT_Prefix_CALL __VA_ARGS__)
179
180/*****************************************************************************/
181/* */
182/* O B J E C T */
183/* */
184/*****************************************************************************/
185
186// BEGIN-MkErrorC - created by 'tcl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
187
191
192// doc-key: MkErrorC,MkErrorC-Class-Export,sc_
193
195static OT_ProcRet NS(MkErrorC_HandleResolve) (OtClass_ARGS) {
198 MK_HDL netHdl = 0;
201 MK_ERR retVal = MkErrorHandleResolve (netHdl);
202 OT_retObj_SET_ERR(retVal);
203 goto end;
204 error:
206 end:
208}
209
210// doc-key: MkErrorC,MkErrorC-Class-Export,om_
211
212// skip on class-overload: MkErrorHandleGet → MkObjectHandleGet
214static OT_ProcRet NS(MkErrorC_HandleGet) (MkErrorC_ARGS) {OT_ERROR_LNG_RETURN;}
215
217// MkErrorC_Class_TCL_API
218
222
223// doc-key: MkErrorC,MkErrorC-Class-Introspection,oc_
224
226static OT_ProcRet NS(MkErrorC_Next) (MkErrorC_ARGS) {
230 MK_ERR retVal = MkErrorNext (hdl);
231 OT_retObj_SET_ERR(retVal);
232 goto end;
233 error:
235 end:
237}
238
240static OT_ProcRet NS(MkErrorC_Prev) (MkErrorC_ARGS) {
244 MK_ERR retVal = MkErrorPrev (hdl);
245 OT_retObj_SET_ERR(retVal);
246 goto end;
247 error:
249 end:
251}
252
253// doc-key: MkErrorC,MkErrorC-Class-Introspection,sc_
254
256static OT_ProcRet NS(MkErrorC_Instances) (OtClass_ARGS) {
260 MK_ERR retVal = MkErrorInstances ();
261 OT_retObj_SET_ERR(retVal);
262 goto end;
263 error:
265 end:
267}
268
270// MkErrorC_Class_TCL_API
271
275
276// doc-key: MkErrorC,MkErrorC-Class-Misc,sc_
277
279static OT_ProcRet NS(MkErrorC_GetNull) (OtClass_ARGS) {
283 MK_ERR retVal = MkErrorGetNull ();
284 OT_retObj_SET_ERR(retVal);
285 goto end;
286 error:
288 end:
290}
291
293// MkErrorC_Class_TCL_API
294
298
299// doc-key: MkErrorC,MkErrorC-Get,om_
300
302static OT_ProcRet NS(MkErrorC_GetCode) (MkErrorC_ARGS) {
307 goto end;
308 error:
310 end:
312}
313
315static OT_ProcRet NS(MkErrorC_GetNum) (MkErrorC_ARGS) {
320 goto end;
321 error:
323 end:
325}
326
328static OT_ProcRet NS(MkErrorC_GetSize) (MkErrorC_ARGS) {
333 goto end;
334 error:
336 end:
338}
339
341static OT_ProcRet NS(MkErrorC_GetText) (MkErrorC_ARGS) {
346 goto end;
347 error:
349 end:
351}
352
354// MkErrorC_Get_TCL_API
355
359
360// doc-key: MkErrorC,MkErrorC-Misc,oc_
361
363static OT_ProcRet NS(MkErrorC_Catch) (MkErrorC_ARGS) {
366 MK_EXP exception = NULL;
368 MK_STRN callfunc = NULL;
371 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
372 MK_ERR retVal = MkErrorCatchTmpl (hdl, exception, callfunc);
373 OT_retObj_SET_ERR(retVal);
374 goto end;
375 error:
377 end:
380}
381
382// doc-key: MkErrorC,MkErrorC-Misc,om_
383
385static OT_ProcRet NS(MkErrorC_Cleanup) (MkErrorC_ARGS) {
388 MK_STRN callfunc = NULL;
390 MK_I32 callline = -1;
393 if (callline == -1 ) {callline = OT_GET_CALL_LINE;}
394 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
395 MkErrorCleanup (hdl, callfunc, callline);
397 goto end;
398 error:
400 end:
403}
404
405// skip on class-overload: MkErrorLog → MkObjectLog
408
410static OT_ProcRet NS(MkErrorC_Println) (MkErrorC_ARGS) {
413 MK_STRN msg = "";
415 MK_STRN callfunc = NULL;
417 MK_I32 callline = -1;
420 if (callline == -1 ) {callline = OT_GET_CALL_LINE;}
421 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
422 MkErrorPrintln (hdl, msg, callfunc, callline);
424 goto end;
425 error:
427 end:
430}
431
433static OT_ProcRet NS(MkErrorC_Reset) (MkErrorC_ARGS) {
436 MK_STRN callfunc = NULL;
438 MK_I32 callline = -1;
440 MK_BOOL force = false;
443 if (callline == -1 ) {callline = OT_GET_CALL_LINE;}
444 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
445 MkErrorC_Check(hdl,MkErrorReset (hdl, callfunc, callline, force));
447 goto end;
448 error:
450 end:
453}
454
456static OT_ProcRet NS(MkErrorC_Stack) (MkErrorC_ARGS) {
459 MK_STRN callfunc = NULL;
461 MK_STRN callfile = NULL;
463 MK_I32 callline = -1;
466 if (callline == -1 ) {callline = OT_GET_CALL_LINE;}
467 if (MkSysStringIsNULL(callfile)) {callfile = OT_GET_CALL_FILE;}
468 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
469 OT_retObj_SET(OT_NEW_Mk_enum_OBJ(ErrorE,MkErrorStack (hdl, callfunc, callfile, callline)));
470 goto end;
471 error:
473 end:
476}
477
479static OT_ProcRet NS(MkErrorC_StackFormat) (MkErrorC_ARGS) {
482 MK_STRN callfunc = NULL;
484 MK_STRN callfile = NULL;
486 MK_I32 callline = -1;
489 if (callline == -1 ) {callline = OT_GET_CALL_LINE;}
490 if (MkSysStringIsNULL(callfile)) {callfile = OT_GET_CALL_FILE;}
491 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
492 MkErrorStackFormat (hdl, callfunc, callfile, callline);
494 goto end;
495 error:
497 end:
500}
501
502// skip on class-overload: MkErrorToString → MkObjectToString
504static OT_ProcRet NS(MkErrorC_ToString) (MkErrorC_ARGS) {OT_ERROR_LNG_RETURN;}
505
507// MkErrorC_Misc_TCL_API
508
512
513// doc-key: MkErrorC,MkErrorC-Raise,oc_
514
516static OT_ProcRet NS(MkErrorC_NoRaise) (MkErrorC_ARGS) {
520 MK_ERR retVal = MkErrorNoRaise (hdl);
521 OT_retObj_SET_ERR(retVal);
522 goto end;
523 error:
525 end:
527}
528
529// doc-key: MkErrorC,MkErrorC-Raise,om_
530
532static OT_ProcRet NS(MkErrorC_AppendC) (MkErrorC_ARGS) {
535 MK_STRN message = 0;
538 MkErrorAppendC (hdl, message);
540 goto end;
541 error:
543 end:
545}
546
548static OT_ProcRet NS(MkErrorC_Raise) (MkErrorC_ARGS) {
552 MkErrorC_Check(hdl,MkErrorRaise (hdl));
554 goto end;
555 error:
557 end:
559}
560
562static OT_ProcRet NS(MkErrorC_SetC) (MkErrorC_ARGS) {
565 MK_STRN message = 0;
567 MK_STRN callfunc = NULL;
569 MK_I32 errnum = -1;
572 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
573 MkErrorC_Check(hdl,MkErrorSetC (hdl, message, callfunc, errnum));
575 goto end;
576 error:
578 end:
581}
582
583// doc-key: MkErrorC,MkErrorC-Raise,sm_
584
586static OT_ProcRet NS(MkErrorC_PanicC) (OtClass_ARGS) {
589 MK_OBJN fmtobj = NULL;
591 MK_STRN callfunc = NULL;
593 MK_I32 errnum = -1;
595 MK_STRN message = 0;
598 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
599 MkPanicC (fmtobj, callfunc, errnum, message);
601 goto end;
602 error:
604 end:
607}
608
610static OT_ProcRet NS(MkErrorC_PanicDEFAULT) (OtClass_ARGS) {
613 MK_OBJN fmtobj = NULL;
615 MK_STRN callfunc = NULL;
618 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
619 MkPanicDEFAULT (fmtobj, callfunc);
621 goto end;
622 error:
624 end:
627}
628
630// MkErrorC_Raise_TCL_API
631
635
636// doc-key: MkErrorC,MkErrorC-Signal,om_
637
639static OT_ProcRet NS(MkErrorC_IsABORT) (MkErrorC_ARGS) {
644 goto end;
645 error:
647 end:
649}
650
652static OT_ProcRet NS(MkErrorC_IsEXIT) (MkErrorC_ARGS) {
657 goto end;
658 error:
660 end:
662}
663
665static OT_ProcRet NS(MkErrorC_IsSOCKET) (MkErrorC_ARGS) {
670 goto end;
671 error:
673 end:
675}
676
678static OT_ProcRet NS(MkErrorC_IsTIMEOUT) (MkErrorC_ARGS) {
683 goto end;
684 error:
686 end:
688}
689
691static OT_ProcRet NS(MkErrorC_SetABORT) (MkErrorC_ARGS) {
694 MK_STRN detail = "UNKNOWN";
696 MK_STRN callfunc = NULL;
699 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
700 MkErrorC_Check(hdl,MkErrorSetABORT (hdl, detail, callfunc));
702 goto end;
703 error:
705 end:
708}
709
711static OT_ProcRet NS(MkErrorC_SetCONTINUE) (MkErrorC_ARGS) {
715 MkErrorSetCONTINUE (hdl);
717 goto end;
718 error:
720 end:
722}
723
725static OT_ProcRet NS(MkErrorC_SetCode) (MkErrorC_ARGS) {
728 enum MkErrorE code = 0;
731 MkErrorSetCode (hdl, code);
733 goto end;
734 error:
736 end:
738}
739
741static OT_ProcRet NS(MkErrorC_SetEXIT) (MkErrorC_ARGS) {
744 MK_STRN callfunc = NULL;
747 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
748 MkErrorC_Check(hdl,MkErrorSetEXIT (hdl, callfunc));
750 goto end;
751 error:
753 end:
756}
757
759static OT_ProcRet NS(MkErrorC_SetSOCKET) (MkErrorC_ARGS) {
762 MK_STRN detail = "UNKNOWN";
764 MK_STRN callfunc = NULL;
767 if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
768 MkErrorC_Check(hdl,MkErrorSetSOCKET (hdl, detail, callfunc));
770 goto end;
771 error:
773 end:
776}
777
779// MkErrorC_Signal_TCL_API
780
784
785// doc-key: MkErrorC,MkErrorC-System,sc_
786
788static OT_ProcRet NS(MkErrorC_DEFAULT) (OtClass_ARGS) {
792 MK_ERR retVal = MkErrorDEFAULT ();
793 OT_retObj_SET_ERR(retVal);
794 goto end;
795 error:
797 end:
799}
800
802static OT_ProcRet NS(MkErrorC_FORMAT) (OtClass_ARGS) {
805 MK_OBJN fmtobj = NULL;
808 MK_ERR retVal = MkErrorFORMAT (fmtobj);
809 OT_retObj_SET_ERR(retVal);
810 goto end;
811 error:
813 end:
815}
816
818static OT_ProcRet NS(MkErrorC_IGNORE) (OtClass_ARGS) {
822 MK_ERR retVal = MkErrorIGNORE ();
823 OT_retObj_SET_ERR(retVal);
824 goto end;
825 error:
827 end:
829}
830
832static OT_ProcRet NS(MkErrorC_PRINT) (OtClass_ARGS) {
836 MK_ERR retVal = MkErrorPRINT ();
837 OT_retObj_SET_ERR(retVal);
838 goto end;
839 error:
841 end:
843}
844
846// MkErrorC_System_TCL_API
847
851
852// doc-key: MkErrorC,MkErrorC-TOR,oCx
853
855static OT_ProcRet NS(MkErrorC_Dup) (MkErrorC_ARGS) {
859 MK_ERR retVal = MkErrorDup (hdl);
860 if (retVal == NULL) {
861 OT_ERROR_CONSTRUCTOR(MkErrorC);
862 goto error;
863 }
864 OT_retObj_SET_ERR(retVal);
865 goto end;
866 error:
868 end:
870}
871
872// doc-key: MkErrorC,MkErrorC-TOR,om_
873
875static OT_ProcRet NS(MkErrorC_Copy) (MkErrorC_ARGS) {
878 MK_ERRN srce = 0;
881 MkErrorCopy (hdl, srce);
883 goto end;
884 error:
886 end:
888}
889
891// MkErrorC_TOR_TCL_API
892
893// END-MkErrorC - created by 'tcl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
894
900
901const static Tcl_MethodType NS(sOtClassDef)[] = {
902// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
903
904// doc-key: MkErrorC,MkError,sc_
905 {VER, "DEFAULT" , NS(MkErrorC_DEFAULT) , NULL, NULL},
906 {VER, "FORMAT" , NS(MkErrorC_FORMAT) , NULL, NULL},
907 {VER, "GetNull" , NS(MkErrorC_GetNull) , NULL, NULL},
908 {VER, "HandleResolve" , NS(MkErrorC_HandleResolve) , NULL, NULL},
909 {VER, "IGNORE" , NS(MkErrorC_IGNORE) , NULL, NULL},
910 {VER, "Instances" , NS(MkErrorC_Instances) , NULL, NULL},
911 {VER, "PRINT" , NS(MkErrorC_PRINT) , NULL, NULL},
912
913// doc-key: MkErrorC,MkPanic,sm_
914 {VER, "PanicC" , NS(MkErrorC_PanicC) , NULL, NULL},
915 {VER, "PanicDEFAULT" , NS(MkErrorC_PanicDEFAULT) , NULL, NULL},
916
917// END-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
918 {0, NULL, NULL, NULL}
919};
920
921// ---------------------------------------------------------------------------------------
922
923const static Tcl_MethodType NS(sInstanceDef)[] = {
924// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
925
926// doc-key: MkErrorC,MkError,oCx
927 {VER, "Dup" , NS(MkErrorC_Dup) , NULL, NULL},
928
929// doc-key: MkErrorC,MkError,oc_
930 {VER, "Catch" , NS(MkErrorC_Catch) , NULL, NULL},
931 {VER, "Next" , NS(MkErrorC_Next) , NULL, NULL},
932 {VER, "NoRaise" , NS(MkErrorC_NoRaise) , NULL, NULL},
933 {VER, "Prev" , NS(MkErrorC_Prev) , NULL, NULL},
934
935// doc-key: MkErrorC,MkError,om_
936 {VER, "AppendC" , NS(MkErrorC_AppendC) , NULL, NULL},
937 {VER, "Cleanup" , NS(MkErrorC_Cleanup) , NULL, NULL},
938 {VER, "Copy" , NS(MkErrorC_Copy) , NULL, NULL},
939 {VER, "GetCode" , NS(MkErrorC_GetCode) , NULL, NULL},
940 {VER, "GetNum" , NS(MkErrorC_GetNum) , NULL, NULL},
941 {VER, "GetSize" , NS(MkErrorC_GetSize) , NULL, NULL},
942 {VER, "GetText" , NS(MkErrorC_GetText) , NULL, NULL},
943 // skip class-overload: MkErrorHandleGet → HandleGet, NS(MkErrorC_HandleGet)
944 {VER, "IsABORT" , NS(MkErrorC_IsABORT) , NULL, NULL},
945 {VER, "IsEXIT" , NS(MkErrorC_IsEXIT) , NULL, NULL},
946 {VER, "IsSOCKET" , NS(MkErrorC_IsSOCKET) , NULL, NULL},
947 {VER, "IsTIMEOUT" , NS(MkErrorC_IsTIMEOUT) , NULL, NULL},
948 // skip class-overload: MkErrorLog → Log, NS(MkErrorC_Log)
949 {VER, "Println" , NS(MkErrorC_Println) , NULL, NULL},
950 {VER, "Raise" , NS(MkErrorC_Raise) , NULL, NULL},
951 {VER, "Reset" , NS(MkErrorC_Reset) , NULL, NULL},
952 {VER, "SetABORT" , NS(MkErrorC_SetABORT) , NULL, NULL},
953 {VER, "SetC" , NS(MkErrorC_SetC) , NULL, NULL},
954 {VER, "SetCONTINUE" , NS(MkErrorC_SetCONTINUE) , NULL, NULL},
955 {VER, "SetCode" , NS(MkErrorC_SetCode) , NULL, NULL},
956 {VER, "SetEXIT" , NS(MkErrorC_SetEXIT) , NULL, NULL},
957 {VER, "SetSOCKET" , NS(MkErrorC_SetSOCKET) , NULL, NULL},
958 {VER, "Stack" , NS(MkErrorC_Stack) , NULL, NULL},
959 {VER, "StackFormat" , NS(MkErrorC_StackFormat) , NULL, NULL},
960 // skip class-overload: MkErrorToString → ToString, NS(MkErrorC_ToString)
961
962// END-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
963 {0, NULL, NULL, NULL, NULL}
964};
965
971
972// script2code.tcl MkErrorC_tcl MkErrorC.tcl
973// #include "MkErrorC.h"
974
980
981int NS(pMkErrorC_Init) ( MK_RT_ARGS OT_ENV_T interp, OT_NS_T ns )
982{
984
985 MkErrorDefaultC_TT->selfCreate = NS(MkErrorC_selfCreate);
986 MkErrorDefaultC_TT->selfDelete = NS(MkErrorC_selfDelete);
987 MkErrorDefaultC_TT->selfUnlink = NS(MkErrorC_selfUnlink);
988
989 // if (Tcl_Eval (interp, MkErrorC_tcl) != TCL_OK) goto error;
990
991 return TCL_OK;
992error:
993 return TCL_ERROR;
994}
tag: nhi1-release-250425
#define OtClass_ARGS
#define OT_CHECK_bool(val)
#define MK(n)
#define OT_SETUP_VARARGS(min, max, d)
#define OT_CHECK_NIH(val)
#define OT_retObj_SET_BOL(nat)
#define OT_SETUP_NOARG(d)
#define OT_SETUP_ONEARG(d)
Tcl_Class OT_CLS_T
#define OT_ERROR_LNG_RETURN
Tcl_Namespace * OT_NS_T
#define OT_CHECK_NI4(val)
#define OT_retObj_SET_Error
#define OT_GET_CALL_LINE
#define OT_FRAME_CLEANUP
#define OT_ERROR_CONSTRUCTOR(class)
#define OT_retObj_SET_LONG(nat)
#define OT_CHECK_REQUIRED(val)
#define OT_retObj_SET_None
#define OT_retObj_SET_I32(nat)
#define OT_GET_CALL_FILE
#define NS(n)
#define OT_CHECK_ENUM(ename, val)
#define OT_retObj_RETURN
#define OT_GET_CALL_PROC
#define OT_retObj_SET_STR(nat)
#define OT_NEW_Mk_enum_OBJ(typ, val)
Tcl_Object OT_SELF_T
#define OT_CHECK_OPTIONAL(val)
#define OT_retObj_SET_ERR(nat)
#define MkErrorC_ARGS
#define OT_retObj_SET(val)
#define OT_CHECK_NOARGS
#define MkErrorC_Check(mng, PROC)
#define OT_ProcRet
Tcl_Interp * OT_ENV_T
Tcl_Obj * OT_OBJ_T
#define OT_CHECK_STRN(val)
#define Instances_doc
#define SetSOCKET_doc
#define Stack_doc
#define StackFormat_doc
#define PanicDEFAULT_doc
#define GetText_doc
#define DEFAULT_doc
#define Reset_doc
#define IsABORT_doc
#define Raise_doc
#define OT_SETUP_hdl
#define SetEXIT_doc
#define NoRaise_doc
#define SetC_doc
#define Dup_doc
#define Catch_doc
#define IsSOCKET_doc
#define GetNull_doc
#define SetABORT_doc
#define Next_doc
#define GetSize_doc
#define SetCode_doc
#define GetCode_doc
#define HandleResolve_doc
#define Prev_doc
#define VER
#define OT_CLASS
#define Println_doc
#define OT_SETUP_hdl_static
#define MkErrorCatchTmpl(...)
#define IsEXIT_doc
#define GetNum_doc
#define IGNORE_doc
#define IsTIMEOUT_doc
#define OT_SETUP_hdl__null_allow
#define FORMAT_doc
#define Cleanup_doc
static __thread MK_TYP MkErrorCTT
#define SetCONTINUE_doc
#define PanicC_doc
#define PRINT_doc
#define AppendC_doc
#define ClassInit
#define Copy_doc
static MK_ERR MkErrorNext(MK_ERR const err)
get next instance from linked-list of MkErrorS type
#define MkErrorHandleResolve(...)
static MK_ERR MkErrorGetNull(void)
Null-Slot - return a MkErrorC typed NULL instance …
static MK_ERR MkErrorPrev(MK_ERR const err)
get previous instance from linked-list of MkErrorS type
#define MkErrorInstances()
#define MkErrorGetSizeI(e)
get the error-message-size from the exception-object …
#define MkErrorGetCodeI(e)
get the value of MkErrorS::code …
#define MkErrorGetTextI(e)
get the MkErrorS::text …
#define MkErrorGetNumI(e)
get the MkErrorS::num. The number can be used as exit-code …
#define MkErrorStackFormat(...)
#define MkErrorPrintln(...)
#define MkErrorCleanup(...)
#define MkErrorStack(...)
#define MkErrorReset(...)
#define MkErrorSetC(...)
#define MkPanicDEFAULT(...)
#define MkErrorRaise(...)
#define MkPanicC(...)
#define MkErrorAppendC(...)
#define MkErrorNoRaise(...)
bool MkErrorIsSOCKET(MK_ERRN const err)
check on SOCKET-DOWN error …
bool MkErrorIsABORT(MK_ERRN const err)
check on ABORT signal …
bool MkErrorIsEXIT(MK_ERR const err)
check on APPLICATION-EXIT error …
#define MkErrorSetCONTINUE(...)
bool MkErrorIsTIMEOUT(MK_ERRN const err)
check on TIMEOUT error …
#define MkErrorSetCode(...)
#define MkErrorSetEXIT(...)
#define MkErrorSetSOCKET(...)
#define MkErrorSetABORT(...)
#define MkErrorIGNORE()
#define MkErrorDEFAULT()
#define MkErrorPRINT()
MK_ERR MkErrorFORMAT(MK_OBJN fmtobj)
system-error-format - format and return the default-error …
#define MkErrorCopy(...)
#define MkErrorDup(...)
#define MkErrorDefaultC_TT
class as MkTypeS-class-type, useable in a class-macro as: class##_TT …
#define MK_NULL_NO
flag, not allow NULL
#define MK_NULL_YES
flag, allow NULL
#define MK_UNUSED
mark unnused variables and functions
#define MK_DEPRECATED
MkErrorE
collection for the different error-codes …
MK_PTRB * MK_PTR
generic pointer data-type
const MK_STRB * MK_STRN
constant string pointer data-type
MK_PTRB const * MK_EXP
exception object pointer
bool MK_BOOL
real bool data-type
int32_t MK_HDL
4 byte int handle data-type
signed int MK_I32
4 byte integer data-type
static bool MkSysStringIsNULL(MK_STRN str)
test if string is NULL or EMPTY …
#define MkThreadLocal
#define MK_RT_CALL
#define MK_RT_ARGS
#define OT_CHECK_ERRN(val, nullB)
#define OT_CHECK_OBJN(val, nullB)
#define OT_CHECK_EXP(val)
The data-type to store and handle the error-condition …
object header …
MkTypeS - class known as typ or type is used as class-base for a Managed-Object-Technology (MOT) type...