LcCall_rb.c File Reference

tag: nhi1-release-250425 More...

#include "LibLcConfig_private_rb.h"
#include "misc_check_rb.h"

Include dependency graph for LcCall_rb.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "LcCall_rb.c"

Functions
static VALUE	rblcconfig_sRescue (MK_RT mkrt, LC_CFG const cfg, VALUE(*proc)(ANYARGS), VALUE data)
static VALUE	rblcconfig_sCallMethod (VALUE array)
enum MkErrorE	rblcconfig_ConfigIncludeCall (LcConfigIncludeCallF_ARGS)
void	rblcconfig_ConfigIncludeFree (LcConfigIncludeFreeF_ARGS)
enum MkErrorE	rblcconfig_SettingDeleteCall (LcSettingDeleteCallF_ARGS)
void	rblcconfig_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_rb.c.

Macro Definition Documentation

META_FILE_NAME

#define META_FILE_NAME   "LcCall_rb.c"

Definition at line 11 of file LcCall_rb.c.

Function Documentation

rblcconfig_ConfigIncludeCall()

enum MkErrorE rblcconfig_ConfigIncludeCall

(

LcConfigIncludeCallF_ARGS

)

Definition at line 55 of file LcCall_rb.c.

{ 
  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();
}

rblcconfig_ConfigIncludeFree()

void rblcconfig_ConfigIncludeFree

(

LcConfigIncludeFreeF_ARGS

)

Definition at line 107 of file LcCall_rb.c.

{
  MK(CallFree)(&cfg->fConfigIncludeData);
}

rblcconfig_sCallMethod()

static VALUE rblcconfig_sCallMethod ( VALUE array )

static

Definition at line 37 of file LcCall_rb.c.

                                           {
  const VALUE *valP = rb_array_const_ptr(array);
  return rb_method_call((int)RARRAY_LEN(array)-1, &valP[1], valP[0]);
}

rblcconfig_SettingDeleteCall()

enum MkErrorE rblcconfig_SettingDeleteCall

(

LcSettingDeleteCallF_ARGS

)

Definition at line 125 of file LcCall_rb.c.

{ 
  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();
}

rblcconfig_SettingDeleteFree()

void rblcconfig_SettingDeleteFree

(

LcSettingDeleteFreeF_ARGS

)

Definition at line 175 of file LcCall_rb.c.

{
  MK(CallFree)(&cfg->fSettingDeleteData);
}

rblcconfig_sRescue()

static VALUE rblcconfig_sRescue ( MK_RT mkrt, LC_CFG const cfg, VALUE(* proc )(ANYARGS), VALUE data )

inlinestatic

Definition at line 19 of file LcCall_rb.c.

  {
  VALUE ret;
  int state;
  ret = rb_protect(proc, data, &state);
  if (state) {
    OT_ERROR_LNG_2_META(cfg);
  }
  return ret;
}