c_src/environ._sep.c

   1 #include "environ._sep.h"
   2 val_t environ___Symbol___environ(val_t  self) {
   3   struct trace_t trace = {NULL, "environ::Symbol::environ (bin/../lib/standard//environ.nit:19,2--23:60)"};
   4   val_t variable0;
   5   val_t variable1;
   6   trace.prev = tracehead; tracehead = &trace;
   7   variable0 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
   8   ((environ___Symbol___environ_default__eq_t)CALL( self,COLOR_environ___Symbol___environ_default__eq))( self, variable0) /*Symbol::environ_default=*/;
   9   variable0 = ((symbol___Symbol___to_s_t)CALL( self,COLOR_string___Object___to_s))( self) /*Symbol::to_s*/;
  10   variable0 = ((string___String___to_cstring_t)CALL(variable0,COLOR_string___String___to_cstring))(variable0) /*String::to_cstring*/;
  11   variable0 = ((environ___NativeString___get_environ_t)CALL(variable0,COLOR_environ___NativeString___get_environ))(variable0) /*NativeString::get_environ*/;
  12   variable1 = NEW_string___String___from_cstring(variable0); /*new String*/
  13   variable0 = variable1;
  14   goto return_label0;
  15   return_label0: while(false);
  16   tracehead = trace.prev;
  17   return variable0;
  18 }
  19 void environ___Symbol___environ__eq(val_t  self, val_t  param0) {
  20   struct trace_t trace = {NULL, "environ::Symbol::environ= (bin/../lib/standard//environ.nit:26,2--27:72)"};
  21   val_t variable0;
  22   val_t variable1;
  23   val_t variable2;
  24   trace.prev = tracehead; tracehead = &trace;
  25   variable0 =  param0;
  26   variable1 = ((symbol___Symbol___to_s_t)CALL( self,COLOR_string___Object___to_s))( self) /*Symbol::to_s*/;
  27   variable1 = ((string___String___to_cstring_t)CALL(variable1,COLOR_string___String___to_cstring))(variable1) /*String::to_cstring*/;
  28   variable2 = ((string___String___to_cstring_t)CALL( variable0 /*v*/,COLOR_string___String___to_cstring))( variable0 /*v*/) /*String::to_cstring*/;
  29   ((environ___NativeString___set_environ_t)CALL(variable1,COLOR_environ___NativeString___set_environ))(variable1, variable2,  TAG_Int(1)) /*NativeString::set_environ*/;
  30   tracehead = trace.prev;
  31   return;
  32 }
  33 void environ___Symbol___environ_default__eq(val_t  self, val_t  param0) {
  34   struct trace_t trace = {NULL, "environ::Symbol::environ_default= (bin/../lib/standard//environ.nit:29,2--30:80)"};
  35   val_t variable0;
  36   val_t variable1;
  37   val_t variable2;
  38   trace.prev = tracehead; tracehead = &trace;
  39   variable0 =  param0;
  40   variable1 = ((symbol___Symbol___to_s_t)CALL( self,COLOR_string___Object___to_s))( self) /*Symbol::to_s*/;
  41   variable1 = ((string___String___to_cstring_t)CALL(variable1,COLOR_string___String___to_cstring))(variable1) /*String::to_cstring*/;
  42   variable2 = ((string___String___to_cstring_t)CALL( variable0 /*v*/,COLOR_string___String___to_cstring))( variable0 /*v*/) /*String::to_cstring*/;
  43   ((environ___NativeString___set_environ_t)CALL(variable1,COLOR_environ___NativeString___set_environ))(variable1, variable2,  TAG_Int(0)) /*NativeString::set_environ*/;
  44   tracehead = trace.prev;
  45   return;
  46 }
  47 void environ___Symbol___unset(val_t  self) {
  48   struct trace_t trace = {NULL, "environ::Symbol::unset (bin/../lib/standard//environ.nit:32,2--33:44)"};
  49   val_t variable0;
  50   trace.prev = tracehead; tracehead = &trace;
  51   variable0 = ((symbol___Symbol___to_s_t)CALL( self,COLOR_string___Object___to_s))( self) /*Symbol::to_s*/;
  52   variable0 = ((string___String___to_cstring_t)CALL(variable0,COLOR_string___String___to_cstring))(variable0) /*String::to_cstring*/;
  53   ((environ___NativeString___unset_environ_t)CALL(variable0,COLOR_environ___NativeString___unset_environ))(variable0) /*NativeString::unset_environ*/;
  54   tracehead = trace.prev;
  55   return;
  56 }
  57 val_t environ___NativeString___get_environ(val_t  self) {
  58   struct trace_t trace = {NULL, "environ::NativeString::get_environ (bin/../lib/standard//environ.nit:37,1--38:98)"};
  59   trace.prev = tracehead; tracehead = &trace;
  60   tracehead = trace.prev;
  61   return BOX_NativeString(string_NativeString_NativeString_get_environ_0(UNBOX_NativeString( self)));
  62 }
  63 void environ___NativeString___put_environ(val_t  self) {
  64   struct trace_t trace = {NULL, "environ::NativeString::put_environ (bin/../lib/standard//environ.nit:39,2--84)"};
  65   trace.prev = tracehead; tracehead = &trace;
  66   string_NativeString_NativeString_put_environ_0(UNBOX_NativeString( self));
  67   tracehead = trace.prev;
  68   return;
  69 }
  70 void environ___NativeString___unset_environ(val_t  self) {
  71   struct trace_t trace = {NULL, "environ::NativeString::unset_environ (bin/../lib/standard//environ.nit:40,2--88)"};
  72   trace.prev = tracehead; tracehead = &trace;
  73   string_NativeString_NativeString_unset_environ_0(UNBOX_NativeString( self));
  74   tracehead = trace.prev;
  75   return;
  76 }
  77 void environ___NativeString___set_environ(val_t  self, val_t  param0, val_t  param1) {
  78   struct trace_t trace = {NULL, "environ::NativeString::set_environ (bin/../lib/standard//environ.nit:41,2--123)"};
  79   trace.prev = tracehead; tracehead = &trace;
  80   string_NativeString_NativeString_set_environ_2(UNBOX_NativeString( self), UNBOX_NativeString( param0), UNTAG_Int( param1));
  81   tracehead = trace.prev;
  82   return;
  83 }