1 #include "environ.sep.0.h"
2 /* method environ#String#environ for (self: String): String */
3 val
* 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 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 short int var16
/* : Bool */;
23 val
* var_other
/* var other: nullable Object */;
24 val
* var18
/* : nullable Object */;
25 short int var19
/* : Bool */;
26 val
* var_other21
/* var other: nullable Object */;
27 short int var22
/* : Bool */;
28 val
* var24
/* : Object */;
29 short int var25
/* : Bool */;
30 short int var26
/* : Bool */;
31 val
* var27
/* : String */;
32 static val
* varonce28
;
33 val
* var29
/* : String */;
34 char* var30
/* : NativeString */;
35 long var31
/* : Int */;
36 val
* var32
/* : FlatString */;
38 var1
= string__FlatString__to_cstring(self
);
41 { /* Inline environ#NativeString#get_environ (var1) on <var1:NativeString> */
42 var4
= string_NativeString_NativeString_get_environ_0(var1
);
57 var10
= string__NativeString__to_s_with_length(var8
, var9
);
62 var11
= string__FlatString__to_cstring(var7
);
65 { /* Inline environ#NativeString#get_environ (var11) on <var11:NativeString> */
66 var14
= string_NativeString_NativeString_get_environ_0(var11
);
78 { /* Inline kernel#Object#!= (var_res,var_nulstr) on <var_res:NativeString> */
79 var18
= BOX_string__NativeString(var_nulstr
); /* autobox from NativeString to nullable Object */
81 { /* Inline kernel#Object#== (var_res,var_other) on <var_res:NativeString> */
82 var_other21
= var_other
;
84 { /* Inline kernel#Object#is_same_instance (var_res,var_other21) on <var_res:NativeString> */
85 var24
= BOX_string__NativeString(var_res
); /* autobox from NativeString to Object */
86 var25
= var24
== var_other21
|| (var_other21
!= NULL
&& var24
->class == var_other21
->class && ((var24
->class->box_kind
== 1 && ((struct instance_kernel__Int
*)var24
)->value
== ((struct instance_kernel__Int
*)var_other21
)->value
) || (var24
->class->box_kind
== 2 && ((struct instance_kernel__Bool
*)var24
)->value
== ((struct instance_kernel__Bool
*)var_other21
)->value
) || (var24
->class->box_kind
== 3 && ((struct instance_kernel__Char
*)var24
)->value
== ((struct instance_kernel__Char
*)var_other21
)->value
) || (var24
->class->box_kind
== 4 && ((struct instance_kernel__Float
*)var24
)->value
== ((struct instance_kernel__Float
*)var_other21
)->value
) || (var24
->class->box_kind
== 5 && ((struct instance_string__NativeString
*)var24
)->value
== ((struct instance_string__NativeString
*)var_other21
)->value
) || (var24
->class->box_kind
== 6 && ((struct instance_kernel__Pointer
*)var24
)->value
== ((struct instance_kernel__Pointer
*)var_other21
)->value
)));
105 var27
= string__NativeString__to_s(var_res
);
115 var32
= string__NativeString__to_s_with_length(var30
, var31
);
125 /* method environ#String#environ for (self: Object): String */
126 val
* VIRTUAL_environ__String__environ(val
* self
) {
127 val
* var
/* : String */;
128 val
* var1
/* : String */;
129 var1
= environ__String__environ(self
);
134 /* method environ#NativeString#get_environ for (self: NativeString): NativeString */
135 char* environ__NativeString__get_environ(char* self
) {
136 char* var
/* : NativeString */;
137 void* var1
/* : NativeString for extern */;
138 var1
= string_NativeString_NativeString_get_environ_0(self
);
144 /* method environ#NativeString#get_environ for (self: Object): NativeString */
145 char* VIRTUAL_environ__NativeString__get_environ(val
* self
) {
146 char* var
/* : NativeString */;
147 char* var1
/* : NativeString */;
148 void* var3
/* : NativeString for extern */;
149 char* var4
/* : NativeString */;
150 { /* Inline environ#NativeString#get_environ (self) on <self:Object(NativeString)> */
151 var4
= ((struct instance_string__NativeString
*)self
)->value
; /* autounbox from Object to NativeString */;
152 var3
= string_NativeString_NativeString_get_environ_0(var4
);