debase-ruby_core_source 0.7.4 → 0.7.5

data/lib/debase/ruby_core_source/ruby-2.2.0-preview2/iseq.h

@@ -1,157 +0,0 @@
-/**********************************************************************
-
-  iseq.h -
-
-  $Author: normal $
-  created at: 04/01/01 23:36:57 JST
-
-  Copyright (C) 2004-2008 Koichi Sasada
-
-**********************************************************************/
-
-#ifndef RUBY_COMPILE_H
-#define RUBY_COMPILE_H
-
-RUBY_SYMBOL_EXPORT_BEGIN
-
-/* compile.c */
-VALUE rb_iseq_compile_node(VALUE self, NODE *node);
-int rb_iseq_translate_threaded_code(rb_iseq_t *iseq);
-VALUE *rb_iseq_original_iseq(rb_iseq_t *iseq);
-VALUE rb_iseq_build_from_ary(rb_iseq_t *iseq, VALUE locals, VALUE args,
-			     VALUE exception, VALUE body);
-
-/* iseq.c */
-void rb_iseq_add_mark_object(rb_iseq_t *iseq, VALUE obj);
-VALUE rb_iseq_load(VALUE data, VALUE parent, VALUE opt);
-VALUE rb_iseq_parameters(const rb_iseq_t *iseq, int is_proc);
-struct st_table *ruby_insn_make_insn_table(void);
-unsigned int rb_iseq_line_no(const rb_iseq_t *iseq, size_t pos);
-
-int rb_iseq_line_trace_each(VALUE iseqval, int (*func)(int line, rb_event_flag_t *events_ptr, void *d), void *data);
-VALUE rb_iseq_line_trace_all(VALUE iseqval);
-VALUE rb_iseq_line_trace_specify(VALUE iseqval, VALUE pos, VALUE set);
-
-/* proc.c */
-rb_iseq_t *rb_method_get_iseq(VALUE body);
-rb_iseq_t *rb_proc_get_iseq(VALUE proc, int *is_proc);
-
-struct rb_compile_option_struct {
-    int inline_const_cache;
-    int peephole_optimization;
-    int tailcall_optimization;
-    int specialized_instruction;
-    int operands_unification;
-    int instructions_unification;
-    int stack_caching;
-    int trace_instruction;
-    int debug_level;
-};
-
-struct iseq_line_info_entry {
-    unsigned int position;
-    unsigned int line_no;
-};
-
-struct iseq_catch_table_entry {
-    enum catch_type {
-	CATCH_TYPE_RESCUE = INT2FIX(1),
-	CATCH_TYPE_ENSURE = INT2FIX(2),
-	CATCH_TYPE_RETRY  = INT2FIX(3),
-	CATCH_TYPE_BREAK  = INT2FIX(4),
-	CATCH_TYPE_REDO   = INT2FIX(5),
-	CATCH_TYPE_NEXT   = INT2FIX(6)
-    } type;
-    VALUE iseq;
-    unsigned int start;
-    unsigned int end;
-    unsigned int cont;
-    unsigned int sp;
-};
-
-PACKED_STRUCT_UNALIGNED(struct iseq_catch_table {
-    int size;
-    struct iseq_catch_table_entry entries[1]; /* flexible array */
-});
-
-static inline int
-iseq_catch_table_bytes(int n)
-{
-    enum {
-	catch_table_entries_max = (INT_MAX - sizeof(struct iseq_catch_table)) / sizeof(struct iseq_catch_table_entry)
-    };
-    if (n > catch_table_entries_max) rb_fatal("too large iseq_catch_table - %d", n);
-    return (int)(sizeof(struct iseq_catch_table) +
-		 (n - 1) * sizeof(struct iseq_catch_table_entry));
-}
-
-#define INITIAL_ISEQ_COMPILE_DATA_STORAGE_BUFF_SIZE (512)
-
-struct iseq_compile_data_storage {
-    struct iseq_compile_data_storage *next;
-    unsigned int pos;
-    unsigned int size;
-    char buff[1]; /* flexible array */
-};
-
-/* account for flexible array */
-#define SIZEOF_ISEQ_COMPILE_DATA_STORAGE \
-    (sizeof(struct iseq_compile_data_storage) - 1)
-
-struct iseq_compile_data {
-    /* GC is needed */
-    const VALUE err_info;
-    VALUE mark_ary;
-    const VALUE catch_table_ary;	/* Array */
-
-    /* GC is not needed */
-    struct iseq_label_data *start_label;
-    struct iseq_label_data *end_label;
-    struct iseq_label_data *redo_label;
-    VALUE current_block;
-    VALUE ensure_node;
-    VALUE for_iseq;
-    struct iseq_compile_data_ensure_node_stack *ensure_node_stack;
-    int loopval_popped;	/* used by NODE_BREAK */
-    int cached_const;
-    struct iseq_compile_data_storage *storage_head;
-    struct iseq_compile_data_storage *storage_current;
-    int last_line;
-    int last_coverable_line;
-    int label_no;
-    int node_level;
-    const rb_compile_option_t *option;
-#if SUPPORT_JOKE
-    st_table *labels_table;
-#endif
-};
-
-/* defined? */
-
-enum defined_type {
-    DEFINED_NIL = 1,
-    DEFINED_IVAR,
-    DEFINED_LVAR,
-    DEFINED_GVAR,
-    DEFINED_CVAR,
-    DEFINED_CONST,
-    DEFINED_METHOD,
-    DEFINED_YIELD,
-    DEFINED_ZSUPER,
-    DEFINED_SELF,
-    DEFINED_TRUE,
-    DEFINED_FALSE,
-    DEFINED_ASGN,
-    DEFINED_EXPR,
-    DEFINED_IVAR2,
-    DEFINED_REF,
-    DEFINED_FUNC
-};
-
-VALUE rb_iseq_defined_string(enum defined_type type);
-
-#define DEFAULT_SPECIAL_VAR_COUNT 2
-
-RUBY_SYMBOL_EXPORT_END
-
-#endif /* RUBY_COMPILE_H */

data/lib/debase/ruby_core_source/ruby-2.2.0-preview2/method.h

@@ -1,141 +0,0 @@
-/**********************************************************************
-
-  method.h -
-
-  $Author: normal $
-  created at: Wed Jul 15 20:02:33 2009
-
-  Copyright (C) 2009 Koichi Sasada
-
-**********************************************************************/
-#ifndef METHOD_H
-#define METHOD_H
-
-#include "internal.h"
-
-#ifndef END_OF_ENUMERATION
-# if defined(__GNUC__) &&! defined(__STRICT_ANSI__)
-#   define END_OF_ENUMERATION(key)
-# else
-#   define END_OF_ENUMERATION(key) END_OF_##key##_PLACEHOLDER = 0
-# endif
-#endif
-
-typedef enum {
-    NOEX_PUBLIC    = 0x00,
-    NOEX_NOSUPER   = 0x01,
-    NOEX_PRIVATE   = 0x02,
-    NOEX_PROTECTED = 0x04,
-    NOEX_MASK      = 0x06,
-    NOEX_BASIC     = 0x08,
-    NOEX_UNDEF     = NOEX_NOSUPER,
-    NOEX_MODFUNC   = 0x12,
-    NOEX_SUPER     = 0x20,
-    NOEX_VCALL     = 0x40,
-    NOEX_RESPONDS  = 0x80,
-
-    NOEX_BIT_WIDTH = 8,
-    NOEX_SAFE_SHIFT_OFFSET = ((NOEX_BIT_WIDTH+3)/4)*4 /* round up to nibble */
-} rb_method_flag_t;
-
-#define NOEX_SAFE(n) ((int)((n) >> NOEX_SAFE_SHIFT_OFFSET) & 0x0F)
-#define NOEX_WITH(n, s) (((s) << NOEX_SAFE_SHIFT_OFFSET) | (n) | (ruby_running ? 0 : NOEX_BASIC))
-#define NOEX_WITH_SAFE(n) NOEX_WITH((n), rb_safe_level())
-
-/* method data type */
-
-typedef enum {
-    VM_METHOD_TYPE_ISEQ,
-    VM_METHOD_TYPE_CFUNC,
-    VM_METHOD_TYPE_ATTRSET,
-    VM_METHOD_TYPE_IVAR,
-    VM_METHOD_TYPE_BMETHOD,
-    VM_METHOD_TYPE_ZSUPER,
-    VM_METHOD_TYPE_UNDEF,
-    VM_METHOD_TYPE_NOTIMPLEMENTED,
-    VM_METHOD_TYPE_OPTIMIZED, /* Kernel#send, Proc#call, etc */
-    VM_METHOD_TYPE_MISSING,   /* wrapper for method_missing(id) */
-    VM_METHOD_TYPE_REFINED,
-
-    END_OF_ENUMERATION(VM_METHOD_TYPE)
-} rb_method_type_t;
-
-struct rb_call_info_struct;
-
-typedef struct rb_method_cfunc_struct {
-    VALUE (*func)(ANYARGS);
-    VALUE (*invoker)(VALUE (*func)(ANYARGS), VALUE recv, int argc, const VALUE *argv);
-    int argc;
-} rb_method_cfunc_t;
-
-typedef struct rb_method_attr_struct {
-    ID id;
-    const VALUE location;
-} rb_method_attr_t;
-
-typedef struct rb_iseq_struct rb_iseq_t;
-
-typedef struct rb_method_definition_struct {
-    rb_method_type_t type; /* method type */
-    int alias_count;
-    ID original_id;
-    union {
-	rb_iseq_t * const iseq;            /* should be mark */
-	rb_method_cfunc_t cfunc;
-	rb_method_attr_t attr;
-	const VALUE proc;                 /* should be mark */
-	enum method_optimized_type {
-	    OPTIMIZED_METHOD_TYPE_SEND,
-	    OPTIMIZED_METHOD_TYPE_CALL,
-
-	    OPTIMIZED_METHOD_TYPE__MAX
-	} optimize_type;
-	struct rb_method_entry_struct *orig_me;
-    } body;
-} rb_method_definition_t;
-
-typedef struct rb_method_entry_struct {
-    rb_method_flag_t flag;
-    char mark;
-    rb_method_definition_t *def;
-    ID called_id;
-    VALUE klass;                    /* should be mark */
-} rb_method_entry_t;
-
-struct unlinked_method_entry_list_entry {
-    struct unlinked_method_entry_list_entry *next;
-    rb_method_entry_t *me;
-};
-
-#define UNDEFINED_METHOD_ENTRY_P(me) (!(me) || !(me)->def || (me)->def->type == VM_METHOD_TYPE_UNDEF)
-
-void rb_add_method_cfunc(VALUE klass, ID mid, VALUE (*func)(ANYARGS), int argc, rb_method_flag_t noex);
-rb_method_entry_t *rb_add_method(VALUE klass, ID mid, rb_method_type_t type, void *option, rb_method_flag_t noex);
-rb_method_entry_t *rb_method_entry(VALUE klass, ID id, VALUE *define_class_ptr);
-rb_method_entry_t *rb_method_entry_at(VALUE obj, ID id);
-void rb_add_refined_method_entry(VALUE refined_class, ID mid);
-rb_method_entry_t *rb_resolve_refined_method(VALUE refinements,
-					     const rb_method_entry_t *me,
-					     VALUE *defined_class_ptr);
-rb_method_entry_t *rb_method_entry_with_refinements(VALUE klass, ID id,
-						    VALUE *defined_class_ptr);
-rb_method_entry_t *rb_method_entry_without_refinements(VALUE klass, ID id,
-						       VALUE *defined_class_ptr);
-
-rb_method_entry_t *rb_method_entry_get_without_cache(VALUE klass, ID id, VALUE *define_class_ptr);
-rb_method_entry_t *rb_method_entry_set(VALUE klass, ID mid, const rb_method_entry_t *, rb_method_flag_t noex);
-
-int rb_method_entry_arity(const rb_method_entry_t *me);
-int rb_method_entry_eq(const rb_method_entry_t *m1, const rb_method_entry_t *m2);
-st_index_t rb_hash_method_entry(st_index_t hash, const rb_method_entry_t *me);
-
-VALUE rb_method_entry_location(rb_method_entry_t *me);
-VALUE rb_mod_method_location(VALUE mod, ID id);
-VALUE rb_obj_method_location(VALUE obj, ID id);
-
-void rb_mark_method_entry(const rb_method_entry_t *me);
-void rb_free_method_entry(rb_method_entry_t *me);
-void rb_sweep_method_entry(void *vm);
-void rb_free_m_tbl_wrapper(struct method_table_wrapper *wrapper);
-
-#endif /* METHOD_H */

data/lib/debase/ruby_core_source/ruby-2.2.0-preview2/node_name.inc

@@ -1,212 +0,0 @@
-      case NODE_SCOPE:
-	return "NODE_SCOPE";
-      case NODE_BLOCK:
-	return "NODE_BLOCK";
-      case NODE_IF:
-	return "NODE_IF";
-      case NODE_CASE:
-	return "NODE_CASE";
-      case NODE_WHEN:
-	return "NODE_WHEN";
-      case NODE_OPT_N:
-	return "NODE_OPT_N";
-      case NODE_WHILE:
-	return "NODE_WHILE";
-      case NODE_UNTIL:
-	return "NODE_UNTIL";
-      case NODE_ITER:
-	return "NODE_ITER";
-      case NODE_FOR:
-	return "NODE_FOR";
-      case NODE_BREAK:
-	return "NODE_BREAK";
-      case NODE_NEXT:
-	return "NODE_NEXT";
-      case NODE_REDO:
-	return "NODE_REDO";
-      case NODE_RETRY:
-	return "NODE_RETRY";
-      case NODE_BEGIN:
-	return "NODE_BEGIN";
-      case NODE_RESCUE:
-	return "NODE_RESCUE";
-      case NODE_RESBODY:
-	return "NODE_RESBODY";
-      case NODE_ENSURE:
-	return "NODE_ENSURE";
-      case NODE_AND:
-	return "NODE_AND";
-      case NODE_OR:
-	return "NODE_OR";
-      case NODE_MASGN:
-	return "NODE_MASGN";
-      case NODE_LASGN:
-	return "NODE_LASGN";
-      case NODE_DASGN:
-	return "NODE_DASGN";
-      case NODE_DASGN_CURR:
-	return "NODE_DASGN_CURR";
-      case NODE_GASGN:
-	return "NODE_GASGN";
-      case NODE_IASGN:
-	return "NODE_IASGN";
-      case NODE_IASGN2:
-	return "NODE_IASGN2";
-      case NODE_CDECL:
-	return "NODE_CDECL";
-      case NODE_CVASGN:
-	return "NODE_CVASGN";
-      case NODE_CVDECL:
-	return "NODE_CVDECL";
-      case NODE_OP_ASGN1:
-	return "NODE_OP_ASGN1";
-      case NODE_OP_ASGN2:
-	return "NODE_OP_ASGN2";
-      case NODE_OP_ASGN_AND:
-	return "NODE_OP_ASGN_AND";
-      case NODE_OP_ASGN_OR:
-	return "NODE_OP_ASGN_OR";
-      case NODE_OP_CDECL:
-	return "NODE_OP_CDECL";
-      case NODE_CALL:
-	return "NODE_CALL";
-      case NODE_FCALL:
-	return "NODE_FCALL";
-      case NODE_VCALL:
-	return "NODE_VCALL";
-      case NODE_SUPER:
-	return "NODE_SUPER";
-      case NODE_ZSUPER:
-	return "NODE_ZSUPER";
-      case NODE_ARRAY:
-	return "NODE_ARRAY";
-      case NODE_ZARRAY:
-	return "NODE_ZARRAY";
-      case NODE_VALUES:
-	return "NODE_VALUES";
-      case NODE_HASH:
-	return "NODE_HASH";
-      case NODE_RETURN:
-	return "NODE_RETURN";
-      case NODE_YIELD:
-	return "NODE_YIELD";
-      case NODE_LVAR:
-	return "NODE_LVAR";
-      case NODE_DVAR:
-	return "NODE_DVAR";
-      case NODE_GVAR:
-	return "NODE_GVAR";
-      case NODE_IVAR:
-	return "NODE_IVAR";
-      case NODE_CONST:
-	return "NODE_CONST";
-      case NODE_CVAR:
-	return "NODE_CVAR";
-      case NODE_NTH_REF:
-	return "NODE_NTH_REF";
-      case NODE_BACK_REF:
-	return "NODE_BACK_REF";
-      case NODE_MATCH:
-	return "NODE_MATCH";
-      case NODE_MATCH2:
-	return "NODE_MATCH2";
-      case NODE_MATCH3:
-	return "NODE_MATCH3";
-      case NODE_LIT:
-	return "NODE_LIT";
-      case NODE_STR:
-	return "NODE_STR";
-      case NODE_DSTR:
-	return "NODE_DSTR";
-      case NODE_XSTR:
-	return "NODE_XSTR";
-      case NODE_DXSTR:
-	return "NODE_DXSTR";
-      case NODE_EVSTR:
-	return "NODE_EVSTR";
-      case NODE_DREGX:
-	return "NODE_DREGX";
-      case NODE_DREGX_ONCE:
-	return "NODE_DREGX_ONCE";
-      case NODE_ARGS:
-	return "NODE_ARGS";
-      case NODE_ARGS_AUX:
-	return "NODE_ARGS_AUX";
-      case NODE_OPT_ARG:
-	return "NODE_OPT_ARG";
-      case NODE_KW_ARG:
-	return "NODE_KW_ARG";
-      case NODE_POSTARG:
-	return "NODE_POSTARG";
-      case NODE_ARGSCAT:
-	return "NODE_ARGSCAT";
-      case NODE_ARGSPUSH:
-	return "NODE_ARGSPUSH";
-      case NODE_SPLAT:
-	return "NODE_SPLAT";
-      case NODE_TO_ARY:
-	return "NODE_TO_ARY";
-      case NODE_BLOCK_ARG:
-	return "NODE_BLOCK_ARG";
-      case NODE_BLOCK_PASS:
-	return "NODE_BLOCK_PASS";
-      case NODE_DEFN:
-	return "NODE_DEFN";
-      case NODE_DEFS:
-	return "NODE_DEFS";
-      case NODE_ALIAS:
-	return "NODE_ALIAS";
-      case NODE_VALIAS:
-	return "NODE_VALIAS";
-      case NODE_UNDEF:
-	return "NODE_UNDEF";
-      case NODE_CLASS:
-	return "NODE_CLASS";
-      case NODE_MODULE:
-	return "NODE_MODULE";
-      case NODE_SCLASS:
-	return "NODE_SCLASS";
-      case NODE_COLON2:
-	return "NODE_COLON2";
-      case NODE_COLON3:
-	return "NODE_COLON3";
-      case NODE_CREF:
-	return "NODE_CREF";
-      case NODE_DOT2:
-	return "NODE_DOT2";
-      case NODE_DOT3:
-	return "NODE_DOT3";
-      case NODE_FLIP2:
-	return "NODE_FLIP2";
-      case NODE_FLIP3:
-	return "NODE_FLIP3";
-      case NODE_SELF:
-	return "NODE_SELF";
-      case NODE_NIL:
-	return "NODE_NIL";
-      case NODE_TRUE:
-	return "NODE_TRUE";
-      case NODE_FALSE:
-	return "NODE_FALSE";
-      case NODE_ERRINFO:
-	return "NODE_ERRINFO";
-      case NODE_DEFINED:
-	return "NODE_DEFINED";
-      case NODE_POSTEXE:
-	return "NODE_POSTEXE";
-      case NODE_ALLOCA:
-	return "NODE_ALLOCA";
-      case NODE_BMETHOD:
-	return "NODE_BMETHOD";
-      case NODE_MEMO:
-	return "NODE_MEMO";
-      case NODE_IFUNC:
-	return "NODE_IFUNC";
-      case NODE_DSYM:
-	return "NODE_DSYM";
-      case NODE_ATTRASGN:
-	return "NODE_ATTRASGN";
-      case NODE_PRELUDE:
-	return "NODE_PRELUDE";
-      case NODE_LAMBDA:
-	return "NODE_LAMBDA";