remove obsolete minimain.c

2026-06-08 16:11:16 +00:00 · 2012-05-18 22:32:10 +09:00
parent 53f74d50ae
commit 00c419f066
1 changed files with 0 additions and 123 deletions
@@ -1,123 +0,0 @@
-/*
-** minimain.c -
-**
-** See Copyright Notice in mruby.h
-*/
-
-#include "mruby.h"
-#include "mruby/proc.h"
-
-#if 0
-#include "opcode.h"
-
-mrb_code fib_iseq[256];
-
-int fib_syms[4];
-
-mrb_irep fib_irep = {
-  1,
-  MRB_IREP_NOFREE,
-  2,
-  5,
-  fib_iseq,
-  NULL,
-  fib_syms,
-
-  256, 0, 4,
-};
-
-mrb_code main_iseq[256];
-
-int main_syms[2];
-
-mrb_irep main_irep = {
-  0,
-  MRB_IREP_NOFREE,
-  1,
-  3,
-  main_iseq,
-  NULL,
-  main_syms,
-
-  256, 0, 2,
-};
-
-int
-main(int argc, char **argv)
-{
-  mrb_state *mrb = mrb_open();
-  int sirep = mrb->irep_len;
-  int n;
-
-  main_syms[0] = mrb_intern(mrb, "fib");
-  main_syms[1] = mrb_intern(mrb, "p");
-  n = 0;
-
-  main_iseq[n++] = MKOP_AB(OP_LAMBDA, 1, 1);     /* r1 := lambda(1) */
-  main_iseq[n++] = MKOP_AB(OP_METHOD, 1, 0);      /* defmethod(r1) */
-  main_iseq[n++] = MKOP_AB(OP_MOVE, 1, 0);        /* r1 := r0 */
-  main_iseq[n++] = MKOP_AB(OP_MOVE, 2, 0);        /* r2 := r0 */
-  main_iseq[n++] = MKOP_AsBx(OP_LOADI, 3, 35);    /* r3 := 20 */
-  main_iseq[n++] = MKOP_ABC(OP_SEND, 2, 0, 1);    /* r2 .fib r3 */
-  main_iseq[n++] = MKOP_ABC(OP_SEND, 1, 1, 1);    /* r1 .p r2 */
-  main_iseq[n++] = MKOP_ABC(OP_STOP, 1, 1, 2);    /* stop */
-  main_irep.ilen = n;
-  main_irep.idx  = sirep;
-
-  fib_syms[0] = mrb_intern(mrb, "<");
-  fib_syms[1] = mrb_intern(mrb, "-");
-  fib_syms[2] = mrb_intern(mrb, "+");
-  fib_syms[3] = mrb_intern(mrb, "fib");
-  n = 0;
-
-  fib_iseq[n++] = MKOP_AB(OP_MOVE, 2, 1);        /* r2 := r1 */
-  fib_iseq[n++] = MKOP_AsBx(OP_LOADI, 3, 3);     /* r3 := 2 */
-  fib_iseq[n++] = MKOP_ABC(OP_LT, 2, 0, 2);      /* r2 .< r3 */
-  fib_iseq[n++] = MKOP_AsBx(OP_JMPNOT, 2, 2);    /* ifnot r2 :else */
-  fib_iseq[n++] = MKOP_AsBx(OP_LOADI, 2, 1);     /* r6 := 1 */
-  fib_iseq[n++] = MKOP_A(OP_RETURN, 2);          /* return r2 */
-  fib_iseq[n++] = MKOP_AB(OP_MOVE, 3, 0);        /* r3 := r0  :else */
-  fib_iseq[n++] = MKOP_AB(OP_MOVE, 4, 1);        /* r4 := r1 */
-  fib_iseq[n++] = MKOP_ABC(OP_SUBI, 4, 1, 2);    /* r4 .- 2 */
-  fib_iseq[n++] = MKOP_ABC(OP_SEND, 3, 3, 1);    /* r3 .fib r4 */
-  fib_iseq[n++] = MKOP_AB(OP_MOVE, 4, 0);        /* r4 := r0 */
-  fib_iseq[n++] = MKOP_AB(OP_MOVE, 5, 1);        /* r5 := r1 */
-  fib_iseq[n++] = MKOP_ABC(OP_SUBI, 5, 1, 1);    /* r5 .- 1 */
-  fib_iseq[n++] = MKOP_ABC(OP_SEND, 4, 3, 1);    /* r4 .fib :r5 */
-  fib_iseq[n++] = MKOP_ABC(OP_ADD, 3, 2, 1);     /* r3 .+ r4 */
-  fib_iseq[n++] = MKOP_A(OP_RETURN, 3);          /* return r3 */
-  fib_irep.ilen = n;
-  fib_irep.idx  = sirep+1;
-
-  mrb_add_irep(mrb, sirep+2);
-  mrb->irep[sirep  ] = &main_irep;
-  mrb->irep[sirep+1] = &fib_irep;
-
-  mrb_run(mrb, mrb_proc_new(mrb, &main_irep), mrb_nil_value());
-}
-
-#else
-#include "compile.h"
-
-int
-main()
-{
-  mrb_state *mrb = mrb_open();
-  int n;
-
-  n = mrb_compile_string(mrb, "\
-def fib(n)\n\
-  if n<2\n\
-    n\n\
-  else\n\
-    fib(n-2)+fib(n-1)\n\
-  end\n\
-end\n\
-p(fib(30), \"\\n\")\n\
-");
-  mrb_run(mrb, mrb_proc_new(mrb, mrb->irep[n]), mrb_nil_value());
-
-  return 0;
-}
-
-#endif