debase-ruby_core_source 3.3.6 → 3.4.0

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/rjit.h

@@ -1,101 +0,0 @@
-#ifndef RUBY_RJIT_H
-#define RUBY_RJIT_H 1
-/**********************************************************************
-
-  rjit.h - Interface to RJIT
-
-  Copyright (C) 2023 Takashi Kokubun <k0kubun@ruby-lang.org>.
-
-**********************************************************************/
-
-#include "ruby/internal/config.h" // defines USE_RJIT
-#include "ruby/internal/stdbool.h"
-#include "vm_core.h"
-
-# if USE_RJIT
-
-#include "ruby.h"
-#include "vm_core.h"
-
-// RJIT options which can be defined on the MRI command line.
-struct rb_rjit_options {
-    // Converted from "rjit" feature flag to tell the enablement
-    // information to ruby_show_version().
-    bool on;
-    // Size of executable memory block in MiB
-    unsigned int exec_mem_size;
-    // Number of calls to trigger JIT compilation
-    unsigned int call_threshold;
-    // Collect RJIT statistics
-    bool stats;
-    // Do not start RJIT until RJIT.enable is called
-    bool disable;
-    // Allow TracePoint during JIT compilation
-    bool trace;
-    // Trace side exit locations
-    bool trace_exits;
-    // Enable disasm of all JIT code
-    bool dump_disasm;
-    // Verify context objects
-    bool verify_ctx;
-};
-
-RUBY_SYMBOL_EXPORT_BEGIN
-RUBY_EXTERN struct rb_rjit_options rb_rjit_opts;
-RUBY_EXTERN bool rb_rjit_call_p;
-
-#define rb_rjit_call_threshold() rb_rjit_opts.call_threshold
-
-extern void rb_rjit_compile(const rb_iseq_t *iseq);
-RUBY_SYMBOL_EXPORT_END
-
-extern void rb_rjit_cancel_all(const char *reason);
-extern void rb_rjit_init(const struct rb_rjit_options *opts);
-extern void rb_rjit_free_iseq(const rb_iseq_t *iseq);
-extern void rb_rjit_iseq_update_references(struct rb_iseq_constant_body *const body);
-extern void rb_rjit_mark(void);
-extern void rb_rjit_iseq_mark(VALUE rjit_blocks);
-extern void rjit_notify_waitpid(int exit_code);
-
-extern void rb_rjit_bop_redefined(int redefined_flag, enum ruby_basic_operators bop);
-extern void rb_rjit_cme_invalidate(rb_callable_method_entry_t *cme);
-extern void rb_rjit_before_ractor_spawn(void);
-extern void rb_rjit_constant_state_changed(ID id);
-extern void rb_rjit_constant_ic_update(const rb_iseq_t *const iseq, IC ic, unsigned insn_idx);
-extern void rb_rjit_tracing_invalidate_all(rb_event_flag_t new_iseq_events);
-
-extern void rb_rjit_bop_redefined(int redefined_flag, enum ruby_basic_operators bop);
-extern void rb_rjit_before_ractor_spawn(void);
-extern void rb_rjit_tracing_invalidate_all(rb_event_flag_t new_iseq_events);
-extern void rb_rjit_collect_vm_usage_insn(int insn);
-
-extern bool rb_rjit_enabled;
-extern bool rb_rjit_stats_enabled;
-extern bool rb_rjit_trace_exits_enabled;
-
-# else // USE_RJIT
-
-static inline void rb_rjit_compile(const rb_iseq_t *iseq){}
-
-static inline void rb_rjit_cancel_all(const char *reason){}
-static inline void rb_rjit_free_iseq(const rb_iseq_t *iseq){}
-static inline void rb_rjit_mark(void){}
-
-static inline void rb_rjit_bop_redefined(int redefined_flag, enum ruby_basic_operators bop) {}
-static inline void rb_rjit_cme_invalidate(rb_callable_method_entry_t *cme) {}
-static inline void rb_rjit_before_ractor_spawn(void) {}
-static inline void rb_rjit_constant_state_changed(ID id) {}
-static inline void rb_rjit_constant_ic_update(const rb_iseq_t *const iseq, IC ic, unsigned insn_idx) {}
-static inline void rb_rjit_tracing_invalidate_all(rb_event_flag_t new_iseq_events) {}
-
-#define rb_rjit_enabled false
-#define rb_rjit_call_p false
-#define rb_rjit_stats_enabled false
-#define rb_rjit_trace_exits_enabled false
-
-#define rb_rjit_call_threshold() UINT_MAX
-
-static inline void rb_rjit_collect_vm_usage_insn(int insn) {}
-
-# endif // USE_RJIT
-#endif // RUBY_RJIT_H

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/rjit_c.h

@@ -1,165 +0,0 @@
-// This file is parsed by tool/rjit/generate.rb to generate rjit_c.rb
-#ifndef RJIT_C_H
-#define RJIT_C_H
-
-#include "ruby/internal/config.h"
-#include "internal/string.h"
-#include "internal/struct.h"
-#include "internal/variable.h"
-#include "vm_core.h"
-#include "vm_callinfo.h"
-#include "builtin.h"
-#include "ccan/list/list.h"
-#include "rjit.h"
-#include "shape.h"
-
-extern uint8_t *rb_rjit_mem_block;
-
-#define RJIT_RUNTIME_COUNTERS(...) struct rb_rjit_runtime_counters { size_t __VA_ARGS__; };
-RJIT_RUNTIME_COUNTERS(
-    rjit_insns_count,
-
-    send_args_splat_kw_splat,
-    send_args_splat,
-    send_args_splat_not_array,
-    send_args_splat_length_not_equal,
-    send_args_splat_cfunc_var_args,
-    send_args_splat_arity_error,
-    send_args_splat_ruby2_hash,
-    send_args_splat_cfunc_zuper,
-    send_args_splat_cfunc_ruby2_keywords,
-    send_kw_splat,
-    send_kwarg,
-    send_klass_megamorphic,
-    send_missing_cme,
-    send_private,
-    send_protected_check_failed,
-    send_tailcall,
-    send_notimplemented,
-    send_missing,
-    send_bmethod,
-    send_alias,
-    send_undef,
-    send_zsuper,
-    send_refined,
-    send_stackoverflow,
-    send_arity,
-    send_c_tracing,
-    send_is_a_class_mismatch,
-    send_instance_of_class_mismatch,
-    send_keywords,
-
-    send_blockiseq,
-    send_block_handler,
-    send_block_setup,
-    send_block_not_nil,
-    send_block_not_proxy,
-    send_block_arg,
-
-    send_iseq_kwparam,
-    send_iseq_accepts_no_kwarg,
-    send_iseq_has_opt,
-    send_iseq_has_kwrest,
-    send_iseq_ruby2_keywords,
-    send_iseq_has_rest_and_captured,
-    send_iseq_has_rest_and_kw_supplied,
-    send_iseq_has_no_kw,
-    send_iseq_zsuper,
-    send_iseq_materialized_block,
-    send_iseq_has_rest,
-    send_iseq_block_arg0_splat,
-    send_iseq_kw_call,
-    send_iseq_kw_splat,
-    send_iseq_splat,
-    send_iseq_has_rest_and_optional,
-    send_iseq_arity_error,
-    send_iseq_missing_optional_kw,
-    send_iseq_too_many_kwargs,
-    send_iseq_kwargs_mismatch,
-    send_iseq_splat_with_kw,
-    send_iseq_splat_arity_error,
-    send_iseq_has_rest_and_splat_not_equal,
-
-    send_cfunc_variadic,
-    send_cfunc_too_many_args,
-    send_cfunc_ruby_array_varg,
-    send_cfunc_splat_with_kw,
-    send_cfunc_tracing,
-    send_cfunc_argc_mismatch,
-    send_cfunc_toomany_args,
-
-    send_attrset_splat,
-    send_attrset_kwarg,
-    send_attrset_method,
-
-    send_ivar_splat,
-    send_ivar_opt_send,
-
-    send_optimized_send_no_args,
-    send_optimized_send_not_sym_or_str,
-    send_optimized_send_mid_class_changed,
-    send_optimized_send_mid_id_changed,
-    send_optimized_send_null_mid,
-    send_optimized_send_send,
-    send_optimized_call_block,
-    send_optimized_call_kwarg,
-    send_optimized_call_splat,
-    send_optimized_struct_aref_error,
-
-    send_optimized_block_call,
-    send_optimized_struct_aset,
-
-    send_bmethod_not_iseq,
-    send_bmethod_blockarg,
-
-    invokesuper_me_changed,
-    invokesuper_block,
-
-    invokeblock_none,
-    invokeblock_symbol,
-    invokeblock_proc,
-    invokeblock_tag_changed,
-    invokeblock_iseq_block_changed,
-    invokeblock_iseq_arity,
-    invokeblock_iseq_arg0_splat,
-    invokeblock_ifunc_args_splat,
-    invokeblock_ifunc_kw_splat,
-    invokeblock_iseq_arg0_args_splat,
-    invokeblock_iseq_arg0_has_kw,
-
-    getivar_megamorphic,
-    getivar_not_heap,
-    getivar_special_const,
-    getivar_too_complex,
-
-    optaref_arg_not_fixnum,
-    optaref_argc_not_one,
-    optaref_recv_not_array,
-    optaref_recv_not_hash,
-    optaref_send,
-
-    optgetconst_not_cached,
-    optgetconst_cref,
-    optgetconst_cache_miss,
-
-    setivar_frozen,
-    setivar_not_heap,
-    setivar_megamorphic,
-    setivar_too_complex,
-
-    expandarray_splat,
-    expandarray_postarg,
-    expandarray_not_array,
-    expandarray_rhs_too_small,
-
-    getblockpp_block_param_modified,
-    getblockpp_block_handler_none,
-    getblockpp_not_gc_guarded,
-    getblockpp_not_iseq_block,
-
-    compiled_block_count
-)
-#undef RJIT_RUNTIME_COUNTERS
-extern struct rb_rjit_runtime_counters rb_rjit_counters;
-
-#endif /* RJIT_C_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/ruby_assert.h

@@ -1,14 +0,0 @@
-#ifndef RUBY_TOPLEVEL_ASSERT_H                           /*-*-C-*-vi:se ft=c:*/
-#define RUBY_TOPLEVEL_ASSERT_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.
- */
-#include "ruby/assert.h"
-#undef assert
-#define assert RUBY_ASSERT_NDEBUG
-
-#endif /* RUBY_TOPLEVEL_ASSERT_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/ruby_atomic.h

@@ -1,23 +0,0 @@
-#include "ruby/atomic.h"
-
-/* shim macros only */
-#define ATOMIC_ADD(var, val) RUBY_ATOMIC_ADD(var, val)
-#define ATOMIC_CAS(var, oldval, newval) RUBY_ATOMIC_CAS(var, oldval, newval)
-#define ATOMIC_DEC(var) RUBY_ATOMIC_DEC(var)
-#define ATOMIC_EXCHANGE(var, val) RUBY_ATOMIC_EXCHANGE(var, val)
-#define ATOMIC_FETCH_ADD(var, val) RUBY_ATOMIC_FETCH_ADD(var, val)
-#define ATOMIC_FETCH_SUB(var, val) RUBY_ATOMIC_FETCH_SUB(var, val)
-#define ATOMIC_INC(var) RUBY_ATOMIC_INC(var)
-#define ATOMIC_OR(var, val) RUBY_ATOMIC_OR(var, val)
-#define ATOMIC_PTR_CAS(var, oldval, newval) RUBY_ATOMIC_PTR_CAS(var, oldval, newval)
-#define ATOMIC_PTR_EXCHANGE(var, val) RUBY_ATOMIC_PTR_EXCHANGE(var, val)
-#define ATOMIC_SET(var, val) RUBY_ATOMIC_SET(var, val)
-#define ATOMIC_SIZE_ADD(var, val) RUBY_ATOMIC_SIZE_ADD(var, val)
-#define ATOMIC_SIZE_CAS(var, oldval, newval) RUBY_ATOMIC_SIZE_CAS(var, oldval, newval)
-#define ATOMIC_SIZE_DEC(var) RUBY_ATOMIC_SIZE_DEC(var)
-#define ATOMIC_SIZE_EXCHANGE(var, val) RUBY_ATOMIC_SIZE_EXCHANGE(var, val)
-#define ATOMIC_SIZE_INC(var) RUBY_ATOMIC_SIZE_INC(var)
-#define ATOMIC_SIZE_SUB(var, val) RUBY_ATOMIC_SIZE_SUB(var, val)
-#define ATOMIC_SUB(var, val) RUBY_ATOMIC_SUB(var, val)
-#define ATOMIC_VALUE_CAS(var, oldval, val) RUBY_ATOMIC_VALUE_CAS(var, oldval, val)
-#define ATOMIC_VALUE_EXCHANGE(var, val) RUBY_ATOMIC_VALUE_EXCHANGE(var, val)

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/siphash.h

@@ -1,48 +0,0 @@
-#ifndef SIPHASH_H
-#define SIPHASH_H 1
-#include <stdlib.h>
-#ifdef HAVE_STDINT_H
-#include <stdint.h>
-#endif
-#ifdef HAVE_INTTYPES_H
-#include <inttypes.h>
-#endif
-
-#ifndef HAVE_UINT64_T
-typedef struct {
-    uint32_t u32[2];
-} sip_uint64_t;
-#define uint64_t sip_uint64_t
-#else
-typedef uint64_t sip_uint64_t;
-#endif
-
-typedef struct {
-    int c;
-    int d;
-    uint64_t v[4];
-    uint8_t buf[sizeof(uint64_t)];
-    uint8_t buflen;
-    uint8_t msglen_byte;
-} sip_state;
-
-typedef struct sip_interface_st sip_interface;
-
-typedef struct {
-    sip_state state[1];
-    const sip_interface *methods;
-} sip_hash;
-
-sip_hash *sip_hash_new(const uint8_t key[16], int c, int d);
-sip_hash *sip_hash_init(sip_hash *h, const uint8_t key[16], int c, int d);
-int sip_hash_update(sip_hash *h, const uint8_t *data, size_t len);
-int sip_hash_final(sip_hash *h, uint8_t **digest, size_t *len);
-int sip_hash_final_integer(sip_hash *h, uint64_t *digest);
-int sip_hash_digest(sip_hash *h, const uint8_t *data, size_t data_len, uint8_t **digest, size_t *digest_len);
-int sip_hash_digest_integer(sip_hash *h, const uint8_t *data, size_t data_len, uint64_t *digest);
-void sip_hash_free(sip_hash *h);
-void sip_hash_dump(sip_hash *h);
-
-NO_SANITIZE("unsigned-integer-overflow", uint64_t sip_hash13(const uint8_t key[16], const uint8_t *data, size_t len));
-
-#endif

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/thread_none.h

@@ -1,21 +0,0 @@
-#ifndef RUBY_THREAD_NONE_H
-#define RUBY_THREAD_NONE_H
-
-#define RB_NATIVETHREAD_LOCK_INIT (void)(0)
-#define RB_NATIVETHREAD_COND_INIT (void)(0)
-
-// no-thread impl doesn't use TLS but define this to avoid using tls key
-// based implementation in vm.c
-#define RB_THREAD_LOCAL_SPECIFIER
-
-struct rb_native_thread {
-    void *thread_id; // NULL
-};
-
-struct rb_thread_sched_item {};
-struct rb_thread_sched {};
-
-RUBY_EXTERN struct rb_execution_context_struct *ruby_current_ec;
-NOINLINE(struct rb_execution_context_struct *rb_current_ec_noinline(void)); // for assertions
-
-#endif /* RUBY_THREAD_NONE_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/thread_win32.h

@@ -1,58 +0,0 @@
-#ifndef RUBY_THREAD_WIN32_H
-#define RUBY_THREAD_WIN32_H
-/**********************************************************************
-
-  thread_win32.h -
-
-  $Author$
-
-  Copyright (C) 2004-2007 Koichi Sasada
-
-**********************************************************************/
-
-/* interface */
-
-# ifdef __CYGWIN__
-# undef _WIN32
-# endif
-
-#define USE_VM_CLOCK 1
-
-WINBASEAPI BOOL WINAPI
-TryEnterCriticalSection(IN OUT LPCRITICAL_SECTION lpCriticalSection);
-
-struct rb_native_thread {
-    HANDLE thread_id;
-    HANDLE interrupt_event;
-};
-
-struct rb_thread_sched_item {
-    void *vm_stack;
-};
-
-struct rb_thread_sched {
-    HANDLE lock;
-};
-
-typedef DWORD native_tls_key_t; // TLS index
-
-static inline void *
-native_tls_get(native_tls_key_t key)
-{
-    // return value should be checked by caller.
-    return TlsGetValue(key);
-}
-
-static inline void
-native_tls_set(native_tls_key_t key, void *ptr)
-{
-    if (UNLIKELY(TlsSetValue(key, ptr) == 0)) {
-        rb_bug("TlsSetValue() error");
-    }
-}
-
-RUBY_SYMBOL_EXPORT_BEGIN
-RUBY_EXTERN native_tls_key_t ruby_current_ec_key;
-RUBY_SYMBOL_EXPORT_END
-
-#endif /* RUBY_THREAD_WIN32_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/timev.h

@@ -1,58 +0,0 @@
-#ifndef RUBY_TIMEV_H
-#define RUBY_TIMEV_H
-#include "ruby/ruby.h"
-
-struct vtm {
-    VALUE year; /* 2000 for example.  Integer. */
-    VALUE subsecx; /* 0 <= subsecx < TIME_SCALE.  possibly Rational. */
-    VALUE utc_offset; /* -3600 as -01:00 for example.  possibly Rational. */
-    VALUE zone; /* "JST", "EST", "EDT", etc. as String */
-    unsigned int yday:9; /* 1..366 */
-    unsigned int mon:4; /* 1..12 */
-    unsigned int mday:5; /* 1..31 */
-    unsigned int hour:5; /* 0..23 */
-    unsigned int min:6; /* 0..59 */
-    unsigned int sec:6; /* 0..60 */
-    unsigned int wday:3; /* 0:Sunday, 1:Monday, ..., 6:Saturday 7:init */
-    unsigned int isdst:2; /* 0:StandardTime 1:DayLightSavingTime 3:init */
-
-    /* Flags for struct time_object */
-    unsigned int tzmode:3; /* 0:localtime 1:utc 2:fixoff 3:uninitialized */
-    unsigned int tm_got:1;
-};
-
-#define TIME_SCALE 1000000000
-
-#ifndef TYPEOF_TIMEVAL_TV_SEC
-# define TYPEOF_TIMEVAL_TV_SEC time_t
-#endif
-#ifndef TYPEOF_TIMEVAL_TV_USEC
-# if INT_MAX >= 1000000
-# define TYPEOF_TIMEVAL_TV_USEC int
-# else
-# define TYPEOF_TIMEVAL_TV_USEC long
-# endif
-#endif
-
-#if SIZEOF_TIME_T == SIZEOF_LONG
-typedef unsigned long unsigned_time_t;
-#elif SIZEOF_TIME_T == SIZEOF_INT
-typedef unsigned int unsigned_time_t;
-#elif SIZEOF_TIME_T == SIZEOF_LONG_LONG
-typedef unsigned LONG_LONG unsigned_time_t;
-#else
-# error cannot find integer type which size is same as time_t.
-#endif
-
-/* strftime.c */
-#ifdef RUBY_ENCODING_H
-VALUE rb_strftime_timespec(const char *format, size_t format_len, rb_encoding *enc,
-                           VALUE time, const struct vtm *vtm, struct timespec *ts, int gmt);
-VALUE rb_strftime(const char *format, size_t format_len, rb_encoding *enc,
-                  VALUE time, const struct vtm *vtm, VALUE timev, int gmt);
-#endif
-
-/* time.c */
-VALUE rb_time_zone_abbreviation(VALUE zone, VALUE time);
-
-#endif

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/transcode_data.h

@@ -1,138 +0,0 @@
-#ifndef RUBY_TRANSCODE_DATA_H
-#define RUBY_TRANSCODE_DATA_H 1
-/**********************************************************************
-
-  transcode_data.h -
-
-  $Author$
-  created at: Mon 10 Dec 2007 14:01:47 JST 2007
-
-  Copyright (C) 2007 Martin Duerst
-
-**********************************************************************/
-
-#include "ruby/ruby.h"
-
-RUBY_SYMBOL_EXPORT_BEGIN
-
-#define WORDINDEX_SHIFT_BITS 2
-#define WORDINDEX2INFO(widx)      ((widx) << WORDINDEX_SHIFT_BITS)
-#define INFO2WORDINDEX(info)      ((info) >> WORDINDEX_SHIFT_BITS)
-#define BYTE_LOOKUP_BASE(bl) ((bl)[0])
-#define BYTE_LOOKUP_INFO(bl) ((bl)[1])
-
-#define PType (unsigned int)
-
-#define NOMAP	(PType 0x01)	/* direct map */
-#define ONEbt	(0x02)		/* one byte payload */
-#define TWObt	(0x03)		/* two bytes payload */
-#define THREEbt	(0x05)		/* three bytes payload */
-#define FOURbt	(0x06)		/* four bytes payload, UTF-8 only, macros start at getBT0 */
-#define INVALID	(PType 0x07)	/* invalid byte sequence */
-#define UNDEF	(PType 0x09)	/* legal but undefined */
-#define ZERObt	(PType 0x0A)	/* zero bytes of payload, i.e. remove */
-#define FUNii	(PType 0x0B)	/* function from info to info */
-#define FUNsi	(PType 0x0D)	/* function from start to info */
-#define FUNio	(PType 0x0E)	/* function from info to output */
-#define FUNso	(PType 0x0F)	/* function from start to output */
-#define STR1	(PType 0x11)	/* string 4 <= len <= 259 bytes: 1byte length + content */
-#define GB4bt	(PType 0x12)	/* GB18030 four bytes payload */
-#define FUNsio  (PType 0x13)    /* function from start and info to output */
-
-#define STR1_LENGTH(byte_addr) (unsigned int)(*(byte_addr) + 4)
-#define STR1_BYTEINDEX(w) ((w) >> 6)
-#define makeSTR1(bi) (((bi) << 6) | STR1)
-#define makeSTR1LEN(len) ((len)-4)
-
-#define o1(b1)		(PType((((unsigned char)(b1))<<8)|ONEbt))
-#define o2(b1,b2)	(PType((((unsigned char)(b1))<<8)|\
-                               (((unsigned char)(b2))<<16)|\
-                               TWObt))
-#define o3(b1,b2,b3)	(PType(((((unsigned char)(b1))<<8)|\
-                                (((unsigned char)(b2))<<16)|\
-                                (((unsigned int)(unsigned char)(b3))<<24)|\
-                                THREEbt)&\
-                               0xffffffffU))
-#define o4(b0,b1,b2,b3)	(PType(((((unsigned char)(b1))<<8)|\
-                                (((unsigned char)(b2))<<16)|\
-                                (((unsigned int)(unsigned char)(b3))<<24)|\
-                                ((((unsigned char)(b0))&0x07)<<5)|\
-                                FOURbt)&\
-                               0xffffffffU))
-#define g4(b0,b1,b2,b3) (PType(((((unsigned char)(b0))<<8)|\
-                                (((unsigned char)(b2))<<16)|\
-                                ((((unsigned char)(b1))&0x0f)<<24)|\
-                                ((((unsigned int)(unsigned char)(b3))&0x0f)<<28)|\
-                                GB4bt)&\
-                               0xffffffffU))
-#define funsio(diff)	(PType((((unsigned int)(diff))<<8)|FUNsio))
-
-#define getBT1(a)	((unsigned char)((a)>> 8))
-#define getBT2(a)	((unsigned char)((a)>>16))
-#define getBT3(a)	((unsigned char)((a)>>24))
-#define getBT0(a)	(((unsigned char)((a)>> 5)&0x07)|0xF0)   /* for UTF-8 only!!! */
-
-#define getGB4bt0(a)	((unsigned char)((a)>> 8))
-#define getGB4bt1(a)	(((unsigned char)((a)>>24)&0x0F)|0x30)
-#define getGB4bt2(a)	((unsigned char)((a)>>16))
-#define getGB4bt3(a)	(((unsigned char)((a)>>28)&0x0F)|0x30)
-
-#define o2FUNii(b1,b2)	(PType((((unsigned char)(b1))<<8)|(((unsigned char)(b2))<<16)|FUNii))
-
-/* do we need these??? maybe not, can be done with simple tables */
-#define ONETRAIL       /* legal but undefined if one more trailing UTF-8 */
-#define TWOTRAIL       /* legal but undefined if two more trailing UTF-8 */
-#define THREETRAIL     /* legal but undefined if three more trailing UTF-8 */
-
-typedef enum {
-    asciicompat_converter,        /* ASCII-compatible -> ASCII-compatible */
-    asciicompat_decoder,          /* ASCII-incompatible -> ASCII-compatible */
-    asciicompat_encoder           /* ASCII-compatible -> ASCII-incompatible */
-  /* ASCII-incompatible -> ASCII-incompatible is intentionally omitted. */
-} rb_transcoder_asciicompat_type_t;
-
-typedef struct rb_transcoder rb_transcoder;
-
-/* static structure, one per supported encoding pair */
-struct rb_transcoder {
-    const char *src_encoding;
-    const char *dst_encoding;
-    unsigned int conv_tree_start;
-    const unsigned char *byte_array;
-    unsigned int byte_array_length;
-    const unsigned int *word_array;
-    unsigned int word_array_length;
-    int word_size;
-    int input_unit_length;
-    int max_input;
-    int max_output;
-    rb_transcoder_asciicompat_type_t asciicompat_type;
-    size_t state_size;
-    int (*state_init_func)(void*); /* ret==0:success ret!=0:failure(errno) */
-    int (*state_fini_func)(void*); /* ret==0:success ret!=0:failure(errno) */
-    VALUE (*func_ii)(void*, VALUE); /* info  -> info   */
-    VALUE (*func_si)(void*, const unsigned char*, size_t); /* start -> info   */
-    ssize_t (*func_io)(void*, VALUE, const unsigned char*, size_t); /* info  -> output */
-    ssize_t (*func_so)(void*, const unsigned char*, size_t, unsigned char*, size_t); /* start -> output */
-    ssize_t (*finish_func)(void*, unsigned char*, size_t); /* -> output */
-    ssize_t (*resetsize_func)(void*); /* -> len */
-    ssize_t (*resetstate_func)(void*, unsigned char*, size_t); /* -> output */
-    ssize_t (*func_sio)(void*, const unsigned char*, size_t, VALUE, unsigned char*, size_t); /* start -> output */
-};
-
-void rb_declare_transcoder(const char *enc1, const char *enc2, const char *lib);
-void rb_register_transcoder(const rb_transcoder *);
-
-/*
- * To get rid of collision of initializer symbols in statically-linked encodings
- * and transcoders
- */
-#if defined(EXTSTATIC) && EXTSTATIC
-# define TRANS_INIT(name) void Init_trans_ ## name(void)
-#else
-# define TRANS_INIT(name) void Init_ ## name(void)
-#endif
-
-RUBY_SYMBOL_EXPORT_END
-
-#endif /* RUBY_TRANSCODE_DATA_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/variable.h

@@ -1,39 +0,0 @@
-#ifndef RUBY_TOPLEVEL_VARIABLE_H                         /*-*-C-*-vi:se ft=c:*/
-#define RUBY_TOPLEVEL_VARIABLE_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.
- */
-
-/* per-object */
-
-#include "shape.h"
-
-struct gen_ivtbl {
-#if !SHAPE_IN_BASIC_FLAGS
-    uint16_t shape_id;
-#endif
-    union {
-        struct {
-            uint32_t numiv;
-            VALUE ivptr[1];
-        } shape;
-        struct {
-            st_table *table;
-        } complex;
-    } as;
-};
-
-int rb_ivar_generic_ivtbl_lookup(VALUE obj, struct gen_ivtbl **);
-
-#if !SHAPE_IN_BASIC_FLAGS
-shape_id_t rb_generic_shape_id(VALUE obj);
-#endif
-
-void rb_free_rb_global_tbl(void);
-void rb_free_generic_iv_tbl_(void);
-
-#endif /* RUBY_TOPLEVEL_VARIABLE_H */