tag: nhi1-release-250425 More...

#include "LibMkKernel_private_rb.h"
#include "misc_check_rb.h"
#include <ruby/defines.h>
#include "tmpl/mk_misc_ObjAs_lng.h"
#include "tmpl/mk_misc_check_lng.h"

Include dependency graph for LibMkKernel_rb.c:

Go to the source code of this file.

Macros
#define	MkSetupTmpl()

#define	MkCleanupTmpl()

#define	ErrorE_FromInt_doc "MkErrorE MkKernel.ErrorE_FromInt(value:int32)"

#define	IdSE_FromInt_doc "MkIdSE MkKernel.IdSE_FromInt(value:int32)"

#define	TimeoutE_FromInt_doc "MkTimeoutE MkKernel.TimeoutE_FromInt(value:int32)"

#define	TypeE_FromInt_doc "MkTypeE MkKernel.TypeE_FromInt(value:int32)"

#define	ErrorE_ToInt_doc "int32 MkKernel.ErrorE_ToInt(value:MkErrorE)"

#define	ErrorE_ToString_doc "string MkKernel.ErrorE_ToString(value:MkErrorE)"

#define	IdSE_ToInt_doc "int32 MkKernel.IdSE_ToInt(value:MkIdSE)"

#define	IdSE_ToString_doc "string MkKernel.IdSE_ToString(value:MkIdSE)"

#define	TimeoutE_ToInt_doc "int32 MkKernel.TimeoutE_ToInt(value:MkTimeoutE)"

#define	TimeoutE_ToString_doc "string MkKernel.TimeoutE_ToString(value:MkTimeoutE)"

#define	TypeE_ToInt_doc "int32 MkKernel.TypeE_ToInt(value:MkTypeE)"

#define	TypeE_ToString_doc "string MkKernel.TypeE_ToString(value:MkTypeE)"

#define	Cleanup_doc "MkKernel.Cleanup()"

#define	Setup_doc "MkKernel.Setup()"

#define	OT_SETUP_hdl_static

#define	FRAME_init

#define	USE_SysExit

Functions
void	rbmkkernel__printObj (MK_RT mkrt, VALUE v, MK_STRN caller)

void	rbmkkernel_printLNG_STACK (MK_RT mkrt, MK_MNG mng)

MK_STRN	rbmkkernel_Get_Call_Proc (int skip, VALUE *frameP)

MK_STRN	rbmkkernel_Get_Call_Script (int skip, VALUE *frameP)

MK_I32	rbmkkernel_Get_Call_Line (int skip, VALUE *frameP)

void	rbmkkernel_Get_Call_All (int skip, MK_STRN proc, MK_STRN file, MK_I32 *line)

void	rbmkkernel_Get_Call_Stack (MK_RT mkrt, MK_ERR const err, int level)

enum MkErrorE	rbmkkernel_Obj_AsSTRN (OT_Check_ARGS, MK_STRN *retP)

enum MkErrorE	rbmkkernel_Obj_AsSTR_COPY (OT_Check_ARGS, MK_STR ret, size_t size)

static enum MkErrorE	rbmkkernel_LngListToMkBufferListS (OT_Prefix_ARGS VALUE argsO, MK_BFL *argsP)

enum MkErrorE	rbmkkernel_LngTupleToMkBufferListS (SETUP_ARGS, int origskip, MK_BFL argsP)

static OT_ProcRet	rbmkkernel_MkKernel_ErrorE_FromInt (OtClass_ARGS)
	`Ruby: (static) MkErrorE MkKernel.ErrorE_FromInt(value:int32)` → C-API return the MkErrorE from integer …

static OT_ProcRet	rbmkkernel_MkKernel_IdSE_FromInt (OtClass_ARGS)
	`Ruby: (static) MkIdSE MkKernel.IdSE_FromInt(value:int32)` → C-API return the MkIdSE from integer …

static OT_ProcRet	rbmkkernel_MkKernel_TimeoutE_FromInt (OtClass_ARGS)
	`Ruby: (static) MkTimeoutE MkKernel.TimeoutE_FromInt(value:int32)` → C-API return the MkTimeoutE from integer …

static OT_ProcRet	rbmkkernel_MkKernel_TypeE_FromInt (OtClass_ARGS)
	`Ruby: (static) MkTypeE MkKernel.TypeE_FromInt(value:int32)` → C-API return the MkTypeE from integer …

static OT_ProcRet	rbmkkernel_MkKernel_ErrorE_ToInt (OtClass_ARGS)
	`Ruby: (static) int32 MkKernel.ErrorE_ToInt(value:MkErrorE)` → C-API return the MkErrorE as integer …

static OT_ProcRet	rbmkkernel_MkKernel_ErrorE_ToString (OtClass_ARGS)
	`Ruby: (static) string MkKernel.ErrorE_ToString(value:MkErrorE)` → C-API return the MkErrorE as string …

static OT_ProcRet	rbmkkernel_MkKernel_IdSE_ToInt (OtClass_ARGS)
	`Ruby: (static) int32 MkKernel.IdSE_ToInt(value:MkIdSE)` → C-API return the MkIdSE as integer …

static OT_ProcRet	rbmkkernel_MkKernel_IdSE_ToString (OtClass_ARGS)
	`Ruby: (static) string MkKernel.IdSE_ToString(value:MkIdSE)` → C-API return the MkIdSE as string …

static OT_ProcRet	rbmkkernel_MkKernel_TimeoutE_ToInt (OtClass_ARGS)
	`Ruby: (static) int32 MkKernel.TimeoutE_ToInt(value:MkTimeoutE)` → C-API return the MkTimeoutE as integer …

static OT_ProcRet	rbmkkernel_MkKernel_TimeoutE_ToString (OtClass_ARGS)
	`Ruby: (static) string MkKernel.TimeoutE_ToString(value:MkTimeoutE)` → C-API return the MkTimeoutE as string …

static OT_ProcRet	rbmkkernel_MkKernel_TypeE_ToInt (OtClass_ARGS)
	`Ruby: (static) int32 MkKernel.TypeE_ToInt(value:MkTypeE)` → C-API return the MkTypeE as integer …

static OT_ProcRet	rbmkkernel_MkKernel_TypeE_ToString (OtClass_ARGS)
	`Ruby: (static) string MkKernel.TypeE_ToString(value:MkTypeE)` → C-API return the MkTypeE as string …

static OT_ProcRet	rbmkkernel_MkKernel_Cleanup (OtClass_ARGS)
	`Ruby: (static) MkKernel.Cleanup()` → C-API cleanup rbmkkernel internal memory …

static OT_ProcRet	rbmkkernel_MkKernel_Setup (OtClass_ARGS)
	`Ruby: (static) MkKernel.Setup()` → C-API setup rbmkkernel internal memory …

static OT_ProcRet	rbmkkernel_RubyMsgque_M (OtClass_ARGS)

static OT_ProcRet	rbmkkernel_RubyMsgque_printObj (OtClass_ARGS)

void	rbmkkernel_MkKernel_Init (MK_RT mkrt)

static VALUE	rbmkkernel_SysExit2 (VALUE dummy)

static int	rbmkkernel_SysExit (MK_RT mkrt, int isThread, int num)

MK_RB_EXTERN void	LibMkKernel ()

Variables
VALUE	rbmkkernel_MkKernel = 0

VALUE	rbmkkernel_globalRef = 0

VALUE	rbmkkernel_cEnum = 0

VALUE	rbmkkernel_InitError = 0

VALUE	rbmkkernel_NULL_STR = 0

ID	rbmkkernel_id_caller

ID	rbmkkernel_id_caller_locations

ID	rbmkkernel_id_label

ID	rbmkkernel_id_path

ID	rbmkkernel_id_bn

ID	rbmkkernel_id_lineno

ID	rbmkkernel_id_arity

ID	rbmkkernel_id_clone

ID	rbmkkernel_id_unbind

ID	rbmkkernel_id_bind

ID	rbmkkernel_id_receiver

ID	rbmkkernel_id_enum_attr

ID	rbmkkernel_id_to_i

ID	rbmkkernel_id_full_message

VALUE	rbmkkernel_MkErrorE

VALUE	rbmkkernel_MkIdSE

VALUE	rbmkkernel_MkTimeoutE

VALUE	rbmkkernel_MkTypeE

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 LibMkKernel_rb.c.

Macro Definition Documentation

◆ Cleanup_doc

#define Cleanup_doc "MkKernel.Cleanup()"

Definition at line 182 of file LibMkKernel_rb.c.

◆ ErrorE_FromInt_doc

#define ErrorE_FromInt_doc "MkErrorE MkKernel.ErrorE_FromInt(value:int32)"

doc definition

Definition at line 166 of file LibMkKernel_rb.c.

◆ ErrorE_ToInt_doc

#define ErrorE_ToInt_doc "int32 MkKernel.ErrorE_ToInt(value:MkErrorE)"

Definition at line 172 of file LibMkKernel_rb.c.

◆ ErrorE_ToString_doc

#define ErrorE_ToString_doc "string MkKernel.ErrorE_ToString(value:MkErrorE)"

Definition at line 173 of file LibMkKernel_rb.c.

◆ FRAME_init

#define FRAME_init

Value:

  VALUE frame = 0;                                                                                \
  if (frameP == NULL || *frameP == 0) {                                                           \
    VALUE ary = rb_funcall(rb_mKernel, NS(id_caller_locations), 2, INT2FIX(skip), INT2FIX(1));    \
    frame = rb_ary_entry(ary,0);                                                                  \
    if (frameP != NULL) *frameP = frame;                                                          \
  } else {                                                                                        \
    frame = *frameP;                                                                              \
  }                                                                                               \

Definition at line 209 of file LibMkKernel_rb.c.

#define FRAME_init                                                                                \
  VALUE frame = 0;                                                                                \
  if (frameP == NULL || *frameP == 0) {                                                           \
    VALUE ary = rb_funcall(rb_mKernel, NS(id_caller_locations), 2, INT2FIX(skip), INT2FIX(1));    \
    frame = rb_ary_entry(ary,0);                                                                  \
    if (frameP != NULL) *frameP = frame;                                                          \
  } else {                                                                                        \
    frame = *frameP;                                                                              \
  }                                                                                               \
 

◆ IdSE_FromInt_doc

#define IdSE_FromInt_doc "MkIdSE MkKernel.IdSE_FromInt(value:int32)"

Definition at line 167 of file LibMkKernel_rb.c.

◆ IdSE_ToInt_doc

#define IdSE_ToInt_doc "int32 MkKernel.IdSE_ToInt(value:MkIdSE)"

Definition at line 174 of file LibMkKernel_rb.c.

◆ IdSE_ToString_doc

#define IdSE_ToString_doc "string MkKernel.IdSE_ToString(value:MkIdSE)"

Definition at line 175 of file LibMkKernel_rb.c.

◆ MkCleanupTmpl

#define MkCleanupTmpl ( )

Definition at line 50 of file LibMkKernel_rb.c.

◆ MkSetupTmpl

#define MkSetupTmpl ( )

Value:

MkSetup()

MkSetup

void MkSetup(void)

setup rbmkkernel internal memory …

Definition at line 49 of file LibMkKernel_rb.c.

◆ OT_SETUP_hdl_static

#define OT_SETUP_hdl_static

Value:

MK_RT_UNUSED MkRtSetup_NULL; \

__attribute__((unused)) MK_ERR hdl = &MkERROR;

MkERROR

#define MkERROR

Definition LibMkKernel_mk.h:10639

MkRtSetup_NULL

#define MkRtSetup_NULL

Definition LibMkKernel_mk.h:12442

MK_RT_UNUSED

#define MK_RT_UNUSED

Definition LibMkKernel_mk.h:904

MkErrorS

The data-type to store and handle the error-condition …

Definition LibMkKernel_mk.h:9710

Definition at line 187 of file LibMkKernel_rb.c.

187#define OT_SETUP_hdl_static MK_RT_UNUSED MkRtSetup_NULL; \

188 __attribute__((unused)) MK_ERR hdl = &MkERROR;

◆ Setup_doc

#define Setup_doc "MkKernel.Setup()"

Definition at line 183 of file LibMkKernel_rb.c.

◆ TimeoutE_FromInt_doc

#define TimeoutE_FromInt_doc "MkTimeoutE MkKernel.TimeoutE_FromInt(value:int32)"

Definition at line 168 of file LibMkKernel_rb.c.

◆ TimeoutE_ToInt_doc

#define TimeoutE_ToInt_doc "int32 MkKernel.TimeoutE_ToInt(value:MkTimeoutE)"

Definition at line 176 of file LibMkKernel_rb.c.

◆ TimeoutE_ToString_doc

#define TimeoutE_ToString_doc "string MkKernel.TimeoutE_ToString(value:MkTimeoutE)"

Definition at line 177 of file LibMkKernel_rb.c.

◆ TypeE_FromInt_doc

#define TypeE_FromInt_doc "MkTypeE MkKernel.TypeE_FromInt(value:int32)"

Definition at line 169 of file LibMkKernel_rb.c.

◆ TypeE_ToInt_doc

#define TypeE_ToInt_doc "int32 MkKernel.TypeE_ToInt(value:MkTypeE)"

Definition at line 178 of file LibMkKernel_rb.c.

◆ TypeE_ToString_doc

#define TypeE_ToString_doc "string MkKernel.TypeE_ToString(value:MkTypeE)"

Definition at line 179 of file LibMkKernel_rb.c.

◆ USE_SysExit

#define USE_SysExit

Definition at line 763 of file LibMkKernel_rb.c.

Function Documentation

◆ LibMkKernel()

MK_RB_EXTERN void LibMkKernel ( )

Definition at line 797 of file LibMkKernel_rb.c.

{
 
  // Register system
#ifdef HAVE_FORK
//  MkInitSysAPI(MK(fork),NULL);
#endif
 
  // Initialize libmkkernel
  MkSetup();
  MkRtSetup_NULL;
 
  // Initialize components
 
  MK(globalRef)            = rb_ary_new();
  rb_gc_register_mark_object(MK(globalRef));
 
  MK(MkKernel_Init)         (MK_RT_CALL_ONLY)  ;
  MK(MkObjectC_Init)        (MK_RT_CALL_ONLY)  ;
  MK(MkBufferC_Init)        (MK_RT_CALL_ONLY)  ;
  MK(MkBufferStreamC_Init)  (MK_RT_CALL_ONLY)  ;
  MK(MkBufferListC_Init)    (MK_RT_CALL_ONLY)  ;
  MK(MkLogFileC_Init)       (MK_RT_CALL_ONLY)  ;
  MK(MkErrorC_Init)         (MK_RT_CALL_ONLY)  ;
  MK(MkExceptionC_Init)     (MK_RT_CALL_ONLY)  ;
  MK(MkRuntimeC_Init)       (MK_RT_CALL_ONLY)  ;
 
 
  // set global data
  
  // Get_Call_???
  NS(id_caller)            =  rb_intern("caller") ;
  NS(id_caller_locations)  =  rb_intern("caller_locations") ;
  NS(id_label)             =  rb_intern("label") ;
  NS(id_path)              =  rb_intern("path") ;
  NS(id_bn)                =  rb_intern("basename") ;
  NS(id_lineno)            =  rb_intern("lineno") ;
 
  // update LAL
  //MkLal.SysFork         = (MkSysForkF)    SysFork       ;
 
  //MkLal.SysServerThread = SysServerThread;
#ifdef USE_SysExit
  MkLal.MkSysExitCB       = MK(SysExit);
#endif
  //MkLal.SysWait         = SysWait;
 
  //MkLal.SysSelect       = (MkSysSelectF) rb_thread_select;
  //MkLal.SysSelect       = (MkSysSelectF) rb_thread_fd_select;
 
  /*****************************************************************************/
  /*                                                                           */
  /*                                enums                                      */
  /*                                                                           */
  /*****************************************************************************/
 
  NS(cEnum) = rb_eval_string(
    "                                                 \n\
      class Enum                                      \n\
                                                      \n\
        private                                       \n\
                                                      \n\
        def self.enum_attr(name, num)                 \n\
          name = name.to_s                            \n\
                                                      \n\
          define_method(name + '?') do                \n\
            @attrs & num != 0                         \n\
          end                                         \n\
                                                      \n\
          define_method(name + '=') do |set|          \n\
            if set                                    \n\
              @attrs |= num                           \n\
            else                                      \n\
              @attrs &= ~num                          \n\
            end                                       \n\
          end                                         \n\
                                                      \n\
          self.const_set(name,self.new(num))          \n\
        end                                           \n\
                                                      \n\
        public                                        \n\
                                                      \n\
        def initialize(attrs = 0)                     \n\
          @attrs = attrs                              \n\
        end                                           \n\
                                                      \n\
        def to_i                                      \n\
          @attrs                                      \n\
        end                                           \n\
                                                      \n\
        alias_method :to_int, :to_i                   \n\
                                                      \n\
      end                                             \n\
      Enum                                            \n\
    "
  );
 
  MK(InitError) = rb_define_class_under(MK(MkKernel), "InitError", rb_eStandardError);
 
  NS(id_enum_attr) = rb_intern("enum_attr");
 
  // BEGIN-enumF - created by 'rb_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
  MK(MkErrorE) = rb_define_class_under(MK(MkKernel), "MkErrorE", MK(cEnum));
  rb_funcall(MK(MkErrorE), MK(id_enum_attr), 2, STRN2VAL("OK"),         INT2NUM(0));
  rb_funcall(MK(MkErrorE), MK(id_enum_attr), 2, STRN2VAL("CONTINUE"),   INT2NUM(1));
  rb_funcall(MK(MkErrorE), MK(id_enum_attr), 2, STRN2VAL("ERROR"),      INT2NUM(2));
 
  MK(MkIdSE) = rb_define_class_under(MK(MkKernel), "MkIdSE", MK(cEnum));
  rb_funcall(MK(MkIdSE), MK(id_enum_attr), 2, STRN2VAL("UNUSED"),     INT2NUM(0));
  rb_funcall(MK(MkIdSE), MK(id_enum_attr), 2, STRN2VAL("PROCESS"),    INT2NUM(1));
  rb_funcall(MK(MkIdSE), MK(id_enum_attr), 2, STRN2VAL("THREAD"),     INT2NUM(2));
 
  MK(MkTimeoutE) = rb_define_class_under(MK(MkKernel), "MkTimeoutE", MK(cEnum));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("INIT"),       INT2NUM(900));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("LONG"),       INT2NUM(( 900/5 )));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("NORMAL"),     INT2NUM(( 900/10 < 1 ? 1 : 900/10 )));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("SHORT"),      INT2NUM(( 900/45 < 1 ? 1 : 900/45 )));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("SOCKET"),     INT2NUM(( 900/90 < 1 ? 1 : 900/90 )));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("VERYSHORT"),  INT2NUM(( 900/180 < 1 ? 1 : 900/180 )));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("DEFAULT"),    INT2NUM(-1));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("USER"),       INT2NUM(-2));
  rb_funcall(MK(MkTimeoutE), MK(id_enum_attr), 2, STRN2VAL("MAX"),        INT2NUM(-3));
 
  MK(MkTypeE) = rb_define_class_under(MK(MkKernel), "MkTypeE", MK(cEnum));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("I8T"),        INT2NUM(( ( 1 << 4 ) | ( 1<<0 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("BOLT"),       INT2NUM(( ( 2 << 4 ) | ( 1<<0 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("I16T"),       INT2NUM(( ( 3 << 4 ) | ( 1<<1 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("I32T"),       INT2NUM(( ( 4 << 4 ) | ( 1<<2 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("FLTT"),       INT2NUM(( ( 5 << 4 ) | ( 1<<2 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("I64T"),       INT2NUM(( ( 6 << 4 ) | ( 1<<3 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("DBLT"),       INT2NUM(( ( 7 << 4 ) | ( 1<<3 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("BINT"),       INT2NUM(( ( 8 << 4 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("STRT"),       INT2NUM(( ( 9 << 4 ) )));
  rb_funcall(MK(MkTypeE), MK(id_enum_attr), 2, STRN2VAL("LSTT"),       INT2NUM(( ( 10 << 4 ) )));
 
  // END-enumF - created by 'rb_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
  NS(id_arity)        = rb_intern("arity");
  NS(id_clone)        = rb_intern("clone");
  NS(id_unbind)       = rb_intern("unbind");
  NS(id_bind)         = rb_intern("bind");
  NS(id_receiver)     = rb_intern("receiver");
  NS(id_to_i)         = rb_intern("to_i");
  NS(id_full_message) = rb_intern("full_message");
 
  MK(NULL_STR)        = rb_str_new_cstr(MK_NULL_STR);
  INCR_REG(MK(NULL_STR));
}

◆ rbmkkernel__printObj()

void rbmkkernel__printObj	(	MK_RT	mkrt,
		VALUE	v,
		MK_STRN	caller )

Definition at line 196 of file LibMkKernel_rb.c.

                                                        {
  MkLogV_4M(MK_ERROR_PRINT,caller,0, "printObj: value<%p> class<%s> %s\n", \
                                                  (void*) v, OT_LNG_OBJ_CLASSNAME(v), VAL2STRN(rb_inspect(v)));
}

◆ rbmkkernel_Get_Call_All()

void rbmkkernel_Get_Call_All	(	int	skip,
		MK_STRN *	proc,
		MK_STRN *	file,
		MK_I32 *	line )

Definition at line 238 of file LibMkKernel_rb.c.

                                                                             {
  VALUE ary = rb_funcall(rb_mKernel, NS(id_caller_locations), 2, INT2FIX(skip), INT2FIX(1));
  VALUE a0 = rb_ary_entry(ary,0);
  if (proc) {
    *proc = VAL2STRN(rb_funcallv(a0, NS(id_label), 0, NULL));
  }
  if (file) {
    VALUE path = rb_funcall(a0, NS(id_path), 0);
    *file = VAL2STRN(rb_funcall(rb_cFile, NS(id_bn), 1, path));
  }
  if (line) {
    *line = VAL2I32(rb_funcallv(a0, NS(id_lineno), 0, NULL));
  }
}

◆ rbmkkernel_Get_Call_Line()

MK_I32 rbmkkernel_Get_Call_Line	(	int	skip,
		VALUE *	frameP )

Definition at line 232 of file LibMkKernel_rb.c.

                                                   {
  FRAME_init
  VALUE line = rb_funcallv(frame, NS(id_lineno), 0, NULL);
  return VAL2I32(line);
}

◆ rbmkkernel_Get_Call_Proc()

MK_STRN rbmkkernel_Get_Call_Proc	(	int	skip,
		VALUE *	frameP )

Definition at line 219 of file LibMkKernel_rb.c.

                                                    {
  FRAME_init
  VALUE label = rb_funcallv(frame, NS(id_label), 0, NULL);
  return VAL2STRN(label);
}

◆ rbmkkernel_Get_Call_Script()

MK_STRN rbmkkernel_Get_Call_Script	(	int	skip,
		VALUE *	frameP )

Definition at line 225 of file LibMkKernel_rb.c.

                                                      {
  FRAME_init
  VALUE path = rb_funcallv(frame, NS(id_path), 0, NULL);
  VALUE base = rb_funcall(rb_cFile, NS(id_bn), 1, path);
  return VAL2STRN(base);
}

◆ rbmkkernel_Get_Call_Stack()

void rbmkkernel_Get_Call_Stack	(	MK_RT	mkrt,
		MK_ERR const	err,
		int	level )

Definition at line 253 of file LibMkKernel_rb.c.

                                                                 {
  VALUE ary = rb_funcall(rb_mKernel, NS(id_caller_locations), 2, INT2FIX(level), INT2FIX(1));
  VALUE a0 = rb_ary_entry(ary,0);
  VALUE path = rb_funcallv(a0, NS(id_path), 0, NULL);
 
  MkErrorStackFormat(err,
    VAL2STRN(rb_funcallv(a0, NS(id_label), 0, NULL)),
      VAL2STRN(rb_funcall(rb_cFile, NS(id_bn), 1, path)),
        VAL2I32(rb_funcallv(a0, NS(id_lineno), 0, NULL))
  );
}

◆ rbmkkernel_LngListToMkBufferListS()

static enum MkErrorE rbmkkernel_LngListToMkBufferListS	(	OT_Prefix_ARGS VALUE	argsO,
		MK_BFL *	argsP )

static

Definition at line 304 of file LibMkKernel_rb.c.

  {
  MK_BFL args = *argsP;
  //MK_BFL orig = args;
  if (!OT_LNG_ARRAY_IS(argsO)) {
    return MK_OK;
  } else {
    *argsP = NULL;
    long len = rb_array_len(argsO);
    if (args == NULL) args = MkBufferListCreate (rb_long2int(len));
    for (long i=0; i<len; i++) {
      MkBufferListAppendSTR(args, VAL2STRN(rb_ary_entry(argsO,i)));
    }
  }
  *argsP = args;
  return MK_OK;
}

◆ rbmkkernel_LngTupleToMkBufferListS()

enum MkErrorE rbmkkernel_LngTupleToMkBufferListS	(	SETUP_ARGS	,
		int *	origskip,
		MK_BFL *	argsP )

Definition at line 325 of file LibMkKernel_rb.c.

  {
  MK_BFL args = *argsP;
  int skip = origskip==NULL ? 0 : *origskip;
  if (objv == NULL) {
    return MK_OK;
  } else {
    *argsP = NULL;
    if (args == NULL) args = MkBufferListCreate (objc-skip);
    for (; skip < objc; skip++) {
      MkBufferListAppendSTR(args, VAL2STRN(objv[skip]));
    }
  }
  *origskip = skip;
  *argsP = args;
  return MK_OK;
}

◆ rbmkkernel_MkKernel_Init()

void rbmkkernel_MkKernel_Init ( MK_RT mkrt )

Definition at line 587 of file LibMkKernel_rb.c.

                                         {
  MK(MkKernel) = rb_define_module("MkKernel");
 
  OT_METH_S ( MkKernel, M,                         RubyMsgque_M                         )
  OT_METH_O ( MkKernel, M,                         RubyMsgque_M                         )
 
  OT_METH_S ( MkKernel, printObj,                  RubyMsgque_printObj                  )
  OT_METH_O ( MkKernel, printObj,                  RubyMsgque_printObj                  )
 
// BEGIN-CLASS - created by 'rb_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// doc-key: MkKernel,EnumFunc,sco
OT_METH_O ( MkKernel, ErrorE_FromInt,            MkKernel_ErrorE_FromInt             )
OT_METH_S ( MkKernel, ErrorE_FromInt,            MkKernel_ErrorE_FromInt             )
OT_METH_O ( MkKernel, IdSE_FromInt,              MkKernel_IdSE_FromInt               )
OT_METH_S ( MkKernel, IdSE_FromInt,              MkKernel_IdSE_FromInt               )
OT_METH_O ( MkKernel, TimeoutE_FromInt,          MkKernel_TimeoutE_FromInt           )
OT_METH_S ( MkKernel, TimeoutE_FromInt,          MkKernel_TimeoutE_FromInt           )
OT_METH_O ( MkKernel, TypeE_FromInt,             MkKernel_TypeE_FromInt              )
OT_METH_S ( MkKernel, TypeE_FromInt,             MkKernel_TypeE_FromInt              )
 
// doc-key: MkKernel,EnumFunc,sm_
OT_METH_O ( MkKernel, ErrorE_ToInt,              MkKernel_ErrorE_ToInt               )
OT_METH_S ( MkKernel, ErrorE_ToInt,              MkKernel_ErrorE_ToInt               )
OT_METH_O ( MkKernel, ErrorE_ToString,           MkKernel_ErrorE_ToString            )
OT_METH_S ( MkKernel, ErrorE_ToString,           MkKernel_ErrorE_ToString            )
OT_METH_O ( MkKernel, IdSE_ToInt,                MkKernel_IdSE_ToInt                 )
OT_METH_S ( MkKernel, IdSE_ToInt,                MkKernel_IdSE_ToInt                 )
OT_METH_O ( MkKernel, IdSE_ToString,             MkKernel_IdSE_ToString              )
OT_METH_S ( MkKernel, IdSE_ToString,             MkKernel_IdSE_ToString              )
OT_METH_O ( MkKernel, TimeoutE_ToInt,            MkKernel_TimeoutE_ToInt             )
OT_METH_S ( MkKernel, TimeoutE_ToInt,            MkKernel_TimeoutE_ToInt             )
OT_METH_O ( MkKernel, TimeoutE_ToString,         MkKernel_TimeoutE_ToString          )
OT_METH_S ( MkKernel, TimeoutE_ToString,         MkKernel_TimeoutE_ToString          )
OT_METH_O ( MkKernel, TypeE_ToInt,               MkKernel_TypeE_ToInt                )
OT_METH_S ( MkKernel, TypeE_ToInt,               MkKernel_TypeE_ToInt                )
OT_METH_O ( MkKernel, TypeE_ToString,            MkKernel_TypeE_ToString             )
OT_METH_S ( MkKernel, TypeE_ToString,            MkKernel_TypeE_ToString             )
 
// doc-key: MkKernel,Setup,sm_
OT_METH_O ( MkKernel, Cleanup,                   MkKernel_Cleanup                    )
OT_METH_S ( MkKernel, Cleanup,                   MkKernel_Cleanup                    )
OT_METH_O ( MkKernel, Setup,                     MkKernel_Setup                      )
OT_METH_S ( MkKernel, Setup,                     MkKernel_Setup                      )
 
// END-CLASS - created by 'rb_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// BEGIN-OBJ - created by 'rb_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
// → no data
 
// END-OBJ - created by 'rb_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
 
}

◆ rbmkkernel_Obj_AsSTR_COPY()

enum MkErrorE rbmkkernel_Obj_AsSTR_COPY	(	OT_Check_ARGS	,
		MK_STR	ret,
		size_t	size )

Definition at line 289 of file LibMkKernel_rb.c.

                                                                          {
  if ((*skipP) >= objc) {
    return WrongNumArgs(hdl,(*skipP), objc, -999, +999, arg);
  }
  VALUE obj = objv[(*skipP)++];
  strncpy(ret,VAL2STRN(obj),size);
  return MK_OK;
}

◆ rbmkkernel_Obj_AsSTRN()

enum MkErrorE rbmkkernel_Obj_AsSTRN	(	OT_Check_ARGS	,
		MK_STRN *	retP )

Definition at line 273 of file LibMkKernel_rb.c.

                                                            {
  if ((*skipP) >= objc) {
    return WrongNumArgs(hdl,(*skipP), objc, -999, +999, arg);
  }
  VALUE obj   = objv[(*skipP)++];
  VALUE strO  = rb_obj_as_string(obj);
  long  len   = RSTRING_LEN(strO);
  MK_STRN ret = RSTRING_PTR(strO);
  // mark=MK_NULL
  if (MK_NULL_STR_CHECK(ret,len)) {
    ret = NULL;
  }
  *retP = ret;
  return MK_OK;
}

◆ rbmkkernel_printLNG_STACK()

void rbmkkernel_printLNG_STACK	(	MK_RT	mkrt,
		MK_MNG	mng )

Definition at line 201 of file LibMkKernel_rb.c.

                                               {
  VALUE arg;
  VALUE ary = rb_funcall(rb_mKernel, NS(id_caller), 0,0);
  while ((arg = rb_ary_shift(ary)) != Qnil) {
    printXC2(mng, VAL2STRN(arg));
  }
}

◆ rbmkkernel_RubyMsgque_M()

static OT_ProcRet rbmkkernel_RubyMsgque_M ( OtClass_ARGS )

static

Definition at line 554 of file LibMkKernel_rb.c.

                                                  {
  OT_SETUP_hdl_static
  OT_SETUP_VARARGS(1,1,"M(repeat*10)")
  VALUE strO = 0;
  OT_CHECK_REQUIRED(OT_CHECK_LNG_T (strO))
  OT_CHECK_NOARGS
  OT_retObj_SET_None
  OT_GET_CALL_ALL
  strO = rb_funcall(rb_obj_as_string(strO), rb_intern("*"), 1, INT2VAL(17));
  MkLogV_4M(MK_ERROR_PRINT,proc,0, "%s [%s:%d]\n", VAL2STRN(strO), file, line);
  OT_retObj_RETURN
}

◆ rbmkkernel_RubyMsgque_printObj()

static OT_ProcRet rbmkkernel_RubyMsgque_printObj ( OtClass_ARGS )

static

Definition at line 567 of file LibMkKernel_rb.c.

                                                         {
  OT_SETUP_hdl_static
  OT_SETUP_VARARGS(1,2,"printObj object ?caller?")
  VALUE obj = 0;
  OT_CHECK_REQUIRED(OT_CHECK_LNG_T (obj))
  MK_STRN caller = NULL;
  OT_CHECK_OPTIONAL(OT_CHECK_STRN (caller))
  OT_CHECK_NOARGS
  OT_retObj_SET_None
  if (caller == NULL) caller = OT_GET_CALL_PROC;
  MK(_printObj)(MK_RT_CALL obj,caller);
  OT_retObj_RETURN
}

◆ rbmkkernel_SysExit()

static int rbmkkernel_SysExit	(	MK_RT	mkrt,
		int	isThread,
		int	num )

static

Definition at line 773 of file LibMkKernel_rb.c.

  {
  if (isThread) {
    rb_protect(MK(SysExit2),Qnil,NULL);
  } else {
    if (MkRefCidN_NULL() == 0) {
      // 0 = toplevel
      rb_exit(num);
    }
  }
  exit(num);
  return num;
}

◆ rbmkkernel_SysExit2()

static VALUE rbmkkernel_SysExit2 ( VALUE dummy )

static

Definition at line 767 of file LibMkKernel_rb.c.

                                       {
  VALUE thread = rb_thread_current();
  DECR_REG(thread);
  rb_thread_kill(thread);
  return Qnil;
}

Variable Documentation

◆ rbmkkernel_cEnum

VALUE rbmkkernel_cEnum = 0

Definition at line 20 of file LibMkKernel_rb.c.

◆ rbmkkernel_globalRef

VALUE rbmkkernel_globalRef = 0

Definition at line 19 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_arity

ID rbmkkernel_id_arity

Definition at line 31 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_bind

ID rbmkkernel_id_bind

Definition at line 34 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_bn

ID rbmkkernel_id_bn

Definition at line 28 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_caller

ID rbmkkernel_id_caller

Definition at line 24 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_caller_locations

ID rbmkkernel_id_caller_locations

Definition at line 25 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_clone

ID rbmkkernel_id_clone

Definition at line 32 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_enum_attr

ID rbmkkernel_id_enum_attr

Definition at line 36 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_full_message

ID rbmkkernel_id_full_message

Definition at line 38 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_label

ID rbmkkernel_id_label

Definition at line 26 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_lineno

ID rbmkkernel_id_lineno

Definition at line 29 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_path

ID rbmkkernel_id_path

Definition at line 27 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_receiver

ID rbmkkernel_id_receiver

Definition at line 35 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_to_i

ID rbmkkernel_id_to_i

Definition at line 37 of file LibMkKernel_rb.c.

◆ rbmkkernel_id_unbind

ID rbmkkernel_id_unbind

Definition at line 33 of file LibMkKernel_rb.c.

◆ rbmkkernel_InitError

VALUE rbmkkernel_InitError = 0

Definition at line 21 of file LibMkKernel_rb.c.

◆ rbmkkernel_MkErrorE

VALUE rbmkkernel_MkErrorE

Definition at line 42 of file LibMkKernel_rb.c.

◆ rbmkkernel_MkIdSE

VALUE rbmkkernel_MkIdSE

Definition at line 43 of file LibMkKernel_rb.c.

◆ rbmkkernel_MkKernel

VALUE rbmkkernel_MkKernel = 0

Definition at line 18 of file LibMkKernel_rb.c.

◆ rbmkkernel_MkTimeoutE

VALUE rbmkkernel_MkTimeoutE

Definition at line 44 of file LibMkKernel_rb.c.

◆ rbmkkernel_MkTypeE

VALUE rbmkkernel_MkTypeE

Definition at line 45 of file LibMkKernel_rb.c.

◆ rbmkkernel_NULL_STR

VALUE rbmkkernel_NULL_STR = 0

Definition at line 22 of file LibMkKernel_rb.c.

Macros

Functions

Variables

Detailed Description

Macro Definition Documentation

◆ Cleanup_doc

◆ ErrorE_FromInt_doc

◆ ErrorE_ToInt_doc

◆ ErrorE_ToString_doc

◆ FRAME_init

◆ IdSE_FromInt_doc

◆ IdSE_ToInt_doc

◆ IdSE_ToString_doc

◆ MkCleanupTmpl

◆ MkSetupTmpl

◆ OT_SETUP_hdl_static

◆ Setup_doc

◆ TimeoutE_FromInt_doc

◆ TimeoutE_ToInt_doc

◆ TimeoutE_ToString_doc

◆ TypeE_FromInt_doc

◆ TypeE_ToInt_doc

◆ TypeE_ToString_doc

◆ USE_SysExit

Function Documentation

◆ LibMkKernel()

◆ rbmkkernel__printObj()

◆ rbmkkernel_Get_Call_All()

◆ rbmkkernel_Get_Call_Line()

◆ rbmkkernel_Get_Call_Proc()

◆ rbmkkernel_Get_Call_Script()

◆ rbmkkernel_Get_Call_Stack()

◆ rbmkkernel_LngListToMkBufferListS()

◆ rbmkkernel_LngTupleToMkBufferListS()

◆ rbmkkernel_MkKernel_Init()

◆ rbmkkernel_Obj_AsSTR_COPY()

◆ rbmkkernel_Obj_AsSTRN()

◆ rbmkkernel_printLNG_STACK()

◆ rbmkkernel_RubyMsgque_M()

◆ rbmkkernel_RubyMsgque_printObj()

◆ rbmkkernel_SysExit()

◆ rbmkkernel_SysExit2()

Variable Documentation

◆ rbmkkernel_cEnum

◆ rbmkkernel_globalRef

◆ rbmkkernel_id_arity

◆ rbmkkernel_id_bind

◆ rbmkkernel_id_bn

◆ rbmkkernel_id_caller

◆ rbmkkernel_id_caller_locations

◆ rbmkkernel_id_clone

◆ rbmkkernel_id_enum_attr

◆ rbmkkernel_id_full_message

◆ rbmkkernel_id_label

◆ rbmkkernel_id_lineno

◆ rbmkkernel_id_path

◆ rbmkkernel_id_receiver

◆ rbmkkernel_id_to_i

◆ rbmkkernel_id_unbind

◆ rbmkkernel_InitError

◆ rbmkkernel_MkErrorE

◆ rbmkkernel_MkIdSE

◆ rbmkkernel_MkKernel

◆ rbmkkernel_MkTimeoutE

◆ rbmkkernel_MkTypeE

◆ rbmkkernel_NULL_STR