LcCall_atl.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#include  "LibLcConfig_private_atl.h"
 
/*****************************************************************************/
/*                                                                           */
/*                             Proc-Call                                     */
/*                                                                           */
/*****************************************************************************/
 
 
#if 0
  #define dbgMsg(fmt,...) printV(fmt,__VA_ARGS__)
  #define dbgObj(obj)     printLngObj(obj)
#else
  #define dbgMsg(fmt,...)
  #define dbgObj(obj)
#endif
 
 
/*
[ConfigIncludeCall signature]
  callback-args := inclDir:String[in] path:String[in] ret:MkBufferListC[inout]
  [proc]     proc callback { callback-args ?additional-args...? } ...
             LcConfigC::SetIncludeFunc $cfgNs callback
  [instance] myooX::ClassN ::XXX {
               proc callback { xxxNs callback-args ?additional-args...? } ...
             }
             LcConfigC::SetIncludeFunc $cfgNs [list callback $xxxNs]
  [class]    myooX::ClassN ::YYY {
               proc callback { callback-args ?additional-args...? } ...
             }
             LcConfigC::SetIncludeFunc $cfgNs ::YYY::callback
[ConfigIncludeCall signature]
*/
 
enum MkErrorE NS(ConfigIncludeCall) ( LcConfigIncludeCallF_ARGS )
{
  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();
}
 
void NS(ConfigIncludeFree) ( LcConfigIncludeFreeF_ARGS )
{
  MkCallFree(cfg->fConfigIncludeData);
 
  //OT_REF_DECR_AND_NULL(cfg->fConfigIncludeHook);
 
  cfg->fConfigIncludeCall = NULL;
  cfg->fConfigIncludeFree = NULL;
}
 
// =====================================================================================================================
 
/*
[SettingDeleteCall signature]
  callback-args := hdl:EXPORT-HANDLE[in]
  [static]   proc callback { callback-args ?additional-args...? } ...
             ::LcConfigC::SetSettingDeleteFunc $cfgNs callback
  [instance] myooX::ClassN ::XXX {
               proc callback { myNs callback-args ?additional-args...? } ...
             }
             ::LcConfigC::SetSettingDeleteFunc $cfgNs [list callback someNs]
  [class]    myooX::ClassN ::YYY {
               proc callback { callback-args ?additional-args...? } ...
             }
             ::LcConfigC::SetSettingDeleteFunc $cfgNs ::YYY::callback
[SettingDeleteCall signature]
*/
 
enum MkErrorE NS(SettingDeleteCall) ( LcSettingDeleteCallF_ARGS )
{
  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();
}
 
void NS(SettingDeleteFree) ( LcSettingDeleteFreeF_ARGS )
{
  MK(CallFree) (&cfg->fSettingDeleteData);
 
  //OT_REF_DECR_AND_NULL(cfg->fSettingDeleteHook);
 
  cfg->fSettingDeleteData = NULL;
  cfg->fSettingDeleteCall = NULL;
  cfg->fSettingDeleteFree = NULL;
}