LibLcConfig_tcl.h File Reference

tag: nhi1-release-250425 More...

#include "LibMkKernel_tcl.h"
#include "LibLcConfig_lc.h"
#include "tmpl/lc_misc_check_lng.h"

Include dependency graph for LibLcConfig_tcl.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	LC_DOC   __doc
#define	HEADER
#define	LC_TCL_EXTERN
	static library
#define	LC_TCL_EXTERN_DATA   extern
#define	LC(n)
#define	NS(n)
#define	LcConfigC_ARGS   OBJECT_ARGS
#define	LcConfigC_ARGS_CALL   OBJECT_ARGS_CALL
#define	LcSettingC_ARGS   OBJECT_ARGS
#define	LcSettingC_ARGS_CALL   OBJECT_ARGS_CALL
#define	LcConfigC_lngO   LC(LcConfigC)
#define	OT_retObj_SET_CFG(nat)
#define	OT_TMP_CFG_OBJ(val)
#define	LcSettingC_lngO   LC(LcSettingC)
#define	OT_retObj_SET_CFS(nat)
#define	OT_TMP_CFS_OBJ(val)
#define	OT_get_CFS_from_NAT(_nat)
#define	OT_get_CFG_from_NAT(_nat)
#define	Get_LcConfigFormatE_FromObj_path   LC(Get_LcConfigFormatE_FromObj)
#define	Get_LcConfigOptionsEF_FromObj_path   LC(Get_LcConfigOptionsEF_FromObj)
#define	Get_LcConfigTypeE_FromObj_path   LC(Get_LcConfigTypeE_FromObj)
#define	Get_LcErrorE_FromObj_path   LC(Get_LcErrorE_FromObj)
#define	Get_LcErrorTypeE_FromObj_path   LC(Get_LcErrorTypeE_FromObj)
#define	OT_NEW_Lc_enum_OBJ(typ, val)

Functions
int	tcllcconfig_pLcConfigC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
static MK_ARTIFICIAL OT_OBJ_T	tcllcconfig_LcConfigC_ObjNew (MK_RT mkrt, OT_ENV_T interp, LcConfigC_type hdl)
int	tcllcconfig_pLcSettingC_Init (MK_RT mkrt, OT_ENV_T, OT_NS_T)
static MK_ARTIFICIAL OT_OBJ_T	tcllcconfig_LcSettingC_ObjNew (MK_RT mkrt, OT_ENV_T interp, LcSettingC_type hdl)
enum MkErrorE	tcllcconfig_ConfigIncludeCall (LcConfigIncludeCallF_ARGS)
void	tcllcconfig_ConfigIncludeFree (LcConfigIncludeFreeF_ARGS)
enum MkErrorE	tcllcconfig_SettingDeleteCall (LcSettingDeleteCallF_ARGS)
void	tcllcconfig_SettingDeleteFree (LcSettingDeleteFreeF_ARGS)
LC_TCL_EXTERN int	tcllcconfig_Get_LcConfigFormatE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum LcConfigFormatE *ret)
LC_TCL_EXTERN int	tcllcconfig_Get_LcConfigOptionsEF_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum LcConfigOptionsEF *ret)
LC_TCL_EXTERN int	tcllcconfig_Get_LcConfigTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum LcConfigTypeE *ret)
LC_TCL_EXTERN int	tcllcconfig_Get_LcErrorE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum LcErrorE *ret)
LC_TCL_EXTERN int	tcllcconfig_Get_LcErrorTypeE_FromObj (MK_RT mkrt, OT_ENV_T interp, OT_OBJ_T enumE, enum LcErrorTypeE *ret)
LC_TCL_EXTERN OT_OBJ_T	tcllcconfig_LcConfigFormatE_ToString (const enum LcConfigFormatE)
LC_TCL_EXTERN OT_OBJ_T	tcllcconfig_LcConfigOptionsEF_ToString (const enum LcConfigOptionsEF)
LC_TCL_EXTERN OT_OBJ_T	tcllcconfig_LcConfigTypeE_ToString (const enum LcConfigTypeE)
LC_TCL_EXTERN OT_OBJ_T	tcllcconfig_LcErrorE_ToString (const enum LcErrorE)
LC_TCL_EXTERN OT_OBJ_T	tcllcconfig_LcErrorTypeE_ToString (const enum LcErrorTypeE)

Variables
LC_TCL_EXTERN_DATA __thread OT_CLS_T	tcllcconfig_LcConfigC
LC_TCL_EXTERN_DATA __thread OT_OBJ_T	tcllcconfig_LcConfigC_MK_NULL
LC_TCL_EXTERN_DATA __thread OT_CLS_T	tcllcconfig_LcSettingC
LC_TCL_EXTERN_DATA __thread OT_OBJ_T	tcllcconfig_LcSettingC_MK_NULL

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 LibLcConfig_tcl.h.

Macro Definition Documentation

Get_LcConfigFormatE_FromObj_path

#define Get_LcConfigFormatE_FromObj_path   LC(Get_LcConfigFormatE_FromObj)

Definition at line 170 of file LibLcConfig_tcl.h.

Get_LcConfigOptionsEF_FromObj_path

#define Get_LcConfigOptionsEF_FromObj_path   LC(Get_LcConfigOptionsEF_FromObj)

Definition at line 173 of file LibLcConfig_tcl.h.

Get_LcConfigTypeE_FromObj_path

#define Get_LcConfigTypeE_FromObj_path   LC(Get_LcConfigTypeE_FromObj)

Definition at line 176 of file LibLcConfig_tcl.h.

Get_LcErrorE_FromObj_path

#define Get_LcErrorE_FromObj_path   LC(Get_LcErrorE_FromObj)

Definition at line 179 of file LibLcConfig_tcl.h.

Get_LcErrorTypeE_FromObj_path

#define Get_LcErrorTypeE_FromObj_path   LC(Get_LcErrorTypeE_FromObj)

Definition at line 182 of file LibLcConfig_tcl.h.

HEADER

#define HEADER

Definition at line 26 of file LibLcConfig_tcl.h.

LC

#define LC

(

n

)

Value:

tcllcconfig_ ## n

Definition at line 77 of file LibLcConfig_tcl.h.

LC_DOC

#define LC_DOC   __doc

Definition at line 15 of file LibLcConfig_tcl.h.

LC_TCL_EXTERN

#define LC_TCL_EXTERN

static library

Definition at line 50 of file LibLcConfig_tcl.h.

LC_TCL_EXTERN_DATA

#define LC_TCL_EXTERN_DATA   extern

Definition at line 73 of file LibLcConfig_tcl.h.

LcConfigC_ARGS

#define LcConfigC_ARGS   OBJECT_ARGS

Definition at line 85 of file LibLcConfig_tcl.h.

LcConfigC_ARGS_CALL

#define LcConfigC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 86 of file LibLcConfig_tcl.h.

LcConfigC_lngO

#define LcConfigC_lngO   LC(LcConfigC)

Definition at line 111 of file LibLcConfig_tcl.h.

LcSettingC_ARGS

#define LcSettingC_ARGS   OBJECT_ARGS

Definition at line 87 of file LibLcConfig_tcl.h.

LcSettingC_ARGS_CALL

#define LcSettingC_ARGS_CALL   OBJECT_ARGS_CALL

Definition at line 88 of file LibLcConfig_tcl.h.

LcSettingC_lngO

#define LcSettingC_lngO   LC(LcSettingC)

Definition at line 129 of file LibLcConfig_tcl.h.

NS

#define NS

(

n

)

Value:

tcllcconfig_ ## n

Definition at line 79 of file LibLcConfig_tcl.h.

OT_get_CFG_from_NAT

#define OT_get_CFG_from_NAT

(

_nat

)

Value:

LcGetCfgFromNat(_nat)

Definition at line 153 of file LibLcConfig_tcl.h.

OT_get_CFS_from_NAT

#define OT_get_CFS_from_NAT

(

_nat

)

Value:

LcGetCfsFromNat(_nat)

Definition at line 152 of file LibLcConfig_tcl.h.

OT_NEW_Lc_enum_OBJ

#define OT_NEW_Lc_enum_OBJ	(		typ,
			val )

Value:

LC(Lc ## typ ## _ToString(val))

Definition at line 188 of file LibLcConfig_tcl.h.

OT_retObj_SET_CFG

#define OT_retObj_SET_CFG

(

nat

)

Value:

retObj = LC(LcConfigC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 117 of file LibLcConfig_tcl.h.

OT_retObj_SET_CFS

#define OT_retObj_SET_CFS

(

nat

)

Value:

retObj = LC(LcSettingC_ObjNew) (MK_RT_CALL interp,nat)

Definition at line 135 of file LibLcConfig_tcl.h.

OT_TMP_CFG_OBJ

#define OT_TMP_CFG_OBJ

(

val

)

Value:

LC(LcConfigC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 119 of file LibLcConfig_tcl.h.

OT_TMP_CFS_OBJ

#define OT_TMP_CFS_OBJ

(

val

)

Value:

LC(LcSettingC_ObjNew) (MK_RT_CALL interp,val)

Definition at line 137 of file LibLcConfig_tcl.h.

Function Documentation

tcllcconfig_ConfigIncludeCall()

enum MkErrorE tcllcconfig_ConfigIncludeCall

(

LcConfigIncludeCallF_ARGS

)

Definition at line 38 of file LcCall_tcl.c.

{
  LcConfigIncludeCallF_CHECK;
 
  // 1. setup environment
  SETUP_interp
  if (interp==NULL || Tcl_InterpDeleted(interp)) return MK_OK;
 
  // 2. setup arguments
  struct MkCallS *call = cfg->fConfigIncludeData ;
  Tcl_Obj *objv[6+MkProcResolve_maxArgsLen] = {0};
  int objc = 0;
 
  // 3. setup my
rescan:
  switch (call->type) {
    case MkCallS_own_method: {
      // this is a instance->method
      objv[objc++] = OT_SELF_NAME_O(MkOBJ(cfg));
      break;
    }
    case MkCallS_other_method:
    case MkCallS_static:
      objv[objc++] = call->my;
      break;
    case MkCallS_proc:
      break;
    case MkCallS_init: {
      check_META(MK(ProcResolve)(MK_RT_CALL interp, MkOBJ(cfg), call)) goto error_mq;
      goto rescan;
    }
    case MkCallS_error:
      goto error;
    case MkCallS_null:
      return MK_OK;
  }
 
  // 4. setup methode
  if (call->mth)  objv[objc++] = call->mth;
 
  // 5. setup CTX arg
  switch (call->type) {
    case MkCallS_own_method:
      break;
    case MkCallS_other_method:
    case MkCallS_static:
    case MkCallS_proc:
      objv[objc++] = META2VAL_X(cfg);
      break;
    case MkCallS_init:
      break;
    case MkCallS_error:
      goto error;
    case MkCallS_null:
      return MK_OK;
  }
  objv[objc++]  = Tcl_NewStringObj(incDir,-1);
  objv[objc++]  = Tcl_NewStringObj(path,-1);
  objv[objc++]  = OT_TMP_BFL_OBJ(ret_inout);
 
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  // 3. call the callback
  int tclret = MK(EvalObjv) (interp, objc, objv, TCL_EVAL_GLOBAL);
 
  if (tclret == TCL_OK) {
    Tcl_ResetResult(interp);
    return MkErrorGetCode_0E();
  }
error:
  OT_ERROR_LNG_2_META(cfg);
error_mq:
  return MkErrorStack_0E();
}

tcllcconfig_ConfigIncludeFree()

void tcllcconfig_ConfigIncludeFree

(

LcConfigIncludeFreeF_ARGS

)

Definition at line 113 of file LcCall_tcl.c.

{
  SETUP_interp;
  if ( interp == NULL || Tcl_InterpDeleted(interp)) return;
 
  MkCallFree(cfg->fConfigIncludeData);
 
  //OT_REF_DECR_AND_NULL(cfg->fConfigIncludeHook);
 
  cfg->fConfigIncludeCall = NULL;
  cfg->fConfigIncludeFree = NULL;
}

tcllcconfig_LcConfigC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tcllcconfig_LcConfigC_ObjNew ( MK_RT mkrt, OT_ENV_T interp, LcConfigC_type hdl )

inlinestatic

Definition at line 122 of file LibLcConfig_tcl.h.

                                                                                           {
    return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, LcConfigC_X2obj(hdl)) : LC(LcConfigC_MK_NULL) );
  }

tcllcconfig_LcSettingC_ObjNew()

static MK_ARTIFICIAL OT_OBJ_T tcllcconfig_LcSettingC_ObjNew ( MK_RT mkrt, OT_ENV_T interp, LcSettingC_type hdl )

inlinestatic

Definition at line 140 of file LibLcConfig_tcl.h.

                                                                                             {
    return ( hdl ? MK(AtomObjNew) (MK_RT_CALL interp, LcSettingC_X2obj(hdl)) : LC(LcSettingC_MK_NULL) );
  }

tcllcconfig_pLcConfigC_Init()

int tcllcconfig_pLcConfigC_Init	(	MK_RT	mkrt,
		Tcl_Interp *	interp,
		Tcl_Namespace *	ns )

Public API

Definition at line 985 of file LcConfigC_tcl.c.

{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}

tcllcconfig_pLcSettingC_Init()

int tcllcconfig_pLcSettingC_Init	(	MK_RT	mkrt,
		Tcl_Interp *	interp,
		Tcl_Namespace *	ns )

Public API

Definition at line 1273 of file LcSettingC_tcl.c.

{
  ClassInit
  
  return TCL_OK;
error:
  return TCL_ERROR;
}

tcllcconfig_SettingDeleteCall()

enum MkErrorE tcllcconfig_SettingDeleteCall

(

LcSettingDeleteCallF_ARGS

)

Definition at line 144 of file LcCall_tcl.c.

{
  LcSettingDeleteCallF_CHECK;
 
  // 1. setup environment
  SETUP_interp
  if (interp==NULL || Tcl_InterpDeleted(interp)) return MK_OK;
 
  static MkThreadLocal bool onCall = false;
  if (onCall) {
printSTACK_1(cfg)
    return MkErrorSetC_2M(cfg,"REKURSIVE call on LcSettingC -> delete handler");
  }
  onCall=true;
 
  // 2. setup arguments
  struct MkCallS *call = cfg->fSettingDeleteData;
  Tcl_Obj *objv[5+MkProcResolve_maxArgsLen] = {0};
  int objc = 0;
 
  if (call->nsPtr == NULL) {
    call->nsPtr = Tcl_FindNamespace(interp,VAL2STR(call->nsO),NULL,TCL_GLOBAL_ONLY);
      if (call->nsPtr == NULL) return MK_OK ;   // instance namespace already deleted
  }
 
  // 3. setup my
rescan:
  switch (call->type) {
    case MkCallS_own_method: {
      // this is a instance->method
      objv[objc++] = OT_SELF_NAME_O(MkOBJ(cfg));
      break;
    }
    case MkCallS_other_method:
    case MkCallS_static:
      objv[objc++] = call->my;
      break;
    case MkCallS_proc:
      break;
    case MkCallS_init: {
      check_META(MK(ProcResolve)(MK_RT_CALL interp, MkOBJ(cfg), call)) goto error;
      goto rescan;
    }
    case MkCallS_error:
      goto error;
    case MkCallS_null:
      return MK_OK;
  }
 
  // 4. setup methode
  if (call->mth)  objv[objc++] = call->mth;
 
  objv[objc++] = LONG2VAL(MkObjectHandleGet_1X(cfs));
 
  if (call->args)  MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  // 3. call the callback
  int tclret = MK(EvalObjv) (interp, objc, objv, TCL_EVAL_GLOBAL);
 
//printV("tclret=%i, code=%s\n", tclret, MkLogErrorE(MkErrorGetCode_0E()))
 
  if (tclret != TCL_OK) goto error;
 
  Tcl_ResetResult(interp);
  onCall = false;
  return MkErrorGetCode_0E();
  
error:
  OT_ERROR_LNG_2_META(cfg);
  onCall = false;
  return MkErrorStack_0E();
}

tcllcconfig_SettingDeleteFree()

void tcllcconfig_SettingDeleteFree

(

LcSettingDeleteFreeF_ARGS

)

Definition at line 217 of file LcCall_tcl.c.

{
  SETUP_interp;
  if ( interp == NULL || Tcl_InterpDeleted(interp) ) return;
 
  MK(CallFree) (&cfg->fSettingDeleteData);
 
  //OT_REF_DECR_AND_NULL(cfg->fSettingDeleteHook);
 
  cfg->fSettingDeleteData = NULL;
  cfg->fSettingDeleteCall = NULL;
  cfg->fSettingDeleteFree = NULL;
}

Variable Documentation

tcllcconfig_LcConfigC

LC_TCL_EXTERN_DATA __thread OT_CLS_T tcllcconfig_LcConfigC

Definition at line 112 of file LibLcConfig_tcl.h.

tcllcconfig_LcConfigC_MK_NULL

LC_TCL_EXTERN_DATA __thread OT_OBJ_T tcllcconfig_LcConfigC_MK_NULL

Definition at line 113 of file LibLcConfig_tcl.h.

tcllcconfig_LcSettingC

LC_TCL_EXTERN_DATA __thread OT_CLS_T tcllcconfig_LcSettingC

Definition at line 130 of file LibLcConfig_tcl.h.

tcllcconfig_LcSettingC_MK_NULL

LC_TCL_EXTERN_DATA __thread OT_OBJ_T tcllcconfig_LcSettingC_MK_NULL

Definition at line 131 of file LibLcConfig_tcl.h.