LcCall_rb.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#define META_FILE_NAME "LcCall_rb.c"
 
#include "LibLcConfig_private_rb.h"
//#include "tmpl/lc_type_S_lng.h"
#include "misc_check_rb.h"
 
/* LABEL-END */
 
mk_inline VALUE NS(sRescue) (
  MK_RT_ARGS
  LC_CFG const cfg,
  VALUE(*proc)(ANYARGS),
  VALUE data
) {
  VALUE ret;
  int state;
  ret = rb_protect(proc, data, &state);
  if (state) {
    OT_ERROR_LNG_2_META(cfg);
  }
  return ret;
}
 
// ==========================================================================
 
// method callback without self
static VALUE NS(sCallMethod) (VALUE array) {
  const VALUE *valP = rb_array_const_ptr(array);
  return rb_method_call((int)RARRAY_LEN(array)-1, &valP[1], valP[0]);
}
 
// ==========================================================================
 
/*
[ConfigIncludeCall signature]
  callback-args := inclDir:String[in] , path:String[in] , ret:MkBufferListC[inout]
  [static]   def callback ( callback-args )
  [instance] class YYY
               def callback ( callback-args )
  [class]    class ZZZ 
               def self.callback ( callback-args )
[ConfigIncludeCall signature]
*/
 
enum MkErrorE NS(ConfigIncludeCall) ( LcConfigIncludeCallF_ARGS )
{ 
  LcConfigIncludeCallF_CHECK;
 
  struct MkCallS *call = cfg->fConfigIncludeData;
  int argNum = 3;
 
  // 1. check environment
  if (OT_LNG_NULL_IS(call->procCallback)) return MK_OK;
 
//printLngObj(call->procCallback)
 
MkDbgDeepX_3(cfg, "AAA", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
 
  // 2. if not already done initialize
  if (call->procCall == NULL) {
    switch (call->procType) {
      case MkCallS_own_method: {
        if (call->procArity != argNum) goto methode_arg_error;
        call->procCall = NS(sCallMethod);
      }
      break;
      default:
        MkErrorSetV_3M(cfg, "WrongInitError", "found invalid procType for callback '%s'", VAL2STRN(call->procCallback));
        goto error;
      break;
    }
  }
 
  VALUE ary = rb_ary_resize(call->procArgs,4);
  rb_ary_store(ary,0,call->procCallback);
  rb_ary_store(ary,1,STRN2VAL(incDir));
  rb_ary_store(ary,2,STRN2VAL(path));
  rb_ary_store(ary,3,OT_TMP_BFL_OBJ(ret_inout));
  NS(sRescue)(MK_RT_CALL cfg,call->procCall,ary);
 
  MkErrorCheck_0E();
 
MkDbgDeepX_3(mqctx, "BBB", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
  return MkErrorGetCode_0E();
 
methode_arg_error:
  MkErrorSetV_3M(cfg, "WrongNumberOfArgError", "for callback '%s' exactly '%d' argument is required, but '%d' was received", 
    VAL2STRN(call->procCallback), argNum, call->procArity);
  goto error;
 
error:
MkDbgDeepX_3(cfg, "EEE", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
//printSTACK_1(mqctx)
  return MkErrorStack_0E();
}
 
void NS(ConfigIncludeFree) ( LcConfigIncludeFreeF_ARGS )
{
  MK(CallFree)(&cfg->fConfigIncludeData);
}
 
// ---------------------------------------------------------------------
 
/*
[SettingDeleteCall signature]
  callback-args := hdl:EXPORT-HANDLE[in]
  [static]   def callback ( callback-args )
  [instance] class YYY
               def callback ( callback-args )
  [class]    class ZZZ 
               def self.callback ( callback-args )
[SettingDeleteCall signature]
*/
 
enum MkErrorE NS(SettingDeleteCall) ( LcSettingDeleteCallF_ARGS )
{ 
  LcSettingDeleteCallF_CHECK;
 
  struct MkCallS *call = cfg->fSettingDeleteData;
  int argNum = 1;
 
  // 1. check environment
  if (OT_LNG_NULL_IS(call->procCallback)) return MK_OK;
 
//printLngObj(call->procCallback)
 
MkDbgDeepX_3(cfg, "AAA", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
 
  // 2. if not already done initialize
  if (call->procCall == NULL) {
    switch (call->procType) {
      case MkCallS_own_method: {
        if (call->procArity != argNum) goto methode_arg_error;
        call->procCall = NS(sCallMethod);
      }
      break;
      default:
        MkErrorSetV_3M(cfg, "WrongInitError", "found invalid procType for callback '%s'", VAL2STRN(call->procCallback));
        goto error;
      break;
    }
  }
 
  VALUE ary = rb_ary_resize(call->procArgs,2);
  rb_ary_store(ary,0,call->procCallback);
  rb_ary_store(ary,1,LONG2VAL(MkObjectHandleGet_1X(cfs)));
  NS(sRescue)(MK_RT_CALL cfg,call->procCall,ary);
 
  MkErrorCheck_0E();
 
MkDbgDeepX_3(mqctx, "BBB", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
  return MkErrorGetCode_0E();
 
methode_arg_error:
  MkErrorSetV_3M(cfg, "WrongNumberOfArgError", "for callback '%s' exactly '%d' argument is required, but '%d' was received", 
    VAL2STRN(call->procCallback), argNum, call->procArity);
  goto error;
 
error:
MkDbgDeepX_3(cfg, "EEE", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
//printSTACK_1(mqctx)
  return MkErrorStack_0E();
}
 
void NS(SettingDeleteFree) ( LcSettingDeleteFreeF_ARGS )
{
  MK(CallFree)(&cfg->fSettingDeleteData);
}