ruby-internal 0.7.3 → 0.8.0

data/ext/cached/ruby-1.8.1/internal/node/nodeinfo.h

@@ -1,69 +0,0 @@
-#ifndef nodeinfo_h
-#define nodeinfo_h
-
-#include "ruby_internal_node.h"
-
-#include "ruby.h"
-
-enum Node_Elem_Name
-{
-  NEN_NONE,
-  NEN_1ST,
-  NEN_2ND,
-  NEN_AID,
-  NEN_ALEN,
-  NEN_ARGC,
-  NEN_ARGS,
-  NEN_BEG,
-  NEN_BODY,
-  NEN_CFLAG,
-  NEN_CFNC,
-  NEN_CLSS,
-  NEN_CNT,
-  NEN_COND,
-  NEN_CPATH,
-  NEN_CVAL,
-  NEN_DEFN,
-  NEN_ELSE,
-  NEN_END,
-  NEN_ENSR,
-  NEN_ENTRY,
-  NEN_FRML,
-  NEN_HEAD,
-  NEN_IBDY,
-  NEN_ITER,
-  NEN_LIT,
-  NEN_MID,
-  NEN_MODL,
-  NEN_NEW,
-  NEN_NEXT,
-  NEN_NOEX,
-  NEN_NTH,
-  NEN_OLD,
-  NEN_OPT,
-  NEN_ORIG,
-  NEN_RECV,
-  NEN_RESQ,
-  NEN_REST,
-  NEN_RVAL,
-  NEN_STATE,
-  NEN_STTS,
-  NEN_SUPER,
-  NEN_TAG,
-  NEN_TBL,
-  NEN_TVAL,
-  NEN_VALUE,
-  NEN_VAR,
-  NEN_VID,
-};
-
-VALUE dump_node_elem(enum Node_Elem_Name nen, NODE * n, VALUE node_hash);
-void load_node_elem(enum Node_Elem_Name nen, VALUE v, NODE * n, VALUE node_hash, VALUE id_hash);
-VALUE node_s_members(VALUE klass);
-void define_node_subclass_methods();
-
-#define NODE_OP_ASGN2_ARG NODE_LAST + 1
-#define NUM_NODE_TYPE_DESCRIPS NODE_OP_ASGN2_ARG + 1
-
-#endif
-

data/ext/cached/ruby-1.8.1/internal/proc/block.h

@@ -1,31 +0,0 @@
-#ifndef ruby_internal_block__h_
-#define ruby_internal_block__h_
-
-#include <ruby.h>
-
-#ifndef RUBY_VM
-#include "env.h"
-#endif
-
-struct BLOCK {
-    NODE *var;
-    NODE *body;
-    VALUE self;
-    struct FRAME frame;
-    struct SCOPE *scope;
-    VALUE klass;
-    NODE *cref;
-    int iter;
-    int vmode;
-    int flags;
-    struct RVarmap *dyna_vars;
-    VALUE orig_thread;
-    VALUE wrapper;
-    VALUE block_obj;
-    struct BLOCK *outer;
-    struct BLOCK *prev;
-};
-
-
-#endif
-

data/ext/cached/ruby-1.8.1/internal/tag/tag.h

@@ -1,16 +0,0 @@
-#include <ruby.h>
-
-#ifdef RUBY_VM
-#include "eval_intern.h"
-#endif
-
-#define TAG_DST() (_tag.dst == (VALUE)ruby_frame->uniq)
-#define TAG_RETURN	0x1
-#define TAG_BREAK	0x2
-#define TAG_NEXT	0x3
-#define TAG_RETRY	0x4
-#define TAG_REDO	0x5
-#define TAG_RAISE	0x6
-#define TAG_THROW	0x7
-#define TAG_FATAL	0x8
-#define TAG_MASK	0xf

data/ext/cached/ruby-1.8.1/internal/vm/instruction/insns_info.c

@@ -1,39 +0,0 @@
-#include "insns_info.h"
-
-#ifdef RUBY_VM
-
-
-VALUE instruction_class[VM_INSTRUCTION_SIZE];
-
-static ID operand_type_name_of(int operand_type)
-{
-  char const * retval = "????";
-
-  switch(operand_type)
-  {
-    case TS_ISEQ: retval = "iseq"; break;
-    case TS_GENTRY: retval = "gentry"; break;
-    case TS_OFFSET: retval = "operand"; break;
-    case TS_DINDEX: retval = "dindex"; break;
-    case TS_VARIABLE: retval = "variable"; break;
-    case TS_CDHASH: retval = "cdhash"; break;
-    case TS_IC: retval = "ic"; break;
-    case TS_ID: retval = "id"; break;
-    case TS_VALUE: retval = "value"; break;
-    case TS_LINDEX: retval = "lindex"; break;
-    case TS_NUM: retval = "num"; break;
-  }
-
-  return rb_intern(retval);
-}
-
-
-void define_instruction_subclasses(VALUE rb_cInstruction)
-{
-  /* For rdoc: rb_cVM = rb_define_class("VM", rb_cObject); */
-  /* For rdoc: rb_cInstruction = rb_define_class_under(rb_cVM, "Instruction", rb_cObject); */
-
-}
-
-#endif
-

data/ext/cached/ruby-1.8.1/internal/vm/instruction/insns_info.h

@@ -1,21 +0,0 @@
-#ifndef insns_info__h_
-#define insns_info__h_
-
-#include "ruby.h"
-
-#ifdef RUBY_VM
-
-#include "vm_core.h"
-
-#ifdef HAVE_VM_H
-#include "vm.h"
-#endif
-
-
-extern VALUE instruction_class[VM_INSTRUCTION_SIZE];
-void define_instruction_subclasses(VALUE rb_cInstruction);
-
-#endif
-
-#endif
-

data/ext/cached/ruby-1.8.1/internal/vm/iseq/insns_info.inc

@@ -1,12 +0,0 @@
-#ifndef ruby_internal_insns_info__inc_
-#define ruby_internal_insns_info__inc_
-
-#include <ruby.h>
-
-#ifndef RUBY_VM
-#include "env.h"
-#endif
-
-
-#endif
-

data/ext/cached/ruby-1.8.1/internal/vm/iseq/iseq_load.inc

@@ -1,9 +0,0 @@
-#ifndef ruby_internal_iseq_load__inc_
-#define ruby_internal_iseq_load__inc_
-
-#include "internal/yarv-headers/gc.h"
-#include "internal/yarv-headers/iseq.h"
-
-
-#endif
-

data/ext/cached/ruby-1.8.2/internal/binding/block.h

@@ -1,32 +0,0 @@
-#ifndef ruby_internal_block__h_
-#define ruby_internal_block__h_
-
-#include <ruby.h>
-
-#ifndef RUBY_VM
-#include "env.h"
-#endif
-
-struct BLOCK {
-    NODE *var;
-    NODE *body;
-    VALUE self;
-    struct FRAME frame;
-    struct SCOPE *scope;
-    VALUE klass;
-    NODE *cref;
-    int iter;
-    int vmode;
-    int flags;
-    int uniq;
-    struct RVarmap *dyna_vars;
-    VALUE orig_thread;
-    VALUE wrapper;
-    VALUE block_obj;
-    struct BLOCK *outer;
-    struct BLOCK *prev;
-};
-
-
-#endif
-

data/ext/cached/ruby-1.8.2/internal/method/method.h

@@ -1,19 +0,0 @@
-#ifndef ruby_internal_method__h_
-#define ruby_internal_method__h_
-
-#include <ruby.h>
-
-#include "internal/node/ruby_internal_node.h"
-
-struct METHOD {
-    VALUE klass, rklass;
-    VALUE recv;
-    ID id, oid;
-    NODE *body;
-};
-
-#define METHOD_OCLASS(m) m->klass
-#define METHOD_RCLASS(m) m->rklass
-
-#endif
-

data/ext/cached/ruby-1.8.2/internal/module/classpath.c

@@ -1,45 +0,0 @@
-#include "classpath.h"
-
-VALUE
-class2path(klass)
-    VALUE klass;
-{
-    VALUE path = rb_class_path(klass);
-    char *n = RSTRING(path)->ptr;
-
-    if (n[0] == '#') {
-	rb_raise(rb_eTypeError, "can't dump anonymous %s %s",
-		 (TYPE(klass) == T_CLASS ? "class" : "module"),
-		 n);
-    }
-    if (rb_path2class(n) != rb_class_real(klass)) {
-	rb_raise(rb_eTypeError, "%s cannot be referred", n);
-    }
-    return path;
-}
-
-VALUE
-path2class(path)
-    char *path;
-{
-    VALUE v = rb_path2class(path);
-
-    if (TYPE(v) != T_CLASS) {
-	rb_raise(rb_eArgError, "%s does not refer class", path);
-    }
-    return v;
-}
-
-VALUE
-path2module(path)
-    char *path;
-{
-    VALUE v = rb_path2class(path);
-
-    if (TYPE(v) != T_MODULE) {
-	rb_raise(rb_eArgError, "%s does not refer module", path);
-    }
-    return v;
-}
-
-

data/ext/cached/ruby-1.8.2/internal/module/classpath.h

@@ -1,17 +0,0 @@
-#ifndef CLASSPATH_H
-#define CLASSPATH_H
-
-#include "ruby.h"
-
-VALUE class2path(
-    VALUE klass
-);
-VALUE path2class(
-    char *path
-);
-VALUE path2module(
-    char *path
-);
-
-#endif
-

data/ext/cached/ruby-1.8.2/internal/node/block.h

@@ -1,32 +0,0 @@
-#ifndef ruby_internal_block__h_
-#define ruby_internal_block__h_
-
-#include <ruby.h>
-
-#ifndef RUBY_VM
-#include "env.h"
-#endif
-
-struct BLOCK {
-    NODE *var;
-    NODE *body;
-    VALUE self;
-    struct FRAME frame;
-    struct SCOPE *scope;
-    VALUE klass;
-    NODE *cref;
-    int iter;
-    int vmode;
-    int flags;
-    int uniq;
-    struct RVarmap *dyna_vars;
-    VALUE orig_thread;
-    VALUE wrapper;
-    VALUE block_obj;
-    struct BLOCK *outer;
-    struct BLOCK *prev;
-};
-
-
-#endif
-

data/ext/cached/ruby-1.8.2/internal/node/global_entry.h

@@ -1,10 +0,0 @@
-#ifndef global_entry__h_
-#define global_entry__h_
-
-struct global_entry {
-    struct global_variable *var;
-    ID id;
-};
-
-#endif
-

data/ext/cached/ruby-1.8.2/internal/node/node_type_descrip.c

@@ -1,154 +0,0 @@
-#include "node_type_descrip.h"
-#include "version.h"
-
-Node_Type_Descrip node_type_descrips_unsorted[] = {
-  { NODE_ALIAS, NEN_1ST, NEN_2ND, NEN_NONE, "ALIAS" },
-#ifdef HAVE_NODE_ALLOCA
-  { NODE_ALLOCA, NEN_CFNC, NEN_VALUE, NEN_CNT, "ALLOCA" },
-#endif
-  { NODE_AND, NEN_1ST, NEN_2ND, NEN_NONE, "AND" },
-  { NODE_ARGS, NEN_REST, NEN_OPT, NEN_CNT, "ARGS" },
-  { NODE_ARGSCAT, NEN_HEAD, NEN_BODY, NEN_NONE, "ARGSCAT" },
-  { NODE_ARGSPUSH, NEN_HEAD, NEN_BODY, NEN_NONE, "ARGSPUSH" },
-  { NODE_ARRAY, NEN_HEAD, NEN_ALEN, NEN_NEXT, "ARRAY" },
-  { NODE_ATTRASGN, NEN_ARGS, NEN_MID, NEN_RECV, "ATTRASGN" },
-  { NODE_ATTRSET, NEN_VID, NEN_NONE, NEN_NONE, "ATTRSET" },
-  { NODE_BACK_REF, NEN_NTH, NEN_CNT, NEN_NONE, "BACK_REF" },
-  { NODE_BEGIN, NEN_BODY, NEN_NONE, NEN_NONE, "BEGIN" },
-  { NODE_BLOCK, NEN_HEAD, NEN_NEXT, NEN_NONE, "BLOCK" },
-  { NODE_BLOCK_ARG, NEN_CNT, NEN_NONE, NEN_NONE, "BLOCK_ARG" },
-  { NODE_BLOCK_PASS, NEN_BODY, NEN_ITER, NEN_NONE, "BLOCK_PASS" },
-  { NODE_BMETHOD, NEN_CVAL, NEN_NONE, NEN_NONE, "BMETHOD" },
-  { NODE_BREAK, NEN_STTS, NEN_NONE, NEN_NONE, "BREAK" },
-  { NODE_CALL, NEN_ARGS, NEN_MID, NEN_RECV, "CALL" },
-  { NODE_CASE, NEN_HEAD, NEN_BODY, NEN_NEXT, "CASE" },
-  { NODE_CDECL, NEN_VALUE, NEN_VID, NEN_NONE, "CDECL" },
-  { NODE_CFUNC, NEN_CFNC, NEN_ARGC, NEN_NONE, "CFUNC" },
-  { NODE_CLASS, NEN_CPATH, NEN_BODY, NEN_SUPER, "CLASS" },
-  { NODE_COLON2, NEN_HEAD, NEN_MID, NEN_NONE, "COLON2" },
-  { NODE_COLON3, NEN_MID, NEN_NONE, NEN_NONE, "COLON3" },
-  { NODE_CONST, NEN_VID, NEN_NONE, NEN_NONE, "CONST" },
-  { NODE_CREF, NEN_BODY, NEN_NEXT, NEN_CLSS, "CREF" },
-  { NODE_CVAR, NEN_VID, NEN_NONE, NEN_NONE, "CVAR" },
-  { NODE_CVASGN, NEN_VALUE, NEN_VID, NEN_NONE, "CVASGN" },
-  { NODE_CVDECL, NEN_VALUE, NEN_VID, NEN_NONE, "CVDECL" },
-  { NODE_DASGN, NEN_VALUE, NEN_VID, NEN_NONE, "DASGN" },
-  { NODE_DASGN_CURR, NEN_VALUE, NEN_VID, NEN_NONE, "DASGN_CURR" },
-  { NODE_DEFINED, NEN_HEAD, NEN_NONE, NEN_NONE, "DEFINED" },
-  { NODE_DEFN, NEN_DEFN, NEN_MID, NEN_NOEX, "DEFN" },
-  { NODE_DEFS, NEN_DEFN, NEN_MID, NEN_RECV, "DEFS" },
-  { NODE_DMETHOD, NEN_CVAL, NEN_NONE, NEN_NONE, "DMETHOD" },
-  { NODE_DOT2, NEN_BEG, NEN_END, NEN_STATE, "DOT2" },
-  { NODE_DOT3, NEN_BEG, NEN_END, NEN_STATE, "DOT3" },
-  { NODE_DREGX, NEN_LIT, NEN_CFLAG, NEN_NEXT, "DREGX" },
-  { NODE_DREGX_ONCE, NEN_LIT, NEN_CFLAG, NEN_NEXT, "DREGX_ONCE" },
-  { NODE_DSTR, NEN_LIT, NEN_NEXT, NEN_NONE, "DSTR" },
-  { NODE_DSYM, NEN_LIT, NEN_NEXT, NEN_NONE, "DSYM" },
-  { NODE_DVAR, NEN_VID, NEN_NONE, NEN_NONE, "DVAR" },
-  { NODE_DXSTR, NEN_LIT, NEN_NEXT, NEN_NONE, "DXSTR" },
-  { NODE_ENSURE, NEN_HEAD, NEN_ENSR, NEN_NONE, "ENSURE" },
-  { NODE_EVSTR, NEN_BODY, NEN_NONE, NEN_NONE, "EVSTR" },
-  { NODE_FALSE, NEN_NONE, NEN_NONE, NEN_NONE, "FALSE" },
-  { NODE_FBODY, NEN_HEAD, NEN_ORIG, NEN_MID, "FBODY" },
-  { NODE_FCALL, NEN_ARGS, NEN_MID, NEN_NONE, "FCALL" },
-  { NODE_FLIP2, NEN_BEG, NEN_END, NEN_CNT, "FLIP2" },
-  { NODE_FLIP3, NEN_BEG, NEN_END, NEN_CNT, "FLIP3" },
-  { NODE_FOR, NEN_BODY, NEN_ITER, NEN_VAR, "FOR" },
-  { NODE_GASGN, NEN_VALUE, NEN_VID, NEN_ENTRY, "GASGN" },
-  { NODE_GVAR, NEN_VID, NEN_ENTRY, NEN_NONE, "GVAR" },
-  { NODE_HASH, NEN_HEAD, NEN_NONE, NEN_NONE, "HASH" },
-  { NODE_IASGN, NEN_VALUE, NEN_VID, NEN_NONE, "IASGN" },
-  { NODE_IF, NEN_COND, NEN_BODY, NEN_ELSE, "IF" },
-  { NODE_IFUNC, NEN_CFNC, NEN_TVAL, NEN_STATE, "IFUNC" },
-  { NODE_ITER, NEN_BODY, NEN_ITER, NEN_VAR, "ITER" },
-  { NODE_IVAR, NEN_VID, NEN_NONE, NEN_NONE, "IVAR" },
-  { NODE_LASGN, NEN_VALUE, NEN_VID, NEN_CNT, "LASGN" },
-  { NODE_LIT, NEN_LIT, NEN_NONE, NEN_NONE, "LIT" },
-  { NODE_LVAR, NEN_VID, NEN_CNT, NEN_NONE, "LVAR" },
-  { NODE_MASGN, NEN_ARGS, NEN_HEAD, NEN_VALUE, "MASGN" },
-  { NODE_MATCH, NEN_LIT, NEN_VALUE, NEN_NONE, "MATCH" },
-  { NODE_MATCH2, NEN_VALUE, NEN_RECV, NEN_NONE, "MATCH2" },
-  { NODE_MATCH3, NEN_VALUE, NEN_RECV, NEN_NONE, "MATCH3" },
-  { NODE_MEMO, NEN_NONE, NEN_NONE, NEN_NONE, "MEMO" },
-  { NODE_METHOD, NEN_BODY, NEN_NOEX, NEN_NONE, "METHOD" },
-  { NODE_MODULE, NEN_CPATH, NEN_BODY, NEN_NONE, "MODULE" },
-  { NODE_NEWLINE, NEN_NEXT, NEN_NONE, NEN_NONE, "NEWLINE" },
-  { NODE_NEXT, NEN_STTS, NEN_NONE, NEN_NONE, "NEXT" },
-  { NODE_NIL, NEN_NONE, NEN_NONE, NEN_NONE, "NIL" },
-  { NODE_NOT, NEN_BODY, NEN_NONE, NEN_NONE, "NOT" },
-  { NODE_NTH_REF, NEN_NTH, NEN_CNT, NEN_NONE, "NTH_REF" },
-  { NODE_OPT_N, NEN_BODY, NEN_NONE, NEN_NONE, "OPT_N" },
-  { NODE_OP_ASGN1, NEN_ARGS, NEN_MID, NEN_RECV, "OP_ASGN1" },
-  { NODE_OP_ASGN2, NEN_VALUE, NEN_NEXT, NEN_RECV, "OP_ASGN2" },
-  { NODE_OP_ASGN2_ARG, NEN_VID, NEN_AID, NEN_MID, "OP_ASGN2_ARG" },
-  { NODE_OP_ASGN_AND, NEN_VALUE, NEN_RECV, NEN_NONE, "OP_ASGN_AND" },
-  { NODE_OP_ASGN_OR, NEN_AID, NEN_VALUE, NEN_RECV, "OP_ASGN_OR" },
-  { NODE_OR, NEN_1ST, NEN_2ND, NEN_NONE, "OR" },
-  { NODE_POSTEXE, NEN_NONE, NEN_NONE, NEN_NONE, "POSTEXE" },
-  { NODE_REDO, NEN_NONE, NEN_NONE, NEN_NONE, "REDO" },
-  { NODE_RESBODY, NEN_HEAD, NEN_ARGS, NEN_BODY, "RESBODY" },
-  { NODE_RESCUE, NEN_HEAD, NEN_ELSE, NEN_RESQ, "RESCUE" },
-  { NODE_RETRY, NEN_NONE, NEN_NONE, NEN_NONE, "RETRY" },
-  { NODE_RETURN, NEN_STTS, NEN_NONE, NEN_NONE, "RETURN" },
-  { NODE_SCLASS, NEN_BODY, NEN_RECV, NEN_NONE, "SCLASS" },
-  { NODE_SCOPE, NEN_TBL, NEN_RVAL, NEN_NEXT, "SCOPE" },
-  { NODE_SELF, NEN_NONE, NEN_NONE, NEN_NONE, "SELF" },
-  { NODE_SPLAT, NEN_HEAD, NEN_NONE, NEN_NONE, "SPLAT" },
-  { NODE_STR, NEN_LIT, NEN_NONE, NEN_NONE, "STR" },
-  { NODE_SUPER, NEN_ARGS, NEN_NONE, NEN_NONE, "SUPER" },
-  { NODE_SVALUE, NEN_HEAD, NEN_NONE, NEN_NONE, "SVALUE" },
-  { NODE_TO_ARY, NEN_HEAD, NEN_NONE, NEN_NONE, "TO_ARY" },
-  { NODE_TRUE, NEN_NONE, NEN_NONE, NEN_NONE, "TRUE" },
-  { NODE_UNDEF, NEN_MID, NEN_NONE, NEN_NONE, "UNDEF" },
-  { NODE_UNTIL, NEN_BODY, NEN_COND, NEN_STATE, "UNTIL" },
-  { NODE_VALIAS, NEN_1ST, NEN_2ND, NEN_NONE, "VALIAS" },
-  { NODE_VCALL, NEN_MID, NEN_NONE, NEN_NONE, "VCALL" },
-  { NODE_WHEN, NEN_HEAD, NEN_BODY, NEN_NEXT, "WHEN" },
-  { NODE_WHILE, NEN_BODY, NEN_COND, NEN_STATE, "WHILE" },
-  { NODE_XSTR, NEN_LIT, NEN_NONE, NEN_NONE, "XSTR" },
-  { NODE_YIELD, NEN_HEAD, NEN_STATE, NEN_NONE, "YIELD" },
-  { NODE_ZARRAY, NEN_NONE, NEN_NONE, NEN_NONE, "ZARRAY" },
-  { NODE_ZSUPER, NEN_NONE, NEN_NONE, NEN_NONE, "ZSUPER" },
-  { NODE_LAST, NEN_NONE, NEN_NONE, NEN_NONE, "LAST" },
-};
-
-static Node_Type_Descrip * node_type_descrips[NUM_NODE_TYPE_DESCRIPS];
-static int node_type_descrips_initialized = 0;
-
-static void init_node_type_descrips()
-{
-  if(!node_type_descrips_initialized)
-  {
-    Node_Type_Descrip * descrip;
-    memset(node_type_descrips, 0, sizeof(node_type_descrips));
-    for(descrip = node_type_descrips_unsorted;
-        descrip->nt != NODE_LAST;
-        ++descrip)
-    {
-      if(node_type_descrips[descrip->nt])
-      {
-        rb_raise(rb_eRuntimeError, "duplicate entry for node type %d (%s is also %s)\n", descrip->nt, descrip->name, node_type_descrips[descrip->nt]->name);
-      }
-      else
-      {
-        node_type_descrips[descrip->nt] = descrip;
-      }
-    }
-    node_type_descrips_initialized = 1;
-  }
-}
-
-/* Given a node, find out the types of the three elements it contains */
-Node_Type_Descrip const * node_type_descrip(enum node_type nt)
-{
-  init_node_type_descrips();
-  if(node_type_descrips[nt])
-  {
-    return node_type_descrips[nt];
-  }
-  else
-  {
-    rb_raise(rb_eArgError, "Unknown node type %d", nt);
-  }
-}
-