debase-ruby_core_source 0.10.9 → 0.10.10

data/lib/debase/ruby_core_source/ruby-2.7.0-preview3/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-2.7.0-preview3/symbol.h

@@ -1,119 +0,0 @@
-/**********************************************************************
-
-  symbol.h -
-
-  $Author$
-  created at: Tue Jul  8 15:49:54 JST 2014
-
-  Copyright (C) 2014 Yukihiro Matsumoto
-
-**********************************************************************/
-
-#ifndef RUBY_SYMBOL_H
-#define RUBY_SYMBOL_H 1
-
-#include "id.h"
-
-#define DYNAMIC_ID_P(id) (!(id&ID_STATIC_SYM)&&id>tLAST_OP_ID)
-#define STATIC_ID2SYM(id)  (((VALUE)(id)<<RUBY_SPECIAL_SHIFT)|SYMBOL_FLAG)
-
-#ifdef HAVE_BUILTIN___BUILTIN_CONSTANT_P
-#define rb_id2sym(id) \
-    RB_GNUC_EXTENSION_BLOCK(__builtin_constant_p(id) && !DYNAMIC_ID_P(id) ? \
-               STATIC_ID2SYM(id) : rb_id2sym(id))
-#endif
-
-struct RSymbol {
-    struct RBasic basic;
-    st_index_t hashval;
-    VALUE fstr;
-    ID id;
-};
-
-#define RSYMBOL(obj) (R_CAST(RSymbol)(obj))
-
-#define is_notop_id(id) ((id)>tLAST_OP_ID)
-#define is_local_id(id) (id_type(id)==ID_LOCAL)
-#define is_global_id(id) (id_type(id)==ID_GLOBAL)
-#define is_instance_id(id) (id_type(id)==ID_INSTANCE)
-#define is_attrset_id(id) ((id)==idASET||id_type(id)==ID_ATTRSET)
-#define is_const_id(id) (id_type(id)==ID_CONST)
-#define is_class_id(id) (id_type(id)==ID_CLASS)
-#define is_junk_id(id) (id_type(id)==ID_JUNK)
-
-static inline int
-id_type(ID id)
-{
-    if (is_notop_id(id)) {
-   return (int)(id&ID_SCOPE_MASK);
-    }
-    else {
-   return -1;
-    }
-}
-
-typedef uint32_t rb_id_serial_t;
-static const uint32_t RB_ID_SERIAL_MAX = /* 256M on LP32 */
-    UINT32_MAX >>
-    ((sizeof(ID)-sizeof(rb_id_serial_t))*CHAR_BIT < RUBY_ID_SCOPE_SHIFT ?
-     RUBY_ID_SCOPE_SHIFT : 0);
-
-typedef struct {
-    rb_id_serial_t last_id;
-    st_table *str_sym;
-    VALUE ids;
-    VALUE dsymbol_fstr_hash;
-} rb_symbols_t;
-
-static inline rb_id_serial_t
-rb_id_to_serial(ID id)
-{
-    if (is_notop_id(id)) {
-   return (rb_id_serial_t)(id >> ID_SCOPE_SHIFT);
-    }
-    else {
-   return (rb_id_serial_t)id;
-    }
-}
-
-static inline int
-sym_type(VALUE sym)
-{
-    ID id;
-    if (STATIC_SYM_P(sym)) {
-   id = RSHIFT(sym, RUBY_SPECIAL_SHIFT);
-   if (id<=tLAST_OP_ID) {
-       return -1;
-   }
-    }
-    else {
-   id = RSYMBOL(sym)->id;
-    }
-    return (int)(id&ID_SCOPE_MASK);
-}
-
-#define is_local_sym(sym) (sym_type(sym)==ID_LOCAL)
-#define is_global_sym(sym) (sym_type(sym)==ID_GLOBAL)
-#define is_instance_sym(sym) (sym_type(sym)==ID_INSTANCE)
-#define is_attrset_sym(sym) (sym_type(sym)==ID_ATTRSET)
-#define is_const_sym(sym) (sym_type(sym)==ID_CONST)
-#define is_class_sym(sym) (sym_type(sym)==ID_CLASS)
-#define is_junk_sym(sym) (sym_type(sym)==ID_JUNK)
-
-RUBY_FUNC_EXPORTED const unsigned int ruby_global_name_punct_bits[(0x7e - 0x20 + 31) / 32];
-
-static inline int
-is_global_name_punct(const int c)
-{
-    if (c <= 0x20 || 0x7e < c) return 0;
-    return (ruby_global_name_punct_bits[(c - 0x20) / 32] >> (c % 32)) & 1;
-}
-
-int rb_enc_symname_type(const char *name, long len, rb_encoding *enc, unsigned int allowed_attrset);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-
-size_t rb_sym_immortal_count(void);
-
-RUBY_SYMBOL_EXPORT_END
-#endif

data/lib/debase/ruby_core_source/ruby-2.7.0-preview3/thread_pthread.h

@@ -1,75 +0,0 @@
-/**********************************************************************
-
-  thread_pthread.h -
-
-  $Author$
-
-  Copyright (C) 2004-2007 Koichi Sasada
-
-**********************************************************************/
-
-#ifndef RUBY_THREAD_PTHREAD_H
-#define RUBY_THREAD_PTHREAD_H
-
-#ifdef HAVE_PTHREAD_NP_H
-#include <pthread_np.h>
-#endif
-
-#define RB_NATIVETHREAD_LOCK_INIT PTHREAD_MUTEX_INITIALIZER
-#define RB_NATIVETHREAD_COND_INIT PTHREAD_COND_INITIALIZER
-
-typedef pthread_cond_t rb_nativethread_cond_t;
-
-typedef struct native_thread_data_struct {
-    union {
-        struct list_node ubf;
-        struct list_node gvl;
-    } node;
-#if defined(__GLIBC__) || defined(__FreeBSD__)
-    union
-#else
-    /*
-     * assume the platform condvars are badly implemented and have a
-     * "memory" of which mutex they're associated with
-     */
-    struct
-#endif
-    {
-        rb_nativethread_cond_t intr; /* th->interrupt_lock */
-        rb_nativethread_cond_t gvlq; /* vm->gvl.lock */
-    } cond;
-} native_thread_data_t;
-
-#undef except
-#undef try
-#undef leave
-#undef finally
-
-typedef struct rb_global_vm_lock_struct {
-    /* fast path */
-    const struct rb_thread_struct *owner;
-    rb_nativethread_lock_t lock; /* AKA vm->gvl.lock */
-
-    /*
-     * slow path, protected by vm->gvl.lock
-     * - @waitq - FIFO queue of threads waiting for GVL
-     * - @timer - it handles timeslices for @owner.  It is any one thread
-     *   in @waitq, there is no @timer if @waitq is empty, but always
-     *   a @timer if @waitq has entries
-     * - @timer_err tracks timeslice limit, the timeslice only resets
-     *   when pthread_cond_timedwait returns ETIMEDOUT, so frequent
-     *   switching between contended/uncontended GVL won't reset the
-     *   timer.
-     */
-    struct list_head waitq; /* <=> native_thread_data_t.node.ubf */
-    const struct rb_thread_struct *timer;
-    int timer_err;
-
-    /* yield */
-    rb_nativethread_cond_t switch_cond;
-    rb_nativethread_cond_t switch_wait_cond;
-    int need_yield;
-    int wait_yield;
-} rb_global_vm_lock_t;
-
-#endif /* RUBY_THREAD_PTHREAD_H */

data/lib/debase/ruby_core_source/ruby-2.7.0-preview3/thread_win32.h

@@ -1,36 +0,0 @@
-/**********************************************************************
-
-  thread_win32.h -
-
-  $Author$
-
-  Copyright (C) 2004-2007 Koichi Sasada
-
-**********************************************************************/
-
-/* interface */
-#ifndef RUBY_THREAD_WIN32_H
-#define RUBY_THREAD_WIN32_H
-
-# ifdef __CYGWIN__
-# undef _WIN32
-# endif
-
-WINBASEAPI BOOL WINAPI
-TryEnterCriticalSection(IN OUT LPCRITICAL_SECTION lpCriticalSection);
-
-typedef struct rb_thread_cond_struct {
-    struct cond_event_entry *next;
-    struct cond_event_entry *prev;
-} rb_nativethread_cond_t;
-
-typedef struct native_thread_data_struct {
-    HANDLE interrupt_event;
-} native_thread_data_t;
-
-typedef struct rb_global_vm_lock_struct {
-    HANDLE lock;
-} rb_global_vm_lock_t;
-
-#endif /* RUBY_THREAD_WIN32_H */
-

data/lib/debase/ruby_core_source/ruby-2.7.0-preview3/timev.h

@@ -1,56 +0,0 @@
-#ifndef RUBY_TIMEV_H
-#define RUBY_TIMEV_H
-
-#if 0
-struct vtm {/* dummy for TAGS */};
-#endif
-PACKED_STRUCT_UNALIGNED(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 */
-});
-
-#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-2.7.0-preview3/transcode_data.h

@@ -1,139 +0,0 @@
-/**********************************************************************
-
-  transcode_data.h -
-
-  $Author$
-  created at: Mon 10 Dec 2007 14:01:47 JST 2007
-
-  Copyright (C) 2007 Martin Duerst
-
-**********************************************************************/
-
-#include "ruby/ruby.h"
-
-#ifndef RUBY_TRANSCODE_DATA_H
-#define RUBY_TRANSCODE_DATA_H 1
-
-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 */