theKernel 10.0
Loading...
Searching...
No Matches
MkErrorC_Catch_lng.h
Go to the documentation of this file.
1
9/*
10
11not required anymore - as example use tcl
12
13#if defined(Catch_E_doc)
14static OT_ProcRet NS(MkErrorC_Catch_E) (MkErrorC_ARGS) {
15 OT_SETUP_hdl
16 OT_SETUP_VARARGS(0,2,Catch_E_doc)
17 OT_OBJ_T err= (OT_OBJ_T) NULL;
18 OT_CHECK_OPTIONAL(OT_CHECK_LNG_T (err))
19 MK_OBJ fmtobj = MK_ERROR_DEFAULT;
20 OT_CHECK_OPTIONAL(OT_CHECK_OBJ (fmtobj))
21 OT_CHECK_NOARGS
22 OT_ERROR_LNG_ERR_2_MQ(fmtobj,err);
23 OT_retObj_SET_None
24 goto end;
25error:
26 OT_retObj_SET_Error
27end:
28 OT_retObj_RETURN
29}
30#endif
31
32#if defined(Catch_doc)
33static OT_ProcRet NS(MkErrorC_Catch) (MkClass_ARGS) {
34 OT_SETUP_hdl_static
35 OT_SETUP_VARARGS(0,2,Catch_doc)
36 OT_OBJ_T err= (OT_OBJ_T) NULL;
37 OT_CHECK_OPTIONAL(OT_CHECK_LNG_T (err))
38 MK_OBJ fmtobj = MK_ERROR_DEFAULT;
39 OT_CHECK_OPTIONAL(OT_CHECK_OBJ (fmtobj))
40 OT_CHECK_NOARGS
41 OT_ERROR_LNG_ERR_2_MQ(fmtobj,err);
42 OT_retObj_SET_None
43 goto end;
44error:
45 OT_retObj_SET_Error
46end:
47 OT_retObj_RETURN
48}
49#endif
50
51*/