nitlanguage / nit.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
gc: add 'help' option to list all available GC
[nit.git] / c_src / environ._sep.c
diff --git a/c_src/environ._sep.c b/c_src/environ._sep.c
index d430c2d..b88e2ad 100644 (file)
--- a/c_src/environ._sep.c
+++ b/c_src/environ._sep.c
@@ -1,60 +1,109 @@
 /* This C file is generated by NIT to compile module environ. */
 #include "environ._sep.h"
-val_t environ___Symbol___environ(val_t  self) {
-  struct trace_t trace = {NULL, NULL, 19, LOCATE_environ___Symbol___environ};
-  static val_t once_value_1; static int once_bool_1; /* Once value for variable[4]*/
-  val_t variable[11];
-  void **closurevariable = NULL;
-  trace.prev = tracehead; tracehead = &trace;
-  trace.file = LOCATE_environ;
-  variable[0] =  self;
-  variable[3] = variable[0];
-  variable[3] = ((symbol___Symbol___to_s_t)CALL(variable[3],COLOR_string___Object___to_s))(variable[3]) /*Symbol::to_s*/;
-  variable[3] = ((string___String___to_cstring_t)CALL(variable[3],COLOR_string___String___to_cstring))(variable[3]) /*String::to_cstring*/;
-  variable[3] = ((environ___NativeString___get_environ_t)CALL(variable[3],COLOR_environ___NativeString___get_environ))(variable[3]) /*NativeString::get_environ*/;
-  variable[2] = variable[3];
-  if (once_bool_1) variable[4] = once_value_1;
-  else {
-    variable[4] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
-    variable[4] = ((string___String___to_cstring_t)CALL(variable[4],COLOR_string___String___to_cstring))(variable[4]) /*String::to_cstring*/;
-    variable[4] = ((environ___NativeString___get_environ_t)CALL(variable[4],COLOR_environ___NativeString___get_environ))(variable[4]) /*NativeString::get_environ*/;
-    once_value_1 = variable[4];
-    once_bool_1 = true;
+val_t environ___Symbol___environ(val_t p0){
+  struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
+  val_t REGB0;
+  val_t REGB1;
+  val_t tmp;
+  static val_t once_value_1; /* Once value */
+    static val_t once_value_2; /* Once value */
+    static val_t once_value_3; /* Once value */
+    static val_t once_value_4; /* Once value */
+    static val_t once_value_6; /* Once value */
+  fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+  fra.me.file = LOCATE_environ;
+  fra.me.line = 19;
+  fra.me.meth = LOCATE_environ___Symbol___environ;
+  fra.me.has_broke = 0;
+  fra.me.REG_size = 4;
+  fra.me.REG[0] = NIT_NULL;
+  fra.me.REG[1] = NIT_NULL;
+  fra.me.REG[2] = NIT_NULL;
+  fra.me.REG[3] = NIT_NULL;
+  fra.me.REG[0] = p0;
+  fra.me.REG[1] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+  fra.me.REG[1] = CALL_string___String___to_cstring(fra.me.REG[1])(fra.me.REG[1]);
+  fra.me.REG[1] = CALL_environ___NativeString___get_environ(fra.me.REG[1])(fra.me.REG[1]);
+  /* ./../lib/standard//environ.nit:24 */
+  if (!once_value_1) {
+    if (!once_value_2) {
+      fra.me.REG[2] = BOX_NativeString("");
+      REGB0 = TAG_Int(0);
+      fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+      once_value_2 = fra.me.REG[2];
+      register_static_object(&once_value_2);
+    } else fra.me.REG[2] = once_value_2;
+    fra.me.REG[2] = CALL_string___String___to_cstring(fra.me.REG[2])(fra.me.REG[2]);
+    fra.me.REG[2] = CALL_environ___NativeString___get_environ(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;
+  REGB0 = TAG_Bool(IS_EQUAL_OO(fra.me.REG[1],fra.me.REG[2]));
+  /* ./../lib/standard//environ.nit:25 */
+  if (UNTAG_Bool(REGB0)) {
+  } else {
+    REGB1 = CALL_kernel___Object_____eqeq(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
+    REGB0 = REGB1;
   }
-  variable[3] = variable[4];
-  variable[4] = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable[2] /*res*/ ==  variable[3] /*nulstr*/) || (( variable[2] /*res*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable[2] /*res*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable[2] /*res*/, variable[3] /*nulstr*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable[2] /*res*/,COLOR_kernel___Object_____eqeq))( variable[2] /*res*/,  variable[3] /*nulstr*/) /*Object::==*/)))))));
-  if (UNTAG_Bool(variable[4])) { /*if*/
-    variable[4] = NEW_String_string___String___init(); /*new String*/
-    variable[5] = NEW_String_string___String___with_native(BOX_NativeString("env "), TAG_Int(4)); /*new String*/
-    variable[6] = variable[5];
-    ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[6]) /*String::append*/;
-    variable[7] = variable[0];
-    variable[8] = variable[7];
-    variable[8] = ((string___String___to_s_t)CALL(variable[8],COLOR_string___Object___to_s))(variable[8]) /*String::to_s*/;
-    ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[8]) /*String::append*/;
-    variable[9] = NEW_String_string___String___with_native(BOX_NativeString("="), TAG_Int(1)); /*new String*/
-    variable[10] = variable[9];
-    ((string___String___append_t)CALL(variable[4],COLOR_abstract_collection___IndexedCollection___append))(variable[4], variable[10]) /*String::append*/;
-    ((string___String___output_t)CALL(variable[4],COLOR_kernel___Object___output))(variable[4]) /*String::output*/;
-    ((kernel___Object___output_t)CALL( variable[2] /*res*/,COLOR_kernel___Object___output))( variable[2] /*res*/) /*Object::output*/;
-    variable[4] = NEW_String_string___String___from_cstring( variable[2] /*res*/); /*new String*/
-    variable[1] = variable[4];
-    goto return_label0;
-  } else { /*if*/
-    variable[4] = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
-    variable[1] = variable[4];
-    goto return_label0;
+  REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
+  if (UNTAG_Bool(REGB0)) {
+    REGB0 = TAG_Int(3);
+    fra.me.REG[2] = NEW_Array_array___Array___with_capacity(REGB0);
+    /* ./../lib/standard//environ.nit:26 */
+    if (!once_value_3) {
+      fra.me.REG[3] = BOX_NativeString("env ");
+      REGB0 = TAG_Int(4);
+      fra.me.REG[3] = NEW_String_string___String___with_native(fra.me.REG[3], REGB0);
+      once_value_3 = fra.me.REG[3];
+      register_static_object(&once_value_3);
+    } else fra.me.REG[3] = once_value_3;
+    array___Array___add(fra.me.REG[2], fra.me.REG[3]);
+    fra.me.REG[0] = CALL_string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
+    array___Array___add(fra.me.REG[2], fra.me.REG[0]);
+    if (!once_value_4) {
+      fra.me.REG[0] = BOX_NativeString("=");
+      REGB0 = TAG_Int(1);
+      fra.me.REG[0] = NEW_String_string___String___with_native(fra.me.REG[0], REGB0);
+      once_value_4 = fra.me.REG[0];
+      register_static_object(&once_value_4);
+    } else fra.me.REG[0] = once_value_4;
+    array___Array___add(fra.me.REG[2], fra.me.REG[0]);
+    fra.me.REG[2] = CALL_string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
+    CALL_kernel___Object___output(fra.me.REG[2])(fra.me.REG[2]);
+    /* ./../lib/standard//environ.nit:27 */
+    CALL_kernel___Object___output(fra.me.REG[1])(fra.me.REG[1]);
+    fra.me.REG[1] = NEW_String_string___String___from_cstring(fra.me.REG[1]);
+    /* ./../lib/standard//environ.nit:28 */
+    goto label5;
+  } else {
+    /* ./../lib/standard//environ.nit:30 */
+    if (!once_value_6) {
+      fra.me.REG[2] = BOX_NativeString("");
+      REGB0 = TAG_Int(0);
+      fra.me.REG[2] = NEW_String_string___String___with_native(fra.me.REG[2], REGB0);
+      once_value_6 = fra.me.REG[2];
+      register_static_object(&once_value_6);
+    } else fra.me.REG[2] = once_value_6;
+    fra.me.REG[1] = fra.me.REG[2];
+    goto label5;
   }
-  return_label0: while(false);
-  tracehead = trace.prev;
-  return variable[1];
+  label5: while(0);
+  stack_frame_head = fra.me.prev;
+  return fra.me.REG[1];
 }
-val_t environ___NativeString___get_environ(val_t  self) {
-  struct trace_t trace = {NULL, NULL, 36, LOCATE_environ___NativeString___get_environ};
-  val_t *variable = NULL;
-  void **closurevariable = NULL;
-  trace.prev = tracehead; tracehead = &trace;
-  trace.file = LOCATE_environ;
-  tracehead = trace.prev;
-  return BOX_NativeString(string_NativeString_NativeString_get_environ_0(UNBOX_NativeString( self)));
+val_t environ___NativeString___get_environ(val_t p0){
+  struct {struct stack_frame_t me;} fra;
+  val_t tmp;
+  fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
+  fra.me.file = LOCATE_environ;
+  fra.me.line = 36;
+  fra.me.meth = LOCATE_environ___NativeString___get_environ;
+  fra.me.has_broke = 0;
+  fra.me.REG_size = 1;
+  fra.me.REG[0] = NIT_NULL;
+  fra.me.REG[0] = p0;
+  fra.me.REG[0] = BOX_NativeString(string_NativeString_NativeString_get_environ_0(UNBOX_NativeString(fra.me.REG[0])));
+  /* ./../lib/standard//environ.nit:36 */
+  stack_frame_head = fra.me.prev;
+  return fra.me.REG[0];
 }
Nit language project; an oo programing language and its tool suite.