LcCall_atl.c File Reference

tag: nhi1-release-250425 More...

#include "LibLcConfig_private_atl.h"

Include dependency graph for LcCall_atl.c:

Go to the source code of this file.

Macros
#define	dbgMsg(fmt, ...)
#define	dbgObj(obj)

Functions
enum MkErrorE	atllcconfig_ConfigIncludeCall (LcConfigIncludeCallF_ARGS)
void	atllcconfig_ConfigIncludeFree (LcConfigIncludeFreeF_ARGS)
enum MkErrorE	atllcconfig_SettingDeleteCall (LcSettingDeleteCallF_ARGS)
void	atllcconfig_SettingDeleteFree (LcSettingDeleteFreeF_ARGS)

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 LcCall_atl.c.

Macro Definition Documentation

dbgMsg

#define dbgMsg	(		fmt,
			... )

Definition at line 24 of file LcCall_atl.c.

dbgObj

#define dbgObj

(

obj

)

Definition at line 25 of file LcCall_atl.c.

Function Documentation

atllcconfig_ConfigIncludeCall()

enum MkErrorE atllcconfig_ConfigIncludeCall

(

LcConfigIncludeCallF_ARGS

)

Definition at line 45 of file LcCall_atl.c.

{
  LcConfigIncludeCallF_CHECK;
 
  // 1. setup arguments
  struct MkCallS *call = cfg->fConfigIncludeData ;
    assert(call->signature == MkCallS_SIG);
 
//MkCallLog(call);
 
  // 2. prolog
  CallProlog(cfg);
 
  // 3. setup args
  objv[objc++]  = STR2VAL(incDir);
  objv[objc++]  = STR2VAL(path);
  objv[objc++]  = OT_TMP_BFL_OBJ(ret_inout);
 
  // 4. setup user args
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  // 5. call the callback
  int ret = MK(EvalObjv) (interp, objc, objv, 0); /* "MK(EvalObjv)" IS required !! */
    if (ret != TCL_OK) goto error;
 
  Tcl_ResetResult(interp);
  return MkErrorGetCode_0E();
 
error:
  OT_ERROR_LNG_2_META(cfg);
 
error_mq:
  return MkErrorStack_0E();
}

atllcconfig_ConfigIncludeFree()

void atllcconfig_ConfigIncludeFree

(

LcConfigIncludeFreeF_ARGS

)

Definition at line 80 of file LcCall_atl.c.

{
  MkCallFree(cfg->fConfigIncludeData);
 
  //OT_REF_DECR_AND_NULL(cfg->fConfigIncludeHook);
 
  cfg->fConfigIncludeCall = NULL;
  cfg->fConfigIncludeFree = NULL;
}

atllcconfig_SettingDeleteCall()

enum MkErrorE atllcconfig_SettingDeleteCall

(

LcSettingDeleteCallF_ARGS

)

Definition at line 108 of file LcCall_atl.c.

{
  LcSettingDeleteCallF_CHECK;
 
  // test on recursion
  static MkThreadLocal bool onCall = false;
  if (onCall) {
printSTACK_1(cfg)
    return MkErrorSetC_2M(cfg,"REKURSIVE call on LcSettingC -> delete handler");
  }
  onCall=true;
 
  // 1. setup environment
  struct MkCallS *call = cfg->fSettingDeleteData;
    assert(call->signature == MkCallS_SIG);
 
  // 2. prolog
  CallProlog(cfg);
 
  // 3. setup args
  objv[objc++] = LONG2VAL(MkObjectHandleGet_1X(cfs));
 
  // 4. setup user args
  if (call->args) MK(ProcResolveAppendArgs)(call,&objc,objv);
 
  // 5. call the callback
  int ret = MK(EvalObjv) (interp, objc, objv, 0); /* "MK(EvalObjv)" IS required !! */
    if (ret != TCL_OK) goto error;
 
  Tcl_ResetResult(interp);
  onCall = false;
  return MkErrorGetCode_0E();
  
error:
  OT_ERROR_LNG_2_META(cfg);
 
error_mq:
  onCall = false;
  return MkErrorStack_0E();
}

atllcconfig_SettingDeleteFree()

void atllcconfig_SettingDeleteFree

(

LcSettingDeleteFreeF_ARGS

)

Definition at line 149 of file LcCall_atl.c.

{
  MK(CallFree) (&cfg->fSettingDeleteData);
 
  //OT_REF_DECR_AND_NULL(cfg->fSettingDeleteHook);
 
  cfg->fSettingDeleteData = NULL;
  cfg->fSettingDeleteCall = NULL;
  cfg->fSettingDeleteFree = NULL;
}