MkLogFileC_tcl.c File Reference

tag: nhi1-release-250425 More...

#include "LibMkKernel_private_tcl.h"

Include dependency graph for MkLogFileC_tcl.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "MkLogFileC_tcl.c"
#define	OT_CLASS   NS(MkLogFileC)
#define	OT_CLASS_NAME   "MkLogFileC"
#define	OBJECT2LFL(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(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
#define	SetupRtFromHdl_XN(hdl)
#define	SetupRtFromHdl_X(hdl)
#define	ClassInit
#define	VER   TCL_OO_METHOD_VERSION_CURRENT
#define	CTOR_doc   "MkLogFileC [MkLogFileC CTOR fmtobj:MkObjectC file:string]"
#define	Open_doc   "MkLogFileC [MkLogFileC Open fmtobj:MkObjectC file:string]"
#define	GetNull_doc   "MkLogFileC [MkLogFileC GetNull]"
#define	HandleResolve_doc   "MkLogFileC [MkLogFileC HandleResolve netHdl:MK_HDL]"
#define	Instances_doc   "MkLogFileC [MkLogFileC Instances]"
#define	Next_doc   "MkLogFileC [$lfl Next]"
#define	Prev_doc   "MkLogFileC [$lfl Prev]"
#define	WriteC_doc   "$lfl WriteC text:string (const)"
#define	GetFile_doc   "string [$lfl GetFile] (const)"

Functions
static MK_PTR	tclmkkernel_MkLogFileC_selfCreate (MK_RT mkrt, MK_OBJ const obj, MK_PTR const env)
static void	tclmkkernel_MkLogFileC_selfDelete (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static void	tclmkkernel_MkLogFileC_selfUnlink (MK_RT mkrt, MK_PTR selfP, MK_PTR const env)
static OT_ProcRet	tclmkkernel_MkLogFileC_HandleResolve (OtClass_ARGS)
	Tcl: (static) MkLogFileC [MkLogFileC HandleResolve netHdl:MK_HDL] → C-API Handle-Resolve-Slot - return a MkLogFileC from netHdl or "MK_NULL" if invalid…
MK_DEPRECATED static MK_UNUSED OT_ProcRet	tclmkkernel_MkLogFileC_HandleGet (MkLogFileC_ARGS)
static OT_ProcRet	tclmkkernel_MkLogFileC_Next (MkLogFileC_ARGS)
	Tcl: MkLogFileC [$lfl Next] → C-API get next instance from linked-list of MkLogFileS type
static OT_ProcRet	tclmkkernel_MkLogFileC_Prev (MkLogFileC_ARGS)
	Tcl: MkLogFileC [$lfl Prev] → C-API get previous instance from linked-list of MkLogFileS type
static OT_ProcRet	tclmkkernel_MkLogFileC_Instances (OtClass_ARGS)
	Tcl: (static) MkLogFileC [MkLogFileC Instances] → C-API get head-instance from linked-list of MkLogFileS type …
static OT_ProcRet	tclmkkernel_MkLogFileC_GetNull (OtClass_ARGS)
	Tcl: (static) MkLogFileC [MkLogFileC GetNull] → C-API Null-Slot - return a MkLogFileC typed NULL instance …
static OT_ProcRet	tclmkkernel_MkLogFileC_CTOR (CONSTR_ARGS)
	Tcl: (constructor,static) MkLogFileC [MkLogFileC CTOR fmtobj:MkObjectC file:string] → C-API open the log-file in append mode …
static OT_ProcRet	tclmkkernel_MkLogFileC_Open (OtClass_ARGS)
	Tcl: (constructor,static) MkLogFileC [MkLogFileC Open fmtobj:MkObjectC file:string] → C-API open the log-file in append mode …
static OT_ProcRet	tclmkkernel_MkLogFileC_WriteC (MkLogFileC_ARGS)
	Tcl: $lfl WriteC text:string → C-API write to log-file …
static OT_ProcRet	tclmkkernel_MkLogFileC_GetFile (MkLogFileC_ARGS)
	Tcl: string [$lfl GetFile] → C-API get the log-file …
int	tclmkkernel_pMkLogFileC_Init (MK_RT mkrt, OT_ENV_T interp, OT_NS_T ns)

Variables
__thread OT_CLS_T	OT_CLASS = NULL
static __thread MK_TYP	MkLogFileCTT = NULL
__thread OT_OBJ_T	tclmkkernel_MkLogFileC_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 MkLogFileC_tcl.c.

Macro Definition Documentation

ClassInit

#define ClassInit

Value:

  /* 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));

Definition at line 77 of file MkLogFileC_tcl.c.

#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));

CTOR_doc

#define CTOR_doc   "MkLogFileC [MkLogFileC CTOR fmtobj:MkObjectC file:string]"

Definition at line 115 of file MkLogFileC_tcl.c.

GetFile_doc

#define GetFile_doc   "string [$lfl GetFile] (const)"

Definition at line 132 of file MkLogFileC_tcl.c.

GetNull_doc

#define GetNull_doc   "MkLogFileC [MkLogFileC GetNull]"

Definition at line 119 of file MkLogFileC_tcl.c.

HandleResolve_doc

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

Definition at line 120 of file MkLogFileC_tcl.c.

Instances_doc

#define Instances_doc   "MkLogFileC [MkLogFileC Instances]"

Definition at line 121 of file MkLogFileC_tcl.c.

META_FILE_NAME

#define META_FILE_NAME   "MkLogFileC_tcl.c"

Definition at line 11 of file MkLogFileC_tcl.c.

Next_doc

#define Next_doc   "MkLogFileC [$lfl Next]"

Definition at line 124 of file MkLogFileC_tcl.c.

OBJECT2LFL

#define OBJECT2LFL

(

O

)

Value:

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

Definition at line 18 of file MkLogFileC_tcl.c.

Open_doc

#define Open_doc   "MkLogFileC [MkLogFileC Open fmtobj:MkObjectC file:string]"

Definition at line 116 of file MkLogFileC_tcl.c.

OT_CLASS

#define OT_CLASS   NS(MkLogFileC)

Definition at line 15 of file MkLogFileC_tcl.c.

OT_CLASS_NAME

#define OT_CLASS_NAME   "MkLogFileC"

Definition at line 16 of file MkLogFileC_tcl.c.

OT_SETUP_hdl

#define OT_SETUP_hdl   SetupHdlFromMetaData_2(LFL,MK_LFL);

Definition at line 59 of file MkLogFileC_tcl.c.

OT_SETUP_hdl__null_allow

#define OT_SETUP_hdl__null_allow   SetupHdlFromMetaData__null_allow_2(LFL,MK_LFL);

Definition at line 60 of file MkLogFileC_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_LFL hdl = (MK_LFL) &MkERROR;

Definition at line 64 of file MkLogFileC_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_LFL hdl = (MK_LFL) &MkERROR;

OT_SETUP_hdl_constr_pre

#define OT_SETUP_hdl_constr_pre

Definition at line 63 of file MkLogFileC_tcl.c.

OT_SETUP_hdl_destr

#define OT_SETUP_hdl_destr   SetupHdlFromMetaData__null_allow_2(LFL,MK_LFL);

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

Definition at line 53 of file MkLogFileC_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 = MkLogFileC##_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 MkLogFileC_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 MkLogFileC_tcl.c.

Prev_doc

#define Prev_doc   "MkLogFileC [$lfl Prev]"

Definition at line 125 of file MkLogFileC_tcl.c.

SetupRtFromHdl_X

#define SetupRtFromHdl_X

(

hdl

)

Value:

AllRtSetup_X(hdl)

Definition at line 73 of file MkLogFileC_tcl.c.

SetupRtFromHdl_XN

#define SetupRtFromHdl_XN

(

hdl

)

Value:

AllRtSetup_XN(hdl)

Definition at line 72 of file MkLogFileC_tcl.c.

VER

#define VER   TCL_OO_METHOD_VERSION_CURRENT

Definition at line 108 of file MkLogFileC_tcl.c.

WriteC_doc

#define WriteC_doc   "$lfl WriteC text:string (const)"

Definition at line 129 of file MkLogFileC_tcl.c.

Function Documentation

tclmkkernel_MkLogFileC_selfCreate()

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

static

Definition at line 28 of file MkLogFileC_tcl.c.

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

tclmkkernel_MkLogFileC_selfDelete()

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

static

Definition at line 33 of file MkLogFileC_tcl.c.

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

tclmkkernel_MkLogFileC_selfUnlink()

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

static

Definition at line 39 of file MkLogFileC_tcl.c.

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

tclmkkernel_pMkLogFileC_Init()

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

Public API

Definition at line 389 of file MkLogFileC_tcl.c.

{
  ClassInit
 
  return TCL_OK;
error:
  return TCL_ERROR;
}

Variable Documentation

MkLogFileCTT

__thread MK_TYP MkLogFileCTT = NULL

static

Definition at line 24 of file MkLogFileC_tcl.c.

OT_CLASS

__thread OT_CLS_T OT_CLASS = NULL

Definition at line 21 of file MkLogFileC_tcl.c.

tclmkkernel_MkLogFileC_MK_NULL

__thread OT_OBJ_T tclmkkernel_MkLogFileC_MK_NULL = NULL

Definition at line 25 of file MkLogFileC_tcl.c.

tclmkkernel_sInstanceDef

const Tcl_MethodType tclmkkernel_sInstanceDef[]

static

Initial value:

= {
 
 
 
  {VER, "<constructor>"       ,  tclmkkernel_MkLogFileC_CTOR , NULL, NULL},
 
 
  {VER, "Next"                ,  tclmkkernel_MkLogFileC_Next , NULL, NULL},
  {VER, "Prev"                ,  tclmkkernel_MkLogFileC_Prev , NULL, NULL},
 
 
  
  {VER, "WriteC"              ,  tclmkkernel_MkLogFileC_WriteC , NULL, NULL},
 
 
  {VER, "GetFile"             ,  tclmkkernel_MkLogFileC_GetFile , NULL, NULL},
 
 
  {0, NULL, NULL, NULL, NULL}
}

Definition at line 362 of file MkLogFileC_tcl.c.

                                                 {
// 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}
};

tclmkkernel_sOtClassDef

const Tcl_MethodType tclmkkernel_sOtClassDef[]

static

Initial value:

= {
 
 
 
  {VER, "Open"                ,  tclmkkernel_MkLogFileC_Open , NULL, NULL},
 
 
  {VER, "GetNull"             ,  tclmkkernel_MkLogFileC_GetNull , NULL, NULL},
  {VER, "HandleResolve"       ,  tclmkkernel_MkLogFileC_HandleResolve , NULL, NULL},
  {VER, "Instances"           ,  tclmkkernel_MkLogFileC_Instances , NULL, NULL},
 
 
  {0, NULL, NULL, NULL}
}

Definition at line 345 of file MkLogFileC_tcl.c.

                                                {
// 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}
};