Move Gem Tests into the main Test target

1 files changed, 216 insertions, 0 deletions

diff --git a/mrbgems/generator.c b/mrbgems/generator.c
new file mode 100644
index 000000000..8d8bee0cf
--- /dev/null
+++ b/mrbgems/generator.c
@@ -0,0 +1,216 @@
+#include <string.h>
+#include <stdio.h>
+#include <dirent.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <mrbconf.h>
+ 
+static int
+one (const struct dirent *unused)
+{
+  return 1;
+}
+
+/*
+ * Does a directory exist?
+ *   yes => TRUE
+ *   no => FALSE
+ *   fs error => FALSE
+ *
+ */
+static int
+directory_exists(char path[4096]) {
+  DIR* dir = opendir(path);
+  if (dir)
+    return TRUE;
+  else
+    return FALSE;
+}
+
+/*
+ * Template generator for each GEM
+ *
+ * Arguments:
+ *   before:
+ *     String before each GEM template
+ *   after:
+ *     String after each GEM template
+ *   start: 
+ *     String at the start of the template
+ *   end:
+ *     String at the end of the template
+ *   skip_if_src_not_exist:
+ *     TRUE => skip template for GEMs with SRC directory
+ *     FALSE => template for all GEMs
+ *
+ */
+void
+for_each_gem (char before[1024], char after[1024],
+              char start[1024], char end[1024],
+              char dir_to_skip[1024])
+{
+  struct dirent **eps;
+  int n;
+  char gemname[1024] = "";
+  char gemname_path[4096] = "";
+  char complete_line[4096] = "";
+  char src_path[4096] = "";
+  struct stat attribut;
+
+  strcat(complete_line, start);
+
+  n = scandir("./g", &eps, one, alphasort);
+  if (n >= 0) {
+    int cnt;
+    for (cnt = 0; cnt < n; ++cnt) {
+      strcpy(gemname, eps[cnt]->d_name);
+      strcpy(gemname_path, "./g/");
+      strcat(gemname_path, gemname);
+      strcpy(src_path, gemname_path);
+      strcat(src_path, "/src");
+
+      if (strcmp(gemname, ".") == 0)
+        continue;
+      if (strcmp(gemname, "..") == 0)
+        continue;
+
+      stat(gemname_path, &attribut);
+      if (S_ISDIR(attribut.st_mode) == 0) {
+        continue;
+      }
+
+      if (strcmp(dir_to_skip, "") != 0) {
+        strcpy(src_path, gemname_path);
+        strcat(src_path, "/");
+        strcat(src_path, dir_to_skip);
+
+        if (directory_exists(src_path) != TRUE)
+          continue;
+      }
+
+      strcat(complete_line, before);
+      strcat(complete_line, gemname);
+      strcat(complete_line, after);
+    }
+  }
+  else {
+    perror("Error while scanning the directory.");
+  }
+
+  strcat(complete_line, end);
+  puts(complete_line);
+}
+
+void
+make_gem_makefile()
+{
+  puts("CFLAGS := -I. -I../../include -I../../src");
+  puts("");
+  puts("ifeq ($(OS),Windows_NT)");
+  puts("MAKE_FLAGS = --no-print-directory CC=$(CC) LL=$(LL) ALL_CFLAGS='$(ALL_CFLAGS)'");
+  puts("else");
+  puts("MAKE_FLAGS = --no-print-directory CC='$(CC)' LL='$(LL)' ALL_CFLAGS='$(ALL_CFLAGS)'");
+  puts("endif");
+  puts("");
+
+  puts(".PHONY : all");
+  puts("all : all_gems mrblib_gem.o");
+  puts("\t$(AR) rs ../../lib/libmruby.a mrblib_gem.o");
+  puts("");
+
+  puts("all_gems :");
+  for_each_gem("\t@$(MAKE) -C ", " $(MAKE_FLAGS)\n", "", "", "");
+  puts("");
+
+  puts("mrblib_gem.o : mrblib_gem.c");
+  puts("");
+
+  puts("mrblib_gem.c : mrblib_gem.ctmp");
+  puts("\tcat $< > $@");
+  puts("");
+
+  puts("mrblib_gem.ctmp : mrblib_gem.rbtmp");
+  puts("\t../../bin/mrbc -Bmrblib_gem_irep -o$@ $<");
+  puts("");
+
+  puts("mrblib_gem.rbtmp :");
+  for_each_gem(" ", "/mrblib/*.rb", "\tcat", "> mrblib_gem.rbtmp", "mrblib");
+  puts("");
+
+  puts(".PHONY : prepare-test");
+  puts("prepare-test : mrbgemtest.ctmp");
+  puts("");
+
+  puts("mrbgemtest.ctmp : mrbgemtest.rbtmp");
+  puts("\t../../bin/mrbc -Bmrbgemtest_irep -omrbgemtest.ctmp mrbgemtest.rbtmp");
+  puts("");
+
+  puts("mrbgemtest.rbtmp :");
+  for_each_gem(" ", "/test/*.rb ", "\tcat", " > mrbgemtest.rbtmp", "");
+  puts("");
+
+  puts(".PHONY : clean");
+  puts("clean :");
+  puts("\t$(RM) *.c *.d *.rbtmp *.ctmp *.o mrbtest");
+  for_each_gem("\t@$(MAKE) clean -C ", " $(MAKE_FLAGS)\n", "", "", "");
+}
+
+void
+make_init_gems()
+{
+  puts("/*");
+  puts(" * This file contains a list of all");
+  puts(" * initializing methods which are");
+  puts(" * necessary to bootstrap all gems.");
+  puts(" *");
+  puts(" * IMPORTANT:");
+  puts(" *   This file was generated!");
+  puts(" *   All manual changes will get lost.");
+  puts(" */");
+
+  puts("");
+  puts("#include \"mruby.h\"");
+  puts("#include \"mruby/irep.h\"");
+  puts("#include \"mruby/dump.h\"");
+  puts("#include \"mruby/string.h\"");
+  puts("#include \"mruby/proc.h\"");
+  puts("");
+
+  for_each_gem("void mrb_", "_gem_init(mrb_state*);\n", "", "", "src");
+
+  puts("extern const char mrblib_gem_irep[];");
+  puts("");
+
+  puts("void");
+  puts("mrb_init_mrbgems(mrb_state *mrb) {");
+
+  for_each_gem("  mrb_", "_gem_init(mrb);\n", "", "", "src");
+
+  puts("  int n = mrb_read_irep(mrb, mrblib_gem_irep);");
+  puts("  mrb_run(mrb, mrb_proc_new(mrb, mrb->irep[n]), mrb_top_self(mrb));");
+  puts("  if (mrb->exc) {");
+  puts("    mrb_p(mrb, mrb_obj_value(mrb->exc));");
+  puts("    exit(0);");
+  puts("  }");
+  puts("}");
+}
+
+int
+main (int argc, char *argv[])
+{
+  if (argc == 2) {
+    if (strcmp(argv[1], "makefile") == 0)
+      make_gem_makefile();
+    else if (strcmp(argv[1], "init_gems") == 0)
+      make_init_gems();
+    else
+      return 1;
+  }
+  else {
+    puts("Argument missing! Options: 'makefile', 'init_gems'");
+    return 1;
+  }
+
+  return 0;
+}