debase-ruby_core_source 0.10.14 → 0.10.17

data/lib/debase/ruby_core_source/ruby-1.9.3-p550/eval_intern.h

@@ -1,234 +0,0 @@
-#ifndef RUBY_EVAL_INTERN_H
-#define RUBY_EVAL_INTERN_H
-
-#include "ruby/ruby.h"
-#include "vm_core.h"
-
-#define PASS_PASSED_BLOCK_TH(th) do { \
-    (th)->passed_block = GC_GUARDED_PTR_REF((rb_block_t *)(th)->cfp->lfp[0]); \
-    (th)->cfp->flag |= VM_FRAME_FLAG_PASSED; \
-} while (0)
-
-#define PASS_PASSED_BLOCK() do { \
-    rb_thread_t * const __th__ = GET_THREAD(); \
-    PASS_PASSED_BLOCK_TH(__th__); \
-} while (0)
-
-#ifdef HAVE_STDLIB_H
-#include <stdlib.h>
-#endif
-#ifndef EXIT_SUCCESS
-#define EXIT_SUCCESS 0
-#endif
-#ifndef EXIT_FAILURE
-#define EXIT_FAILURE 1
-#endif
-
-#include <stdio.h>
-#include <setjmp.h>
-
-#ifdef __APPLE__
-#include <crt_externs.h>
-#endif
-
-/* Make alloca work the best possible way.  */
-#ifdef __GNUC__
-# ifndef atarist
-#  ifndef alloca
-#   define alloca __builtin_alloca
-#  endif
-# endif	/* atarist */
-#else
-# ifdef HAVE_ALLOCA_H
-#  include <alloca.h>
-# else
-#  ifdef _AIX
-#pragma alloca
-#  else
-#   ifndef alloca		/* predefined by HP cc +Olibcalls */
-void *alloca();
-#   endif
-#  endif /* AIX */
-# endif	/* HAVE_ALLOCA_H */
-#endif /* __GNUC__ */
-
-#ifndef HAVE_STRING_H
-char *strrchr(const char *, const char);
-#endif
-
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-
-#ifdef HAVE_NET_SOCKET_H
-#include <net/socket.h>
-#endif
-
-#define ruby_setjmp(env) RUBY_SETJMP(env)
-#define ruby_longjmp(env,val) RUBY_LONGJMP((env),(val))
-#ifdef __CYGWIN__
-# ifndef _setjmp
-int _setjmp(jmp_buf);
-# endif
-# ifndef _longjmp
-NORETURN(void _longjmp(jmp_buf, int));
-# endif
-#endif
-
-#include <sys/types.h>
-#include <signal.h>
-#include <errno.h>
-
-#ifdef HAVE_SYS_SELECT_H
-#include <sys/select.h>
-#endif
-
-/*
-  Solaris sys/select.h switches select to select_large_fdset to support larger
-  file descriptors if FD_SETSIZE is larger than 1024 on 32bit environment.
-  But Ruby doesn't change FD_SETSIZE because fd_set is allocated dynamically.
-  So following definition is required to use select_large_fdset.
-*/
-#ifdef HAVE_SELECT_LARGE_FDSET
-#define select(n, r, w, e, t) select_large_fdset((n), (r), (w), (e), (t))
-extern int select_large_fdset(int, fd_set *, fd_set *, fd_set *, struct timeval *);
-#endif
-
-#ifdef HAVE_SYS_PARAM_H
-#include <sys/param.h>
-#endif
-
-#include <sys/stat.h>
-
-#define SAVE_ROOT_JMPBUF(th, stmt) do \
-  if (ruby_setjmp((th)->root_jmpbuf) == 0) { \
-      stmt; \
-  } \
-  else { \
-      rb_fiber_start(); \
-  } while (0)
-
-#define TH_PUSH_TAG(th) do { \
-  rb_thread_t * const _th = (th); \
-  struct rb_vm_tag _tag; \
-  _tag.tag = 0; \
-  _tag.prev = _th->tag; \
-  _th->tag = &_tag;
-
-#define TH_POP_TAG() \
-  _th->tag = _tag.prev; \
-} while (0)
-
-#define TH_POP_TAG2() \
-  _th->tag = _tag.prev
-
-#define PUSH_TAG() TH_PUSH_TAG(GET_THREAD())
-#define POP_TAG()      TH_POP_TAG()
-
-#define TH_EXEC_TAG() ruby_setjmp(_th->tag->buf)
-
-#define EXEC_TAG() \
-  TH_EXEC_TAG()
-
-#define TH_JUMP_TAG(th, st) do { \
-  ruby_longjmp((th)->tag->buf,(st)); \
-} while (0)
-
-#define JUMP_TAG(st) TH_JUMP_TAG(GET_THREAD(), (st))
-
-#define INTERNAL_EXCEPTION_P(exc) FIXNUM_P(exc)
-
-enum ruby_tag_type {
-    RUBY_TAG_RETURN	= 0x1,
-    RUBY_TAG_BREAK	= 0x2,
-    RUBY_TAG_NEXT	= 0x3,
-    RUBY_TAG_RETRY	= 0x4,
-    RUBY_TAG_REDO	= 0x5,
-    RUBY_TAG_RAISE	= 0x6,
-    RUBY_TAG_THROW	= 0x7,
-    RUBY_TAG_FATAL	= 0x8,
-    RUBY_TAG_MASK	= 0xf
-};
-#define TAG_RETURN	RUBY_TAG_RETURN
-#define TAG_BREAK	RUBY_TAG_BREAK
-#define TAG_NEXT	RUBY_TAG_NEXT
-#define TAG_RETRY	RUBY_TAG_RETRY
-#define TAG_REDO	RUBY_TAG_REDO
-#define TAG_RAISE	RUBY_TAG_RAISE
-#define TAG_THROW	RUBY_TAG_THROW
-#define TAG_FATAL	RUBY_TAG_FATAL
-#define TAG_MASK	RUBY_TAG_MASK
-
-#define NEW_THROW_OBJECT(val, pt, st) \
-  ((VALUE)rb_node_newnode(NODE_LIT, (VALUE)(val), (VALUE)(pt), (VALUE)(st)))
-#define SET_THROWOBJ_CATCH_POINT(obj, val) \
-  (RNODE((obj))->u2.value = (val))
-#define SET_THROWOBJ_STATE(obj, val) \
-  (RNODE((obj))->u3.value = (val))
-
-#define GET_THROWOBJ_VAL(obj)         ((VALUE)RNODE((obj))->u1.value)
-#define GET_THROWOBJ_CATCH_POINT(obj) ((VALUE*)RNODE((obj))->u2.value)
-#define GET_THROWOBJ_STATE(obj)       ((int)RNODE((obj))->u3.value)
-
-#define SCOPE_TEST(f)  (rb_vm_cref()->nd_visi & (f))
-#define SCOPE_CHECK(f) (rb_vm_cref()->nd_visi == (f))
-#define SCOPE_SET(f)   (rb_vm_cref()->nd_visi = (f))
-
-#define CHECK_STACK_OVERFLOW(cfp, margin) do \
-  if ((VALUE *)((char *)(((VALUE *)(cfp)->sp) + (margin)) + sizeof(rb_control_frame_t)) >= ((VALUE *)(cfp))) { \
-      rb_exc_raise(sysstack_error); \
-  } \
-while (0)
-
-void rb_thread_cleanup(void);
-void rb_thread_wait_other_threads(void);
-
-enum {
-    RAISED_EXCEPTION = 1,
-    RAISED_STACKOVERFLOW = 2,
-    RAISED_NOMEMORY = 4
-};
-int rb_threadptr_set_raised(rb_thread_t *th);
-int rb_threadptr_reset_raised(rb_thread_t *th);
-#define rb_thread_raised_set(th, f)   ((th)->raised_flag |= (f))
-#define rb_thread_raised_reset(th, f) ((th)->raised_flag &= ~(f))
-#define rb_thread_raised_p(th, f)     (((th)->raised_flag & (f)) != 0)
-#define rb_thread_raised_clear(th)    ((th)->raised_flag = 0)
-
-VALUE rb_f_eval(int argc, VALUE *argv, VALUE self);
-VALUE rb_make_exception(int argc, VALUE *argv);
-
-NORETURN(void rb_fiber_start(void));
-
-NORETURN(void rb_print_undef(VALUE, ID, int));
-NORETURN(void rb_vm_localjump_error(const char *,VALUE, int));
-NORETURN(void rb_vm_jump_tag_but_local_jump(int, VALUE));
-NORETURN(void rb_raise_method_missing(rb_thread_t *th, int argc, VALUE *argv,
-				      VALUE obj, int call_status));
-
-VALUE rb_vm_make_jump_tag_but_local_jump(int state, VALUE val);
-NODE *rb_vm_cref(void);
-VALUE rb_vm_call_cfunc(VALUE recv, VALUE (*func)(VALUE), VALUE arg, const rb_block_t *blockptr, VALUE filename);
-void rb_vm_set_progname(VALUE filename);
-void rb_thread_terminate_all(void);
-VALUE rb_vm_top_self();
-VALUE rb_vm_cbase(void);
-void rb_trap_restore_mask(void);
-
-#ifndef CharNext		/* defined as CharNext[AW] on Windows. */
-#define CharNext(p) ((p) + mblen((p), RUBY_MBCHAR_MAXSIZE))
-#endif
-
-#if defined DOSISH || defined __CYGWIN__
-static inline void
-translit_char(char *p, int from, int to)
-{
-    while (*p) {
-	if ((unsigned char)*p == from)
-	    *p = to;
-	p = CharNext(p);
-    }
-}
-#endif
-
-#endif /* RUBY_EVAL_INTERN_H */

data/lib/debase/ruby_core_source/ruby-1.9.3-p550/id.h

@@ -1,177 +0,0 @@
-/* DO NOT EDIT THIS FILE DIRECTLY */
-/**********************************************************************
-
-  id.h -
-
-  $Author: usa $
-  created at: Sun Oct 19 21:12:51 2008
-
-  Copyright (C) 2007 Koichi Sasada
-
-**********************************************************************/
-
-#ifndef RUBY_ID_H
-#define RUBY_ID_H
-
-#define ID_SCOPE_SHIFT 3
-#define ID_SCOPE_MASK 0x07
-#define ID_LOCAL      0x00
-#define ID_INSTANCE   0x01
-#define ID_GLOBAL     0x03
-#define ID_ATTRSET    0x04
-#define ID_CONST      0x05
-#define ID_CLASS      0x06
-#define ID_JUNK       0x07
-#define ID_INTERNAL   ID_JUNK
-
-#ifdef USE_PARSE_H
-#include "parse.h"
-#endif
-
-#include "vm_opts.h" /* for SUPPORT_JOKE */
-
-#define symIFUNC ID2SYM(idIFUNC)
-#define symCFUNC ID2SYM(idCFUNC)
-
-#if !defined tLAST_TOKEN && defined YYTOKENTYPE
-#define tLAST_TOKEN tLAST_TOKEN
-#endif
-
-enum ruby_method_ids {
-#ifndef tLAST_TOKEN
-    tUPLUS = 321,
-    tUMINUS = 322,
-    tPOW = 323,
-    tCMP = 324,
-    tEQ = 325,
-    tEQQ = 326,
-    tNEQ = 327,
-    tGEQ = 328,
-    tLEQ = 329,
-    tANDOP = 330,
-    tOROP = 331,
-    tMATCH = 332,
-    tNMATCH = 333,
-    tDOT2 = 334,
-    tDOT3 = 335,
-    tAREF = 336,
-    tASET = 337,
-    tLSHFT = 338,
-    tRSHFT = 339,
-    tLAMBDA = 352,
-    idNULL = 365,
-    idRespond_to = 366,
-    idIFUNC = 367,
-    idCFUNC = 368,
-    id_core_set_method_alias = 369,
-    id_core_set_variable_alias = 370,
-    id_core_undef_method = 371,
-    id_core_define_method = 372,
-    id_core_define_singleton_method = 373,
-    id_core_set_postexe = 374,
-    tLAST_TOKEN = 375,
-#endif
-    idDot2 = tDOT2,
-    idDot3 = tDOT3,
-    idUPlus = tUPLUS,
-    idUMinus = tUMINUS,
-    idPow = tPOW,
-    idCmp = tCMP,
-    idPLUS = '+',
-    idMINUS = '-',
-    idMULT = '*',
-    idDIV = '/',
-    idMOD = '%',
-    idLT = '<',
-    idLTLT = tLSHFT,
-    idLE = tLEQ,
-    idGT = '>',
-    idGE = tGEQ,
-    idEq = tEQ,
-    idEqq = tEQQ,
-    idNeq = tNEQ,
-    idNot = '!',
-    idBackquote = '`',
-    idEqTilde = tMATCH,
-    idNeqTilde = tNMATCH,
-    idAREF = tAREF,
-    idASET = tASET,
-    idLAST_TOKEN = tLAST_TOKEN >> ID_SCOPE_SHIFT,
-    tIntern,
-    tMethodMissing,
-    tLength,
-    tSize,
-    tGets,
-    tSucc,
-    tEach,
-    tProc,
-    tLambda,
-    tSend,
-    t__send__,
-    tInitialize,
-    tUScore,
-#if SUPPORT_JOKE
-    tBitblt,
-    tAnswer,
-#endif
-    tLAST_ID,
-#define TOKEN2ID(n) id##n = ((t##n<<ID_SCOPE_SHIFT)|ID_LOCAL)
-#if SUPPORT_JOKE
-    TOKEN2ID(Bitblt),
-    TOKEN2ID(Answer),
-#endif
-    TOKEN2ID(Intern),
-    TOKEN2ID(MethodMissing),
-    TOKEN2ID(Length),
-    TOKEN2ID(Size),
-    TOKEN2ID(Gets),
-    TOKEN2ID(Succ),
-    TOKEN2ID(Each),
-    TOKEN2ID(Proc),
-    TOKEN2ID(Lambda),
-    TOKEN2ID(Send),
-    TOKEN2ID(__send__),
-    TOKEN2ID(Initialize),
-    TOKEN2ID(UScore),
-    TOKEN2ID(LAST_ID)
-};
-
-#ifdef tLAST_TOKEN
-struct ruby_method_ids_check {
-#define ruby_method_id_check_for(name, value) \
-    int checking_for_##name[name == (value) ? 1 : -1]
-ruby_method_id_check_for(tUPLUS, 321);
-ruby_method_id_check_for(tUMINUS, 322);
-ruby_method_id_check_for(tPOW, 323);
-ruby_method_id_check_for(tCMP, 324);
-ruby_method_id_check_for(tEQ, 325);
-ruby_method_id_check_for(tEQQ, 326);
-ruby_method_id_check_for(tNEQ, 327);
-ruby_method_id_check_for(tGEQ, 328);
-ruby_method_id_check_for(tLEQ, 329);
-ruby_method_id_check_for(tANDOP, 330);
-ruby_method_id_check_for(tOROP, 331);
-ruby_method_id_check_for(tMATCH, 332);
-ruby_method_id_check_for(tNMATCH, 333);
-ruby_method_id_check_for(tDOT2, 334);
-ruby_method_id_check_for(tDOT3, 335);
-ruby_method_id_check_for(tAREF, 336);
-ruby_method_id_check_for(tASET, 337);
-ruby_method_id_check_for(tLSHFT, 338);
-ruby_method_id_check_for(tRSHFT, 339);
-ruby_method_id_check_for(tLAMBDA, 352);
-ruby_method_id_check_for(idNULL, 365);
-ruby_method_id_check_for(idRespond_to, 366);
-ruby_method_id_check_for(idIFUNC, 367);
-ruby_method_id_check_for(idCFUNC, 368);
-ruby_method_id_check_for(id_core_set_method_alias, 369);
-ruby_method_id_check_for(id_core_set_variable_alias, 370);
-ruby_method_id_check_for(id_core_undef_method, 371);
-ruby_method_id_check_for(id_core_define_method, 372);
-ruby_method_id_check_for(id_core_define_singleton_method, 373);
-ruby_method_id_check_for(id_core_set_postexe, 374);
-ruby_method_id_check_for(tLAST_TOKEN, 375);
-};
-#endif
-
-#endif /* RUBY_ID_H */

data/lib/debase/ruby_core_source/ruby-1.9.3-p550/insns.inc

@@ -1,179 +0,0 @@
-/** -*-c-*-
-  This file contains YARV instructions list.
-
-  ----
-  This file is auto generated by insns2vm.rb
-  DO NOT TOUCH!
-
-  If you want to fix something, you must edit 'template/insns.inc.tmpl'
-  or insns2vm.rb
- */
-
-
-/* BIN : Basic Instruction Name */
-#define BIN(n) YARVINSN_##n
-
-enum ruby_vminsn_type {
-  BIN(nop)                       = 0,
-
-  BIN(getlocal)                  = 1,
-
-  BIN(setlocal)                  = 2,
-
-  BIN(getspecial)                = 3,
-
-  BIN(setspecial)                = 4,
-
-  BIN(getdynamic)                = 5,
-
-  BIN(setdynamic)                = 6,
-
-  BIN(getinstancevariable)       = 7,
-
-  BIN(setinstancevariable)       = 8,
-
-  BIN(getclassvariable)          = 9,
-
-  BIN(setclassvariable)          = 10,
-
-  BIN(getconstant)               = 11,
-
-  BIN(setconstant)               = 12,
-
-  BIN(getglobal)                 = 13,
-
-  BIN(setglobal)                 = 14,
-
-  BIN(putnil)                    = 15,
-
-  BIN(putself)                   = 16,
-
-  BIN(putobject)                 = 17,
-
-  BIN(putspecialobject)          = 18,
-
-  BIN(putiseq)                   = 19,
-
-  BIN(putstring)                 = 20,
-
-  BIN(concatstrings)             = 21,
-
-  BIN(tostring)                  = 22,
-
-  BIN(toregexp)                  = 23,
-
-  BIN(newarray)                  = 24,
-
-  BIN(duparray)                  = 25,
-
-  BIN(expandarray)               = 26,
-
-  BIN(concatarray)               = 27,
-
-  BIN(splatarray)                = 28,
-
-  BIN(checkincludearray)         = 29,
-
-  BIN(newhash)                   = 30,
-
-  BIN(newrange)                  = 31,
-
-  BIN(pop)                       = 32,
-
-  BIN(dup)                       = 33,
-
-  BIN(dupn)                      = 34,
-
-  BIN(swap)                      = 35,
-
-  BIN(reput)                     = 36,
-
-  BIN(topn)                      = 37,
-
-  BIN(setn)                      = 38,
-
-  BIN(adjuststack)               = 39,
-
-  BIN(defined)                   = 40,
-
-  BIN(trace)                     = 41,
-
-  BIN(defineclass)               = 42,
-
-  BIN(send)                      = 43,
-
-  BIN(invokesuper)               = 44,
-
-  BIN(invokeblock)               = 45,
-
-  BIN(leave)                     = 46,
-
-  BIN(finish)                    = 47,
-
-  BIN(throw)                     = 48,
-
-  BIN(jump)                      = 49,
-
-  BIN(branchif)                  = 50,
-
-  BIN(branchunless)              = 51,
-
-  BIN(getinlinecache)            = 52,
-
-  BIN(onceinlinecache)           = 53,
-
-  BIN(setinlinecache)            = 54,
-
-  BIN(opt_case_dispatch)         = 55,
-
-  BIN(opt_checkenv)              = 56,
-
-  BIN(opt_plus)                  = 57,
-
-  BIN(opt_minus)                 = 58,
-
-  BIN(opt_mult)                  = 59,
-
-  BIN(opt_div)                   = 60,
-
-  BIN(opt_mod)                   = 61,
-
-  BIN(opt_eq)                    = 62,
-
-  BIN(opt_neq)                   = 63,
-
-  BIN(opt_lt)                    = 64,
-
-  BIN(opt_le)                    = 65,
-
-  BIN(opt_gt)                    = 66,
-
-  BIN(opt_ge)                    = 67,
-
-  BIN(opt_ltlt)                  = 68,
-
-  BIN(opt_aref)                  = 69,
-
-  BIN(opt_aset)                  = 70,
-
-  BIN(opt_length)                = 71,
-
-  BIN(opt_size)                  = 72,
-
-  BIN(opt_succ)                  = 73,
-
-  BIN(opt_not)                   = 74,
-
-  BIN(opt_regexpmatch1)          = 75,
-
-  BIN(opt_regexpmatch2)          = 76,
-
-  BIN(opt_call_c_function)       = 77,
-
-  BIN(bitblt)                    = 78,
-
-  BIN(answer)                    = 79,
-
-  VM_INSTRUCTION_SIZE            = 80
-};
-