Merge pull request #634 from masuidrive/use_ruby_for_building

Use CRuby for building

8 files changed, 168 insertions, 599 deletions

diff --git a/mrbgems/Makefile b/mrbgems/Makefile
deleted file mode 100644
index 2c0a0962c..000000000
--- a/mrbgems/Makefile
+++ /dev/null
@@ -1,76 +0,0 @@
-# makefile description.
-# add gems to the ruby library
-
-ifeq ($(strip $(MRUBY_ROOT)),)
-  MRUBY_ROOT := $(realpath ..)
-endif
-
-LIBR := ../lib/libmruby.a
-RM_F := rm -f
-CC_FLAGS := -Wall -Werror-implicit-function-declaration -g -O3 -MMD -I. -I./../include
-
-export CC = gcc
-export LL = gcc
-export AR = ar
-
-GENERATOR := $(MRUBY_ROOT)/mrbgems/generator
-ifeq ($(OS),Windows_NT)
-  GENERATOR_BIN := $(GENERATOR).exe
-else
-  GENERATOR_BIN := $(GENERATOR)
-endif
-GEM_INIT := gem_init
-GEM_MAKEFILE := g/Makefile
-GEM_MAKEFILE_LIST := g/MakefileGemList
-GEMDLIB := g/mrbgemtest.ctmp
-
-ifeq ($(strip $(ACTIVE_GEMS)),)
-  # the default file which contains the active GEMs
-  ACTIVE_GEMS = GEMS.active
-endif
-
-##############################
-# generic build targets, rules
-
-.PHONY : all
-all : all_gems $(GEM_INIT).a
-
-$(GEM_INIT).a : $(GEM_INIT).o
-	$(AR) rs gem_init.a $(GEM_INIT).o
-
-all_gems : $(GENERATOR_BIN)
-	@echo "Generate Gem List Makefile"
-	$(GENERATOR_BIN) makefile_list $(ACTIVE_GEMS) > $(GEM_MAKEFILE_LIST)
-	@echo "Generate Gem Makefile"
-	$(GENERATOR_BIN) makefile $(ACTIVE_GEMS) "$(MRUBY_ROOT)" > $(GEM_MAKEFILE)
-	@echo "Build all gems"
-	$(MAKE) -C g MRUBY_ROOT='$(MRUBY_ROOT)' ACTIVE_GEMS="$(ACTIVE_GEMS)"
-
-$(GEM_INIT).c : $(GENERATOR_BIN)
-	@echo "Generate Gem driver"
-	$(GENERATOR_BIN) $(GEM_INIT) $(ACTIVE_GEMS) > $@
-
-$(GEM_INIT).o : $(GEM_INIT).c
-	@echo "Build the driver which initializes all gems"
-	$(CC) $(CC_FLAGS) -MMD -c $< -o $@
-
-# Generator
-
-$(GENERATOR_BIN) : $(GENERATOR).o
-	@echo "Build the generator which creates the driver and Gem Makefile"
-	$(LL) -o $@ $(CC_FLAGS) $<
-
-$(GENERATOR).o : $(GENERATOR).c
-	$(CC) $(CC_FLAGS) -MMD -c $< -o $@
-
-.PHONY : prepare-test
-prepare-test :
-	@$(MAKE) prepare-test -C g ACTIVE_GEMS="$(ACTIVE_GEMS)" MRUBY_ROOT='$(MRUBY_ROOT)'
-
-# clean driver and all gems
-.PHONY : clean
-clean : $(GENERATOR_BIN)
-	@echo "Cleanup Gems"
-	$(GENERATOR_BIN) makefile $(ACTIVE_GEMS) "$(MRUBY_ROOT)" > $(GEM_MAKEFILE)
-	$(MAKE) clean -C g ACTIVE_GEMS="$(ACTIVE_GEMS)" MRUBY_ROOT='$(MRUBY_ROOT)'
-	-$(RM_F) $(GEM_INIT).c *.o *.d $(GENERATOR_BIN) $(GEM_MAKEFILE) $(GEM_MAKEFILE_LIST) gem_init.a
diff --git a/mrbgems/Makefile4gem b/mrbgems/Makefile4gem
index 4e6af4fcc..cd3151b2e 100644
--- a/mrbgems/Makefile4gem
+++ b/mrbgems/Makefile4gem
@@ -28,6 +28,9 @@ ifeq ($(strip $(ACTIVE_GEMS)),)
   ACTIVE_GEMS = GEMS.active
 endif
 
+MAKEFILE_GEM_LIST := $(MRUBY_ROOT)/mrbgems/g/MakefileGemList
+include $(MAKEFILE_GEM_LIST)
+
 # Default rules which are calling the
 # gem specific gem-all and gem-clean
 # implementations of a gem
@@ -46,14 +49,14 @@ gem_mixlib.c : gem_mrblib_header.ctmp gem_mrblib_irep.ctmp gem_mixlib_init.ctmp
 	cat $^ > $@
 
 gem_mixlib_init.ctmp :
-	$(MRUBY_ROOT)/mrbgems/generator gem_mixlib $(GEM) > $@
+	ruby $(MRUBY_ROOT)/mrbgems/generate_gem_mixlib.rb '$(GEM)' > $@
 
 # Building target for C files
 gem-c-files : gem_srclib.o
 	$(AR) rs $(GEM_PACKAGE) $(GEM_OBJECTS) $<
 
 gem_srclib.c :
-	$(MRUBY_ROOT)/mrbgems/generator gem_srclib $(GEM) > $@
+	ruby $(MRUBY_ROOT)/mrbgems/generate_gem_srclib.rb '$(GEM)' > $@
 
 # Building target for Ruby Files
 gem-rb-files : gem_mrblib.o
@@ -63,10 +66,10 @@ gem_mrblib.c : gem_mrblib_header.ctmp gem_mrblib_irep.ctmp gem_mrblib_init.ctmp
 	cat $^ > $@
 
 gem_mrblib_header.ctmp :
-	$(MRUBY_ROOT)/mrbgems/generator gem_mrblib > $@
+	ruby $(MRUBY_ROOT)/mrbgems/generate_gem_mrblib_header.rb '$(GEM)' > $@
 
 gem_mrblib_init.ctmp :
-	$(MRUBY_ROOT)/mrbgems/generator gem_mrblib $(GEM) > $@
+	ruby $(MRUBY_ROOT)/mrbgems/generate_gem_mrblib.rb '$(GEM)' > $@
 
 gem_mrblib_irep.ctmp : gem_mrblib.rbtmp
 	$(MRUBY_ROOT)/bin/mrbc -Bgem_mrblib_irep_$(subst -,_,$(GEM)) -o$@ $<
@@ -84,6 +87,9 @@ gem-clean-c-files :
 gem-clean-rb-files :
 	-$(RM) $(GEM_PACKAGE) gem_mrblib.o gem_mrblib.c gem_mrblib_header.ctmp gem_mrblib_init.ctmp gem_mrblib_irep.ctmp gem_mrblib.rbtmp
 
+%.o : %.c
+	$(CC) -c $(CFLAGS) $(CPPFLAGS) $(GEM_INCLUDE_LIST) $< -o $@
+
 .PHONY : clean
 clean : gem-clean
 	@echo "Gem '$(GEM)' is clean"
diff --git a/mrbgems/build_tasks.rb b/mrbgems/build_tasks.rb
new file mode 100644
index 000000000..0e2d24a2e
--- /dev/null
+++ b/mrbgems/build_tasks.rb
@@ -0,0 +1,84 @@
+MRBGEMS_PATH = File.dirname(__FILE__)
+
+GEM_INIT = "#{MRBGEMS_PATH}/gem_init"
+GEM_MAKEFILE = "#{MRBGEMS_PATH}/g/Makefile"
+GEM_MAKEFILE_LIST = "#{MRBGEMS_PATH}/g/MakefileGemList"
+MAKEFILE_4_GEM = "#{MRUBY_ROOT}/mrbgems/Makefile4gem"
+
+GEM_MAKE_FLAGS = "#{MAKE_FLAGS} MAKEFILE_4_GEM='#{MAKEFILE_4_GEM}'"
+
+task :mrbgems_all => ["#{GEM_INIT}.a", :mrbgems_generate_gem_makefile_list] do
+  for_each_gem do |path, gemname|
+    sh "#{MAKE} -C #{path} #{GEM_MAKE_FLAGS}"
+  end
+end
+
+task :mrbgems_clean do
+  sh "cd #{MRUBY_ROOT}/mrbgems && #{RM_F} *.c *.d *.a *.o"
+  sh "cd #{MRUBY_ROOT}/mrbgems/g && #{RM_F} *.c *.d *.rbtmp *.ctmp *.o mrbtest"
+  for_each_gem do |path, gemname|
+    sh "#{MAKE} clean -C #{path} #{GEM_MAKE_FLAGS}"
+  end
+end
+
+task :mrbgems_prepare_test do
+  sh "#{CAT} #{for_each_gem{|path, gemname| "#{path}/test/*.rb "}} > #{MRUBY_ROOT}/mrbgems/g/mrbgemtest.rbtmp"
+  sh "#{MRUBY_ROOT}/bin/mrbc -Bmrbgemtest_irep -o#{MRUBY_ROOT}/mrbgems/g/mrbgemtest.ctmp #{MRUBY_ROOT}/mrbgems/g/mrbgemtest.rbtmp"
+end
+
+file "#{GEM_INIT}.a" => ["#{GEM_INIT}.c", "#{GEM_INIT}.o"] do |t|
+  sh "#{AR} rs #{t.name} #{GEM_INIT}.o"
+end
+
+rule ".o" => [".c"] do |t|
+  puts "Build the driver which initializes all gems"
+  sh "#{CC} #{CFLAGS.join(' ')} -I#{MRUBY_ROOT}/include -MMD -c #{t.source} -o #{t.name}"
+end
+
+file "#{GEM_INIT}.c" do |t|
+  puts "Generate Gem driver: #{t.name}"
+  open(t.name, 'w') do |f|
+    f.puts <<__EOF__
+/*
+ * This file contains a list of all
+ * initializing methods which are
+ * necessary to bootstrap all gems.
+ *
+ * IMPORTANT:
+ *   This file was generated!
+ *   All manual changes will get lost.
+ */
+
+#include "mruby.h"
+
+#{for_each_gem{|path, gemname, escaped_gemname| "void GENERATED_TMP_mrb_%s_gem_init(mrb_state*);" % [escaped_gemname]}}
+
+void
+mrb_init_mrbgems(mrb_state *mrb) {
+#{for_each_gem{|path, gemname, escaped_gemname| "  GENERATED_TMP_mrb_%s_gem_init(mrb);" % [escaped_gemname]}}
+}
+__EOF__
+  end
+end
+
+def for_each_gem(&block)
+  IO.readlines(ACTIVE_GEMS).map { |line|
+    path = line.chomp
+    gemname = File.basename(path)
+    escaped_gemname = gemname.gsub(/-/, '_')
+    block.call(path, gemname, escaped_gemname)
+  }.join('')
+end
+
+task :mrbgems_generate_gem_makefile_list do
+  open(GEM_MAKEFILE_LIST, 'w') do |f|
+    f.puts <<__EOF__
+GEM_LIST := #{for_each_gem{|path, gemname| "#{path}/mrb-#{gemname}-gem.a "}}
+
+GEM_ARCHIVE_FILES := #{MRUBY_ROOT}/mrbgems/gem_init.a
+GEM_ARCHIVE_FILES += $(GEM_LIST)
+
+GEM_INCLUDE_LIST := #{for_each_gem{|path, gemname| "-I#{path}/include "}}
+__EOF__
+  end
+end
diff --git a/mrbgems/generate_gem_mixlib.rb b/mrbgems/generate_gem_mixlib.rb
new file mode 100644
index 000000000..39bc7b7f7
--- /dev/null
+++ b/mrbgems/generate_gem_mixlib.rb
@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+gemname = ARGV.shift.gsub('-', '_')
+
+puts <<__EOF__
+void mrb_#{gemname}_gem_init(mrb_state*);
+
+void
+GENERATED_TMP_mrb_#{gemname}_gem_init(mrb_state *mrb)
+{
+  mrb_#{gemname}_gem_init(mrb);
+  mrb_load_irep(mrb, gem_mrblib_irep_#{gemname});
+  if (mrb->exc) {
+    mrb_p(mrb, mrb_obj_value(mrb->exc));
+    exit(0);
+  }
+}
+__EOF__
diff --git a/mrbgems/generate_gem_mrblib.rb b/mrbgems/generate_gem_mrblib.rb
new file mode 100644
index 000000000..6d610d826
--- /dev/null
+++ b/mrbgems/generate_gem_mrblib.rb
@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+gemname = ARGV.shift.gsub('-', '_')
+
+puts <<__EOF__
+void
+GENERATED_TMP_mrb_#{gemname}_gem_init(mrb_state *mrb)
+{
+  mrb_load_irep(mrb, gem_mrblib_irep_#{gemname});
+  if (mrb->exc) {
+    mrb_p(mrb, mrb_obj_value(mrb->exc));
+    exit(0);
+  }
+}
+__EOF__
diff --git a/mrbgems/generate_gem_mrblib_header.rb b/mrbgems/generate_gem_mrblib_header.rb
new file mode 100644
index 000000000..74008a376
--- /dev/null
+++ b/mrbgems/generate_gem_mrblib_header.rb
@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+puts <<__EOF__
+/*
+ * This file is loading the irep
+ * Ruby GEM code.
+ *
+ * IMPORTANT:
+ *   This file was generated!
+ *   All manual changes will get lost.
+ */
+#include "mruby.h"
+#include "mruby/irep.h"
+#include "mruby/dump.h"
+#include "mruby/string.h"
+#include "mruby/proc.h"
+
+__EOF__
\ No newline at end of file
diff --git a/mrbgems/generate_gem_srclib.rb b/mrbgems/generate_gem_srclib.rb
new file mode 100644
index 000000000..7a0d437eb
--- /dev/null
+++ b/mrbgems/generate_gem_srclib.rb
@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+
+gemname = ARGV.shift.gsub('-', '_')
+
+puts <<__EOF__
+/*
+ * This file is loading the irep
+ * Ruby GEM code.
+ *
+ * IMPORTANT:
+ *   This file was generated!
+ *   All manual changes will get lost.
+ */
+#include "mruby.h"
+
+void mrb_#{gemname}_gem_init(mrb_state*);
+
+void
+GENERATED_TMP_mrb_#{gemname}_gem_init(mrb_state *mrb)
+{
+  mrb_#{gemname}_gem_init(mrb);
+}
+__EOF__
\ No newline at end of file
diff --git a/mrbgems/generator.c b/mrbgems/generator.c
deleted file mode 100644
index 542ba0ade..000000000
--- a/mrbgems/generator.c
+++ /dev/null
@@ -1,519 +0,0 @@
-/*
-** generator.c - Generator for mrbgems
-**
-** See Copyright Notice in mruby.h
-*/
-
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <errno.h>
-#include <mrbconf.h>
-
-/*
- * Get the file name part of *path*
- *
- * Arguments:
- *   path:
- *     String which represents the path
- *
- */ 
-static char
-*get_file_name(char *path)
-{
-    char *base = strrchr(path, '/');
-    return base ? base+1 : path;
-}
-
-static char
-*get_full_path(char *path, char *mruby_root)
-{
-  static char full_path[1024] = { 0 };
-  if (path[0] == '/') {
-    /* An absolute UNIX path starts with a slash */
-    strcpy(full_path, path);
-  }
-  else if (path[1] == ':') {
-    /* An absolute path on WIN32 starts
-     * with a drive like "c://path/to/somewhere"
-     */
-    strcpy(full_path, path);
-  }
-  else {
-    strcpy(full_path, mruby_root);
-    strcat(full_path, "/mrbgems/g/");
-    strcat(full_path, path);
-  }
-
-  return full_path;
-}
-
-/*
- * Search in *s* for *old* and replace with *new*.
- *
- * Arguments:
- *   s:
- *     String in which the the replacement will be done
- *   old:
- *     String which will be replaced
- *   new:
- *     String which will be the replacement
- *
- */
-
-static char *
-replace(const char *s, const char *old, const char *new)
-{
-  char *ret;
-  int i, count = 0;
-  size_t newlen = strlen(new);
-  size_t oldlen = strlen(old);
-
-  for (i = 0; s[i] != '\0'; i++) {
-    if (strstr(&s[i], old) == &s[i]) {
-      count++;
-      i += oldlen - 1;
-    }
-  }
-
-  ret = malloc(i + count * (newlen - oldlen) + 1);
-  if (ret == NULL)
-    exit(EXIT_FAILURE);
-
-  i = 0;
-  while (*s) {
-    if (strstr(s, old) == s) {
-      strcpy(&ret[i], new);
-      i += newlen;
-      s += oldlen;
-    }
-    else
-      ret[i++] = *s++;
-  }
-  ret[i] = '\0';
-
-  return ret;
-}
-
-/*
- * Escape GEM Name for integration into source code.
- *
- * Due to the reason that the GEM Name is used for
- * directory names, files and C functions, some safety
- * replacements have to be applied. I.e. a directory
- * can contain a dash "-" but a C function can't.
- *
- */
-static char
-*escape_gem_name(const char *s)
-{
-  return replace(s, "-", "_");
-}
-
-/*
- * Template generator for each active 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
- *   full_path:
- *     Should the full path of the GEM be used?
- *   active_gems:
- *     GEMS.active file location
- *   escape:
- *     Should the gem name be escaped?
- *   check_suffix:
- *     If not empty it will be added to the GEM
- *     path and a check will be performed if this
- *     full path is a directory. Every GEM which
- *     doesn't contain this path will be skipped
- *     in the iteration.
- *
- */
-static char*
-for_each_gem (char before[1024], char after[1024],
-               char start[1024], char end[1024],
-               int full_path, char active_gems[1024],
-               int escape, char check_suffix[1024],
-               char mruby_root[1024])
-{
-  /* active GEM check */
-  FILE *active_gem_file;
-  int gem_char;
-  char gem_name[1024] = { 0 };
-  int char_index;
-  char gem_list[1024][1024] = { { 0 }, { 0 } };
-  int gem_index = 0;
-  int i;
-  int skip;
-  FILE *check;
-  char check_name[1024] = { 0 };
-
-  /* return value */
-  char* complete_line = malloc(4096 + sizeof(char));
-  strcpy(complete_line, "");
-  strcat(complete_line, start);
-
-  /* Read out the active GEMs */
-  active_gem_file = fopen(active_gems, "r+");
-  if (active_gem_file != NULL) {
-    char_index = 0;
-    gem_index = 0;
-    skip = FALSE;
-    while ((gem_char = fgetc(active_gem_file)) != EOF) {
-      if (gem_char == '\n') {
-        /* Every line contains one active GEM */
-        gem_name[char_index++] = '\0';
-
-        if (escape == TRUE)
-          strcpy(gem_name, escape_gem_name(gem_name));
-
-        if (strcmp(check_suffix, "") == 0) { /* No suffix passed */ }
-        else {
-          /* Check the path with suffix if it is a directory */
-
-          strcpy(check_name, get_full_path(gem_name, mruby_root));
-          strcat(check_name, check_suffix);
-          check = fopen(check_name, "r+");
-          if (errno == EISDIR)
-            skip = FALSE;
-          else
-            skip = TRUE;
-          if (check)
-            fclose(check);
-        }
-
-        if (skip == FALSE)
-          strcpy(gem_list[gem_index++], gem_name);
-
-        gem_name[0] = '\0';
-        char_index = 0;
-      }
-      else
-        gem_name[char_index++] = gem_char;
-    }
-
-    fclose(active_gem_file);
-  }
-  else { /* Error: Active GEM list couldn't be loaded */ }
-
-  for(i = 0; i < gem_index; i++) {
-    strcat(complete_line, before);
-    if (full_path == TRUE) {
-      if (strcmp(mruby_root, "") == 0)
-        strcat(complete_line, get_full_path(gem_list[i], "$(MRUBY_ROOT)"));
-      else
-        strcat(complete_line, get_full_path(gem_list[i], mruby_root));
-    }
-    else
-      strcat(complete_line, get_file_name(gem_list[i]));
-    strcat(complete_line, replace(after, "#GEMNAME#", get_file_name(gem_list[i])));
-  }
-
-  strcat(complete_line, end);
-  return complete_line;
-}
-
-/*
- * Gem Makefile Generator
- *
- * Global Makefile which starts the build process
- * for every active GEM.
- *
- */
-static void
-make_gem_makefile(char active_gems[1024], char mruby_root[1024])
-{
-  char *gem_check = { 0 };
-  int gem_empty;
-
-  printf("ifeq ($(strip $(MRUBY_ROOT)),)\n"
-         "  MRUBY_ROOT := $(realpath ../../..)\n"
-         "endif\n\n"
-
-         "MAKEFILE_4_GEM := $(MRUBY_ROOT)/mrbgems/Makefile4gem\n\n"
-
-         "INCLUDE := ");
-
-  /* collect all GEM include directories if they exist */
-  printf("%s\n",
-           for_each_gem("-I", "/include ", "", "", TRUE, active_gems, FALSE, "/include", mruby_root)
-          );
-
-  printf("CFLAGS := -I. -I$(MRUBY_ROOT)/include -I$(MRUBY_ROOT)/src $(INCLUDE)\n\n"
-
-         "ifeq ($(OS),Windows_NT)\n"
-         "  MAKE_FLAGS = --no-print-directory CC=$(CC) LL=$(LL) LDFLAGS='$(LDFLAGS)' CFLAGS='$(CFLAGS)' MRUBY_ROOT='$(MRUBY_ROOT)' MAKEFILE_4_GEM='$(MAKEFILE_4_GEM)'\n"
-         "else\n"
-         "  MAKE_FLAGS = --no-print-directory CC='$(CC)' LL='$(LL)' LDFLAGS='$(LDFLAGS)' CFLAGS='$(CFLAGS)' MRUBY_ROOT='$(MRUBY_ROOT)' MAKEFILE_4_GEM='$(MAKEFILE_4_GEM)'\n"
-         "endif\n\n");
-
-  /* is there any GEM available? */
-  gem_check = for_each_gem("", "", "", "", TRUE, active_gems, FALSE, "", "");
-  if (strcmp(gem_check, "") == 0)
-    gem_empty = TRUE;
-  else
-    gem_empty = FALSE;
-
-  /* Makefile Rules to build every single GEM */
-
-  printf(".PHONY : all\n");
-  if (gem_empty)
-    printf("all :\n\n");
-  else {
-    printf("all : all_gems\n\n");
-
-    /* Call make for every GEM */
-    printf("all_gems :\n%s\n", 
-            for_each_gem("\t$(MAKE) -C ", " $(MAKE_FLAGS)\n", "", "", TRUE, active_gems, FALSE, "", "")
-          );
-    printf("\n");
-  }
-
-  /* Makefile Rules to Test GEMs */
-
-  printf(".PHONY : prepare-test\n"
-         "prepare-test :\n"
-        );
-  if (!gem_empty)
-    printf("%s",
-           for_each_gem(" ", "/test/*.rb ", "\tcat", " > mrbgemtest.rbtmp", TRUE, active_gems, FALSE, "", "")
-          );
-  else
-    printf("\t$(MRUBY_ROOT)/mrbgems/generator rbtmp> mrbgemtest.rbtmp");
-
-  printf("\n\t$(MRUBY_ROOT)/bin/mrbc -Bmrbgemtest_irep -omrbgemtest.ctmp mrbgemtest.rbtmp\n\n");
-
-  /* Makefile Rules to Clean GEMs */
-
-  printf(".PHONY : clean\n"
-         "clean :\n"
-         "\t$(RM) *.c *.d *.rbtmp *.ctmp *.o mrbtest\n");
-  if (!gem_empty)
-    printf("%s",
-           for_each_gem("\t@$(MAKE) clean -C ", " $(MAKE_FLAGS)\n", "", "", TRUE, active_gems, FALSE, "", "")
-          );
-}
-
-/*
- * Gem Makefile List Generator
- *
- * Creates a Makefile which will be included by other Makefiles
- * which need to know which GEMs are active.
- *
- */
-static void
-make_gem_makefile_list(char active_gems[1024])
-{
-  printf("%s",
-         for_each_gem(" ", "/mrb-#GEMNAME#-gem.a", "GEM_LIST := ", "\n", TRUE, active_gems, FALSE, "", "")
-        );
-
-  printf("GEM_ARCHIVE_FILES := $(MRUBY_ROOT)/mrbgems/gem_init.a\n"
-         "GEM_ARCHIVE_FILES += $(GEM_LIST)\n\n");
-}
-
-/*
- * gem_init.c Generator
- *
- */
-static void
-make_gem_init(char active_gems[1024])
-{
-  printf("/*\n"
-         " * This file contains a list of all\n"
-         " * initializing methods which are\n"
-         " * necessary to bootstrap all gems.\n"
-         " *\n"
-         " * IMPORTANT:\n"
-         " *   This file was generated!\n"
-         " *   All manual changes will get lost.\n"
-         " */\n\n"
-         "#include \"mruby.h\"\n");
-
-  /* Protoype definition of all initialization methods */
-  printf("\n%s",
-         for_each_gem("void GENERATED_TMP_mrb_", "_gem_init(mrb_state*);\n", "", "", FALSE, active_gems, TRUE, "", "")
-        );
-  printf("\n");
-
-  /* mrb_init_mrbgems(mrb) method for initialization of all GEMs */
-  printf("void\n"
-         "mrb_init_mrbgems(mrb_state *mrb) {\n");
-  printf(   "%s",
-            for_each_gem("  GENERATED_TMP_mrb_", "_gem_init(mrb);\n", "", "", FALSE, active_gems, TRUE, "", "")
-        );
-  printf("}");
-}
-
-/*
- * Empty Generator
- *
- * Generates a clean file with one new line.
- *
- */
-static void
-make_rbtmp()
-{
-  printf("\n");
-}
-
-/*
- * Header Generator
- *
- * Head of the C Code for loading the GEMs into the interpreter.
- *
- */
-static void
-make_gem_mrblib_header()
-{
-  printf("/*\n"
-         " * This file is loading the irep\n"
-         " * Ruby GEM code.\n"
-         " *\n"
-         " * IMPORTANT:\n"
-         " *   This file was generated!\n"
-         " *   All manual changes will get lost.\n"
-         " */\n\n"
-         "#include \"mruby.h\"\n"
-         "#include \"mruby/irep.h\"\n"
-         "#include \"mruby/dump.h\"\n"
-         "#include \"mruby/string.h\"\n"
-         "#include \"mruby/proc.h\"\n\n");
-}
-
-/*
- * mrblib Generator
- *
- * Generates the C Code for loading
- * the pure Ruby GEMs into the interpreter.
- *
- */
-static void
-make_gem_mrblib(char gem_name[1024])
-{
-  printf("\n"
-         "void\n"
-         "GENERATED_TMP_mrb_%s_gem_init(mrb_state *mrb) {\n"
-         "  mrb_load_irep(mrb, gem_mrblib_irep_%s);\n"
-         "  if (mrb->exc) {\n"
-         "    mrb_p(mrb, mrb_obj_value(mrb->exc));\n"
-         "    exit(0);\n"
-         "  }\n"
-         "}", gem_name, gem_name);
-}
-
-/*
- * srclib Generator
- *
- * Generates the C Code for loading
- * the pure C GEMs into the interpreter.
- *
- */
-static void
-make_gem_srclib(char gem_name[1024])
-{
-  printf("/*\n"
-         " * This file is loading the irep\n"
-         " * Ruby GEM code.\n"
-         " *\n"
-         " * IMPORTANT:\n"
-         " *   This file was generated!\n"
-         " *   All manual changes will get lost.\n"
-         " */\n\n"
-         "#include \"mruby.h\"\n");
-
-  /* Prototype method for GEM initialization */
-  printf("\n"
-         "void mrb_%s_gem_init(mrb_state*);\n", gem_name);
-
-  printf("\n"
-         "void\n"
-         "GENERATED_TMP_mrb_%s_gem_init(mrb_state *mrb) {\n"
-         "  mrb_%s_gem_init(mrb);\n"
-         "}", gem_name, gem_name);
-}
-
-/*
- * mixlib Generator
- *
- * Generates the C Code for loading
- * the mixed Ruby and C GEMs
- * into the interpreter.
- *
- */
-static void
-make_gem_mixlib(char gem_name[1024])
-{
-  /* Prototype method for GEM initialization */
-  printf("\n"
-         "void mrb_%s_gem_init(mrb_state*);\n", gem_name);
-
-  printf("\n"
-         "void\n"
-         "GENERATED_TMP_mrb_%s_gem_init(mrb_state *mrb) {\n"
-         "  mrb_%s_gem_init(mrb);\n"
-         "  mrb_load_irep(mrb, gem_mrblib_irep_%s);\n"
-         "  if (mrb->exc) {\n"
-         "    mrb_p(mrb, mrb_obj_value(mrb->exc));\n"
-         "    exit(0);\n"
-         "  }\n"
-         "}", gem_name, gem_name, gem_name);
-}
-
-/*
- * Start the generator and decide what to generate. 
- *
- */
-int
-main (int argc, char *argv[])
-{
-  const char * argument_info = "Wrong argument! Options: 'makefile', 'gem_init', 'rbtmp', 'gem_mrblib', gem_srclib\n";
-
-  if (argc == 2) {
-    if (strcmp(argv[1], "rbtmp") == 0)
-      make_rbtmp();
-    else if (strcmp(argv[1], "gem_mrblib") == 0)
-      make_gem_mrblib_header();
-    else {
-      printf("%s", argument_info);
-      return 1;
-    }
-  }
-  else if (argc == 3) {
-    if (strcmp(argv[1], "makefile_list") == 0)
-      make_gem_makefile_list(argv[2]);
-    else if (strcmp(argv[1], "gem_init") == 0)
-      make_gem_init(argv[2]);
-    else if (strcmp(argv[1], "gem_mrblib") == 0)
-      make_gem_mrblib(escape_gem_name(argv[2]));
-    else if (strcmp(argv[1], "gem_srclib") == 0)
-      make_gem_srclib(escape_gem_name(argv[2]));
-    else if (strcmp(argv[1], "gem_mixlib") == 0)
-      make_gem_mixlib(escape_gem_name(argv[2]));
-    else {
-      printf("%s", argument_info);
-      return 1;
-    }
-  }
-  else if (argc == 4) {
-    if (strcmp(argv[1], "makefile") == 0)
-      make_gem_makefile(argv[2], argv[3]);
-    else {
-      printf("%s", argument_info);
-      return 1;
-    }
-  }
-  else {
-    printf("%s", argument_info);
-    return 1;
-  }
-
-  return 0;
-}