add mruby sources

4 files changed, 515 insertions, 0 deletions

diff --git a/tools/mrbc/Makefile b/tools/mrbc/Makefile
new file mode 100644
index 000000000..767f5c074
--- /dev/null
+++ b/tools/mrbc/Makefile
@@ -0,0 +1,73 @@
+# makefile discription.
+# basic build file for Rite-Compiler
+# 11.Apr.2011 coded by Kenji Yoshimoto.
+# 31.Aug.2011 coded by Hiroshi Mimaki.
+
+# project-specific macros
+# extension of the executable-file is modifiable(.exe .out ...)
+BASEDIR := ../../src
+TARGET := ../../bin/mrbc
+ifeq ($(OS),Windows_NT)
+EXE := $(TARGET).exe
+else
+EXE := $(TARGET)
+endif
+YSRC := $(BASEDIR)/parse.y
+YC := $(BASEDIR)/y.tab.c
+EXCEPT1 := $(YC) $(BASEDIR)/minimain.c $(BASEDIR)/load.c $(BASEDIR)/init_ext.c
+OBJY := $(patsubst %.c,%.o,$(YC))
+OBJ0 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/../tools/mrbc/*.c))
+OBJ1 := $(patsubst %.c,%.o,$(filter-out $(EXCEPT1),$(wildcard $(BASEDIR)/*.c)))
+#OBJ2 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/ext/regex/*.c))
+#OBJ3 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/ext/enc/*.c))
+OBJS := $(OBJ0) $(OBJ1) $(OBJ2) $(OBJ3)
+
+# libraries, includes
+LIBS = -lm
+INCLUDES = -I$(BASEDIR) -I$(BASEDIR)/../include
+
+# compiler, linker (gcc)
+CC = gcc
+LL = gcc
+YACC = bison
+DEBUG_MODE = 1
+ifeq ($(DEBUG_MODE),1)
+CFLAGS = -g
+else
+CFLAGS = -O3
+endif
+ALL_CFLAGS = -Wall -Werror-implicit-function-declaration $(CFLAGS)
+MAKE_FLAGS = --no-print-directory CC="$(CC)" LL="$(LL)"
+
+##############################
+# generic build targets, rules
+
+.PHONY : all
+all : $(EXE)
+	@echo "make: built targets of `pwd`"
+
+# executable constructed using linker from object files
+$(EXE) : $(OBJS) $(OBJY)
+	$(LL) -o $@ $(OBJS) $(OBJY) $(LIBS)
+
+-include $(OBJS:.o=.d) $(OBJY:.o=.d)
+
+# objects compiled from source
+$(OBJS) : %.o : %.c
+	$(CC) $(ALL_CFLAGS) -MMD $(INCLUDES) -c $< -o $@
+
+# parser complie
+$(OBJY) : $(YC)
+	$(CC) $(ALL_CFLAGS) -MMD $(INCLUDES) -c $(YC) -o $(OBJY)
+
+# yacc complie
+$(YC) : $(YSRC)
+	$(YACC) -o $(YC) $(YSRC)
+
+# clean up
+.PHONY : clean
+clean :
+	-rm -f $(EXE) $(OBJS) $(OBJY) $(YC)
+	-rm -f $(OBJS:.o=.d) $(OBJY:.o=.d)
+	@echo "make: removing targets, objects and depend files of `pwd`"
+
diff --git a/tools/mrbc/mrbc.c b/tools/mrbc/mrbc.c
new file mode 100644
index 000000000..1e54edbdf
--- /dev/null
+++ b/tools/mrbc/mrbc.c
@@ -0,0 +1,210 @@
+#include "mruby.h"
+#include "mruby/proc.h"
+#include "compile.h"
+#include "dump.h"
+#include "cdump.h"
+#include "stdio.h"
+#include "memory.h"
+#include "stdlib.h"
+
+#define RITEBIN_EXT ".mrb"
+#define C_EXT       ".c"
+void ruby_show_version(mrb_state *);
+void ruby_show_copyright(mrb_state *);
+void parser_dump(mrb_state*, struct mrb_ast_node*, int);
+void codedump_all(mrb_state*, int);
+
+struct _args {
+  FILE *rfp;
+  FILE *wfp;
+  char *initname;
+  char *ext;
+  int check_syntax : 1;
+  int dump_type    : 2;
+  int verbose      : 1;
+};
+
+static void
+usage(const char *name)
+{
+  static const char *const usage_msg[] = {
+  "switches:",
+  "-c           check syntax only",
+  "-o<outfile>  place the output into <outfile>",
+  "-v           print version number, then trun on verbose mode",
+  "-B<symbol>   binary <symbol> output in C language format",
+  "-C<func>     function <func> output in C language format",
+  "--verbose    run at verbose mode",
+  "--version    print the version",
+  "--copyright  print the copyright",
+  NULL
+  };
+  const char *const *p = usage_msg;
+
+  printf("Usage: %s [switches] programfile\n", name);
+  while(*p)
+  printf("  %s\n", *p++);
+}
+
+static char *
+get_outfilename(char *infile, char *ext)
+{
+  char *outfile;
+  char *p;
+
+  outfile = (char*)malloc(strlen(infile) + strlen(ext) + 1);
+  strcpy(outfile, infile);
+  if (*ext) {
+    if ((p = strrchr(outfile, '.')) == NULL)
+      p = &outfile[strlen(outfile)];
+    strcpy(p, ext);
+  }
+
+  return outfile;
+}
+
+static int
+parse_args(mrb_state *mrb, int argc, char **argv, struct _args *args)
+{
+  char *infile = NULL;
+  char *outfile = NULL;
+  char **origargv = argv;
+
+  memset(args, 0, sizeof(*args));
+  args->ext = RITEBIN_EXT;
+
+  for (argc--,argv++; argc > 0; argc--,argv++) {
+    if (**argv == '-') {
+      if (strlen(*argv) <= 1)
+        return -1;
+
+      switch ((*argv)[1]) {
+      case 'o':
+        outfile = get_outfilename((*argv) + 2, "");
+        break;
+      case 'B':
+      case 'C':
+        args->ext = C_EXT;
+        args->initname = (*argv) + 2;
+        if (*args->initname == '\0') {
+          printf("%s: Function name is not specified.\n", *origargv);
+          return -2;
+        }
+        args->dump_type = ((*argv)[1] == 'B') ? DUMP_TYPE_BIN : DUMP_TYPE_CODE;
+        break;
+      case 'c':
+        args->check_syntax = 1;
+        break;
+      case 'v':
+        ruby_show_version(mrb);
+        args->verbose = 1;
+        break;
+      case '-':
+        if (strcmp((*argv) + 2, "version") == 0) {
+          ruby_show_version(mrb);
+        }
+        else if (strcmp((*argv) + 2, "verbose") == 0) {
+          args->verbose = 1;
+          break;
+        }
+        else if (strcmp((*argv) + 2, "copyright") == 0) {
+          ruby_show_copyright(mrb);
+        }
+        else return -3;
+        return 0;
+      }
+    }
+    else if (args->rfp == NULL) {
+      infile = *argv;
+      if ((args->rfp = fopen(infile, "r")) == NULL) {
+        printf("%s: Cannot open program file. (%s)\n", *origargv, infile);
+        return 0;
+      }
+    }
+  }
+
+  if (infile == NULL)
+    return -4;
+  if (args->check_syntax)
+    return 0;
+
+  if (outfile == NULL)
+    outfile = get_outfilename(infile, args->ext);
+
+  if ((args->wfp = fopen(outfile, "wb")) == NULL) {
+    printf("%s: Cannot open output file. (%s)\n", *origargv, outfile);
+    return 0;
+  }
+
+  return 0;
+}
+
+static void
+cleanup(struct _args *args)
+{
+  if (args->rfp)
+    fclose(args->rfp);
+  if (args->wfp)
+    fclose(args->wfp);
+}
+
+int
+main(int argc, char **argv)
+{
+  mrb_state *mrb = mrb_open();
+  int n = -1;
+  struct _args args;
+  struct mrb_parser_state *p;
+
+  n = parse_args(mrb, argc, argv, &args);
+
+  if (n < 0 || args.rfp == NULL) {
+    cleanup(&args);
+    usage(argv[0]);
+    return n;
+  }
+
+  p = mrb_parse_file(mrb, args.rfp);
+  if (!p || !p->tree || p->nerr) {
+    cleanup(&args);
+    return -1;
+  }
+
+  if (args.verbose)
+    parser_dump(mrb, p->tree, 0);
+
+  n = mrb_generate_code(mrb, p->tree);
+  mrb_pool_close(p->pool);
+
+  if (args.verbose)
+    codedump_all(mrb, n);
+
+  if (n < 0 || args.check_syntax) {
+    cleanup(&args);
+    return n;
+  }
+  if (args.initname) {
+    if (args.dump_type == DUMP_TYPE_BIN)
+      n = mrb_bdump_irep(mrb, n, args.wfp, args.initname);
+    else
+      n = mrb_cdump_irep(mrb, n, args.wfp, args.initname);
+  }
+  else {
+    n = mrb_dump_irep(mrb, n, args.wfp);
+  }
+
+  cleanup(&args);
+
+  return n;
+}
+
+void
+mrb_init_ext(mrb_state *mrb)
+{
+}
+
+void
+mrb_init_mrblib(mrb_state *mrb)
+{
+}
+
diff --git a/tools/mruby/Makefile b/tools/mruby/Makefile
new file mode 100644
index 000000000..18882e4ee
--- /dev/null
+++ b/tools/mruby/Makefile
@@ -0,0 +1,89 @@
+# makefile discription.
+# basic build file for Rite-Interpreter
+# 11.Apr.2011 coded by Kenji Yoshimoto.
+# 31.Aug.2011 coded by Hiroshi Mimaki.
+
+# project-specific macros
+# extension of the executable-file is modifiable(.exe .out ...)
+BASEDIR = ../../src
+TARGET := ../../bin/mruby
+ifeq ($(OS),Windows_NT)
+EXE := $(TARGET).exe
+else
+EXE := $(TARGET)
+endif
+YSRC := $(BASEDIR)/parse.y
+YC := $(BASEDIR)/y.tab.c
+EXCEPT1 := $(YC) $(BASEDIR)/minimain.c $(BASEDIR)/dump.c $(BASEDIR)/cdump.c
+OBJY := $(patsubst %.c,%.o,$(YC))
+OBJ0 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/../tools/mruby/*.c))
+OBJ1 := $(patsubst %.c,%.o,$(filter-out $(EXCEPT1),$(wildcard $(BASEDIR)/*.c)))
+#OBJ2 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/ext/regex/*.c))
+#OBJ3 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/ext/enc/*.c))
+OBJS := $(OBJ0) $(OBJ1) $(OBJ2) $(OBJ3)
+# mruby libraries
+EXTC := $(BASEDIR)/../mrblib/mrblib.c
+EXTRB := $(wildcard $(BASEDIR)/../mrblib/*.rb)
+EXTM := $(patsubst %.c,%.o,$(EXTC))
+# ext libraries
+#EXT1 := $(patsubst %.c,%.o,$(wildcard $(BASEDIR)/../ext/socket/*.c))
+EXTS := $(EXT1)
+
+# libraries, includes
+LIBS = -lm
+INCLUDES = -I$(BASEDIR) -I$(BASEDIR)/../include
+#INCLUDES = -I$(RITEVM_ROOT)
+
+# compiler, linker (gcc)
+CC = gcc
+LL = gcc
+YACC = bison
+DEBUG_MODE = 1
+ifeq ($(DEBUG_MODE),1)
+CFLAGS = -g
+else
+CFLAGS = -O3
+endif
+ALL_CFLAGS = -Wall -Werror-implicit-function-declaration $(CFLAGS)
+MAKE_FLAGS = --no-print-directory CC="$(CC)" LL="$(LL)"
+
+##############################
+# generic build targets, rules
+
+.PHONY : all
+all : $(EXTM) $(EXE)
+	@echo "make: built targets of `pwd`"
+
+# executable constructed using linker from object files
+$(EXE) : $(OBJS) $(OBJY) $(EXTM) $(EXTS)
+	$(LL) -o $@ $(OBJS) $(OBJY) $(EXTM) $(EXTS) $(LIBS)
+
+-include $(OBJS:.o=.d) $(OBJY:.o=.d)
+
+# objects compiled from source
+$(OBJS) : %.o : %.c
+	$(CC) $(ALL_CFLAGS) -MMD $(INCLUDES) -c $< -o $@
+
+# mruby library compile
+$(EXTM) : $(EXTRB) $(OBJS) $(OBJY)
+	$(MAKE) -C ../../mrblib $(MAKE_FLAGS)
+
+# extend libraries complile
+$(EXTS) : %.o : %.c
+	$(CC) $(ALL_CFLAGS) -MMD $(INCLUDES) -c $< -o $@
+
+# parser complie
+$(OBJY) : $(YC)
+	$(CC) $(ALL_CFLAGS) -MMD $(INCLUDES) -c $(YC) -o $(OBJY)
+
+# yacc complie
+$(YC) : $(YSRC)
+	$(YACC) -o $(YC) $(YSRC)
+
+# clean up
+.PHONY : clean #cleandep
+clean :
+	$(MAKE) clean -C ../../mrblib $(MAKE_FLAGS)
+	-rm -f $(EXE) $(OBJS) $(OBJY) $(YC) $(EXTS)
+	-rm -f $(OBJS:.o=.d) $(OBJY:.o=.d) $(EXTS:.o=.d)
+	@echo "make: removing targets, objects and depend files of `pwd`"
diff --git a/tools/mruby/mruby.c b/tools/mruby/mruby.c
new file mode 100644
index 000000000..4e84b3c7d
--- /dev/null
+++ b/tools/mruby/mruby.c
@@ -0,0 +1,143 @@
+#include "mruby.h"
+#include "mruby/proc.h"
+#include "compile.h"
+#include "dump.h"
+#include "stdio.h"
+#include "string.h"
+
+void ruby_show_version(mrb_state *);
+void ruby_show_copyright(mrb_state *);
+void parser_dump(mrb_state*, struct mrb_ast_node*, int);
+void codedump_all(mrb_state*, int);
+
+struct _args {
+  FILE *rfp;
+  int mrbfile      : 1;
+  int check_syntax : 1;
+  int verbose      : 1;
+};
+
+static void
+usage(const char *name)
+{
+  static const char *const usage_msg[] = {
+  "switches:",
+  "-b           load and execute RiteBinary(mrb) file",
+  "-c           check syntax only",
+  "-v           print version number, then trun on verbose mode",
+  "--verbose    run at verbose mode",
+  "--version    print the version",
+  "--copyright  print the copyright",
+  NULL
+  };
+  const char *const *p = usage_msg;
+
+  printf("Usage: %s [switches] programfile\n", name);
+  while(*p)
+  printf("  %s\n", *p++);
+}
+
+static int
+parse_args(mrb_state *mrb, int argc, char **argv, struct _args *args)
+{
+  char **origargv = argv;
+
+  memset(args, 0, sizeof(*args));
+
+  for (argc--,argv++; argc > 0; argc--,argv++) {
+    if (**argv == '-') {
+      if (strlen(*argv) <= 1)
+        return -1;
+
+      switch ((*argv)[1]) {
+      case 'b':
+        args->mrbfile = 1;
+        break;
+      case 'c':
+        args->check_syntax = 1;
+        break;
+      case 'v':
+        ruby_show_version(mrb);
+        args->verbose = 1;
+        break;
+      case '-':
+        if (strcmp((*argv) + 2, "version") == 0) {
+          ruby_show_version(mrb);
+        }
+        else if (strcmp((*argv) + 2, "verbose") == 0) {
+          args->verbose = 1;
+          break;
+        }
+        else if (strcmp((*argv) + 2, "copyright") == 0) {
+          ruby_show_copyright(mrb);
+        }
+        else return -3;
+        return 0;
+      }
+    }
+    else if (args->rfp == NULL) {
+      if ((args->rfp = fopen(*argv, args->mrbfile ? "rb" : "r")) == NULL) {
+        printf("%s: Cannot open program file. (%s)\n", *origargv, *argv);
+        return 0;
+      }
+    }
+  }
+
+  return 0;
+}
+
+static void
+cleanup(struct _args *args)
+{
+  if (args->rfp)
+    fclose(args->rfp);
+}
+
+int
+main(int argc, char **argv)
+{
+  mrb_state *mrb = mrb_open();
+  int n = -1;
+  struct _args args;
+  struct mrb_parser_state *p;
+
+  n = parse_args(mrb, argc, argv, &args);
+  if (n < 0 || args.rfp == NULL) {
+    cleanup(&args);
+    usage(argv[0]);
+    return n;
+  }
+
+  if (args.mrbfile) {
+    n = mrb_load_irep(mrb, args.rfp);
+  }
+  else {
+    p = mrb_parse_file(mrb, args.rfp);
+    if (!p || !p->tree || p->nerr) {
+      cleanup(&args);
+      return -1;
+    }
+
+    if (args.verbose)
+      parser_dump(mrb, p->tree, 0);
+
+    n = mrb_generate_code(mrb, p->tree);
+    mrb_pool_close(p->pool);
+  }
+
+  if (n >= 0) {
+    if (args.verbose)
+      codedump_all(mrb, n);
+
+    if (!args.check_syntax) {
+      mrb_run(mrb, mrb_proc_new(mrb, mrb->irep[n]), mrb_nil_value());
+      if (mrb->exc) {
+	mrb_funcall(mrb, mrb_nil_value(), "p", 1, mrb_obj_value(mrb->exc));
+      }
+    }
+  }
+
+  cleanup(&args);
+
+  return n;
+}