nitlanguage / nit.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
update c_src (now with ffi)
[nit.git] / c_src / utils._sep.c
diff --git a/c_src/utils._sep.c b/c_src/utils._sep.c
index 1f2cd28..0d09f4a 100644 (file)
--- a/c_src/utils._sep.c
+++ b/c_src/utils._sep.c
@@ -1,5 +1,6 @@
 /* This C file is generated by NIT to compile module utils. */
 #include "utils._sep.h"
+static const char LOCATE_utils___Object___cmangle[] = "utils::Object::cmangle";
 val_t utils___Object___cmangle(val_t p0, val_t p1){
   struct {struct stack_frame_t me; val_t MORE_REG[6];} fra;
   val_t REGB0;
@@ -9,7 +10,7 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
   static val_t once_value_1; /* Once value */
   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   fra.me.file = LOCATE_utils;
-  fra.me.line = 21;
+  fra.me.line = 23;
   fra.me.meth = LOCATE_utils___Object___cmangle;
   fra.me.has_broke = 0;
   fra.me.REG_size = 7;
@@ -23,21 +24,21 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
   fra.me.REG[6] = NIT_NULL;
   fra.me.REG[0] = p0;
   fra.me.REG[1] = p1;
-  /* utils.nit:21 */
+  /* utils.nit:23 */
   fra.me.REG[2] = fra.me.REG[0];
   REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], COLOR_standard___collection___array___Array, ID_standard___collection___array___Array)) /*cast Array[Symbol]*/;
   if (UNTAG_Bool(REGB0)) {
   } else {
-    nit_abort("Cast failed", NULL, LOCATE_utils, 21);
+    nit_abort("Cast failed", NULL, LOCATE_utils, 23);
   }
-  /* utils.nit:24 */
+  /* utils.nit:26 */
   if (!once_value_1) {
     fra.me.REG[2] = CALL_utils___Object___cmangle_table(fra.me.REG[2])(fra.me.REG[2]);
     once_value_1 = fra.me.REG[2];
     register_static_object(&once_value_1);
   } else fra.me.REG[2] = once_value_1;
   fra.me.REG[2] = fra.me.REG[2];
-  /* utils.nit:25 */
+  /* utils.nit:27 */
   fra.me.REG[0] = NEW_Buffer_standard___string___Buffer___init();
   /* ../lib/standard/collection/array.nit:269 */
   REGB0 = TAG_Int(0);
@@ -64,7 +65,7 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
     } else {
       nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
     }
-    /* ../lib/standard/kernel.nit:232 */
+    /* ../lib/standard/kernel.nit:235 */
     REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
     /* ../lib/standard/collection/array.nit:272 */
     if (UNTAG_Bool(REGB1)) {
@@ -75,32 +76,32 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
       }
       /* ../lib/standard/collection/array.nit:718 */
       fra.me.REG[4] = ((Nit_NativeArray)fra.me.REG[3])->val[UNTAG_Int(REGB0)];
-      /* utils.nit:27 */
+      /* utils.nit:29 */
       REGB1 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]);
       REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
       if (UNTAG_Bool(REGB1)) {
-        /* utils.nit:28 */
+        /* utils.nit:30 */
         REGB1 = TAG_Char('_');
         CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1);
-        /* utils.nit:29 */
+        /* utils.nit:31 */
         REGB1 = TAG_Char('_');
         CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1);
-        /* utils.nit:30 */
+        /* utils.nit:32 */
         REGB1 = TAG_Char('_');
         CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1);
       }
-      /* utils.nit:32 */
-      REGB1 = TAG_Bool(false);
+      /* utils.nit:34 */
+      REGB1 = TAG_Bool(0);
       fra.me.REG[5] = REGB1;
-      /* utils.nit:33 */
-      REGB1 = TAG_Bool(true);
+      /* utils.nit:35 */
+      REGB1 = TAG_Bool(1);
       fra.me.REG[6] = REGB1;
-      /* utils.nit:34 */
+      /* utils.nit:36 */
       fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
       CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[4])(fra.me.REG[4], (&(fra.me)), ((fun_t)OC_utils___Object___cmangle_2));
       /* ../lib/standard/collection/array.nit:274 */
       REGB1 = TAG_Int(1);
-      /* ../lib/standard/kernel.nit:235 */
+      /* ../lib/standard/kernel.nit:238 */
       REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
       /* ../lib/standard/collection/array.nit:274 */
       REGB0 = REGB1;
@@ -110,7 +111,7 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
     }
   }
   label3: while(0);
-  /* utils.nit:55 */
+  /* utils.nit:57 */
   fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
   goto label4;
   label4: while(0);
@@ -124,7 +125,7 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
         val_t REGB2;
         val_t REGB3;
         val_t tmp;
-        /* utils.nit:35 */
+        /* utils.nit:37 */
         fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
         fra.me.file = LOCATE_utils;
         fra.me.line = 0;
@@ -135,16 +136,16 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
         fra.me.REG[0] = NIT_NULL;
         fra.me.REG[0] = p0;
         REGB0 = fra.me.REG[0];
-        /* utils.nit:36 */
+        /* utils.nit:38 */
         REGB1 = TAG_Char('a');
         REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
         if (UNTAG_Bool(REGB2)) {
         } else {
           nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
         }
-        /* ../lib/standard/kernel.nit:384 */
+        /* ../lib/standard/kernel.nit:387 */
         REGB1 = TAG_Bool(UNTAG_Char(REGB0)>=UNTAG_Char(REGB1));
-        /* utils.nit:36 */
+        /* utils.nit:38 */
         if (UNTAG_Bool(REGB1)) {
           REGB1 = TAG_Char('z');
           REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
@@ -152,15 +153,15 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
           } else {
             nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
           }
-          /* ../lib/standard/kernel.nit:382 */
+          /* ../lib/standard/kernel.nit:385 */
           REGB1 = TAG_Bool(UNTAG_Char(REGB0)<=UNTAG_Char(REGB1));
         } else {
-          /* utils.nit:36 */
-          REGB2 = TAG_Bool(false);
+          /* utils.nit:38 */
+          REGB2 = TAG_Bool(0);
           REGB1 = REGB2;
         }
         if (UNTAG_Bool(REGB1)) {
-          REGB1 = TAG_Bool(true);
+          REGB1 = TAG_Bool(1);
         } else {
           REGB2 = TAG_Char('A');
           REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
@@ -168,9 +169,9 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
           } else {
             nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
           }
-          /* ../lib/standard/kernel.nit:384 */
+          /* ../lib/standard/kernel.nit:387 */
           REGB2 = TAG_Bool(UNTAG_Char(REGB0)>=UNTAG_Char(REGB2));
-          /* utils.nit:36 */
+          /* utils.nit:38 */
           if (UNTAG_Bool(REGB2)) {
             REGB2 = TAG_Char('Z');
             REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
@@ -178,17 +179,17 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
             } else {
               nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
             }
-            /* ../lib/standard/kernel.nit:382 */
+            /* ../lib/standard/kernel.nit:385 */
             REGB2 = TAG_Bool(UNTAG_Char(REGB0)<=UNTAG_Char(REGB2));
           } else {
-            /* utils.nit:36 */
-            REGB3 = TAG_Bool(false);
+            /* utils.nit:38 */
+            REGB3 = TAG_Bool(0);
             REGB2 = REGB3;
           }
           REGB1 = REGB2;
         }
         if (UNTAG_Bool(REGB1)) {
-          REGB1 = TAG_Bool(true);
+          REGB1 = TAG_Bool(1);
         } else {
           REGB2 = TAG_Char('0');
           REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
@@ -196,9 +197,9 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
           } else {
             nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
           }
-          /* ../lib/standard/kernel.nit:384 */
+          /* ../lib/standard/kernel.nit:387 */
           REGB2 = TAG_Bool(UNTAG_Char(REGB0)>=UNTAG_Char(REGB2));
-          /* utils.nit:36 */
+          /* utils.nit:38 */
           if (UNTAG_Bool(REGB2)) {
             REGB2 = TAG_Char('9');
             REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
@@ -206,71 +207,71 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
             } else {
               nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
             }
-            /* ../lib/standard/kernel.nit:382 */
+            /* ../lib/standard/kernel.nit:385 */
             REGB2 = TAG_Bool(UNTAG_Char(REGB0)<=UNTAG_Char(REGB2));
           } else {
-            /* utils.nit:36 */
-            REGB3 = TAG_Bool(false);
+            /* utils.nit:38 */
+            REGB3 = TAG_Bool(0);
             REGB2 = REGB3;
           }
           REGB1 = REGB2;
         }
         if (UNTAG_Bool(REGB1)) {
-          /* utils.nit:37 */
+          /* utils.nit:39 */
           CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[0])(closctx->REG[0], REGB0);
-          /* utils.nit:38 */
-          REGB1 = TAG_Bool(false);
+          /* utils.nit:40 */
+          REGB1 = TAG_Bool(0);
           closctx->REG[5] = REGB1;
-          /* utils.nit:39 */
-          REGB1 = TAG_Bool(true);
+          /* utils.nit:41 */
+          REGB1 = TAG_Bool(1);
           closctx->REG[6] = REGB1;
         } else {
-          /* utils.nit:40 */
+          /* utils.nit:42 */
           REGB1 = TAG_Char('_');
           REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
           if (UNTAG_Bool(REGB2)) {
           } else {
-            /* ../lib/standard/kernel.nit:378 */
+            /* ../lib/standard/kernel.nit:381 */
             REGB1 = TAG_Bool((REGB0)==(REGB1));
-            /* utils.nit:40 */
+            /* utils.nit:42 */
             REGB2 = REGB1;
           }
           if (UNTAG_Bool(REGB2)) {
             REGB2 = TAG_Bool(!UNTAG_Bool(closctx->REG[5]));
           } else {
-            REGB1 = TAG_Bool(false);
+            REGB1 = TAG_Bool(0);
             REGB2 = REGB1;
           }
           if (UNTAG_Bool(REGB2)) {
-            /* utils.nit:41 */
+            /* utils.nit:43 */
             CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[0])(closctx->REG[0], REGB0);
-            /* utils.nit:42 */
-            REGB2 = TAG_Bool(true);
+            /* utils.nit:44 */
+            REGB2 = TAG_Bool(1);
             closctx->REG[5] = REGB2;
-            /* utils.nit:43 */
-            REGB2 = TAG_Bool(true);
+            /* utils.nit:45 */
+            REGB2 = TAG_Bool(1);
             closctx->REG[6] = REGB2;
           } else {
-            /* utils.nit:44 */
+            /* utils.nit:46 */
             REGB2 = CALL_standard___collection___abstract_collection___MapRead___has_key(closctx->REG[2])(closctx->REG[2], REGB0);
             if (UNTAG_Bool(REGB2)) {
-              /* utils.nit:45 */
+              /* utils.nit:47 */
               if (UNTAG_Bool(closctx->REG[6])) {
-               /* utils.nit:46 */
+               /* utils.nit:48 */
                REGB2 = TAG_Char('_');
                CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[0])(closctx->REG[0], REGB2);
-               /* utils.nit:47 */
+               /* utils.nit:49 */
                REGB2 = TAG_Char('_');
                CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[0])(closctx->REG[0], REGB2);
               }
-              /* utils.nit:49 */
+              /* utils.nit:51 */
               fra.me.REG[0] = CALL_standard___collection___abstract_collection___MapRead_____bra(closctx->REG[2])(closctx->REG[2], REGB0);
               CALL_standard___collection___abstract_collection___Sequence___append(closctx->REG[0])(closctx->REG[0], fra.me.REG[0]);
-              /* utils.nit:50 */
-              REGB0 = TAG_Bool(false);
+              /* utils.nit:52 */
+              REGB0 = TAG_Bool(0);
               closctx->REG[6] = REGB0;
-              /* utils.nit:51 */
-              REGB0 = TAG_Bool(false);
+              /* utils.nit:53 */
+              REGB0 = TAG_Bool(0);
               closctx->REG[5] = REGB0;
             }
           }
@@ -278,6 +279,7 @@ val_t utils___Object___cmangle(val_t p0, val_t p1){
         stack_frame_head = fra.me.prev;
         return;
       }
+static const char LOCATE_utils___Object___cmangle_table[] = "utils::Object::cmangle_table";
 val_t utils___Object___cmangle_table(val_t p0){
   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
   val_t REGB0;
@@ -297,7 +299,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   static val_t once_value_12; /* Once value */
   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   fra.me.file = LOCATE_utils;
-  fra.me.line = 58;
+  fra.me.line = 60;
   fra.me.meth = LOCATE_utils___Object___cmangle_table;
   fra.me.has_broke = 0;
   fra.me.REG_size = 2;
@@ -305,9 +307,9 @@ val_t utils___Object___cmangle_table(val_t p0){
   fra.me.REG[0] = NIT_NULL;
   fra.me.REG[1] = NIT_NULL;
   fra.me.REG[0] = p0;
-  /* utils.nit:61 */
+  /* utils.nit:63 */
   fra.me.REG[0] = NEW_HashMap_standard___collection___hash_collection___HashMap___init();
-  /* utils.nit:62 */
+  /* utils.nit:64 */
   REGB0 = TAG_Char('+');
   if (!once_value_1) {
     fra.me.REG[1] = BOX_NativeString("plus");
@@ -318,7 +320,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_1;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:63 */
+  /* utils.nit:65 */
   REGB0 = TAG_Char('-');
   if (!once_value_2) {
     fra.me.REG[1] = BOX_NativeString("minus");
@@ -329,7 +331,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_2;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:64 */
+  /* utils.nit:66 */
   REGB0 = TAG_Char('*');
   if (!once_value_3) {
     fra.me.REG[1] = BOX_NativeString("star");
@@ -340,7 +342,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_3;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:65 */
+  /* utils.nit:67 */
   REGB0 = TAG_Char('/');
   if (!once_value_4) {
     fra.me.REG[1] = BOX_NativeString("slash");
@@ -351,7 +353,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_4;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:66 */
+  /* utils.nit:68 */
   REGB0 = TAG_Char('%');
   if (!once_value_5) {
     fra.me.REG[1] = BOX_NativeString("percent");
@@ -362,7 +364,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_5;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:67 */
+  /* utils.nit:69 */
   REGB0 = TAG_Char('[');
   if (!once_value_6) {
     fra.me.REG[1] = BOX_NativeString("bra");
@@ -373,7 +375,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_6;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:68 */
+  /* utils.nit:70 */
   REGB0 = TAG_Char('=');
   if (!once_value_7) {
     fra.me.REG[1] = BOX_NativeString("eq");
@@ -384,7 +386,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_7;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:69 */
+  /* utils.nit:71 */
   REGB0 = TAG_Char('<');
   if (!once_value_8) {
     fra.me.REG[1] = BOX_NativeString("l");
@@ -395,7 +397,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_8;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:70 */
+  /* utils.nit:72 */
   REGB0 = TAG_Char('>');
   if (!once_value_9) {
     fra.me.REG[1] = BOX_NativeString("g");
@@ -406,7 +408,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_9;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:71 */
+  /* utils.nit:73 */
   REGB0 = TAG_Char('!');
   if (!once_value_10) {
     fra.me.REG[1] = BOX_NativeString("n");
@@ -417,7 +419,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_10;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:72 */
+  /* utils.nit:74 */
   REGB0 = TAG_Char('_');
   if (!once_value_11) {
     fra.me.REG[1] = BOX_NativeString("u");
@@ -428,7 +430,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_11;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:73 */
+  /* utils.nit:75 */
   REGB0 = TAG_Char('@');
   if (!once_value_12) {
     fra.me.REG[1] = BOX_NativeString("at");
@@ -439,7 +441,7 @@ val_t utils___Object___cmangle_table(val_t p0){
   } else fra.me.REG[1] = once_value_12;
   fra.me.REG[1] = fra.me.REG[1];
   CALL_standard___collection___abstract_collection___Map_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB0, fra.me.REG[1]);
-  /* utils.nit:74 */
+  /* utils.nit:76 */
   goto label13;
   label13: while(0);
   stack_frame_head = fra.me.prev;
Nit language project; an oo programing language and its tool suite.