1 #include "core__environ.sep.0.h"
2 /* method environ$String$environ for (self: String): String */
3 val
* core__environ___String___environ(val
* self
) {
4 val
* var
/* : String */;
5 char* var1
/* : CString */;
6 char* var2
/* : CString */;
7 char* var4
/* : CString */;
8 char* var_res
/* var res: CString */;
10 static int varonce_guard
;
11 char* var5
/* : CString */;
13 val
* var7
/* : String */;
14 char* var8
/* : CString */;
15 val
* var9
/* : String */;
16 val
* var10
/* : nullable Int */;
17 val
* var11
/* : nullable Int */;
18 val
* var12
/* : nullable Bool */;
19 val
* var13
/* : nullable Bool */;
20 char* var14
/* : CString */;
21 char* var15
/* : CString */;
22 char* var17
/* : CString */;
23 char* var_nulstr
/* var nulstr: CString */;
24 short int var18
/* : Bool */;
25 short int var20
/* : Bool */;
26 short int var21
/* : Bool */;
27 val
* var22
/* : String */;
28 static val
* varonce23
;
29 val
* var24
/* : String */;
30 char* var25
/* : CString */;
31 val
* var26
/* : String */;
32 val
* var27
/* : nullable Int */;
33 val
* var28
/* : nullable Int */;
34 val
* var29
/* : nullable Bool */;
35 val
* var30
/* : nullable Bool */;
37 var1
= ((char*(*)(val
* self
))(self
->class->vft
[COLOR_core__abstract_text__Text__to_cstring
]))(self
); /* to_cstring on <self:String>*/
40 { /* Inline environ$CString$get_environ (var1) on <var1:CString> */
41 var4
= core__environ___CString_get_environ___impl(var1
);
48 if (likely(varonce_guard
)) {
51 if (likely(varonce6
!=NULL
)) {
55 var10
= (val
*)(0l<<2|1);
56 var11
= (val
*)(0l<<2|1);
57 var12
= (val
*)((long)(0)<<2|3);
58 var13
= (val
*)((long)(0)<<2|3);
59 var9
= core__flat___CString___to_s_unsafe(var8
, var10
, var11
, var12
, var13
);
64 var14
= ((char*(*)(val
* self
))(var7
->class->vft
[COLOR_core__abstract_text__Text__to_cstring
]))(var7
); /* to_cstring on <var7:String>*/
67 { /* Inline environ$CString$get_environ (var14) on <var14:CString> */
68 var17
= core__environ___CString_get_environ___impl(var14
);
80 { /* Inline native$CString$!= (var_res,var_nulstr) on <var_res:CString> */
81 var20
= var_res
== var_nulstr
;
90 var22
= core__flat___CString___core__abstract_text__Object__to_s(var_res
);
95 if (likely(varonce23
!=NULL
)) {
99 var27
= (val
*)(0l<<2|1);
100 var28
= (val
*)(0l<<2|1);
101 var29
= (val
*)((long)(0)<<2|3);
102 var30
= (val
*)((long)(0)<<2|3);
103 var26
= core__flat___CString___to_s_unsafe(var25
, var27
, var28
, var29
, var30
);
113 /* method environ$CString$get_environ for (self: CString): CString */
114 char* core__environ___CString___get_environ(char* self
) {
115 char* var
/* : CString */;
116 char* var1
/* : CString */;
117 var1
= core__environ___CString_get_environ___impl(self
);
123 /* method environ$Sys$init for (self: Sys) */
124 void core__environ___Sys___core__kernel__Object__init(val
* self
) {
126 val
* var
/* : String */;
127 char* var1
/* : CString */;
128 val
* var2
/* : String */;
129 val
* var3
/* : nullable Int */;
130 val
* var4
/* : nullable Int */;
131 val
* var5
/* : nullable Bool */;
132 val
* var6
/* : nullable Bool */;
133 val
* var7
/* : String */;
134 val
* var_x
/* var x: String */;
135 static val
* varonce8
;
136 val
* var9
/* : String */;
137 char* var10
/* : CString */;
138 val
* var11
/* : String */;
139 val
* var12
/* : nullable Int */;
140 val
* var13
/* : nullable Int */;
141 val
* var14
/* : nullable Bool */;
142 val
* var15
/* : nullable Bool */;
143 short int var16
/* : Bool */;
144 val
* var_other
/* var other: nullable Object */;
145 short int var18
/* : Bool */;
146 short int var19
/* : Bool */;
147 long var20
/* : Int */;
149 ((void(*)(val
* self
))(self
->class->vft
[COLOR_core__environ___Sys___core__kernel__Object__init
]))(self
); /* init on <self:Sys>*/
151 if (likely(varonce
!=NULL
)) {
155 var3
= (val
*)(9l<<2|1);
156 var4
= (val
*)(9l<<2|1);
157 var5
= (val
*)((long)(0)<<2|3);
158 var6
= (val
*)((long)(0)<<2|3);
159 var2
= core__flat___CString___to_s_unsafe(var1
, var3
, var4
, var5
, var6
);
164 var7
= core__environ___String___environ(var
);
167 if (likely(varonce8
!=NULL
)) {
171 var12
= (val
*)(0l<<2|1);
172 var13
= (val
*)(0l<<2|1);
173 var14
= (val
*)((long)(0)<<2|3);
174 var15
= (val
*)((long)(0)<<2|3);
175 var11
= core__flat___CString___to_s_unsafe(var10
, var12
, var13
, var14
, var15
);
180 { /* Inline kernel$Object$!= (var_x,var9) on <var_x:String> */
183 var18
= ((short int(*)(val
* self
, val
* p0
))(var_x
->class->vft
[COLOR_core__kernel__Object___61d_61d
]))(var_x
, var_other
); /* == on <var_x:String>*/
193 var20
= core__fixed_ints_text___Text___to_i(var_x
);
196 { /* Inline math$Sys$srand_from (self,var20) on <self:Sys> */
197 struct nitni_instance
* var_for_c_0
;
198 var_for_c_0
= nit_alloc(sizeof(struct nitni_instance
));
199 var_for_c_0
->value
= self
;
200 core__math___Sys_srand_from___impl(var_for_c_0
, var20
);