MkExceptionC_rb.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#define META_FILE_NAME "MkExceptionC_rb.c"
 
/* LABEL-END */
 
#include "LibMkKernel_private_rb.h"
 
static VALUE MK(MkExceptionC);
static ID MK(id_Catch);
 
// BEGIN-DOC
// END-DOC
 
// ---------------------------------------------------------------------------------------
 
 
/*****************************************************************************/
/*                                                                           */
/*                               O B J E C T                                 */
/*                                                                           */
/*****************************************************************************/
 
/*
static void MK(MkExceptionC_Delete) (MK_PTR data) {
  MkRefDecr_M(data);
}
*/
 
void MK(MkExceptionC_Raise) (
  OT_Prefix_ARGS
  MK_MNGN const expobj,
  MK_STRN const doc,
  MK_STRN const callfunc,
  MK_I32        callline
) {
  MK_ERR err = MkErrorFORMAT_1M(expobj);
  MkErrorStackFormat(err,doc,callfunc,callline);
  MK(Get_Call_Stack)(MK_RT_CALL err, 0);
  MK_ERR newerr = MkErrCheck(expobj) && expobj != err ? (MK_ERR)expobj : MkErrorDup(err);
  //VALUE errO = Data_Wrap_Struct(MK(MkExceptionC), NULL, MK(MkExceptionC_Delete), newerr);
  VALUE args[2];
  args[0] = OT_TMP_ERR_OBJ(newerr);
  args[1] = STRN2VAL(MkErrorGetTextI(newerr));
  VALUE errO = rb_class_new_instance(2,args,MK(MkExceptionC));
  MkErrorReset_1(err);
  rb_exc_raise(errO);
  MK_UNREACHABLE;
}
 
MK_ERR MK(MkExceptionC_Catch) (
  OT_Prefix_ARGS
  MK_MNG    const expobj,
  MK_EXP          exception,
  MK_STRN   const callfunc,
  MK_STRN   const stop
) {
  if (exception == NULL) exception = (MK_EXP) rb_errinfo();
  VALUE ex = (VALUE) exception;
  MK_ERR err = MkErrorFORMAT_1M(expobj);
  if (rb_obj_is_kind_of(ex, MK(MkExceptionC)) == Qtrue) {
    static ID id_mkerr = 0;
    if (!id_mkerr) id_mkerr = rb_intern("mkerr");
    MK_ERR newerr = VAL2ERR(rb_funcallv(ex,id_mkerr,0,NULL));
    MkErrorSetE (err, newerr);
    rb_set_errinfo(Qnil);
  } else if (rb_obj_is_kind_of(ex, rb_eStandardError) == Qtrue) {
 
    VALUE argv[4];
      argv[0] = OT_TMP_ERR_OBJ(err);
      argv[1] = ex;
      argv[2] = STRN2VAL(callfunc);
      argv[3] = stop == NULL ? Qnil : STRN2VAL(stop);
 
    rb_funcallv(MK(MkExceptionC), MK(id_Catch), 4, argv);
    rb_set_errinfo(Qnil);
  } else if (rb_obj_is_kind_of(ex, rb_eSystemExit) == Qtrue) {
    // exit in an callback
    MkErrorSetEXIT(err,callfunc);
  } else {
    MkLogV_2X(err,"WARNING: re-raise exception (long-jump in code) → %s\n", 
      VAL2STRN(rb_inspect(ex))
    );
    rb_exc_raise(ex);
  }
  return err;
}
 
 
/*
static OT_ProcRet MK(MkExceptionC_new) (CONSTR_ARGS) {
  return Qundef;
}
*/
 
static const char MkExceptionC_code[] =
  // script2code.tcl MkExceptionC.rb > MkExceptionC.tpl
  #include "MkExceptionC.tpl"
;
 
void MK(MkExceptionC_Init) (MK_RT_ARGS_ONLY) {
 
  MK(id_Catch)      = rb_intern("Catch");
  MK(MkExceptionC)  = rb_eval_string(MkExceptionC_code);
}