c_src/environ._sep.c

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