debase-ruby_core_source 0.10.17 → 3.2.0

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/hash.h

@@ -1,243 +0,0 @@
-#ifndef INTERNAL_HASH_H                                  /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_HASH_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for Hash.
- */
-#include "ruby/internal/config.h"
-#include <stddef.h>             /* for size_t */
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/ruby.h"          /* for struct RBasic */
-#include "ruby/st.h"            /* for struct st_table */
-
-#define RHASH_AR_TABLE_MAX_SIZE SIZEOF_VALUE
-
-struct ar_table_struct;
-typedef unsigned char ar_hint_t;
-
-enum ruby_rhash_flags {
-    RHASH_PASS_AS_KEYWORDS = FL_USER1,                                   /* FL 1 */
-    RHASH_PROC_DEFAULT = FL_USER2,                                       /* FL 2 */
-    RHASH_ST_TABLE_FLAG = FL_USER3,                                      /* FL 3 */
-    RHASH_AR_TABLE_SIZE_MASK = (FL_USER4|FL_USER5|FL_USER6|FL_USER7),    /* FL 4..7 */
-    RHASH_AR_TABLE_SIZE_SHIFT = (FL_USHIFT+4),
-    RHASH_AR_TABLE_BOUND_MASK = (FL_USER8|FL_USER9|FL_USER10|FL_USER11), /* FL 8..11 */
-    RHASH_AR_TABLE_BOUND_SHIFT = (FL_USHIFT+8),
-
-#if USE_TRANSIENT_HEAP
-    RHASH_TRANSIENT_FLAG = FL_USER12,                                    /* FL 12 */
-#endif
-
-    // we can not put it in "enum" because it can exceed "int" range.
-#define RHASH_LEV_MASK (FL_USER13 | FL_USER14 | FL_USER15 |                /* FL 13..19 */ \
-                        FL_USER16 | FL_USER17 | FL_USER18 | FL_USER19)
-
-    RHASH_LEV_SHIFT = (FL_USHIFT + 13),
-    RHASH_LEV_MAX = 127, /* 7 bits */
-};
-
-struct RHash {
-    struct RBasic basic;
-    union {
-        st_table *st;
-        struct ar_table_struct *ar; /* possibly 0 */
-    } as;
-    const VALUE ifnone;
-    union {
-        ar_hint_t ary[RHASH_AR_TABLE_MAX_SIZE];
-        VALUE word;
-    } ar_hint;
-};
-
-#define RHASH(obj) ((struct RHash *)(obj))
-
-#ifdef RHASH_IFNONE
-# undef RHASH_IFNONE
-#endif
-
-#ifdef RHASH_SIZE
-# undef RHASH_SIZE
-#endif
-
-#ifdef RHASH_EMPTY_P
-# undef RHASH_EMPTY_P
-#endif
-
-/* hash.c */
-void rb_hash_st_table_set(VALUE hash, st_table *st);
-VALUE rb_hash_default_value(VALUE hash, VALUE key);
-VALUE rb_hash_set_default_proc(VALUE hash, VALUE proc);
-long rb_dbl_long_hash(double d);
-st_table *rb_init_identtable(void);
-VALUE rb_to_hash_type(VALUE obj);
-VALUE rb_hash_key_str(VALUE);
-VALUE rb_hash_values(VALUE hash);
-VALUE rb_hash_rehash(VALUE hash);
-int rb_hash_add_new_element(VALUE hash, VALUE key, VALUE val);
-VALUE rb_hash_set_pair(VALUE hash, VALUE pair);
-int rb_hash_stlike_delete(VALUE hash, st_data_t *pkey, st_data_t *pval);
-int rb_hash_stlike_foreach_with_replace(VALUE hash, st_foreach_check_callback_func *func, st_update_callback_func *replace, st_data_t arg);
-int rb_hash_stlike_update(VALUE hash, st_data_t key, st_update_callback_func *func, st_data_t arg);
-extern st_table *rb_hash_st_table(VALUE hash);
-VALUE rb_ident_hash_new_with_size(st_index_t size);
-
-static inline unsigned RHASH_AR_TABLE_SIZE_RAW(VALUE h);
-static inline VALUE RHASH_IFNONE(VALUE h);
-static inline size_t RHASH_SIZE(VALUE h);
-static inline bool RHASH_EMPTY_P(VALUE h);
-static inline bool RHASH_AR_TABLE_P(VALUE h);
-static inline bool RHASH_ST_TABLE_P(VALUE h);
-static inline struct ar_table_struct *RHASH_AR_TABLE(VALUE h);
-static inline st_table *RHASH_ST_TABLE(VALUE h);
-static inline size_t RHASH_ST_SIZE(VALUE h);
-static inline void RHASH_ST_CLEAR(VALUE h);
-static inline bool RHASH_TRANSIENT_P(VALUE h);
-static inline void RHASH_SET_TRANSIENT_FLAG(VALUE h);
-static inline void RHASH_UNSET_TRANSIENT_FLAG(VALUE h);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* hash.c (export) */
-VALUE rb_hash_delete_entry(VALUE hash, VALUE key);
-VALUE rb_ident_hash_new(void);
-int rb_hash_stlike_foreach(VALUE hash, st_foreach_callback_func *func, st_data_t arg);
-RUBY_SYMBOL_EXPORT_END
-
-MJIT_SYMBOL_EXPORT_BEGIN
-VALUE rb_hash_new_with_size(st_index_t size);
-VALUE rb_hash_resurrect(VALUE hash);
-int rb_hash_stlike_lookup(VALUE hash, st_data_t key, st_data_t *pval);
-VALUE rb_hash_keys(VALUE hash);
-VALUE rb_hash_has_key(VALUE hash, VALUE key);
-VALUE rb_hash_compare_by_id_p(VALUE hash);
-
-st_table *rb_hash_tbl_raw(VALUE hash, const char *file, int line);
-#define RHASH_TBL_RAW(h) rb_hash_tbl_raw(h, __FILE__, __LINE__)
-MJIT_SYMBOL_EXPORT_END
-
-VALUE rb_hash_compare_by_id(VALUE hash);
-
-#if 0 /* for debug */
-
-static inline bool
-RHASH_AR_TABLE_P(VALUE h)
-{
-    extern int rb_hash_ar_table_p(VALUE hash);
-    return rb_hash_ar_table_p(h)
-}
-
-static inline struct ar_table_struct *
-RHASH_AR_TABLE(VALUE h)
-{
-    extern struct ar_table_struct *rb_hash_ar_table(VALUE hash);
-    return rb_hash_ar_table(h)
-}
-
-static inline st_table *
-RHASH_ST_TABLE(VALUE h)
-{
-    return rb_hash_st_table(h)
-}
-
-#else
-
-static inline bool
-RHASH_AR_TABLE_P(VALUE h)
-{
-    return ! FL_TEST_RAW(h, RHASH_ST_TABLE_FLAG);
-}
-
-static inline struct ar_table_struct *
-RHASH_AR_TABLE(VALUE h)
-{
-    return RHASH(h)->as.ar;
-}
-
-static inline st_table *
-RHASH_ST_TABLE(VALUE h)
-{
-    return RHASH(h)->as.st;
-}
-
-#endif
-
-static inline VALUE
-RHASH_IFNONE(VALUE h)
-{
-    return RHASH(h)->ifnone;
-}
-
-static inline size_t
-RHASH_SIZE(VALUE h)
-{
-    if (RHASH_AR_TABLE_P(h)) {
-        return RHASH_AR_TABLE_SIZE_RAW(h);
-    }
-    else {
-        return RHASH_ST_SIZE(h);
-    }
-}
-
-static inline bool
-RHASH_EMPTY_P(VALUE h)
-{
-    return RHASH_SIZE(h) == 0;
-}
-
-static inline bool
-RHASH_ST_TABLE_P(VALUE h)
-{
-    return ! RHASH_AR_TABLE_P(h);
-}
-
-static inline size_t
-RHASH_ST_SIZE(VALUE h)
-{
-    return RHASH_ST_TABLE(h)->num_entries;
-}
-
-static inline void
-RHASH_ST_CLEAR(VALUE h)
-{
-    FL_UNSET_RAW(h, RHASH_ST_TABLE_FLAG);
-    RHASH(h)->as.ar = NULL;
-}
-
-static inline unsigned
-RHASH_AR_TABLE_SIZE_RAW(VALUE h)
-{
-    VALUE ret = FL_TEST_RAW(h, RHASH_AR_TABLE_SIZE_MASK);
-    ret >>= RHASH_AR_TABLE_SIZE_SHIFT;
-    return (unsigned)ret;
-}
-
-static inline bool
-RHASH_TRANSIENT_P(VALUE h)
-{
-#if USE_TRANSIENT_HEAP
-    return FL_TEST_RAW(h, RHASH_TRANSIENT_FLAG);
-#else
-    return false;
-#endif
-}
-
-static inline void
-RHASH_SET_TRANSIENT_FLAG(VALUE h)
-{
-#if USE_TRANSIENT_HEAP
-    FL_SET_RAW(h, RHASH_TRANSIENT_FLAG);
-#endif
-}
-
-static inline void
-RHASH_UNSET_TRANSIENT_FLAG(VALUE h)
-{
-#if USE_TRANSIENT_HEAP
-    FL_UNSET_RAW(h, RHASH_TRANSIENT_FLAG);
-#endif
-}
-
-#endif /* INTERNAL_HASH_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/inits.h

@@ -1,50 +0,0 @@
-#ifndef INTERNAL_INITS_H                                 /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_INITS_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header aggregating init functions.
- */
-
-/* class.c */
-void Init_class_hierarchy(void);
-
-/* dmyext.c */
-void Init_enc(void);
-void Init_ext(void);
-
-/* file.c */
-void Init_File(void);
-
-/* gc.c */
-void Init_heap(void);
-
-/* localeinit.c */
-int Init_enc_set_filesystem_encoding(void);
-
-/* newline.c */
-void Init_newline(void);
-
-/* vm.c */
-void Init_BareVM(void);
-void Init_vm_objects(void);
-
-/* vm_backtrace.c */
-void Init_vm_backtrace(void);
-
-/* vm_eval.c */
-void Init_vm_eval(void);
-
-/* vm_insnhelper.c */
-void Init_vm_stack_canary(void);
-
-/* vm_method.c */
-void Init_eval_method(void);
-
-/* inits.c */
-void rb_call_inits(void);
-
-#endif /* INTERNAL_INITS_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/io.h

@@ -1,38 +0,0 @@
-#ifndef INTERNAL_IO_H                                    /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_IO_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for IO.
- */
-#include "ruby/ruby.h"          /* for VALUE */
-#include "ruby/io.h"            /* for rb_io_t */
-
-/* io.c */
-void ruby_set_inplace_mode(const char *);
-void rb_stdio_set_default_encoding(void);
-VALUE rb_io_flush_raw(VALUE, int);
-size_t rb_io_memsize(const rb_io_t *);
-int rb_stderr_tty_p(void);
-void rb_io_fptr_finalize_internal(void *ptr);
-#ifdef rb_io_fptr_finalize
-# undef rb_io_fptr_finalize
-#endif
-#define rb_io_fptr_finalize rb_io_fptr_finalize_internal
-VALUE rb_io_popen(VALUE pname, VALUE pmode, VALUE env, VALUE opt);
-
-VALUE rb_io_prep_stdin(void);
-VALUE rb_io_prep_stdout(void);
-VALUE rb_io_prep_stderr(void);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* io.c (export) */
-void rb_maygvl_fd_fix_cloexec(int fd);
-int rb_gc_for_fd(int err);
-void rb_write_error_str(VALUE mesg);
-RUBY_SYMBOL_EXPORT_END
-
-#endif /* INTERNAL_IO_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/load.h

@@ -1,18 +0,0 @@
-#ifndef INTERNAL_LOAD_H                                  /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_LOAD_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for require.
- */
-#include "ruby/ruby.h"          /* for VALUE */
-
-/* load.c */
-VALUE rb_get_expanded_load_path(void);
-int rb_require_internal(VALUE fname);
-NORETURN(void rb_load_fail(VALUE, const char*));
-
-#endif /* INTERNAL_LOAD_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/loadpath.h

@@ -1,16 +0,0 @@
-#ifndef INTERNAL_LOADPATH_H                              /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_LOADPATH_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for $LOAD_PATH.
- */
-
-/* loadpath.c */
-extern const char ruby_exec_prefix[];
-extern const char ruby_initial_load_paths[];
-
-#endif /* INTERNAL_LOADPATH_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/math.h

@@ -1,23 +0,0 @@
-#ifndef INTERNAL_MATH_H                                  /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_MATH_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for Math.
- */
-#include "ruby/ruby.h"          /* for VALUE */
-
-/* math.c */
-VALUE rb_math_atan2(VALUE, VALUE);
-VALUE rb_math_cos(VALUE);
-VALUE rb_math_cosh(VALUE);
-VALUE rb_math_exp(VALUE);
-VALUE rb_math_hypot(VALUE, VALUE);
-VALUE rb_math_log(int argc, const VALUE *argv);
-VALUE rb_math_sin(VALUE);
-VALUE rb_math_sinh(VALUE);
-
-#endif /* INTERNAL_MATH_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/missing.h

@@ -1,18 +0,0 @@
-#ifndef INTERNAL_MISSING_H                               /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_MISSING_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header corresponding missing.
- */
-#include "ruby/internal/config.h"      /* for HAVE_SETPROCTITLE */
-
-/* missing/setproctitle.c */
-#ifndef HAVE_SETPROCTITLE
-extern void ruby_init_setproctitle(int argc, char *argv[]);
-#endif
-
-#endif /* INTERNAL_MISSING_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/numeric.h

@@ -1,271 +0,0 @@
-#ifndef INTERNAL_NUMERIC_H                               /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_NUMERIC_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for Numeric.
- */
-#include "internal/bignum.h"    /* for BIGNUM_POSITIVE_P */
-#include "internal/bits.h"      /* for RUBY_BIT_ROTL */
-#include "internal/fixnum.h"    /* for FIXNUM_POSITIVE_P */
-#include "internal/vm.h"        /* for rb_method_basic_definition_p */
-#include "ruby/intern.h"        /* for rb_cmperr */
-#include "ruby/ruby.h"          /* for USE_FLONUM */
-
-#define ROUND_TO(mode, even, up, down) \
-    ((mode) == RUBY_NUM_ROUND_HALF_EVEN ? even : \
-     (mode) == RUBY_NUM_ROUND_HALF_UP ? up : down)
-#define ROUND_FUNC(mode, name) \
-    ROUND_TO(mode, name##_half_even, name##_half_up, name##_half_down)
-#define ROUND_CALL(mode, name, args) \
-    ROUND_TO(mode, name##_half_even args, \
-             name##_half_up args, name##_half_down args)
-
-#ifndef ROUND_DEFAULT
-# define ROUND_DEFAULT RUBY_NUM_ROUND_HALF_UP
-#endif
-
-enum ruby_num_rounding_mode {
-    RUBY_NUM_ROUND_HALF_UP,
-    RUBY_NUM_ROUND_HALF_EVEN,
-    RUBY_NUM_ROUND_HALF_DOWN,
-    RUBY_NUM_ROUND_DEFAULT = ROUND_DEFAULT,
-};
-
-#if SIZEOF_DOUBLE <= SIZEOF_VALUE
-typedef double rb_float_value_type;
-#else
-typedef struct {
-    VALUE values[(SIZEOF_DOUBLE + SIZEOF_VALUE - 1) / SIZEOF_VALUE];
-    /* roomof() needs internal.h, and the order of some macros may matter */
-} rb_float_value_type;
-#endif
-
-struct RFloat {
-    struct RBasic basic;
-    rb_float_value_type float_value;
-};
-
-#define RFLOAT(obj)  ((struct RFloat *)(obj))
-
-/* numeric.c */
-int rb_num_to_uint(VALUE val, unsigned int *ret);
-VALUE ruby_num_interval_step_size(VALUE from, VALUE to, VALUE step, int excl);
-double ruby_float_step_size(double beg, double end, double unit, int excl);
-int ruby_float_step(VALUE from, VALUE to, VALUE step, int excl, int allow_endless);
-int rb_num_negative_p(VALUE);
-VALUE rb_int_succ(VALUE num);
-VALUE rb_float_uminus(VALUE num);
-VALUE rb_int_plus(VALUE x, VALUE y);
-VALUE rb_float_plus(VALUE x, VALUE y);
-VALUE rb_int_minus(VALUE x, VALUE y);
-VALUE rb_float_minus(VALUE x, VALUE y);
-VALUE rb_int_mul(VALUE x, VALUE y);
-VALUE rb_float_mul(VALUE x, VALUE y);
-VALUE rb_float_div(VALUE x, VALUE y);
-VALUE rb_int_idiv(VALUE x, VALUE y);
-VALUE rb_int_modulo(VALUE x, VALUE y);
-VALUE rb_int2str(VALUE num, int base);
-VALUE rb_fix_plus(VALUE x, VALUE y);
-VALUE rb_int_gt(VALUE x, VALUE y);
-VALUE rb_float_gt(VALUE x, VALUE y);
-VALUE rb_int_ge(VALUE x, VALUE y);
-enum ruby_num_rounding_mode rb_num_get_rounding_option(VALUE opts);
-double rb_int_fdiv_double(VALUE x, VALUE y);
-VALUE rb_int_pow(VALUE x, VALUE y);
-VALUE rb_float_pow(VALUE x, VALUE y);
-VALUE rb_int_cmp(VALUE x, VALUE y);
-VALUE rb_int_equal(VALUE x, VALUE y);
-VALUE rb_int_divmod(VALUE x, VALUE y);
-VALUE rb_int_and(VALUE x, VALUE y);
-VALUE rb_int_lshift(VALUE x, VALUE y);
-VALUE rb_int_div(VALUE x, VALUE y);
-int rb_int_positive_p(VALUE num);
-int rb_int_negative_p(VALUE num);
-VALUE rb_check_integer_type(VALUE);
-VALUE rb_num_pow(VALUE x, VALUE y);
-VALUE rb_float_ceil(VALUE num, int ndigits);
-VALUE rb_float_floor(VALUE x, int ndigits);
-VALUE rb_float_abs(VALUE flt);
-static inline VALUE rb_num_compare_with_zero(VALUE num, ID mid);
-static inline int rb_num_positive_int_p(VALUE num);
-static inline int rb_num_negative_int_p(VALUE num);
-static inline double rb_float_flonum_value(VALUE v);
-static inline double rb_float_noflonum_value(VALUE v);
-static inline double rb_float_value_inline(VALUE v);
-static inline VALUE rb_float_new_inline(double d);
-static inline bool INT_POSITIVE_P(VALUE num);
-static inline bool INT_NEGATIVE_P(VALUE num);
-static inline bool FLOAT_ZERO_P(VALUE num);
-#define rb_float_value rb_float_value_inline
-#define rb_float_new   rb_float_new_inline
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* numeric.c (export) */
-RUBY_SYMBOL_EXPORT_END
-
-MJIT_SYMBOL_EXPORT_BEGIN
-VALUE rb_flo_div_flo(VALUE x, VALUE y);
-double ruby_float_mod(double x, double y);
-VALUE rb_float_equal(VALUE x, VALUE y);
-int rb_float_cmp(VALUE x, VALUE y);
-VALUE rb_float_eql(VALUE x, VALUE y);
-VALUE rb_fix_aref(VALUE fix, VALUE idx);
-VALUE rb_int_zero_p(VALUE num);
-VALUE rb_int_even_p(VALUE num);
-VALUE rb_int_odd_p(VALUE num);
-VALUE rb_int_abs(VALUE num);
-VALUE rb_int_bit_length(VALUE num);
-VALUE rb_int_uminus(VALUE num);
-VALUE rb_int_comp(VALUE num);
-MJIT_SYMBOL_EXPORT_END
-
-static inline bool
-INT_POSITIVE_P(VALUE num)
-{
-    if (FIXNUM_P(num)) {
-        return FIXNUM_POSITIVE_P(num);
-    }
-    else {
-        return BIGNUM_POSITIVE_P(num);
-    }
-}
-
-static inline bool
-INT_NEGATIVE_P(VALUE num)
-{
-    if (FIXNUM_P(num)) {
-        return FIXNUM_NEGATIVE_P(num);
-    }
-    else {
-        return BIGNUM_NEGATIVE_P(num);
-    }
-}
-
-static inline bool
-FLOAT_ZERO_P(VALUE num)
-{
-    return RFLOAT_VALUE(num) == 0.0;
-}
-
-static inline VALUE
-rb_num_compare_with_zero(VALUE num, ID mid)
-{
-    VALUE zero = INT2FIX(0);
-    VALUE r = rb_check_funcall(num, mid, 1, &zero);
-    if (r == Qundef) {
-        rb_cmperr(num, zero);
-    }
-    return r;
-}
-
-static inline int
-rb_num_positive_int_p(VALUE num)
-{
-    const ID mid = '>';
-
-    if (FIXNUM_P(num)) {
-        if (rb_method_basic_definition_p(rb_cInteger, mid))
-            return FIXNUM_POSITIVE_P(num);
-    }
-    else if (RB_TYPE_P(num, T_BIGNUM)) {
-        if (rb_method_basic_definition_p(rb_cInteger, mid))
-            return BIGNUM_POSITIVE_P(num);
-    }
-    return RTEST(rb_num_compare_with_zero(num, mid));
-}
-
-static inline int
-rb_num_negative_int_p(VALUE num)
-{
-    const ID mid = '<';
-
-    if (FIXNUM_P(num)) {
-        if (rb_method_basic_definition_p(rb_cInteger, mid))
-            return FIXNUM_NEGATIVE_P(num);
-    }
-    else if (RB_TYPE_P(num, T_BIGNUM)) {
-        if (rb_method_basic_definition_p(rb_cInteger, mid))
-            return BIGNUM_NEGATIVE_P(num);
-    }
-    return RTEST(rb_num_compare_with_zero(num, mid));
-}
-
-static inline double
-rb_float_flonum_value(VALUE v)
-{
-#if USE_FLONUM
-    if (v != (VALUE)0x8000000000000002) { /* LIKELY */
-        union {
-            double d;
-            VALUE v;
-        } t;
-
-        VALUE b63 = (v >> 63);
-        /* e: xx1... -> 011... */
-        /*    xx0... -> 100... */
-        /*      ^b63           */
-        t.v = RUBY_BIT_ROTR((2 - b63) | (v & ~(VALUE)0x03), 3);
-        return t.d;
-    }
-#endif
-    return 0.0;
-}
-
-static inline double
-rb_float_noflonum_value(VALUE v)
-{
-#if SIZEOF_DOUBLE <= SIZEOF_VALUE
-    return RFLOAT(v)->float_value;
-#else
-    union {
-        rb_float_value_type v;
-        double d;
-    } u = {RFLOAT(v)->float_value};
-    return u.d;
-#endif
-}
-
-static inline double
-rb_float_value_inline(VALUE v)
-{
-    if (FLONUM_P(v)) {
-        return rb_float_flonum_value(v);
-    }
-    return rb_float_noflonum_value(v);
-}
-
-static inline VALUE
-rb_float_new_inline(double d)
-{
-#if USE_FLONUM
-    union {
-        double d;
-        VALUE v;
-    } t;
-    int bits;
-
-    t.d = d;
-    bits = (int)((VALUE)(t.v >> 60) & 0x7);
-    /* bits contains 3 bits of b62..b60. */
-    /* bits - 3 = */
-    /*   b011 -> b000 */
-    /*   b100 -> b001 */
-
-    if (t.v != 0x3000000000000000 /* 1.72723e-77 */ &&
-        !((bits-3) & ~0x01)) {
-        return (RUBY_BIT_ROTL(t.v, 3) & ~(VALUE)0x01) | 0x02;
-    }
-    else if (t.v == (VALUE)0) {
-        /* +0.0 */
-        return 0x8000000000000002;
-    }
-    /* out of range */
-#endif
-    return rb_float_new_in_heap(d);
-}
-
-#endif /* INTERNAL_NUMERIC_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/parse.h

@@ -1,23 +0,0 @@
-#ifndef INTERNAL_PARSE_H                                 /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_PARSE_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for the parser.
- */
-#include "ruby/ruby.h"          /* for VALUE */
-struct rb_iseq_struct;          /* in vm_core.h */
-
-/* parse.y */
-VALUE rb_parser_set_yydebug(VALUE, VALUE);
-void *rb_parser_load_file(VALUE parser, VALUE name);
-void rb_parser_keep_script_lines(VALUE vparser);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-VALUE rb_parser_set_context(VALUE, const struct rb_iseq_struct *, int);
-RUBY_SYMBOL_EXPORT_END
-
-#endif /* INTERNAL_PARSE_H */