debase-ruby_core_source 3.3.5 → 3.3.6

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/optinsn.inc

@@ -0,0 +1,128 @@
+/* -*- C -*- */
+
+/* This is  an auto-generated file  and is a  part of the  programming language
+ * Ruby.   The person  who  created  a program  to  generate  this file  (``I''
+ * hereafter) would like  to refrain from defining licensing  of this generated
+ * source code.
+ *
+ * This file consists of many small  parts of codes copyrighted by each author,
+ * not  only  the  ``I''  person.   Those  original  authors  agree  with  some
+ * open-source license.  I  believe that the license we agree  is the condition
+ * mentioned in  the file COPYING.  It  states "4.  You may  modify and include
+ * the part of the software into any  other software ...".  But the problem is,
+ * the license never makes it clear if  such modified parts still remain in the
+ * same  license, or  not.   The fact  that  we agree  with  the source  code's
+ * licensing terms does not automatically  define that of generated ones.  This
+ * is the reason why this file is  under an unclear situation.  All what I know
+ * is that above provision guarantees this file to exist.
+ *
+ * Please let me hesitate to declare  something about this nuanced contract.  I
+ * am not in the position to take  over other authors' license to merge into my
+ * one.  Changing them to (say) GPLv3 is not doable by myself.  Perhaps someday
+ * it might turn  out to be okay to  say this file is under a  license.  I wish
+ * the situation would become more clear in the future. */
+/*******************************************************************/
+/*******************************************************************/
+/*******************************************************************/
+/**
+  This file is for threaded code.
+
+  ----
+  This file is auto generated by insns2vm.rb
+  DO NOT TOUCH!
+
+  If you want to fix something, you must edit "tool/ruby_vm/views/optinsn.inc.erb"
+  or tool/insns2vm.rb
+ */
+
+static INSN *
+insn_operands_unification(INSN *iobj)
+{
+#ifdef OPT_OPERANDS_UNIFICATION
+    VALUE *op = iobj->operands;
+
+    switch (iobj->insn_id) {
+    default:
+        /* do nothing */;
+        break;
+
+    case BIN(getlocal):
+
+        /* getlocal_WC_0(idx)()(val) */
+        if ( op[1] == LONG2NUM(0) ) {
+            iobj->insn_id      = BIN(getlocal_WC_0);
+            iobj->operand_size = 1;
+            break;
+        }
+
+        /* getlocal_WC_1(idx)()(val) */
+        if ( op[1] == LONG2NUM(1) ) {
+            iobj->insn_id      = BIN(getlocal_WC_1);
+            iobj->operand_size = 1;
+            break;
+        }
+
+        break;
+    case BIN(setlocal):
+
+        /* setlocal_WC_0(idx)(val)() */
+        if ( op[1] == LONG2NUM(0) ) {
+            iobj->insn_id      = BIN(setlocal_WC_0);
+            iobj->operand_size = 1;
+            break;
+        }
+
+        /* setlocal_WC_1(idx)(val)() */
+        if ( op[1] == LONG2NUM(1) ) {
+            iobj->insn_id      = BIN(setlocal_WC_1);
+            iobj->operand_size = 1;
+            break;
+        }
+
+        break;
+    case BIN(putobject):
+
+        /* putobject_INT2FIX_0_()()(val) */
+        if ( op[0] == INT2FIX(0) ) {
+            iobj->insn_id      = BIN(putobject_INT2FIX_0_);
+            iobj->operand_size = 0;
+            break;
+        }
+
+        /* putobject_INT2FIX_1_()()(val) */
+        if ( op[0] == INT2FIX(1) ) {
+            iobj->insn_id      = BIN(putobject_INT2FIX_1_);
+            iobj->operand_size = 0;
+            break;
+        }
+
+        break;
+    }
+#endif
+    return iobj;
+}
+
+int
+rb_insn_unified_local_var_level(VALUE insn)
+{
+#ifdef OPT_OPERANDS_UNIFICATION
+    /* optimize rule */
+    switch (insn) {
+      default:
+        return -1; /* do nothing */;
+      case BIN(getlocal_WC_0):
+        return 0;
+      case BIN(getlocal_WC_1):
+        return 1;
+      case BIN(setlocal_WC_0):
+        return 0;
+      case BIN(setlocal_WC_1):
+        return 1;
+      case BIN(putobject_INT2FIX_0_):
+        return INT2FIX(0);
+      case BIN(putobject_INT2FIX_1_):
+        return INT2FIX(1);
+    }
+#endif
+    return -1;
+}

data/lib/debase/ruby_core_source/ruby-3.4.0-preview2/optunifs.inc

@@ -0,0 +1,43 @@
+/* -*- C -*- */
+
+/* This is  an auto-generated file  and is a  part of the  programming language
+ * Ruby.   The person  who  created  a program  to  generate  this file  (``I''
+ * hereafter) would like  to refrain from defining licensing  of this generated
+ * source code.
+ *
+ * This file consists of many small  parts of codes copyrighted by each author,
+ * not  only  the  ``I''  person.   Those  original  authors  agree  with  some
+ * open-source license.  I  believe that the license we agree  is the condition
+ * mentioned in  the file COPYING.  It  states "4.  You may  modify and include
+ * the part of the software into any  other software ...".  But the problem is,
+ * the license never makes it clear if  such modified parts still remain in the
+ * same  license, or  not.   The fact  that  we agree  with  the source  code's
+ * licensing terms does not automatically  define that of generated ones.  This
+ * is the reason why this file is  under an unclear situation.  All what I know
+ * is that above provision guarantees this file to exist.
+ *
+ * Please let me hesitate to declare  something about this nuanced contract.  I
+ * am not in the position to take  over other authors' license to merge into my
+ * one.  Changing them to (say) GPLv3 is not doable by myself.  Perhaps someday
+ * it might turn  out to be okay to  say this file is under a  license.  I wish
+ * the situation would become more clear in the future. */
+
+/*******************************************************************/
+/*******************************************************************/
+/*******************************************************************/
+/**
+  This file is for threaded code.
+
+  ----
+  This file is auto generated by insns2vm.rb
+  DO NOT TOUCH!
+
+  If you want to fix something, you must edit "tool/ruby_vm/views/optunifs.inc.erb"
+  or tool/insns2vm.rb
+ */
+
+/* Let .bss section automatically initialize this variable */
+/* cf. Section 6.7.8 of ISO/IEC 9899:1999 */
+static const int *const *const unified_insns_data[218];
+
+ASSERT_VM_INSTRUCTION_SIZE(unified_insns_data);

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

@@ -0,0 +1,244 @@
+/* A Bison parser, made by Lrama 0.6.10.  */
+
+/* Bison interface for Yacc-like parsers in C
+
+   Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2021 Free Software Foundation,
+   Inc.
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+/* DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual,
+   especially those whose name start with YY_ or yy_.  They are
+   private implementation details that can be changed or removed.  */
+#ifndef YY_YY_PARSE_H_INCLUDED
+# define YY_YY_PARSE_H_INCLUDED
+/* Debug traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG && !defined(yydebug)
+extern int yydebug;
+#endif
+
+
+/* Token kinds.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+  enum yytokentype
+  {
+    YYEMPTY = -2,
+    END_OF_INPUT = 0,              /* "end-of-input"  */
+    YYerror = 256,                 /* error  */
+    YYUNDEF = 257,                 /* "invalid token"  */
+    keyword_class = 258,           /* "'class'"  */
+    keyword_module = 259,          /* "'module'"  */
+    keyword_def = 260,             /* "'def'"  */
+    keyword_undef = 261,           /* "'undef'"  */
+    keyword_begin = 262,           /* "'begin'"  */
+    keyword_rescue = 263,          /* "'rescue'"  */
+    keyword_ensure = 264,          /* "'ensure'"  */
+    keyword_end = 265,             /* "'end'"  */
+    keyword_if = 266,              /* "'if'"  */
+    keyword_unless = 267,          /* "'unless'"  */
+    keyword_then = 268,            /* "'then'"  */
+    keyword_elsif = 269,           /* "'elsif'"  */
+    keyword_else = 270,            /* "'else'"  */
+    keyword_case = 271,            /* "'case'"  */
+    keyword_when = 272,            /* "'when'"  */
+    keyword_while = 273,           /* "'while'"  */
+    keyword_until = 274,           /* "'until'"  */
+    keyword_for = 275,             /* "'for'"  */
+    keyword_break = 276,           /* "'break'"  */
+    keyword_next = 277,            /* "'next'"  */
+    keyword_redo = 278,            /* "'redo'"  */
+    keyword_retry = 279,           /* "'retry'"  */
+    keyword_in = 280,              /* "'in'"  */
+    keyword_do = 281,              /* "'do'"  */
+    keyword_do_cond = 282,         /* "'do' for condition"  */
+    keyword_do_block = 283,        /* "'do' for block"  */
+    keyword_do_LAMBDA = 284,       /* "'do' for lambda"  */
+    keyword_return = 285,          /* "'return'"  */
+    keyword_yield = 286,           /* "'yield'"  */
+    keyword_super = 287,           /* "'super'"  */
+    keyword_self = 288,            /* "'self'"  */
+    keyword_nil = 289,             /* "'nil'"  */
+    keyword_true = 290,            /* "'true'"  */
+    keyword_false = 291,           /* "'false'"  */
+    keyword_and = 292,             /* "'and'"  */
+    keyword_or = 293,              /* "'or'"  */
+    keyword_not = 294,             /* "'not'"  */
+    modifier_if = 295,             /* "'if' modifier"  */
+    modifier_unless = 296,         /* "'unless' modifier"  */
+    modifier_while = 297,          /* "'while' modifier"  */
+    modifier_until = 298,          /* "'until' modifier"  */
+    modifier_rescue = 299,         /* "'rescue' modifier"  */
+    keyword_alias = 300,           /* "'alias'"  */
+    keyword_defined = 301,         /* "'defined?'"  */
+    keyword_BEGIN = 302,           /* "'BEGIN'"  */
+    keyword_END = 303,             /* "'END'"  */
+    keyword__LINE__ = 304,         /* "'__LINE__'"  */
+    keyword__FILE__ = 305,         /* "'__FILE__'"  */
+    keyword__ENCODING__ = 306,     /* "'__ENCODING__'"  */
+    tIDENTIFIER = 307,             /* "local variable or method"  */
+    tFID = 308,                    /* "method"  */
+    tGVAR = 309,                   /* "global variable"  */
+    tIVAR = 310,                   /* "instance variable"  */
+    tCONSTANT = 311,               /* "constant"  */
+    tCVAR = 312,                   /* "class variable"  */
+    tLABEL = 313,                  /* "label"  */
+    tINTEGER = 314,                /* "integer literal"  */
+    tFLOAT = 315,                  /* "float literal"  */
+    tRATIONAL = 316,               /* "rational literal"  */
+    tIMAGINARY = 317,              /* "imaginary literal"  */
+    tCHAR = 318,                   /* "char literal"  */
+    tNTH_REF = 319,                /* "numbered reference"  */
+    tBACK_REF = 320,               /* "back reference"  */
+    tSTRING_CONTENT = 321,         /* "literal content"  */
+    tREGEXP_END = 322,             /* tREGEXP_END  */
+    tDUMNY_END = 323,              /* "dummy end"  */
+    tSP = 324,                     /* "escaped space"  */
+    tUPLUS = 132,                  /* "unary+"  */
+    tUMINUS = 133,                 /* "unary-"  */
+    tPOW = 134,                    /* "**"  */
+    tCMP = 135,                    /* "<=>"  */
+    tEQ = 140,                     /* "=="  */
+    tEQQ = 141,                    /* "==="  */
+    tNEQ = 142,                    /* "!="  */
+    tGEQ = 139,                    /* ">="  */
+    tLEQ = 138,                    /* "<="  */
+    tANDOP = 148,                  /* "&&"  */
+    tOROP = 149,                   /* "||"  */
+    tMATCH = 143,                  /* "=~"  */
+    tNMATCH = 144,                 /* "!~"  */
+    tDOT2 = 128,                   /* ".."  */
+    tDOT3 = 129,                   /* "..."  */
+    tBDOT2 = 130,                  /* "(.."  */
+    tBDOT3 = 131,                  /* "(..."  */
+    tAREF = 145,                   /* "[]"  */
+    tASET = 146,                   /* "[]="  */
+    tLSHFT = 136,                  /* "<<"  */
+    tRSHFT = 137,                  /* ">>"  */
+    tANDDOT = 150,                 /* "&."  */
+    tCOLON2 = 147,                 /* "::"  */
+    tCOLON3 = 325,                 /* ":: at EXPR_BEG"  */
+    tOP_ASGN = 326,                /* "operator-assignment"  */
+    tASSOC = 327,                  /* "=>"  */
+    tLPAREN = 328,                 /* "("  */
+    tLPAREN_ARG = 329,             /* "( arg"  */
+    tRPAREN = 330,                 /* ")"  */
+    tLBRACK = 331,                 /* "["  */
+    tLBRACE = 332,                 /* "{"  */
+    tLBRACE_ARG = 333,             /* "{ arg"  */
+    tSTAR = 334,                   /* "*"  */
+    tDSTAR = 335,                  /* "**arg"  */
+    tAMPER = 336,                  /* "&"  */
+    tLAMBDA = 337,                 /* "->"  */
+    tSYMBEG = 338,                 /* "symbol literal"  */
+    tSTRING_BEG = 339,             /* "string literal"  */
+    tXSTRING_BEG = 340,            /* "backtick literal"  */
+    tREGEXP_BEG = 341,             /* "regexp literal"  */
+    tWORDS_BEG = 342,              /* "word list"  */
+    tQWORDS_BEG = 343,             /* "verbatim word list"  */
+    tSYMBOLS_BEG = 344,            /* "symbol list"  */
+    tQSYMBOLS_BEG = 345,           /* "verbatim symbol list"  */
+    tSTRING_END = 346,             /* "terminator"  */
+    tSTRING_DEND = 347,            /* "'}'"  */
+    tSTRING_DBEG = 348,            /* "'#{'"  */
+    tSTRING_DVAR = 349,            /* tSTRING_DVAR  */
+    tLAMBEG = 350,                 /* tLAMBEG  */
+    tLABEL_END = 351,              /* tLABEL_END  */
+    tIGNORED_NL = 352,             /* tIGNORED_NL  */
+    tCOMMENT = 353,                /* tCOMMENT  */
+    tEMBDOC_BEG = 354,             /* tEMBDOC_BEG  */
+    tEMBDOC = 355,                 /* tEMBDOC  */
+    tEMBDOC_END = 356,             /* tEMBDOC_END  */
+    tHEREDOC_BEG = 357,            /* tHEREDOC_BEG  */
+    tHEREDOC_END = 358,            /* tHEREDOC_END  */
+    k__END__ = 359,                /* k__END__  */
+    tLOWEST = 360,                 /* tLOWEST  */
+    tUMINUS_NUM = 361,             /* tUMINUS_NUM  */
+    tLAST_TOKEN = 362              /* tLAST_TOKEN  */
+  };
+  typedef enum yytokentype yytoken_kind_t;
+#endif
+
+/* Value type.  */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+union YYSTYPE
+{
+#line 2668 "parse.y"
+
+    NODE *node;
+    rb_node_fcall_t *node_fcall;
+    rb_node_args_t *node_args;
+    rb_node_args_aux_t *node_args_aux;
+    rb_node_opt_arg_t *node_opt_arg;
+    rb_node_kw_arg_t *node_kw_arg;
+    rb_node_block_pass_t *node_block_pass;
+    rb_node_masgn_t *node_masgn;
+    rb_node_def_temp_t *node_def_temp;
+    rb_node_exits_t *node_exits;
+    ID id;
+    int num;
+    st_table *tbl;
+    st_table *labels;
+    const struct vtable *vars;
+    struct rb_strterm_struct *strterm;
+    struct lex_context ctxt;
+    enum lex_state_e state;
+
+#line 215 "parse.h"
+
+};
+typedef union YYSTYPE YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+/* Location type.  */
+#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
+typedef struct YYLTYPE YYLTYPE;
+struct YYLTYPE
+{
+  int first_line;
+  int first_column;
+  int last_line;
+  int last_column;
+};
+# define YYLTYPE_IS_DECLARED 1
+# define YYLTYPE_IS_TRIVIAL 1
+#endif
+
+
+
+
+int yyparse (struct parser_params *p);
+
+
+
+#endif /* !YY_YY_PARSE_H_INCLUDED  */
+