README: document nit_env.sh

[nit.git] / c_src / nit.common.h

diff --git a/c_src/nit.common.h b/c_src/nit.common.h
index 21483a5..091d7f0 100644 (file)
--- a/c_src/nit.common.h
+++ b/c_src/nit.common.h
@@ -1,100 +1,102 @@
 #include <stdlib.h>
 #include <stdio.h>
 #include <string.h>
-#include <gc_chooser.h>
+#include <sys/types.h>
+
+#include <unistd.h>
+
+#include <stdint.h>
+
+#include "gc_chooser.h"
+#ifdef ANDROID
+       #include <android/log.h>
+       #define PRINT_ERROR(...) (void)__android_log_print(ANDROID_LOG_WARN, "Nit", __VA_ARGS__)
+#else
+       #define PRINT_ERROR(...) fprintf(stderr, __VA_ARGS__)
+#endif
 typedef void(*nitmethod_t)(void); /* general C type representing a Nit method. */
 typedef union {
 void* val;
 long l;
 short int s;
-char c;
+unsigned char b;
+uint32_t c;
 double d;
-char* str;
-void* ptr;
+void* str;
 } nitattribute_t; /* general C type representing a Nit attribute. */
 struct class { int box_kind; nitmethod_t vft[]; }; /* general C type representing a Nit class. */
 struct type { int id; const char *name; int color; short int is_nullable; const struct types *resolution_table; int table_size; int type_table[]; }; /* general C type representing a Nit type. */
 struct instance { const struct type *type; const struct class *class; nitattribute_t attrs[]; }; /* general C type representing a Nit instance. */
 struct types { int dummy; const struct type *types[]; }; /* a list types (used for vts, fts and unresolved lists). */
 typedef struct instance val; /* general C type representing a Nit instance. */
-void show_backtrace(int);
+extern const struct class *class_info[];
+extern const struct type *type_info[];
+struct nitni_instance {
+       struct nitni_instance *next,
+               *prev; /* adjacent global references in global list */
+       int count; /* number of time this global reference has been marked */
+       struct instance *value;
+};
+
+/* Native reference to Nit objects */
+/* This structure is used to represent every Nit type in extern methods and custom C code. */
+struct nitni_ref {
+       struct nitni_ref *next,
+               *prev; /* adjacent global references in global list */
+       int count; /* number of time this global reference has been marked */
+};
+
+/* List of global references from C code to Nit objects */
+/* Instanciated empty at init of Nit system and filled explicitly by user in C code */
+struct nitni_global_ref_list_t {
+       struct nitni_ref *head, *tail;
+};
+extern struct nitni_global_ref_list_t *nitni_global_ref_list;
+
+/* Initializer of global reference list */
+extern void nitni_global_ref_list_init();
+
+/* Intern function to add a global reference to the list */
+extern void nitni_global_ref_add( struct nitni_ref *ref );
+
+/* Intern function to remove a global reference from the list */
+extern void nitni_global_ref_remove( struct nitni_ref *ref );
+
+/* Increase count on an existing global reference */
+extern void nitni_global_ref_incr( struct nitni_ref *ref );
+
+/* Decrease count on an existing global reference */
+extern void nitni_global_ref_decr( struct nitni_ref *ref );
+
+void fatal_exit(int) __attribute__ ((noreturn));
+#define likely(x)       __builtin_expect((x),1)
+#define unlikely(x)     __builtin_expect((x),0)
 extern int glob_argc;
 extern char **glob_argv;
 extern val *glob_sys;
-struct instance_posix__Passwd {
+struct instance_standard__NativeString {
 const struct type *type;
 const struct class *class;
 void* value;
 };
-struct instance_posix__Group {
-const struct type *type;
-const struct class *class;
-void* value;
-};
-struct instance_string__NativeString {
-const struct type *type;
-const struct class *class;
-char* value;
-};
-val* BOX_string__NativeString(char*);
-struct instance_kernel__Bool {
-const struct type *type;
-const struct class *class;
-short int value;
-};
-val* BOX_kernel__Bool(short int);
-struct instance_kernel__Float {
+struct instance_standard__Float {
 const struct type *type;
 const struct class *class;
 double value;
 };
-val* BOX_kernel__Float(double);
-struct instance_kernel__Int {
+struct instance_standard__Byte {
 const struct type *type;
 const struct class *class;
-long value;
+unsigned char value;
 };
-val* BOX_kernel__Int(long);
-struct instance_kernel__Char {
-const struct type *type;
-const struct class *class;
-char value;
-};
-val* BOX_kernel__Char(char);
-struct instance_kernel__Pointer {
+struct instance_standard__Pointer {
 const struct type *type;
 const struct class *class;
 void* value;
 };
-struct instance_array__NativeArray {
+struct instance_standard__NativeArray {
 const struct type *type;
 const struct class *class;
+int length;
 val* values[0];
 };
-struct instance_file__FileStat {
-const struct type *type;
-const struct class *class;
-void* value;
-};
-struct instance_file__NativeFile {
-const struct type *type;
-const struct class *class;
-void* value;
-};
-val* BOX_file__NativeFile(void*);
-struct instance_time__TimeT {
-const struct type *type;
-const struct class *class;
-void* value;
-};
-struct instance_time__Tm {
-const struct type *type;
-const struct class *class;
-void* value;
-};
-struct instance_exec__NativeProcess {
-const struct type *type;
-const struct class *class;
-void* value;
-};
-val* BOX_exec__NativeProcess(void*);