MkLogFileC_tcl.c

Go to the documentation of this file.

 
/* LABEL-START */
 
#define   META_FILE_NAME      "MkLogFileC_tcl.c"
 
#include  "LibMkKernel_private_tcl.h"
 
#define   OT_CLASS            NS(MkLogFileC)
#define   OT_CLASS_NAME       "MkLogFileC"
 
#define   OBJECT2LFL(O)   MkAssertCastM(MkLogFileC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))
 
// TCL class
MkThreadLocal OT_CLS_T OT_CLASS = NULL;
 
// META class
static MkThreadLocal MK_TYP MkLogFileCTT = NULL;
MkThreadLocal OT_OBJ_T MK(MkLogFileC_MK_NULL) = NULL;
 
// META: ObjNew feature: selfCreate will be called from "ObjNew->MkSelfNew" if MkObj need a SELF pointer
static MK_PTR NS(MkLogFileC_selfCreate) (MK_RT_ARGS MK_OBJ const obj, MK_PTR const env) {
  OT_ENV_T interp = env;
  return MK(AtomCreate) (MK_RT_CALL interp,obj,OT_CLASS,NULL,NULL);
}
// META: is called when the META object is destroyed and SELF does NOT belongs to the META.
static void NS(MkLogFileC_selfDelete) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomDeleteHard) (MK_RT_CALL interp, selfO);
}
// META: is called when the META object is destroyed and SELF does NOT belong to the META.
static void NS(MkLogFileC_selfUnlink) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
  OT_SELF_T selfO = selfP;
  OT_ENV_T  interp = env;
  MK(AtomUnlink) (MK_RT_CALL interp, selfO);
}
 
// ATTENTION: TCL has no "Unlink" because the "Tcl_ObjectSetMetadata(selfO,&MK(AtomMeta),NULL);" call
// also the destructor
 
#define   OT_SETUP_hdl_static_constr_pre
#define   OT_SETUP_hdl_static_constr \
  OT_SETUP_hdl_static_constr_pre; \
  OT_SETUP_hdl_static
 
#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 = MkLogFileC##_TT;
 
#define   OT_SETUP_hdl              SetupHdlFromMetaData_2(LFL,MK_LFL);
#define   OT_SETUP_hdl__null_allow  SetupHdlFromMetaData__null_allow_2(LFL,MK_LFL);
#define   OT_SETUP_hdl_destr        SetupHdlFromMetaData__null_allow_2(LFL,MK_LFL);
 
#define   OT_SETUP_hdl_constr_pre
#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_LFL hdl = (MK_LFL) &MkERROR;
 
#if !defined(SetupRtFromHdl_XN)
  #define SetupRtFromHdl_XN(hdl)  AllRtSetup_XN(hdl)
  #define SetupRtFromHdl_X(hdl)   AllRtSetup_X(hdl)
#endif
 
// initialize the TCL and MO class specific object
#define   ClassInit \
  /* if not already done, initialize NEW MQ type */ \
  if (MkLogFileCTT == NULL) MkLogFileCTT = MkLogFileSTT; \
 \
  /* protect against double call */ \
  if (MkLogFileCTT->selfCreate == NS(MkLogFileC_selfCreate)) return MK_OK; \
 \
  /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
  MkLogFileCTT->selfCreate    = NS(MkLogFileC_selfCreate); \
  MkLogFileCTT->selfDelete    = NS(MkLogFileC_selfDelete); \
  MkLogFileCTT->selfUnlink    = NS(MkLogFileC_selfUnlink); \
 \
  /* create the TCL-class */ \
  OT_SELF_T classO = MK(ClassDef)(interp,ns,MkLogFileCTT); \
  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(MkLogFileC_MK_NULL) = Tcl_GetObjectName(interp, \
    MK(AtomCreate) (MK_RT_CALL interp,  NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkLogFileC" /*ns*/) \
  ); \
  Tcl_IncrRefCount(MK(MkLogFileC_MK_NULL));
 
#define VER TCL_OO_METHOD_VERSION_CURRENT
 
/* LABEL-END */
 
// BEGIN-DOC - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkLogFileC,MkLogFile,sCo,func
#define CTOR_doc "MkLogFileC [MkLogFileC CTOR fmtobj:MkObjectC file:string]"
#define Open_doc "MkLogFileC [MkLogFileC Open fmtobj:MkObjectC file:string]"
 
// doc-key: MkLogFileC,MkLogFile,sc_,func
#define GetNull_doc "MkLogFileC [MkLogFileC GetNull]"
#define HandleResolve_doc "MkLogFileC [MkLogFileC HandleResolve netHdl:MK_HDL]"
#define Instances_doc "MkLogFileC [MkLogFileC Instances]"
 
// doc-key: MkLogFileC,MkLogFile,oc_,func
#define Next_doc "MkLogFileC [$lfl Next]"
#define Prev_doc "MkLogFileC [$lfl Prev]"
 
// doc-key: MkLogFileC,MkLogFile,om_,func
// skip class-overload: HandleGet → MkObjectHandleGet
#define WriteC_doc "$lfl WriteC text:string (const)"
 
// doc-key: MkLogFileC,MkLogFile,omo,func
#define GetFile_doc "string [$lfl GetFile] (const)"
 
// END-DOC - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
/*****************************************************************************/
/*                                                                           */
/*                        O B J E C T                                        */
/*                                                                           */
/*****************************************************************************/
 
// BEGIN-MkLogFileC - created by 'tcl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
 
// doc-key: MkLogFileC,MkLogFileC-Class-Export,sc_
 
static OT_ProcRet NS(MkLogFileC_HandleResolve) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_ONEARG(HandleResolve_doc);
  MK_HDL netHdl = 0;
  OT_CHECK_REQUIRED(OT_CHECK_NIH (netHdl))
  OT_CHECK_NOARGS;
  MK_LFL retVal = MkLogFileHandleResolve (netHdl);
  OT_retObj_SET_LFL(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// doc-key: MkLogFileC,MkLogFileC-Class-Export,om_
 
// skip on class-overload: MkLogFileHandleGet → MkObjectHandleGet
MK_DEPRECATED MK_UNUSED
static OT_ProcRet NS(MkLogFileC_HandleGet) (MkLogFileC_ARGS) {OT_ERROR_LNG_RETURN;}
 
// MkLogFileC_Class_TCL_API
 
 
// doc-key: MkLogFileC,MkLogFileC-Class-Introspection,oc_
 
static OT_ProcRet NS(MkLogFileC_Next) (MkLogFileC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Next_doc);
  OT_CHECK_NOARGS;
  MK_LFL retVal = MkLogFileNext (hdl);
  OT_retObj_SET_LFL(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkLogFileC_Prev) (MkLogFileC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(Prev_doc);
  OT_CHECK_NOARGS;
  MK_LFL retVal = MkLogFilePrev (hdl);
  OT_retObj_SET_LFL(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// doc-key: MkLogFileC,MkLogFileC-Class-Introspection,sc_
 
static OT_ProcRet NS(MkLogFileC_Instances) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(Instances_doc);
  OT_CHECK_NOARGS;
  MK_LFL retVal = MkLogFileInstances ();
  OT_retObj_SET_LFL(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MkLogFileC_Class_TCL_API
 
 
// doc-key: MkLogFileC,MkLogFileC-Class-Misc,sc_
 
static OT_ProcRet NS(MkLogFileC_GetNull) (OtClass_ARGS) {
  OT_SETUP_hdl_static;
  OT_SETUP_NOARG(GetNull_doc);
  OT_CHECK_NOARGS;
  MK_LFL retVal = MkLogFileGetNull ();
  OT_retObj_SET_LFL(retVal);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MkLogFileC_Class_TCL_API
 
 
// doc-key: MkLogFileC,MkLogFileC-TOR,sCo
 
static OT_ProcRet NS(MkLogFileC_CTOR) (CONSTR_ARGS) {
  OT_SETUP_hdl_constr;
  OT_SETUP_CONSTRUCTOR_ARGS(1,2,CTOR_doc);
  MK_OBJN fmtobj = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_OBJN (fmtobj,MK_NULL_YES))
  MK_STRN file = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (file))
  MK_LFL lfh_out;
  MkErrorC_Check(fmtobj,MkLogFileOpen (fmtobj, file, &lfh_out));
  OT_CONSTRUCTOR_POST(lfh_out)
  OT_retObj_CONSTR(lfh_out);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
static OT_ProcRet NS(MkLogFileC_Open) (OtClass_ARGS) {
  OT_SETUP_hdl_static_constr;
  OT_SETUP_VARARGS(1,2,Open_doc);
  MK_OBJN fmtobj = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_OBJN (fmtobj,MK_NULL_YES))
  MK_STRN file = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (file))
  OT_CHECK_NOARGS;
  MK_LFL lfh_out;
  MkErrorC_Check(fmtobj,MkLogFileOpen (fmtobj, file, &lfh_out));
  OT_CONSTRUCTOR_POST(lfh_out)
  OT_retObj_SET_LFL(lfh_out);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MkLogFileC_TOR_TCL_API
 
 
// doc-key: MkLogFileC,MkLogFileC-Write,om_
 
static OT_ProcRet NS(MkLogFileC_WriteC) (MkLogFileC_ARGS) {
  OT_SETUP_hdl__null_allow;
  OT_SETUP_ONEARG(WriteC_doc);
  MK_STRN text = 0;
  OT_CHECK_REQUIRED(OT_CHECK_STRN (text))
  OT_CHECK_NOARGS;
  MkErrorC_Check(hdl,MkLogFileWriteC (hdl, text));
  OT_retObj_SET_None;
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// doc-key: MkLogFileC,MkLogFileC-Write,omo
 
static OT_ProcRet NS(MkLogFileC_GetFile) (MkLogFileC_ARGS) {
  OT_SETUP_hdl;
  OT_SETUP_NOARG(GetFile_doc);
  OT_CHECK_NOARGS;
  MK_STRN file_out;
  MkErrorC_Check(hdl,MkLogFileGetFile (hdl, &file_out));
  OT_retObj_SET_STR(file_out);
  goto end;
  error:
  OT_retObj_SET_Error;
  end:
  OT_retObj_RETURN;
}
 
// MkLogFileC_Write_TCL_API
 
// END-MkLogFileC - created by 'tcl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// ---------------------------------------------------------------------------------------
 
const static Tcl_MethodType NS(sOtClassDef)[] = {
// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkLogFileC,MkLogFile,sCo
  {VER, "Open"                , NS(MkLogFileC_Open)                     , NULL, NULL},
 
// doc-key: MkLogFileC,MkLogFile,sc_
  {VER, "GetNull"             , NS(MkLogFileC_GetNull)                  , NULL, NULL},
  {VER, "HandleResolve"       , NS(MkLogFileC_HandleResolve)            , NULL, NULL},
  {VER, "Instances"           , NS(MkLogFileC_Instances)                , 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}
};
 
// ---------------------------------------------------------------------------------------
 
const static Tcl_MethodType NS(sInstanceDef)[] = {
// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkLogFileC,MkLogFile,oC_
  {VER, "<constructor>"       , NS(MkLogFileC_CTOR)                     , NULL, NULL},
 
// doc-key: MkLogFileC,MkLogFile,oc_
  {VER, "Next"                , NS(MkLogFileC_Next)                     , NULL, NULL},
  {VER, "Prev"                , NS(MkLogFileC_Prev)                     , NULL, NULL},
 
// doc-key: MkLogFileC,MkLogFile,om_
  // skip class-overload: MkLogFileHandleGet → HandleGet, NS(MkLogFileC_HandleGet)
  {VER, "WriteC"              , NS(MkLogFileC_WriteC)                   , NULL, NULL},
 
// doc-key: MkLogFileC,MkLogFile,omo
  {VER, "GetFile"             , NS(MkLogFileC_GetFile)                  , NULL, NULL},
 
// END-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
  {0, NULL, NULL, NULL, NULL}
};
 
 
int NS(pMkLogFileC_Init) ( MK_RT_ARGS OT_ENV_T interp, OT_NS_T ns)
{
  ClassInit
 
  return TCL_OK;
error:
  return TCL_ERROR;
}