c_src/standard__environ.sep.1.c

   1 #include "standard__environ.sep.0.h"
   2 /* method environ#String#environ for (self: String): String */
   3 val* standard__environ___String___environ(val* self) {
   4 val* var /* : String */;
   5 char* var1 /* : NativeString */;
   6 char* var2 /* : NativeString */;
   7 void* var4 /* : NativeString for extern */;
   8 char* var_res /* var res: NativeString */;
   9 static char* varonce;
  10 static int varonce_guard;
  11 char* var5 /* : NativeString */;
  12 static val* varonce6;
  13 val* var7 /* : String */;
  14 char* var8 /* : NativeString */;
  15 val* var9 /* : FlatString */;
  16 char* var10 /* : NativeString */;
  17 char* var11 /* : NativeString */;
  18 void* var13 /* : NativeString for extern */;
  19 char* var_nulstr /* var nulstr: NativeString */;
  20 short int var14 /* : Bool */;
  21 val* var_other /* var other: nullable Object */;
  22 val* var16 /* : nullable Object */;
  23 short int var17 /* : Bool */;
  24 val* var_other19 /* var other: nullable Object */;
  25 short int var20 /* : Bool */;
  26 val* var22 /* : Object */;
  27 short int var23 /* : Bool */;
  28 short int var24 /* : Bool */;
  29 val* var25 /* : String */;
  30 static val* varonce26;
  31 val* var27 /* : String */;
  32 char* var28 /* : NativeString */;
  33 val* var29 /* : FlatString */;
  34 {
  35 var1 = ((char*(*)(val* self))(self->class->vft[COLOR_standard__string__Text__to_cstring]))(self); /* to_cstring on <self:String>*/
  36 }
  37 {
  38 { /* Inline environ#NativeString#get_environ (var1) on <var1:NativeString> */
  39 var4 = string_NativeString_NativeString_get_environ_0(var1);
  40 var2 = var4;
  41 goto RET_LABEL3;
  42 RET_LABEL3:(void)0;
  43 }
  44 }
  45 var_res = var2;
  46 if (likely(varonce_guard)) {
  47 var5 = varonce;
  48 } else {
  49 if (likely(varonce6!=NULL)) {
  50 var7 = varonce6;
  51 } else {
  52 var8 = "";
  53 var9 = standard___standard__NativeString___to_s_with_length(var8, 0l);
  54 var7 = var9;
  55 varonce6 = var7;
  56 }
  57 {
  58 var10 = ((char*(*)(val* self))(var7->class->vft[COLOR_standard__string__Text__to_cstring]))(var7); /* to_cstring on <var7:String>*/
  59 }
  60 {
  61 { /* Inline environ#NativeString#get_environ (var10) on <var10:NativeString> */
  62 var13 = string_NativeString_NativeString_get_environ_0(var10);
  63 var11 = var13;
  64 goto RET_LABEL12;
  65 RET_LABEL12:(void)0;
  66 }
  67 }
  68 var5 = var11;
  69 varonce = var5;
  70 varonce_guard = 1;
  71 }
  72 var_nulstr = var5;
  73 {
  74 { /* Inline kernel#Object#!= (var_res,var_nulstr) on <var_res:NativeString> */
  75 var16 = BOX_standard__NativeString(var_nulstr); /* autobox from NativeString to nullable Object */
  76 var_other = var16;
  77 { /* Inline kernel#Object#== (var_res,var_other) on <var_res:NativeString> */
  78 var_other19 = var_other;
  79 {
  80 { /* Inline kernel#Object#is_same_instance (var_res,var_other19) on <var_res:NativeString> */
  81 var22 = BOX_standard__NativeString(var_res); /* autobox from NativeString to Object */
  82 var23 = var22 == var_other19 || (var_other19 != NULL && (!((long)var22&3)) && (!((long)var_other19&3)) && var22->class == var_other19->class && ((var22->class->box_kind == 3 && ((struct instance_standard__Byte*)var22)->value == ((struct instance_standard__Byte*)var_other19)->value) || (var22->class->box_kind == 5 && ((struct instance_standard__Float*)var22)->value == ((struct instance_standard__Float*)var_other19)->value) || (var22->class->box_kind == 6 && ((struct instance_standard__NativeString*)var22)->value == ((struct instance_standard__NativeString*)var_other19)->value) || (var22->class->box_kind == 7 && ((struct instance_standard__Pointer*)var22)->value == ((struct instance_standard__Pointer*)var_other19)->value)));
  83 var20 = var23;
  84 goto RET_LABEL21;
  85 RET_LABEL21:(void)0;
  86 }
  87 }
  88 var17 = var20;
  89 goto RET_LABEL18;
  90 RET_LABEL18:(void)0;
  91 }
  92 var24 = !var17;
  93 var14 = var24;
  94 goto RET_LABEL15;
  95 RET_LABEL15:(void)0;
  96 }
  97 }
  98 if (var14){
  99 {
 100 var25 = standard___standard__NativeString___Object__to_s(var_res);
 101 }
 102 var = var25;
 103 goto RET_LABEL;
 104 } else {
 105 if (likely(varonce26!=NULL)) {
 106 var27 = varonce26;
 107 } else {
 108 var28 = "";
 109 var29 = standard___standard__NativeString___to_s_with_length(var28, 0l);
 110 var27 = var29;
 111 varonce26 = var27;
 112 }
 113 var = var27;
 114 goto RET_LABEL;
 115 }
 116 RET_LABEL:;
 117 return var;
 118 }
 119 /* method environ#NativeString#get_environ for (self: NativeString): NativeString */
 120 char* standard__environ___NativeString___get_environ(char* self) {
 121 char* var /* : NativeString */;
 122 void* var1 /* : NativeString for extern */;
 123 var1 = string_NativeString_NativeString_get_environ_0(self);
 124 var = var1;
 125 goto RET_LABEL;
 126 RET_LABEL:;
 127 return var;
 128 }
 129 /* method environ#Sys#init for (self: Sys) */
 130 void standard__environ___Sys___standard__kernel__Object__init(val* self) {
 131 static val* varonce;
 132 val* var /* : String */;
 133 char* var1 /* : NativeString */;
 134 val* var2 /* : FlatString */;
 135 val* var3 /* : String */;
 136 val* var_x /* var x: String */;
 137 static val* varonce4;
 138 val* var5 /* : String */;
 139 char* var6 /* : NativeString */;
 140 val* var7 /* : FlatString */;
 141 short int var8 /* : Bool */;
 142 val* var_other /* var other: nullable Object */;
 143 short int var10 /* : Bool */;
 144 short int var11 /* : Bool */;
 145 long var12 /* : Int */;
 146 {
 147 ((void(*)(val* self))(self->class->vft[COLOR_standard__environ___Sys___standard__kernel__Object__init]))(self); /* init on <self:Sys>*/
 148 }
 149 if (likely(varonce!=NULL)) {
 150 var = varonce;
 151 } else {
 152 var1 = "NIT_SRAND";
 153 var2 = standard___standard__NativeString___to_s_with_length(var1, 9l);
 154 var = var2;
 155 varonce = var;
 156 }
 157 {
 158 var3 = standard__environ___String___environ(var);
 159 }
 160 var_x = var3;
 161 if (likely(varonce4!=NULL)) {
 162 var5 = varonce4;
 163 } else {
 164 var6 = "";
 165 var7 = standard___standard__NativeString___to_s_with_length(var6, 0l);
 166 var5 = var7;
 167 varonce4 = var5;
 168 }
 169 {
 170 { /* Inline kernel#Object#!= (var_x,var5) on <var_x:String> */
 171 var_other = var5;
 172 {
 173 var10 = ((short int(*)(val* self, val* p0))(var_x->class->vft[COLOR_standard__kernel__Object___61d_61d]))(var_x, var_other); /* == on <var_x:String>*/
 174 }
 175 var11 = !var10;
 176 var8 = var11;
 177 goto RET_LABEL9;
 178 RET_LABEL9:(void)0;
 179 }
 180 }
 181 if (var8){
 182 {
 183 var12 = standard___standard__Text___to_i(var_x);
 184 }
 185 {
 186 { /* Inline math#Sys#srand_from (self,var12) on <self:Sys> */
 187 kernel_Any_Any_srand_from_1(self, var12);
 188 RET_LABEL13:(void)0;
 189 }
 190 }
 191 } else {
 192 }
 193 RET_LABEL:;
 194 }