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 */;
10 static int varonce_guard
;
11 char* var5
/* : NativeString */;
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 */;
35 var1
= ((char*(*)(val
* self
))(self
->class->vft
[COLOR_standard__string__Text__to_cstring
]))(self
); /* to_cstring on <self:String>*/
38 { /* Inline environ#NativeString#get_environ (var1) on <var1:NativeString> */
39 var4
= string_NativeString_NativeString_get_environ_0(var1
);
46 if (likely(varonce_guard
)) {
49 if (likely(varonce6
!=NULL
)) {
53 var9
= standard___standard__NativeString___to_s_with_length(var8
, 0l);
58 var10
= ((char*(*)(val
* self
))(var7
->class->vft
[COLOR_standard__string__Text__to_cstring
]))(var7
); /* to_cstring on <var7:String>*/
61 { /* Inline environ#NativeString#get_environ (var10) on <var10:NativeString> */
62 var13
= string_NativeString_NativeString_get_environ_0(var10
);
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 */
77 { /* Inline kernel#Object#== (var_res,var_other) on <var_res:NativeString> */
78 var_other19
= var_other
;
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
)));
100 var25
= standard___standard__NativeString___Object__to_s(var_res
);
105 if (likely(varonce26
!=NULL
)) {
109 var29
= standard___standard__NativeString___to_s_with_length(var28
, 0l);
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
);
129 /* method environ#Sys#init for (self: Sys) */
130 void standard__environ___Sys___standard__kernel__Object__init(val
* self
) {
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 */;
147 ((void(*)(val
* self
))(self
->class->vft
[COLOR_standard__environ___Sys___standard__kernel__Object__init
]))(self
); /* init on <self:Sys>*/
149 if (likely(varonce
!=NULL
)) {
153 var2
= standard___standard__NativeString___to_s_with_length(var1
, 9l);
158 var3
= standard__environ___String___environ(var
);
161 if (likely(varonce4
!=NULL
)) {
165 var7
= standard___standard__NativeString___to_s_with_length(var6
, 0l);
170 { /* Inline kernel#Object#!= (var_x,var5) on <var_x:String> */
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>*/
183 var12
= standard___standard__Text___to_i(var_x
);
186 { /* Inline math#Sys#srand_from (self,var12) on <self:Sys> */
187 kernel_Any_Any_srand_from_1(self
, var12
);