Sq3Call_rb.c File Reference

Sq3Call_rb.c - 17 Apr 2025 - aotto1968. More...

#include "LibSq3Lite_private_rb.h"

Include dependency graph for Sq3Call_rb.c:

Go to the source code of this file.

Macros
#define	META_FILE_NAME   "Sq3Call_rb.c"

Functions
static VALUE	rbsq3lite_sRescue (MK_RT mkrt, MK_MNG const mng, VALUE(*proc)(ANYARGS), VALUE data)
static MK_UNUSED VALUE	rbsq3lite_sCallMethod (VALUE array)
Sq3Fupu_Sq3LiteExec_callback_call_ret	rbsq3lite_LiteExecCall (Sq3Fupu_Sq3LiteExec_callback_call_args)
Sq3LiteExecV2CB_ret	rbsq3lite_LiteExecV2Call (Sq3LiteExecV2CB_args)

Detailed Description

Sq3Call_rb.c - 17 Apr 2025 - aotto1968.

Copyright

(C) NHI - #1 - Project - Group This software has NO permission to copy, please contact AUTHOR for additional information

Version

94486eaaa48431d85fd346f26b604ead9fc893a5

Date

Thu Apr 17 12:31:54 2025 +0200

Author

aotto1968 aotto.nosp@m.1968.nosp@m.@t-on.nosp@m.line.nosp@m..de

Definition in file Sq3Call_rb.c.

Macro Definition Documentation

META_FILE_NAME

#define META_FILE_NAME   "Sq3Call_rb.c"

Definition at line 14 of file Sq3Call_rb.c.

Function Documentation

rbsq3lite_LiteExecCall()

Sq3Fupu_Sq3LiteExec_callback_call_ret rbsq3lite_LiteExecCall

(

Sq3Fupu_Sq3LiteExec_callback_call_args

)

Definition at line 61 of file Sq3Call_rb.c.

{ 
  Sq3Fupu_Sq3LiteExec_callback_call_check;
 
  // ?? if (_Py_IsFinalizing()) return 1;
 
  struct MkCallS *call = callV1;
  MkRtSetup_RT(call->mkrt);
 
  int argNum = 2;
 
  // 1. check environment
  if (OT_LNG_NULL_IS(call->procCallback)) return 1;
 
//printLngObj(call->procCallback)
 
MkDbgDeepX_3(call->hdl, "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(call->hdl, "WrongInitError", "found invalid procType for callback '%s'", VAL2STRN(call->procCallback));
        goto error;
      break;
    }
  }
 
  OT_OBJ_T valsO = rb_ary_new2(num);
  OT_OBJ_T colsO = rb_ary_new2(num);
  for (long i=0; i<num; i++) {
    rb_ary_store(valsO,i,STRN2VAL(vals[i]));
  }
  for (long i=0; i<num; i++) {
    rb_ary_store(colsO,i,STRN2VAL(cols[i]));
  }
 
  VALUE ary = rb_ary_resize(call->procArgs,3);
  rb_ary_store(ary,0,call->procCallback);
  rb_ary_store(ary,1,valsO);
  rb_ary_store(ary,2,colsO);
  NS(sRescue)(MK_RT_CALL call->hdl,call->procCall,ary);
 
  MkErrorCheck_0E();
 
MkDbgDeepX_3(mqctx, "BBB", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
  return 0;
 
methode_arg_error:
  MkErrorSetV_3M(call->hdl, "WrongNumberOfArgError", "for callback '%s' exactly '%d' argument is required, but '%d' was received", 
    VAL2STRN(call->procCallback), argNum, call->procArity);
  goto error;
 
error:
MkDbgDeepX_3(call->hdl, "EEE", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
  MkErrorStack_0E();
//printSTACK_1(mqctx)
  return 1;
}

rbsq3lite_LiteExecV2Call()

Sq3LiteExecV2CB_ret rbsq3lite_LiteExecV2Call

(

Sq3LiteExecV2CB_args

)

Definition at line 143 of file Sq3Call_rb.c.

{ 
  Sq3Fupu_Sq3LiteExecV2CB_callback_call_check;
 
  struct MkCallS *call = callV2;
 
  int argNum = 2;
 
  // 1. check environment
  if (OT_LNG_NULL_IS(call->procCallback)) return MK_ERROR;
 
//printLngObj(call->procCallback)
 
MkDbgDeepX_3(call->hdl, "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(call->hdl, "WrongInitError", "found invalid procType for callback '%s'", VAL2STRN(call->procCallback));
        goto error;
      break;
    }
  }
 
  OT_OBJ_T valsO = OT_TMP_BFL_OBJ(vals);
  OT_OBJ_T colsO = OT_TMP_BFL_OBJ(cols);
 
  VALUE ary = rb_ary_resize(call->procArgs,3);
  rb_ary_store(ary,0,call->procCallback);
  rb_ary_store(ary,1,valsO);
  rb_ary_store(ary,2,colsO);
  NS(sRescue)(MK_RT_CALL call->hdl,call->procCall,ary);
 
  MkErrorCheck_0E();
 
MkDbgDeepX_3(mqctx, "BBB", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
  return MkErrorGetCode_0E();
 
methode_arg_error:
  MkErrorSetV_3M(call->hdl, "WrongNumberOfArgError", "for callback '%s' exactly '%d' argument is required, but '%d' was received", 
    VAL2STRN(call->procCallback), argNum, call->procArity);
  goto error;
 
error:
MkDbgDeepX_3(call->hdl, "EEE", "cmd=%s", VAL2STRN(rb_inspect(call->procCallback)));
  return MkErrorStack_0E();
}

rbsq3lite_sCallMethod()

static MK_UNUSED VALUE rbsq3lite_sCallMethod ( VALUE array )

static

Definition at line 40 of file Sq3Call_rb.c.

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

rbsq3lite_sRescue()

static VALUE rbsq3lite_sRescue ( MK_RT mkrt, MK_MNG const mng, VALUE(* proc )(ANYARGS), VALUE data )

inlinestatic

Definition at line 22 of file Sq3Call_rb.c.

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