c_src/nit__nith.main.1.c

   1 #include "nit__nith.main.0.h"
   2 struct nitni_global_ref_list_t *nitni_global_ref_list;
   3 void initialize_nitni_global_refs() {
   4         nitni_global_ref_list = (struct nitni_global_ref_list_t*)nit_alloc(sizeof(struct nitni_global_ref_list_t));
   5         nitni_global_ref_list->head = NULL;
   6         nitni_global_ref_list->tail = NULL;
   7 }
   8
   9 void nitni_global_ref_add( struct nitni_ref *ref ) {
  10         if ( nitni_global_ref_list->head == NULL ) {
  11                 nitni_global_ref_list->head = ref;
  12                 ref->prev = NULL;
  13         } else {
  14                 nitni_global_ref_list->tail->next = ref;
  15                 ref->prev = nitni_global_ref_list->tail;
  16         }
  17         nitni_global_ref_list->tail = ref;
  18
  19         ref->next = NULL;
  20 }
  21
  22 void nitni_global_ref_remove( struct nitni_ref *ref ) {
  23         if ( ref->prev == NULL ) {
  24                 nitni_global_ref_list->head = ref->next;
  25         } else {
  26                 ref->prev->next = ref->next;
  27         }
  28
  29         if ( ref->next == NULL ) {
  30                 nitni_global_ref_list->tail = ref->prev;
  31         } else {
  32                 ref->next->prev = ref->prev;
  33         }
  34 }
  35
  36 extern void nitni_global_ref_incr( struct nitni_ref *ref ) {
  37         if ( ref->count == 0 ) /* not registered */
  38         {
  39                 /* add to list */
  40                 nitni_global_ref_add( ref );
  41         }
  42
  43         ref->count ++;
  44 }
  45
  46 extern void nitni_global_ref_decr( struct nitni_ref *ref ) {
  47         if ( ref->count == 1 ) /* was last reference */
  48         {
  49                 /* remove from list */
  50                 nitni_global_ref_remove( ref );
  51         }
  52
  53         ref->count --;
  54 }
  55
  56 #include <signal.h>
  57 #ifndef NO_STACKTRACE
  58 #define UNW_LOCAL_ONLY
  59 #include <libunwind.h>
  60 #include "c_functions_hash.h"
  61 #endif
  62 int glob_argc;
  63 char **glob_argv;
  64 val *glob_sys;
  65 static void show_backtrace(void) {
  66 #ifndef NO_STACKTRACE
  67 char* opt = getenv("NIT_NO_STACK");
  68 unw_cursor_t cursor;
  69 if(opt==NULL){
  70 unw_context_t uc;
  71 unw_word_t ip;
  72 char* procname = malloc(sizeof(char) * 100);
  73 unw_getcontext(&uc);
  74 unw_init_local(&cursor, &uc);
  75 PRINT_ERROR("-------------------------------------------------\n");
  76 PRINT_ERROR("--   Stack Trace   ------------------------------\n");
  77 PRINT_ERROR("-------------------------------------------------\n");
  78 while (unw_step(&cursor) > 0) {
  79         unw_get_proc_name(&cursor, procname, 100, &ip);
  80         const char* recv = get_nit_name(procname, strlen(procname));
  81         if (recv != NULL){
  82                 PRINT_ERROR("` %s\n", recv);
  83         }else{
  84                 PRINT_ERROR("` %s\n", procname);
  85         }
  86 }
  87 PRINT_ERROR("-------------------------------------------------\n");
  88 free(procname);
  89 }
  90 #endif /* NO_STACKTRACE */
  91 }
  92 void sig_handler(int signo){
  93 PRINT_ERROR("Caught signal : %s\n", strsignal(signo));
  94 show_backtrace();
  95 signal(signo, SIG_DFL);
  96 kill(getpid(), signo);
  97 }
  98 void fatal_exit(int status) {
  99 show_backtrace();
 100 exit(status);
 101 }
 102 int main(int argc, char** argv) {
 103 val* var /* : Sys */;
 104 signal(SIGABRT, sig_handler);
 105 signal(SIGFPE, sig_handler);
 106 signal(SIGILL, sig_handler);
 107 signal(SIGINT, sig_handler);
 108 signal(SIGTERM, sig_handler);
 109 signal(SIGSEGV, sig_handler);
 110 signal(SIGPIPE, sig_handler);
 111 glob_argc = argc; glob_argv = argv;
 112 initialize_gc_option();
 113 initialize_nitni_global_refs();
 114 var = NEW_standard__Sys(&type_standard__Sys);
 115 glob_sys = var;
 116 {
 117 ((void(*)(val* self))(var->class->vft[COLOR_standard__kernel__Object__init]))(var); /* init on <var:Sys>*/
 118 }
 119 {
 120 ((void(*)(val* self))(var->class->vft[COLOR_standard__kernel__Sys__run]))(var); /* run on <var:Sys>*/
 121 }
 122 return 0;
 123 }
 124 const char FILE_nit__nith[] = "nith.nit";
 125 const char FILE_nit__modelize[] = "modelize/modelize.nit";
 126 const char FILE_nit__modelize_property[] = "modelize/modelize_property.nit";
 127 const char FILE_nit__modelize_class[] = "modelize/modelize_class.nit";
 128 const char FILE_nit__modelbuilder[] = "modelbuilder.nit";
 129 const char FILE_nit__loader[] = "loader.nit";
 130 const char FILE_nit__modelbuilder_base[] = "modelbuilder_base.nit";
 131 const char FILE_nit__model[] = "model/model.nit";
 132 const char FILE_nit__mmodule[] = "model/mmodule.nit";
 133 const char FILE_nit__location[] = "location.nit";
 134 const char FILE_standard[] = "../lib/standard/standard.nit";
 135 const char FILE_standard__posix[] = "../lib/standard/posix.nit";
 136 const char FILE_standard__string[] = "../lib/standard/string.nit";
 137 const char FILE_standard__math[] = "../lib/standard/math.nit";
 138 const char FILE_standard__kernel[] = "../lib/standard/kernel.nit";
 139 const char FILE_standard__collection[] = "../lib/standard/collection/collection.nit";
 140 const char FILE_standard__range[] = "../lib/standard/collection/range.nit";
 141 const char FILE_standard__abstract_collection[] = "../lib/standard/collection/abstract_collection.nit";
 142 const char FILE_standard__list[] = "../lib/standard/collection/list.nit";
 143 const char FILE_standard__array[] = "../lib/standard/collection/array.nit";
 144 const char FILE_standard__sorter[] = "../lib/standard/collection/sorter.nit";
 145 const char FILE_standard__hash_collection[] = "../lib/standard/collection/hash_collection.nit";
 146 const char FILE_standard__union_find[] = "../lib/standard/collection/union_find.nit";
 147 const char FILE_standard__environ[] = "../lib/standard/environ.nit";
 148 const char FILE_standard__file[] = "../lib/standard/file.nit";
 149 const char FILE_standard__stream[] = "../lib/standard/stream.nit";
 150 const char FILE_standard__ropes[] = "../lib/standard/ropes.nit";
 151 const char FILE_standard__error[] = "../lib/standard/error.nit";
 152 const char FILE_standard__bytes[] = "../lib/standard/bytes.nit";
 153 const char FILE_standard__string_search[] = "../lib/standard/string_search.nit";
 154 const char FILE_standard__time[] = "../lib/standard/time.nit";
 155 const char FILE_standard__gc[] = "../lib/standard/gc.nit";
 156 const char FILE_standard__exec[] = "../lib/standard/exec.nit";
 157 const char FILE_standard__bitset[] = "../lib/standard/bitset.nit";
 158 const char FILE_standard__queue[] = "../lib/standard/queue.nit";
 159 const char FILE_standard__numeric[] = "../lib/standard/numeric.nit";
 160 const char FILE_standard__re[] = "../lib/standard/re.nit";
 161 const char FILE_nit__mproject[] = "model/mproject.nit";
 162 const char FILE_nit__model_base[] = "model/model_base.nit";
 163 const char FILE_more_collections[] = "../lib/more_collections.nit";
 164 const char FILE_serialization[] = "../lib/serialization/serialization.nit";
 165 const char FILE_poset[] = "../lib/poset.nit";
 166 const char FILE_nit__mdoc[] = "model/mdoc.nit";
 167 const char FILE_ordered_tree[] = "../lib/ordered_tree.nit";
 168 const char FILE_nit__toolcontext[] = "toolcontext.nit";
 169 const char FILE_opts[] = "../lib/opts.nit";
 170 const char FILE_nit__version[] = "version.nit";
 171 const char FILE_template[] = "../lib/template/template.nit";
 172 const char FILE_nit__parser[] = "parser/parser.nit";
 173 const char FILE_nit__parser_prod[] = "parser/parser_prod.nit";
 174 const char FILE_nit__lexer[] = "parser/lexer.nit";
 175 const char FILE_nit__parser_nodes[] = "parser/parser_nodes.nit";
 176 const char FILE_nit__lexer_work[] = "parser/lexer_work.nit";
 177 const char FILE_nit__tables[] = "parser/tables.nit";
 178 const char FILE_nit__parser_work[] = "parser/parser_work.nit";
 179 const char FILE_nit__phase[] = "phase.nit";
 180 const char FILE_nit__annotation[] = "annotation.nit";
 181 const char FILE_nit__literal[] = "literal.nit";
 182 const char FILE_nit__mmodule_data[] = "model/mmodule_data.nit";
 183 const char FILE_nit__transform[] = "transform.nit";
 184 const char FILE_nit__astbuilder[] = "astbuilder.nit";
 185 const char FILE_nit__typing[] = "semantize/typing.nit";
 186 const char FILE_nit__local_var_init[] = "semantize/local_var_init.nit";
 187 const char FILE_nit__flow[] = "semantize/flow.nit";
 188 const char FILE_nit__scope[] = "semantize/scope.nit";
 189 const char FILE_nit__astvalidation[] = "astvalidation.nit";
 190 const char FILE_nit__semantize[] = "semantize/semantize.nit";
 191 const char FILE_nit__auto_super_init[] = "semantize/auto_super_init.nit";
 192 const char FILE_nit__rapid_type_analysis[] = "rapid_type_analysis.nit";
 193 const char FILE_csv[] = "../lib/csv/csv.nit";
 194 const char FILE_nit__separate_erasure_compiler[] = "compiler/separate_erasure_compiler.nit";
 195 const char FILE_nit__separate_compiler[] = "compiler/separate_compiler.nit";
 196 const char FILE_nit__abstract_compiler[] = "compiler/abstract_compiler.nit";
 197 const char FILE_nit__platform[] = "platform/platform.nit";
 198 const char FILE_nit__parser_util[] = "parser_util.nit";
 199 const char FILE_nit__c_tools[] = "c_tools.nit";
 200 const char FILE_nit__mixin[] = "mixin.nit";
 201 const char FILE_counter[] = "../lib/counter.nit";
 202 const char FILE_nit__coloring[] = "compiler/coloring.nit";
 203 const char FILE_nit__light_only[] = "compiler/compiler_ffi/light_only.nit";
 204 const char FILE_nit__light[] = "compiler/compiler_ffi/light.nit";
 205 const char FILE_nit__light_ffi[] = "ffi/light_ffi.nit";
 206 const char FILE_nit__nitni_utilities[] = "nitni/nitni_utilities.nit";
 207 const char FILE_nit__nitni_base[] = "nitni/nitni_base.nit";
 208 const char FILE_nit__light_ffi_base[] = "ffi/light_ffi_base.nit";
 209 const char FILE_nit__extern_classes[] = "ffi/extern_classes.nit";
 210 const char FILE_nit__light_c[] = "ffi/light_c.nit";
 211 void gc_finalize (void *obj, void *client_data) {
 212 val* var /* : Finalizable */;
 213 var = obj;
 214 {
 215 ((void(*)(val* self))(var->class->vft[COLOR_standard__gc__Finalizable__finalize]))(var); /* finalize on <var:Finalizable>*/
 216 }
 217 }