MkRuntimeC_atl.c

Go to the documentation of this file.

 
/* LABEL-START */
 
#define   META_FILE_NAME      "MkRuntimeC_atl.c"
 
#include  "LibMkKernel_private_atl.h"
 
#define   OT_CLASS            amkrt->AtlMkRuntimeC
#define   OT_NULL             amkrt->AtlMkRuntimeC_MK_NULL
#define   OT_CLASS_NAME       "MkRuntimeC"
 
#define   SELF2HDL(O)         MkRt(VAL2MNG(O))
 
// LNG: class
// -> moved to LibMkKernel_atl.h → OT_MK_RT_S → AtlMkKernelCTT;
 
// META: ObjNew feature: called to return a new or an already existing ATL-SELF-Object
// -> moved to LibMkKernel_atl.h → MkKernelC_ObjNew
 
// META: ObjNew feature: selfCreate will be called from "ObjNew->MkSelfNew" if MkObj need a SELF pointer
static MK_PTR NS(MkRuntimeC_selfCreate) (MK_RT_ARGS MK_OBJ const obj, MK_PTR const env) {
  SETUP_amkrt(env);
  return AtomMake(obj,OT_CLASS,NULL,NULL,env);
}
 
// META: called if MkObj must be destroyed and if the SELF is still alive → goal: destroy the SELF
static void NS(MkRuntimeC_selfDelete) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  SETUP_amkrt(env);
  MK(AtomDeleteHard) (OT_MK_CALL selfO);
}
 
// META: called to destroy link from SELF to META
static void NS(MkRuntimeC_selfUnlink) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  SETUP_amkrt(env);
  return MK(AtomUnlink) (OT_MK_CALL selfO);
}
 
#define OT_SETUP_hdl                  SetupHdlFromMetaData_2(MK_RT)
#define OT_SETUP_hdl__null_allow      SetupHdlFromMetaData__null_allow_2(MK_RT)
#define OT_SETUP_hdl_destr            SetupHdlFromMetaData__null_allow_2(MK_RT)
#define OT_SETUP_hdl_constr           SetupHdlConstr(MkRuntimeC)
#define OT_SETUP_hdl_static_constr    OT_SETUP_hdl_static
#define OT_SETUP_hdl_static           SetupHdlStatic(MkRuntimeC)
 
#define OT_retObj_CONSTR(x)           OT_retObj_SET(AtomInit(OT_SELF,MkRuntimeC_X2obj(x),amkrt))
 
// initialize the ATL and META class specific object
#define   ClassInit \
  /* if not already done, initialize NEW META 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 META-Class */ \
  MkRuntimeCTT->selfCreate    = NS(MkRuntimeC_selfCreate); \
  MkRuntimeCTT->selfDelete    = NS(MkRuntimeC_selfDelete); \
  MkRuntimeCTT->selfUnlink    = NS(MkRuntimeC_selfUnlink); \
 \
  /* create the ATL-class */ \
  OT_CLASS = AltClassDef(MkRuntimeCTT,&amkrt->AtlMkRuntimeC_NS); \
    if (OT_CLASS == NULL) goto error; \
    OT_REF_INCR(OT_CLASS); \
 \
  /* create the ATL static Methods */ \
  check_LNG(AtlUnknownSetup (NS(sOtClassDef),amkrt)) goto error; \
 \
  /* create the ATL instance Methods */ \
  check_LNG(AtlUnknownSetup (NS(sInstanceDef),amkrt)) goto error; \
 \
  /* after class was modified, recompile the class */ \
  RL_init(2, recompile, RL_T(0,RecompileN)); RL_O(1,OT_CLASS) ; \
    int retI = RL_EvalEx(0); \
      if (retI != TCL_OK) return retI; \
 \
  /* define the "NULL" object */ \
  OT_NULL = AtomCreateNULL(OT_CLASS, "::MkRuntimeC::MK_NULL", (MK_PTR)amkrt); \
    if (OT_NULL == NULL) goto error; \
    OT_REF_INCR(OT_NULL);
/* LABEL-END */
 
// BEGIN-DOC - created by 'atl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkRuntimeC,MkRuntime,sm_,func
#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=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"
 
// END-DOC - created by 'atl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                        O B J E C T                                        */
/*                                                                           */
/*****************************************************************************/
 
// BEGIN-MkRuntimeC - created by 'atl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
 
// doc-key: MkRuntimeC,MkRuntimeC-Config,sm_
 
static OT_ProcRet NS(MkRuntimeC_DebugGet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(DebugGet_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_I32(MkRuntimeDebugGet ());
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_DebugSet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(DebugSet_doc);
  MK_I32 dbg = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NI4 (dbg))
  OT_CHECK_NOARGS;
  MkRuntimeDebugSet (dbg);
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_ErrorGetCode) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(ErrorGetCode_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET(OT_NEW_Mk_enum_OBJ(ErrorE,MkRuntimeErrorGetCode ()));
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_IsSilentGet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(IsSilentGet_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_BOL(MkRuntimeIsSilentGet ());
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_IsSilentSet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(IsSilentSet_doc);
  MK_BOOL silent = 0;
  OT_CHECK_REQUIRED(OT_CHECK_bool (silent))
  OT_CHECK_NOARGS;
  MkRuntimeIsSilentSet (silent);
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_LogTargetGet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(LogTargetGet_doc);
  OT_CHECK_NOARGS;
  OT_retObj_SET_STR(MkRuntimeLogTargetGet ());
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_LogTargetReset) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(LogTargetReset_doc);
  OT_CHECK_NOARGS;
  MkErrorC_Check(MK_ERROR_FORMAT,MkRuntimeLogTargetReset ());
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_LogTargetSet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(LogTargetSet_doc);
  MK_STRN logTgt = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (logTgt))
  OT_CHECK_NOARGS;
  MkErrorC_Check(MK_ERROR_FORMAT,MkRuntimeLogTargetSet (logTgt));
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkRuntimeC_NoDecoSet) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(NoDecoSet_doc);
  MK_BOOL noDeco = 0;
  OT_CHECK_REQUIRED(OT_CHECK_bool (noDeco))
  OT_CHECK_NOARGS;
  MkRuntimeNoDecoSet (noDeco);
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MkRuntimeC_Config_ATL_API
 
 
// doc-key: MkRuntimeC,MkRuntimeC-Info,sm_
 
static OT_ProcRet NS(MkRuntimeC_Log0) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_VARARGS(0,4,Log0_doc);
  MK_OBJN fmtobj = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_OBJN (fmtobj,MK_NULL_YES))
  MK_DBG debug = 0;
  OT_CHECK_OPTIONAL(OT_CHECK_NI4 (debug))
  MK_STRN callfunc = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_STRN (callfunc))
  MK_I32 lvl = 0;
  OT_CHECK_OPTIONAL(OT_CHECK_NI4 (lvl))
  OT_CHECK_NOARGS;
  if (debug > MkRuntimeDebugGet()) {
    OT_retObj_SET_None;
    goto end;
  }
  if (MkSysStringIsNULL(callfunc)) {callfunc = OT_GET_CALL_PROC;}
  MkRuntimeLog0 (fmtobj, debug, callfunc, lvl);
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_FRAME_CLEANUP;
  OT_retObj_RETURN;
}
 
// MkRuntimeC_Info_ATL_API
 
// END-MkRuntimeC - created by 'atl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
 
static const OtObjProcDefS NS(sOtClassDef)[] = {
  // BEGIN-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
  // doc-key: MkRuntimeC,MkRuntime,sm_
  { "::MkRuntimeC::DebugGet"       , NS(MkRuntimeC_DebugGet)       },
  { "::MkRuntimeC::DebugSet"       , NS(MkRuntimeC_DebugSet)       },
  { "::MkRuntimeC::ErrorGetCode"   , NS(MkRuntimeC_ErrorGetCode)   },
  { "::MkRuntimeC::IsSilentGet"    , NS(MkRuntimeC_IsSilentGet)    },
  { "::MkRuntimeC::IsSilentSet"    , NS(MkRuntimeC_IsSilentSet)    },
  { "::MkRuntimeC::Log0"           , NS(MkRuntimeC_Log0)           },
  { "::MkRuntimeC::LogTargetGet"   , NS(MkRuntimeC_LogTargetGet)   },
  { "::MkRuntimeC::LogTargetReset" , NS(MkRuntimeC_LogTargetReset) },
  { "::MkRuntimeC::LogTargetSet"   , NS(MkRuntimeC_LogTargetSet)   },
  { "::MkRuntimeC::NoDecoSet"      , NS(MkRuntimeC_NoDecoSet)      },
 
  // END-CLASS - created by 'atl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
  { NULL }
};
 
// ---------------------------------------------------------------------------------------
 
static const OtObjProcDefS NS(sInstanceDef)[] = {
  // BEGIN-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
  // → no data
 
  // END-OBJ - created by 'atl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
  { NULL }
};
 
 
 
int NS(pMkRuntimeC_Init) ( OT_MK_ARGS OT_NS_T ns )
{
  ClassInit
 
  return TCL_OK;
error:
  return TCL_ERROR;
}