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 long var9 /* : Int */;
  16 val* var10 /* : FlatString */;
  17 char* var11 /* : NativeString */;
  18 char* var12 /* : NativeString */;
  19 void* var14 /* : NativeString for extern */;
  20 char* var_nulstr /* var nulstr: NativeString */;
  21 short int var15 /* : Bool */;
  22 val* var_other /* var other: nullable Object */;
  23 val* var17 /* : nullable Object */;
  24 short int var18 /* : Bool */;
  25 val* var_other20 /* var other: nullable Object */;
  26 short int var21 /* : Bool */;
  27 val* var23 /* : Object */;
  28 short int var24 /* : Bool */;
  29 short int var25 /* : Bool */;
  30 val* var26 /* : String */;
  31 static val* varonce27;
  32 val* var28 /* : String */;
  33 char* var29 /* : NativeString */;
  34 long var30 /* : Int */;
  35 val* var31 /* : FlatString */;
  36 {
  37 var1 = ((char* (*)(val* self))(self->class->vft[COLOR_standard__string__Text__to_cstring]))(self) /* to_cstring on <self:String>*/;
  38 }
  39 {
  40 { /* Inline environ#NativeString#get_environ (var1) on <var1:NativeString> */
  41 var4 = string_NativeString_NativeString_get_environ_0(var1);
  42 var2 = var4;
  43 goto RET_LABEL3;
  44 RET_LABEL3:(void)0;
  45 }
  46 }
  47 var_res = var2;
  48 if (varonce_guard) {
  49 var5 = varonce;
  50 } else {
  51 if (varonce6) {
  52 var7 = varonce6;
  53 } else {
  54 var8 = "";
  55 var9 = 0;
  56 var10 = standard___standard__NativeString___to_s_with_length(var8, var9);
  57 var7 = var10;
  58 varonce6 = var7;
  59 }
  60 {
  61 var11 = ((char* (*)(val* self))(var7->class->vft[COLOR_standard__string__Text__to_cstring]))(var7) /* to_cstring on <var7:String>*/;
  62 }
  63 {
  64 { /* Inline environ#NativeString#get_environ (var11) on <var11:NativeString> */
  65 var14 = string_NativeString_NativeString_get_environ_0(var11);
  66 var12 = var14;
  67 goto RET_LABEL13;
  68 RET_LABEL13:(void)0;
  69 }
  70 }
  71 var5 = var12;
  72 varonce = var5;
  73 varonce_guard = 1;
  74 }
  75 var_nulstr = var5;
  76 {
  77 { /* Inline kernel#Object#!= (var_res,var_nulstr) on <var_res:NativeString> */
  78 var17 = BOX_standard__NativeString(var_nulstr); /* autobox from NativeString to nullable Object */
  79 var_other = var17;
  80 { /* Inline kernel#Object#== (var_res,var_other) on <var_res:NativeString> */
  81 var_other20 = var_other;
  82 {
  83 { /* Inline kernel#Object#is_same_instance (var_res,var_other20) on <var_res:NativeString> */
  84 var23 = BOX_standard__NativeString(var_res); /* autobox from NativeString to Object */
  85 var24 = var23 == var_other20 || (var_other20 != NULL && var23->class == var_other20->class && ((var23->class->box_kind == 1 && ((struct instance_standard__Int*)var23)->value == ((struct instance_standard__Int*)var_other20)->value) || (var23->class->box_kind == 2 && ((struct instance_standard__Bool*)var23)->value == ((struct instance_standard__Bool*)var_other20)->value) || (var23->class->box_kind == 3 && ((struct instance_standard__Char*)var23)->value == ((struct instance_standard__Char*)var_other20)->value) || (var23->class->box_kind == 4 && ((struct instance_standard__Float*)var23)->value == ((struct instance_standard__Float*)var_other20)->value) || (var23->class->box_kind == 5 && ((struct instance_standard__NativeString*)var23)->value == ((struct instance_standard__NativeString*)var_other20)->value) || (var23->class->box_kind == 6 && ((struct instance_standard__Pointer*)var23)->value == ((struct instance_standard__Pointer*)var_other20)->value)));
  86 var21 = var24;
  87 goto RET_LABEL22;
  88 RET_LABEL22:(void)0;
  89 }
  90 }
  91 var18 = var21;
  92 goto RET_LABEL19;
  93 RET_LABEL19:(void)0;
  94 }
  95 var25 = !var18;
  96 var15 = var25;
  97 goto RET_LABEL16;
  98 RET_LABEL16:(void)0;
  99 }
 100 }
 101 if (var15){
 102 {
 103 var26 = standard___standard__NativeString___Object__to_s(var_res);
 104 }
 105 var = var26;
 106 goto RET_LABEL;
 107 } else {
 108 if (varonce27) {
 109 var28 = varonce27;
 110 } else {
 111 var29 = "";
 112 var30 = 0;
 113 var31 = standard___standard__NativeString___to_s_with_length(var29, var30);
 114 var28 = var31;
 115 varonce27 = var28;
 116 }
 117 var = var28;
 118 goto RET_LABEL;
 119 }
 120 RET_LABEL:;
 121 return var;
 122 }
 123 /* method environ#NativeString#get_environ for (self: NativeString): NativeString */
 124 char* standard__environ___NativeString___get_environ(char* self) {
 125 char* var /* : NativeString */;
 126 void* var1 /* : NativeString for extern */;
 127 var1 = string_NativeString_NativeString_get_environ_0(self);
 128 var = var1;
 129 goto RET_LABEL;
 130 RET_LABEL:;
 131 return var;
 132 }