use nitg to bootstrap; drop bootstrap of nitc

[nit.git] / c_src / clib / nit_main.c

diff --git a/c_src/clib/nit_main.c b/c_src/clib/nit_main.c
deleted file mode 100644 (file)
index b578658..0000000
--- a/c_src/clib/nit_main.c
+++ /dev/null
@@ -1,136 +0,0 @@
-/* This file is part of NIT ( http://www.nitlanguage.org ).
- *
- * Copyright 2006-2009 Jean Privat <jean@pryen.org>
- *
- * This file is free software, which comes along with NIT.  This software 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.  You can modify it is you want,  provided this header
- * is kept unaltered, and a notification of the changes is added.
- * You  are  allowed  to  redistribute it and sell it, alone or is a part of
- * another product.
- */
-
-#include "nit_common.h"
-#include <signal.h>
-#include <stdarg.h>
-#include "gc.h"
-
-bigint object_id_counter = 1000000;
-enum gc_option { large, boehm, nitgc } gc_option;
-
-#ifdef WITH_LIBGC
-#define GC_DEBUG
-#include <gc/gc.h>
-#endif
-
-void *raw_alloc(size_t s0)
-{
-       switch (gc_option) {
-       case nitgc: return malloc(s0); break;
-       default: return alloc(s0);
-       }
-}
-
-void register_static_object(val_t *o)
-{
-       switch (gc_option) {
-       case nitgc: GC_add_static_object(o); break;
-       default: break;
-       }
-       return;
-}
-
-void *large_alloc(size_t s0)
-{
-       static char * alloc_pos = NULL;
-       static size_t alloc_size = 0;
-       void * res;
-       size_t s = ((s0+3)/4)*4;
-       if(alloc_size < s) {
-               alloc_size = s + 1024*1024;
-               alloc_pos = (char *)calloc(alloc_size, 1);
-       }
-       res = alloc_pos;
-       alloc_size -= s;
-       alloc_pos += s;
-       return res;
-}
-
-void * alloc(size_t s0)
-{
-       switch (gc_option) {
-#ifdef WITH_LIBGC
-       case boehm: return GC_MALLOC(s0);
-#endif
-       case nitgc: return Nit_gc_malloc(s0);
-       case large:
-       default: return large_alloc(s0);
-       }
-}
-
-int glob_argc;
-char **glob_argv;
-val_t G_sys;
-
-void exithandler(int s) {
-       fprintf(stderr, "Recieved signal %d\n", s);
-       nit_exit(1);
-}
-void initialize_gc_option(void) {
-       /* GC default */
-#ifdef WITH_LIBGC
-       gc_option = boehm;
-#else
-       gc_option = nitgc;
-#endif
-
-       /* Process GC runtime selection */
-       if (getenv("NIT_GC_OPTION") != NULL) {
-               char *opt=getenv("NIT_GC_OPTION");
-               if (strcmp(opt, "boehm")==0) {
-#ifdef WITH_LIBGC
-                       gc_option = boehm;
-#else
-               fprintf(stderr, "Compiled without Boehm GC support. Using default.\n");
-#endif
-               } else if (strcmp(opt, "nitgc")==0) {
-                       gc_option = nitgc;
-               } else if (strcmp(opt, "large")==0) {
-                       gc_option = large;
-               } else {
-                       fprintf(stderr, "Invalid GC option in NIT_GC_OPTION environment variable. Using default.\n");
-               }
-       }
-
-       /* Initialize GC (if needed) */
-       switch(gc_option) {
-#ifdef WITH_LIBGC
-               case boehm: GC_INIT(); break;
-#endif
-               case nitgc: Nit_gc_init(); break;
-               default: break; /* Nothing */
-       }
-}
-void prepare_signals(void) {
-       initialize_gc_option();
-
-       signal(SIGINT,exithandler);
-       signal(SIGABRT,exithandler);
-       signal(SIGSEGV,exithandler);
-       signal(SIGILL, exithandler);
-       signal(SIGFPE, exithandler);
-       signal(SIGTERM,exithandler);
-       signal(SIGBUS, exithandler);
-}
-struct stack_frame_t *stack_frame_head = NULL;
-void nit_exit(int i) {
-       fprintf(stderr, ",---- Stack trace -- - -  -\n");
-       while(stack_frame_head != NULL) {
-               fprintf(stderr, "| %s (%s:%d)\n", stack_frame_head->meth, stack_frame_head->file, stack_frame_head->line);
-               if (stack_frame_head == stack_frame_head->prev) break;
-               stack_frame_head = stack_frame_head->prev;
-       }
-       fprintf(stderr, "`------------------- - -  -\n");
-       exit(i);
-}