1 /* This C file is generated by NIT to compile module standard___string. */
2 #include "standard___string._sep.h"
3 val_t
standard___string___AbstractString___items(val_t p0
){
4 struct {struct stack_frame_t me
;} fra
;
7 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
8 fra
.me
.file
= LOCATE_standard___string
;
10 fra
.me
.meth
= LOCATE_standard___string___AbstractString___items
;
13 fra
.me
.nitni_local_ref_head
= NULL
;
14 fra
.me
.REG
[0] = NIT_NULL
;
16 /* ../lib/standard/string.nit:28 */
17 REGB0
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
18 if (UNTAG_Bool(REGB0
)) {
20 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 28);
22 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
23 stack_frame_head
= fra
.me
.prev
;
26 val_t
standard___string___AbstractString_____bra(val_t p0
, val_t p1
){
27 struct {struct stack_frame_t me
;} fra
;
31 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
32 fra
.me
.file
= LOCATE_standard___string
;
34 fra
.me
.meth
= LOCATE_standard___string___AbstractString_____bra
;
37 fra
.me
.nitni_local_ref_head
= NULL
;
38 fra
.me
.REG
[0] = NIT_NULL
;
41 /* ../lib/standard/string.nit:30 */
42 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
43 if (UNTAG_Bool(REGB1
)) {
45 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 30);
47 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
48 /* ../lib/standard/string.nit:595 */
49 REGB0
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB0
)]);
50 /* ../lib/standard/string.nit:30 */
53 stack_frame_head
= fra
.me
.prev
;
56 val_t
standard___string___AbstractString___substring(val_t p0
, val_t p1
, val_t p2
){
57 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
63 static val_t once_value_3
; /* Once value */
64 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
65 fra
.me
.file
= LOCATE_standard___string
;
67 fra
.me
.meth
= LOCATE_standard___string___AbstractString___substring
;
70 fra
.me
.nitni_local_ref_head
= NULL
;
71 fra
.me
.REG
[0] = NIT_NULL
;
72 fra
.me
.REG
[1] = NIT_NULL
;
73 fra
.me
.REG
[2] = NIT_NULL
;
77 /* ../lib/standard/string.nit:40 */
79 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
80 if (UNTAG_Bool(REGB3
)) {
82 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
84 /* ../lib/standard/kernel.nit:233 */
85 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)>=UNTAG_Int(REGB2
));
86 /* ../lib/standard/string.nit:40 */
87 if (UNTAG_Bool(REGB2
)) {
89 nit_abort("Assert failed", NULL
, LOCATE_standard___string
, 40);
91 /* ../lib/standard/kernel.nit:235 */
92 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB0
));
93 /* ../lib/standard/string.nit:41 */
95 /* ../lib/standard/string.nit:42 */
97 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
98 if (UNTAG_Bool(REGB3
)) {
100 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
102 /* ../lib/standard/kernel.nit:232 */
103 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
104 /* ../lib/standard/string.nit:42 */
105 if (UNTAG_Bool(REGB2
)) {
109 /* ../lib/standard/collection/array.nit:24 */
110 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
111 if (UNTAG_Bool(REGB2
)) {
113 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
115 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
116 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
117 if (UNTAG_Bool(REGB3
)) {
119 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
121 /* ../lib/standard/kernel.nit:234 */
122 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)>UNTAG_Int(REGB2
));
123 /* ../lib/standard/string.nit:43 */
124 if (UNTAG_Bool(REGB2
)) {
125 /* ../lib/standard/collection/array.nit:24 */
126 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
127 if (UNTAG_Bool(REGB2
)) {
129 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
131 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
132 /* ../lib/standard/string.nit:43 */
135 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
136 if (UNTAG_Bool(REGB2
)) {
138 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
140 /* ../lib/standard/kernel.nit:232 */
141 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
142 /* ../lib/standard/string.nit:44 */
143 if (UNTAG_Bool(REGB2
)) {
144 /* ../lib/standard/kernel.nit:237 */
145 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB0
));
146 /* ../lib/standard/string.nit:45 */
147 fra
.me
.REG
[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB2
);
148 /* ../lib/standard/string.nit:46 */
150 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
151 if (UNTAG_Bool(REGB2
)) {
153 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
155 /* ../lib/standard/kernel.nit:232 */
156 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
157 /* ../lib/standard/string.nit:46 */
158 if (UNTAG_Bool(REGB2
)) {
159 /* ../lib/standard/string.nit:47 */
160 REGB2
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
161 if (UNTAG_Bool(REGB2
)) {
163 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 47);
165 fra
.me
.REG
[2] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
166 /* ../lib/standard/string.nit:595 */
167 REGB2
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[2])[UNTAG_Int(REGB0
)]);
168 /* ../lib/standard/string.nit:47 */
169 CALL_standard___collection___abstract_collection___Sequence___push(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB2
);
170 /* ../lib/standard/string.nit:48 */
172 /* ../lib/standard/kernel.nit:235 */
173 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
174 /* ../lib/standard/string.nit:48 */
177 /* ../lib/standard/string.nit:46 */
182 /* ../lib/standard/string.nit:50 */
183 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
186 /* ../lib/standard/string.nit:52 */
188 fra
.me
.REG
[0] = BOX_NativeString("");
190 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
191 once_value_3
= fra
.me
.REG
[0];
192 register_static_object(&once_value_3
);
193 } else fra
.me
.REG
[0] = once_value_3
;
194 fra
.me
.REG
[0] = fra
.me
.REG
[0];
195 fra
.me
.REG
[1] = fra
.me
.REG
[0];
199 stack_frame_head
= fra
.me
.prev
;
200 return fra
.me
.REG
[1];
202 val_t
standard___string___AbstractString___substring_from(val_t p0
, val_t p1
){
203 struct {struct stack_frame_t me
;} fra
;
208 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
209 fra
.me
.file
= LOCATE_standard___string
;
211 fra
.me
.meth
= LOCATE_standard___string___AbstractString___substring_from
;
212 fra
.me
.has_broke
= 0;
214 fra
.me
.nitni_local_ref_head
= NULL
;
215 fra
.me
.REG
[0] = NIT_NULL
;
218 /* ../lib/standard/collection/array.nit:24 */
219 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
220 if (UNTAG_Bool(REGB1
)) {
222 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
224 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
225 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
226 if (UNTAG_Bool(REGB2
)) {
228 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
230 /* ../lib/standard/kernel.nit:232 */
231 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
232 /* ../lib/standard/string.nit:63 */
233 if (UNTAG_Bool(REGB1
)) {
235 nit_abort("Assert failed", NULL
, LOCATE_standard___string
, 63);
237 /* ../lib/standard/collection/array.nit:24 */
238 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
239 if (UNTAG_Bool(REGB1
)) {
241 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
243 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
244 /* ../lib/standard/kernel.nit:237 */
245 REGB1
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB0
));
246 /* ../lib/standard/string.nit:64 */
247 fra
.me
.REG
[0] = CALL_standard___string___AbstractString___substring(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB1
);
250 stack_frame_head
= fra
.me
.prev
;
251 return fra
.me
.REG
[0];
253 val_t
standard___string___AbstractString___has_substring(val_t p0
, val_t p1
, val_t p2
){
254 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
262 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
263 fra
.me
.file
= LOCATE_standard___string
;
265 fra
.me
.meth
= LOCATE_standard___string___AbstractString___has_substring
;
266 fra
.me
.has_broke
= 0;
268 fra
.me
.nitni_local_ref_head
= NULL
;
269 fra
.me
.REG
[0] = NIT_NULL
;
270 fra
.me
.REG
[1] = NIT_NULL
;
271 fra
.me
.REG
[2] = NIT_NULL
;
275 /* ../lib/standard/collection/array.nit:24 */
276 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
277 if (UNTAG_Bool(REGB1
)) {
279 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
281 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
282 /* ../lib/standard/string.nit:73 */
284 /* ../lib/standard/kernel.nit:237 */
285 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
286 /* ../lib/standard/kernel.nit:235 */
287 REGB0
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
288 /* ../lib/standard/string.nit:75 */
289 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
290 if (UNTAG_Bool(REGB1
)) {
292 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 75);
294 fra
.me
.REG
[2] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
295 /* ../lib/standard/string.nit:76 */
296 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1])!=NIT_NULL
);
297 if (UNTAG_Bool(REGB1
)) {
299 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 76);
301 fra
.me
.REG
[1] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1]);
302 /* ../lib/standard/collection/array.nit:24 */
303 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
304 if (UNTAG_Bool(REGB1
)) {
306 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
308 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
309 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
310 if (UNTAG_Bool(REGB3
)) {
312 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
314 /* ../lib/standard/kernel.nit:234 */
315 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
316 /* ../lib/standard/string.nit:77 */
317 if (UNTAG_Bool(REGB1
)) {
318 REGB1
= TAG_Bool(true);
320 REGB3
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
321 if (UNTAG_Bool(REGB3
)) {
323 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
325 /* ../lib/standard/kernel.nit:234 */
326 REGB3
= TAG_Bool(UNTAG_Int(REGB2
)>UNTAG_Int(REGB0
));
327 /* ../lib/standard/string.nit:77 */
330 if (UNTAG_Bool(REGB1
)) {
331 REGB1
= TAG_Bool(false);
334 /* ../lib/standard/string.nit:78 */
337 REGB4
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
338 if (UNTAG_Bool(REGB4
)) {
340 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
342 /* ../lib/standard/kernel.nit:233 */
343 REGB3
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB3
));
344 /* ../lib/standard/string.nit:78 */
345 if (UNTAG_Bool(REGB3
)) {
346 /* ../lib/standard/string.nit:595 */
347 REGB3
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[2])[UNTAG_Int(REGB0
)]);
348 REGB4
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB2
)]);
349 /* ../lib/standard/string.nit:79 */
350 REGB5
= TAG_Bool(IS_EQUAL_OO(REGB3
,REGB4
));
351 if (UNTAG_Bool(REGB5
)) {
353 /* ../lib/standard/kernel.nit:378 */
354 REGB4
= TAG_Bool((REGB3
)==(REGB4
));
355 /* ../lib/standard/string.nit:79 */
358 REGB5
= TAG_Bool(!UNTAG_Bool(REGB5
));
359 if (UNTAG_Bool(REGB5
)) {
360 REGB5
= TAG_Bool(false);
364 /* ../lib/standard/string.nit:80 */
366 /* ../lib/standard/kernel.nit:237 */
367 REGB5
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB5
));
368 /* ../lib/standard/string.nit:80 */
370 /* ../lib/standard/string.nit:81 */
372 /* ../lib/standard/kernel.nit:237 */
373 REGB5
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB5
));
374 /* ../lib/standard/string.nit:81 */
377 /* ../lib/standard/string.nit:78 */
382 /* ../lib/standard/string.nit:83 */
383 REGB2
= TAG_Bool(true);
387 stack_frame_head
= fra
.me
.prev
;
390 val_t
standard___string___AbstractString___has_prefix(val_t p0
, val_t p1
){
391 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
394 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
395 fra
.me
.file
= LOCATE_standard___string
;
397 fra
.me
.meth
= LOCATE_standard___string___AbstractString___has_prefix
;
398 fra
.me
.has_broke
= 0;
400 fra
.me
.nitni_local_ref_head
= NULL
;
401 fra
.me
.REG
[0] = NIT_NULL
;
402 fra
.me
.REG
[1] = NIT_NULL
;
405 /* ../lib/standard/string.nit:90 */
407 REGB0
= CALL_standard___string___AbstractString___has_substring(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB0
);
410 stack_frame_head
= fra
.me
.prev
;
413 val_t
standard___string___AbstractString___has_suffix(val_t p0
, val_t p1
){
414 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
418 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
419 fra
.me
.file
= LOCATE_standard___string
;
421 fra
.me
.meth
= LOCATE_standard___string___AbstractString___has_suffix
;
422 fra
.me
.has_broke
= 0;
424 fra
.me
.nitni_local_ref_head
= NULL
;
425 fra
.me
.REG
[0] = NIT_NULL
;
426 fra
.me
.REG
[1] = NIT_NULL
;
429 /* ../lib/standard/collection/array.nit:24 */
430 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
431 if (UNTAG_Bool(REGB0
)) {
433 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
435 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
436 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
437 if (UNTAG_Bool(REGB1
)) {
439 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
441 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
442 /* ../lib/standard/kernel.nit:237 */
443 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
444 /* ../lib/standard/string.nit:96 */
445 REGB1
= CALL_standard___string___AbstractString___has_substring(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1], REGB1
);
448 stack_frame_head
= fra
.me
.prev
;
451 val_t
standard___string___AbstractString___to_i(val_t p0
){
452 struct {struct stack_frame_t me
;} fra
;
455 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
456 fra
.me
.file
= LOCATE_standard___string
;
458 fra
.me
.meth
= LOCATE_standard___string___AbstractString___to_i
;
459 fra
.me
.has_broke
= 0;
461 fra
.me
.nitni_local_ref_head
= NULL
;
462 fra
.me
.REG
[0] = NIT_NULL
;
464 /* ../lib/standard/string.nit:102 */
465 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
466 fra
.me
.REG
[0] = CALL_standard___string___String___to_cstring(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
467 /* ../lib/standard/string.nit:606 */
468 REGB0
= TAG_Int(atoi(UNBOX_NativeString(fra
.me
.REG
[0])));
469 /* ../lib/standard/string.nit:102 */
472 stack_frame_head
= fra
.me
.prev
;
475 val_t
standard___string___AbstractString___to_hex(val_t p0
){
476 struct {struct stack_frame_t me
;} fra
;
479 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
480 fra
.me
.file
= LOCATE_standard___string
;
482 fra
.me
.meth
= LOCATE_standard___string___AbstractString___to_hex
;
483 fra
.me
.has_broke
= 0;
485 fra
.me
.nitni_local_ref_head
= NULL
;
486 fra
.me
.REG
[0] = NIT_NULL
;
488 /* ../lib/standard/string.nit:106 */
490 REGB0
= CALL_standard___string___AbstractString___a_to(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
493 stack_frame_head
= fra
.me
.prev
;
496 val_t
standard___string___AbstractString___a_to(val_t p0
, val_t p1
){
497 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
500 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
501 fra
.me
.file
= LOCATE_standard___string
;
503 fra
.me
.meth
= LOCATE_standard___string___AbstractString___a_to
;
504 fra
.me
.has_broke
= 0;
506 fra
.me
.nitni_local_ref_head
= NULL
;
507 fra
.me
.REG
[0] = NIT_NULL
;
508 fra
.me
.REG
[1] = NIT_NULL
;
509 fra
.me
.REG
[2] = NIT_NULL
;
510 fra
.me
.REG
[3] = NIT_NULL
;
513 /* ../lib/standard/string.nit:108 */
514 fra
.me
.REG
[1] = REGB0
;
515 /* ../lib/standard/string.nit:111 */
517 fra
.me
.REG
[2] = REGB0
;
518 /* ../lib/standard/string.nit:112 */
519 REGB0
= TAG_Bool(false);
520 fra
.me
.REG
[3] = REGB0
;
521 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[0])(fra
.me
.REG
[0], (&(fra
.me
)), ((fun_t
)OC_standard___string___AbstractString___a_to_1
));
522 switch ((&(fra
.me
))->has_broke
) {
524 case 1: (&(fra
.me
))->has_broke
= 0; goto label3
;
526 /* ../lib/standard/string.nit:129 */
527 if (UNTAG_Bool(fra
.me
.REG
[3])) {
528 /* ../lib/standard/kernel.nit:236 */
529 REGB0
= TAG_Int(-UNTAG_Int(fra
.me
.REG
[2]));
530 /* ../lib/standard/string.nit:130 */
531 fra
.me
.REG
[0] = REGB0
;
534 /* ../lib/standard/string.nit:132 */
535 fra
.me
.REG
[0] = fra
.me
.REG
[2];
539 stack_frame_head
= fra
.me
.prev
;
540 return fra
.me
.REG
[0];
542 void OC_standard___string___AbstractString___a_to_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
543 struct {struct stack_frame_t me
;} fra
;
549 /* ../lib/standard/string.nit:114 */
550 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
551 fra
.me
.file
= LOCATE_standard___string
;
553 fra
.me
.meth
= LOCATE_standard___string___AbstractString___a_to
;
554 fra
.me
.has_broke
= 0;
556 fra
.me
.nitni_local_ref_head
= NULL
;
557 fra
.me
.REG
[0] = NIT_NULL
;
558 fra
.me
.closure_ctx
= closctx_param
;
559 fra
.me
.closure_funs
= CREG
;
562 REGB0
= fra
.me
.REG
[0];
563 /* ../lib/standard/string.nit:116 */
564 REGB0
= CALL_standard___kernel___Char___to_i(REGB0
)(REGB0
);
565 REGB1
= TAG_Bool(VAL_ISA(closctx
->REG
[1], VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
566 if (UNTAG_Bool(REGB1
)) {
568 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
570 /* ../lib/standard/kernel.nit:234 */
571 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(closctx
->REG
[1]));
572 /* ../lib/standard/string.nit:117 */
573 if (UNTAG_Bool(REGB1
)) {
574 /* ../lib/standard/string.nit:118 */
575 if (UNTAG_Bool(closctx
->REG
[3])) {
576 /* ../lib/standard/kernel.nit:236 */
577 REGB1
= TAG_Int(-UNTAG_Int(closctx
->REG
[2]));
578 /* ../lib/standard/string.nit:119 */
579 closctx
->REG
[0] = REGB1
;
580 closctx
->has_broke
= 1;
583 /* ../lib/standard/string.nit:121 */
584 closctx
->REG
[0] = closctx
->REG
[2];
585 closctx
->has_broke
= 1;
589 /* ../lib/standard/string.nit:123 */
591 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
592 if (UNTAG_Bool(REGB2
)) {
594 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
596 /* ../lib/standard/kernel.nit:232 */
597 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
598 /* ../lib/standard/string.nit:123 */
599 if (UNTAG_Bool(REGB1
)) {
600 /* ../lib/standard/string.nit:124 */
601 REGB1
= TAG_Bool(true);
602 closctx
->REG
[3] = REGB1
;
604 /* ../lib/standard/kernel.nit:238 */
605 REGB1
= TAG_Int(UNTAG_Int(closctx
->REG
[2])*UNTAG_Int(closctx
->REG
[1]));
606 /* ../lib/standard/kernel.nit:235 */
607 REGB0
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB0
));
608 /* ../lib/standard/string.nit:126 */
609 closctx
->REG
[2] = REGB0
;
613 stack_frame_head
= fra
.me
.prev
;
616 val_t
standard___string___AbstractString___to_upper(val_t p0
){
617 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
620 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
621 fra
.me
.file
= LOCATE_standard___string
;
623 fra
.me
.meth
= LOCATE_standard___string___AbstractString___to_upper
;
624 fra
.me
.has_broke
= 0;
626 fra
.me
.nitni_local_ref_head
= NULL
;
627 fra
.me
.REG
[0] = NIT_NULL
;
628 fra
.me
.REG
[1] = NIT_NULL
;
630 /* ../lib/standard/collection/array.nit:24 */
631 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
632 if (UNTAG_Bool(REGB0
)) {
634 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
636 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
637 /* ../lib/standard/string.nit:139 */
638 fra
.me
.REG
[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB0
);
639 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[0])(fra
.me
.REG
[0], (&(fra
.me
)), ((fun_t
)OC_standard___string___AbstractString___to_upper_1
));
640 /* ../lib/standard/string.nit:141 */
641 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
644 stack_frame_head
= fra
.me
.prev
;
645 return fra
.me
.REG
[1];
647 void OC_standard___string___AbstractString___to_upper_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
648 struct {struct stack_frame_t me
;} fra
;
652 /* ../lib/standard/string.nit:140 */
653 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
654 fra
.me
.file
= LOCATE_standard___string
;
656 fra
.me
.meth
= LOCATE_standard___string___AbstractString___to_upper
;
657 fra
.me
.has_broke
= 0;
659 fra
.me
.nitni_local_ref_head
= NULL
;
660 fra
.me
.REG
[0] = NIT_NULL
;
661 fra
.me
.closure_ctx
= closctx_param
;
662 fra
.me
.closure_funs
= CREG
;
665 REGB0
= fra
.me
.REG
[0];
666 REGB0
= CALL_standard___kernel___Char___to_upper(REGB0
)(REGB0
);
667 CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx
->REG
[1])(closctx
->REG
[1], REGB0
);
668 stack_frame_head
= fra
.me
.prev
;
671 val_t
standard___string___AbstractString___to_lower(val_t p0
){
672 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
675 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
676 fra
.me
.file
= LOCATE_standard___string
;
678 fra
.me
.meth
= LOCATE_standard___string___AbstractString___to_lower
;
679 fra
.me
.has_broke
= 0;
681 fra
.me
.nitni_local_ref_head
= NULL
;
682 fra
.me
.REG
[0] = NIT_NULL
;
683 fra
.me
.REG
[1] = NIT_NULL
;
685 /* ../lib/standard/collection/array.nit:24 */
686 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
687 if (UNTAG_Bool(REGB0
)) {
689 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
691 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
692 /* ../lib/standard/string.nit:147 */
693 fra
.me
.REG
[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB0
);
694 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[0])(fra
.me
.REG
[0], (&(fra
.me
)), ((fun_t
)OC_standard___string___AbstractString___to_lower_1
));
695 /* ../lib/standard/string.nit:149 */
696 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
699 stack_frame_head
= fra
.me
.prev
;
700 return fra
.me
.REG
[1];
702 void OC_standard___string___AbstractString___to_lower_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
703 struct {struct stack_frame_t me
;} fra
;
707 /* ../lib/standard/string.nit:148 */
708 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
709 fra
.me
.file
= LOCATE_standard___string
;
711 fra
.me
.meth
= LOCATE_standard___string___AbstractString___to_lower
;
712 fra
.me
.has_broke
= 0;
714 fra
.me
.nitni_local_ref_head
= NULL
;
715 fra
.me
.REG
[0] = NIT_NULL
;
716 fra
.me
.closure_ctx
= closctx_param
;
717 fra
.me
.closure_funs
= CREG
;
720 REGB0
= fra
.me
.REG
[0];
721 REGB0
= CALL_standard___kernel___Char___to_lower(REGB0
)(REGB0
);
722 CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx
->REG
[1])(closctx
->REG
[1], REGB0
);
723 stack_frame_head
= fra
.me
.prev
;
726 void standard___string___AbstractString___output(val_t p0
){
727 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
732 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
733 fra
.me
.file
= LOCATE_standard___string
;
735 fra
.me
.meth
= LOCATE_standard___string___AbstractString___output
;
736 fra
.me
.has_broke
= 0;
738 fra
.me
.nitni_local_ref_head
= NULL
;
739 fra
.me
.REG
[0] = NIT_NULL
;
740 fra
.me
.REG
[1] = NIT_NULL
;
742 /* ../lib/standard/string.nit:155 */
744 /* ../lib/standard/string.nit:156 */
746 /* ../lib/standard/collection/array.nit:24 */
747 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
748 if (UNTAG_Bool(REGB1
)) {
750 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
752 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
753 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
754 if (UNTAG_Bool(REGB2
)) {
756 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
758 /* ../lib/standard/kernel.nit:232 */
759 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
760 /* ../lib/standard/string.nit:156 */
761 if (UNTAG_Bool(REGB1
)) {
762 /* ../lib/standard/string.nit:157 */
763 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
764 if (UNTAG_Bool(REGB1
)) {
766 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 157);
768 fra
.me
.REG
[1] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
769 /* ../lib/standard/string.nit:595 */
770 REGB1
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB0
)]);
771 /* ../lib/standard/kernel.nit:380 */
772 printf("%c", (unsigned char)UNTAG_Char(REGB1
));;
773 /* ../lib/standard/string.nit:158 */
775 /* ../lib/standard/kernel.nit:235 */
776 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
777 /* ../lib/standard/string.nit:158 */
780 /* ../lib/standard/string.nit:156 */
785 stack_frame_head
= fra
.me
.prev
;
788 void standard___string___String___with_native(val_t p0
, val_t p1
, val_t p2
, int* init_table
){
789 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___string___String
].i
;
790 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
795 if (init_table
[itpos0
]) return;
796 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
797 fra
.me
.file
= LOCATE_standard___string
;
799 fra
.me
.meth
= LOCATE_standard___string___String___with_native
;
800 fra
.me
.has_broke
= 0;
802 fra
.me
.nitni_local_ref_head
= NULL
;
803 fra
.me
.REG
[0] = NIT_NULL
;
804 fra
.me
.REG
[1] = NIT_NULL
;
808 /* ../lib/standard/string.nit:173 */
810 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
811 if (UNTAG_Bool(REGB2
)) {
813 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
815 /* ../lib/standard/kernel.nit:233 */
816 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
817 /* ../lib/standard/string.nit:173 */
818 if (UNTAG_Bool(REGB1
)) {
820 nit_abort("Assert failed", NULL
, LOCATE_standard___string
, 173);
822 /* ../lib/standard/string.nit:174 */
823 ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
824 /* ../lib/standard/string.nit:175 */
825 ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]) = REGB0
;
826 stack_frame_head
= fra
.me
.prev
;
827 init_table
[itpos0
] = 1;
830 void standard___string___String___from_cstring(val_t p0
, val_t p1
, int* init_table
){
831 int itpos1
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___string___String
].i
;
832 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
835 if (init_table
[itpos1
]) return;
836 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
837 fra
.me
.file
= LOCATE_standard___string
;
839 fra
.me
.meth
= LOCATE_standard___string___String___from_cstring
;
840 fra
.me
.has_broke
= 0;
842 fra
.me
.nitni_local_ref_head
= NULL
;
843 fra
.me
.REG
[0] = NIT_NULL
;
844 fra
.me
.REG
[1] = NIT_NULL
;
847 /* ../lib/standard/string.nit:181 */
848 REGB0
= CALL_standard___string___NativeString___cstring_length(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
849 /* ../lib/standard/string.nit:182 */
850 ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
851 /* ../lib/standard/string.nit:183 */
852 ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]) = REGB0
;
853 stack_frame_head
= fra
.me
.prev
;
854 init_table
[itpos1
] = 1;
857 val_t
standard___string___String___to_cstring(val_t p0
){
858 struct {struct stack_frame_t me
;} fra
;
861 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
862 fra
.me
.file
= LOCATE_standard___string
;
864 fra
.me
.meth
= LOCATE_standard___string___String___to_cstring
;
865 fra
.me
.has_broke
= 0;
867 fra
.me
.nitni_local_ref_head
= NULL
;
868 fra
.me
.REG
[0] = NIT_NULL
;
870 /* ../lib/standard/string.nit:189 */
871 REGB0
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
872 if (UNTAG_Bool(REGB0
)) {
874 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 189);
876 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
879 stack_frame_head
= fra
.me
.prev
;
880 return fra
.me
.REG
[0];
882 val_t
standard___string___String_____eqeq(val_t p0
, val_t p1
){
883 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
891 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
892 fra
.me
.file
= LOCATE_standard___string
;
894 fra
.me
.meth
= LOCATE_standard___string___String_____eqeq
;
895 fra
.me
.has_broke
= 0;
897 fra
.me
.nitni_local_ref_head
= NULL
;
898 fra
.me
.REG
[0] = NIT_NULL
;
899 fra
.me
.REG
[1] = NIT_NULL
;
902 /* ../lib/standard/string.nit:194 */
903 REGB0
= TAG_Bool((fra
.me
.REG
[1]!=NIT_NULL
) && VAL_ISA(fra
.me
.REG
[1], COLOR_standard___string___String
, ID_standard___string___String
)) /*cast String*/;
904 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
905 if (UNTAG_Bool(REGB0
)) {
906 REGB0
= TAG_Bool(true);
908 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
911 if (UNTAG_Bool(REGB0
)) {
912 REGB0
= TAG_Bool(false);
915 /* ../lib/standard/collection/array.nit:24 */
916 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
917 if (UNTAG_Bool(REGB1
)) {
919 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
921 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
922 /* ../lib/standard/string.nit:196 */
923 REGB2
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
924 if (UNTAG_Bool(REGB2
)) {
925 nit_abort("Reciever is null", NULL
, LOCATE_standard___string
, 196);
927 /* ../lib/standard/collection/array.nit:24 */
928 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
929 if (UNTAG_Bool(REGB2
)) {
931 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
933 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
934 /* ../lib/standard/string.nit:196 */
935 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB1
));
936 if (UNTAG_Bool(REGB3
)) {
938 /* ../lib/standard/kernel.nit:227 */
939 REGB2
= TAG_Bool((REGB2
)==(REGB1
));
940 /* ../lib/standard/string.nit:196 */
943 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
944 if (UNTAG_Bool(REGB3
)) {
945 REGB3
= TAG_Bool(false);
949 /* ../lib/standard/string.nit:197 */
951 /* ../lib/standard/string.nit:198 */
952 REGB2
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
953 if (UNTAG_Bool(REGB2
)) {
955 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 198);
957 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
958 /* ../lib/standard/string.nit:199 */
959 REGB2
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1])!=NIT_NULL
);
960 if (UNTAG_Bool(REGB2
)) {
962 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 199);
964 fra
.me
.REG
[1] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1]);
965 /* ../lib/standard/string.nit:200 */
967 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
968 if (UNTAG_Bool(REGB2
)) {
970 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
972 /* ../lib/standard/kernel.nit:232 */
973 REGB2
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB1
));
974 /* ../lib/standard/string.nit:200 */
975 if (UNTAG_Bool(REGB2
)) {
976 /* ../lib/standard/string.nit:595 */
977 REGB2
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB3
)]);
978 REGB4
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB3
)]);
979 /* ../lib/standard/string.nit:201 */
980 REGB5
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB4
));
981 if (UNTAG_Bool(REGB5
)) {
983 /* ../lib/standard/kernel.nit:378 */
984 REGB4
= TAG_Bool((REGB2
)==(REGB4
));
985 /* ../lib/standard/string.nit:201 */
988 REGB5
= TAG_Bool(!UNTAG_Bool(REGB5
));
989 if (UNTAG_Bool(REGB5
)) {
990 REGB5
= TAG_Bool(false);
994 /* ../lib/standard/string.nit:202 */
996 /* ../lib/standard/kernel.nit:235 */
997 REGB5
= TAG_Int(UNTAG_Int(REGB3
)+UNTAG_Int(REGB5
));
998 /* ../lib/standard/string.nit:202 */
1001 /* ../lib/standard/string.nit:200 */
1006 /* ../lib/standard/string.nit:204 */
1007 REGB3
= TAG_Bool(true);
1011 stack_frame_head
= fra
.me
.prev
;
1014 val_t
standard___string___String_____l(val_t p0
, val_t p1
){
1015 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1024 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1025 fra
.me
.file
= LOCATE_standard___string
;
1027 fra
.me
.meth
= LOCATE_standard___string___String_____l
;
1028 fra
.me
.has_broke
= 0;
1029 fra
.me
.REG_size
= 2;
1030 fra
.me
.nitni_local_ref_head
= NULL
;
1031 fra
.me
.REG
[0] = NIT_NULL
;
1032 fra
.me
.REG
[1] = NIT_NULL
;
1035 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[1], VTCOLOR_standard___kernel___Comparable___OTHER(fra
.me
.REG
[0]), VTID_standard___kernel___Comparable___OTHER(fra
.me
.REG
[0]))) /*cast OTHER*/;
1036 if (UNTAG_Bool(REGB0
)) {
1038 nit_abort("Cast failed", NULL
, LOCATE_standard___string
, 0);
1040 /* ../lib/standard/string.nit:209 */
1042 /* ../lib/standard/collection/array.nit:24 */
1043 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1044 if (UNTAG_Bool(REGB1
)) {
1046 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1048 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1049 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
1050 if (UNTAG_Bool(REGB2
)) {
1052 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1054 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
1055 /* ../lib/standard/string.nit:212 */
1056 REGB3
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
1057 if (UNTAG_Bool(REGB3
)) {
1059 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 212);
1061 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
1062 /* ../lib/standard/string.nit:213 */
1063 REGB3
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1])!=NIT_NULL
);
1064 if (UNTAG_Bool(REGB3
)) {
1066 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 213);
1068 fra
.me
.REG
[1] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1]);
1069 /* ../lib/standard/string.nit:214 */
1071 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1072 if (UNTAG_Bool(REGB3
)) {
1074 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1076 /* ../lib/standard/kernel.nit:232 */
1077 REGB3
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1078 /* ../lib/standard/string.nit:214 */
1079 if (UNTAG_Bool(REGB3
)) {
1080 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1081 if (UNTAG_Bool(REGB3
)) {
1083 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1085 /* ../lib/standard/kernel.nit:232 */
1086 REGB3
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
1088 /* ../lib/standard/string.nit:214 */
1089 REGB4
= TAG_Bool(false);
1092 if (UNTAG_Bool(REGB3
)) {
1093 /* ../lib/standard/string.nit:595 */
1094 REGB3
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB0
)]);
1095 /* ../lib/standard/kernel.nit:413 */
1096 REGB3
= TAG_Int((unsigned char)UNTAG_Char(REGB3
));
1097 /* ../lib/standard/string.nit:595 */
1098 REGB4
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB0
)]);
1099 /* ../lib/standard/kernel.nit:413 */
1100 REGB4
= TAG_Int((unsigned char)UNTAG_Char(REGB4
));
1101 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
1102 if (UNTAG_Bool(REGB5
)) {
1104 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1106 /* ../lib/standard/kernel.nit:232 */
1107 REGB5
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB4
));
1108 /* ../lib/standard/string.nit:217 */
1109 if (UNTAG_Bool(REGB5
)) {
1110 /* ../lib/standard/string.nit:218 */
1111 REGB5
= TAG_Bool(true);
1114 REGB6
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
1115 if (UNTAG_Bool(REGB6
)) {
1117 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1119 /* ../lib/standard/kernel.nit:232 */
1120 REGB3
= TAG_Bool(UNTAG_Int(REGB4
)<UNTAG_Int(REGB3
));
1121 /* ../lib/standard/string.nit:219 */
1122 if (UNTAG_Bool(REGB3
)) {
1123 /* ../lib/standard/string.nit:220 */
1124 REGB3
= TAG_Bool(false);
1129 /* ../lib/standard/string.nit:222 */
1131 /* ../lib/standard/kernel.nit:235 */
1132 REGB3
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB3
));
1133 /* ../lib/standard/string.nit:222 */
1136 /* ../lib/standard/string.nit:214 */
1141 REGB0
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1142 if (UNTAG_Bool(REGB0
)) {
1144 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1146 /* ../lib/standard/kernel.nit:232 */
1147 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1148 /* ../lib/standard/string.nit:224 */
1149 if (UNTAG_Bool(REGB2
)) {
1150 /* ../lib/standard/string.nit:225 */
1151 REGB2
= TAG_Bool(true);
1155 /* ../lib/standard/string.nit:227 */
1156 REGB2
= TAG_Bool(false);
1161 stack_frame_head
= fra
.me
.prev
;
1164 val_t
standard___string___String_____plus(val_t p0
, val_t p1
){
1165 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1169 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1170 fra
.me
.file
= LOCATE_standard___string
;
1172 fra
.me
.meth
= LOCATE_standard___string___String_____plus
;
1173 fra
.me
.has_broke
= 0;
1174 fra
.me
.REG_size
= 3;
1175 fra
.me
.nitni_local_ref_head
= NULL
;
1176 fra
.me
.REG
[0] = NIT_NULL
;
1177 fra
.me
.REG
[1] = NIT_NULL
;
1178 fra
.me
.REG
[2] = NIT_NULL
;
1181 /* ../lib/standard/collection/array.nit:24 */
1182 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1183 if (UNTAG_Bool(REGB0
)) {
1185 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1187 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1188 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
1189 if (UNTAG_Bool(REGB1
)) {
1191 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1193 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
1194 /* ../lib/standard/kernel.nit:235 */
1195 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1196 /* ../lib/standard/string.nit:234 */
1197 fra
.me
.REG
[2] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB1
);
1198 /* ../lib/standard/string.nit:235 */
1199 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[0]);
1200 /* ../lib/standard/string.nit:236 */
1201 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
1202 /* ../lib/standard/string.nit:237 */
1203 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1206 stack_frame_head
= fra
.me
.prev
;
1207 return fra
.me
.REG
[2];
1209 val_t
standard___string___String_____star(val_t p0
, val_t p1
){
1210 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1215 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1216 fra
.me
.file
= LOCATE_standard___string
;
1218 fra
.me
.meth
= LOCATE_standard___string___String_____star
;
1219 fra
.me
.has_broke
= 0;
1220 fra
.me
.REG_size
= 2;
1221 fra
.me
.nitni_local_ref_head
= NULL
;
1222 fra
.me
.REG
[0] = NIT_NULL
;
1223 fra
.me
.REG
[1] = NIT_NULL
;
1226 /* ../lib/standard/string.nit:243 */
1228 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1229 if (UNTAG_Bool(REGB2
)) {
1231 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1233 /* ../lib/standard/kernel.nit:233 */
1234 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
1235 /* ../lib/standard/string.nit:243 */
1236 if (UNTAG_Bool(REGB1
)) {
1238 nit_abort("Assert failed", NULL
, LOCATE_standard___string
, 243);
1240 /* ../lib/standard/collection/array.nit:24 */
1241 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1242 if (UNTAG_Bool(REGB1
)) {
1244 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1246 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1247 /* ../lib/standard/kernel.nit:238 */
1248 REGB1
= TAG_Int(UNTAG_Int(REGB1
)*UNTAG_Int(REGB0
));
1249 /* ../lib/standard/string.nit:244 */
1250 fra
.me
.REG
[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB1
);
1251 /* ../lib/standard/string.nit:245 */
1254 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1255 if (UNTAG_Bool(REGB2
)) {
1257 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1259 /* ../lib/standard/kernel.nit:234 */
1260 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
1261 /* ../lib/standard/string.nit:245 */
1262 if (UNTAG_Bool(REGB1
)) {
1263 /* ../lib/standard/string.nit:246 */
1264 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
1265 /* ../lib/standard/string.nit:247 */
1267 /* ../lib/standard/kernel.nit:237 */
1268 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
1269 /* ../lib/standard/string.nit:247 */
1272 /* ../lib/standard/string.nit:245 */
1277 /* ../lib/standard/string.nit:249 */
1278 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1281 stack_frame_head
= fra
.me
.prev
;
1282 return fra
.me
.REG
[1];
1284 val_t
standard___string___String___to_s(val_t p0
){
1285 struct {struct stack_frame_t me
;} fra
;
1287 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1288 fra
.me
.file
= LOCATE_standard___string
;
1290 fra
.me
.meth
= LOCATE_standard___string___String___to_s
;
1291 fra
.me
.has_broke
= 0;
1292 fra
.me
.REG_size
= 1;
1293 fra
.me
.nitni_local_ref_head
= NULL
;
1294 fra
.me
.REG
[0] = NIT_NULL
;
1296 /* ../lib/standard/string.nit:252 */
1299 stack_frame_head
= fra
.me
.prev
;
1300 return fra
.me
.REG
[0];
1302 val_t
standard___string___String___hash(val_t p0
){
1303 struct {struct stack_frame_t me
;} fra
;
1309 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1310 fra
.me
.file
= LOCATE_standard___string
;
1312 fra
.me
.meth
= LOCATE_standard___string___String___hash
;
1313 fra
.me
.has_broke
= 0;
1314 fra
.me
.REG_size
= 1;
1315 fra
.me
.nitni_local_ref_head
= NULL
;
1316 fra
.me
.REG
[0] = NIT_NULL
;
1318 /* ../lib/standard/string.nit:257 */
1319 REGB0
= TAG_Int(5381);
1320 /* ../lib/standard/string.nit:258 */
1321 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1322 if (UNTAG_Bool(REGB1
)) {
1324 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string
, 258);
1326 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1328 /* ../lib/standard/kernel.nit:237 */
1329 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
1330 /* ../lib/standard/string.nit:259 */
1331 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
1332 if (UNTAG_Bool(REGB1
)) {
1334 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 259);
1336 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
1337 /* ../lib/standard/string.nit:260 */
1340 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
1341 if (UNTAG_Bool(REGB3
)) {
1343 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1345 /* ../lib/standard/kernel.nit:233 */
1346 REGB1
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB1
));
1347 /* ../lib/standard/string.nit:260 */
1348 if (UNTAG_Bool(REGB1
)) {
1349 /* ../lib/standard/string.nit:261 */
1350 REGB1
= TAG_Int(32);
1351 /* ../lib/standard/kernel.nit:238 */
1352 REGB1
= TAG_Int(UNTAG_Int(REGB0
)*UNTAG_Int(REGB1
));
1353 /* ../lib/standard/kernel.nit:235 */
1354 REGB1
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB0
));
1355 /* ../lib/standard/string.nit:595 */
1356 REGB3
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB2
)]);
1357 /* ../lib/standard/kernel.nit:413 */
1358 REGB3
= TAG_Int((unsigned char)UNTAG_Char(REGB3
));
1359 /* ../lib/standard/kernel.nit:235 */
1360 REGB3
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB3
));
1361 /* ../lib/standard/string.nit:261 */
1363 /* ../lib/standard/string.nit:262 */
1365 /* ../lib/standard/kernel.nit:237 */
1366 REGB3
= TAG_Int(UNTAG_Int(REGB2
)-UNTAG_Int(REGB3
));
1367 /* ../lib/standard/string.nit:262 */
1370 /* ../lib/standard/string.nit:260 */
1375 /* ../lib/standard/string.nit:264 */
1378 stack_frame_head
= fra
.me
.prev
;
1381 val_t
standard___string___String___to_f(val_t p0
){
1382 struct {struct stack_frame_t me
;} fra
;
1384 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1385 fra
.me
.file
= LOCATE_standard___string
;
1387 fra
.me
.meth
= LOCATE_standard___string___String___to_f
;
1388 fra
.me
.has_broke
= 0;
1389 fra
.me
.REG_size
= 1;
1390 fra
.me
.nitni_local_ref_head
= NULL
;
1391 fra
.me
.REG
[0] = NIT_NULL
;
1393 /* ../lib/standard/string.nit:268 */
1394 fra
.me
.REG
[0] = String_to_f___out(fra
.me
.REG
[0]);
1396 stack_frame_head
= fra
.me
.prev
;
1397 return fra
.me
.REG
[0];
1399 void standard___string___Buffer_____braeq(val_t p0
, val_t p1
, val_t p2
){
1400 struct {struct stack_frame_t me
;} fra
;
1406 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1407 fra
.me
.file
= LOCATE_standard___string
;
1409 fra
.me
.meth
= LOCATE_standard___string___Buffer_____braeq
;
1410 fra
.me
.has_broke
= 0;
1411 fra
.me
.REG_size
= 1;
1412 fra
.me
.nitni_local_ref_head
= NULL
;
1413 fra
.me
.REG
[0] = NIT_NULL
;
1417 /* ../lib/standard/collection/array.nit:24 */
1418 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1419 if (UNTAG_Bool(REGB2
)) {
1421 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1423 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1424 /* ../lib/standard/string.nit:282 */
1425 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB2
));
1426 if (UNTAG_Bool(REGB3
)) {
1428 /* ../lib/standard/kernel.nit:227 */
1429 REGB2
= TAG_Bool((REGB0
)==(REGB2
));
1430 /* ../lib/standard/string.nit:282 */
1433 if (UNTAG_Bool(REGB3
)) {
1434 /* ../lib/standard/string.nit:283 */
1435 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
);
1436 /* ../lib/standard/string.nit:284 */
1439 /* ../lib/standard/string.nit:286 */
1441 REGB2
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1442 if (UNTAG_Bool(REGB2
)) {
1444 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1446 /* ../lib/standard/kernel.nit:233 */
1447 REGB3
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB3
));
1448 /* ../lib/standard/string.nit:286 */
1449 if (UNTAG_Bool(REGB3
)) {
1450 /* ../lib/standard/collection/array.nit:24 */
1451 REGB3
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1452 if (UNTAG_Bool(REGB3
)) {
1454 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1456 REGB3
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1457 REGB2
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1458 if (UNTAG_Bool(REGB2
)) {
1460 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1462 /* ../lib/standard/kernel.nit:232 */
1463 REGB3
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB3
));
1465 /* ../lib/standard/string.nit:286 */
1466 REGB2
= TAG_Bool(false);
1469 if (UNTAG_Bool(REGB3
)) {
1471 nit_abort("Assert failed", NULL
, LOCATE_standard___string
, 286);
1473 /* ../lib/standard/string.nit:287 */
1474 REGB3
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
1475 if (UNTAG_Bool(REGB3
)) {
1477 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 287);
1479 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
1480 /* ../lib/standard/string.nit:596 */
1481 UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB0
)]=UNTAG_Char(REGB1
);;
1483 stack_frame_head
= fra
.me
.prev
;
1486 void standard___string___Buffer___add(val_t p0
, val_t p1
){
1487 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1493 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1494 fra
.me
.file
= LOCATE_standard___string
;
1496 fra
.me
.meth
= LOCATE_standard___string___Buffer___add
;
1497 fra
.me
.has_broke
= 0;
1498 fra
.me
.REG_size
= 2;
1499 fra
.me
.nitni_local_ref_head
= NULL
;
1500 fra
.me
.REG
[0] = NIT_NULL
;
1501 fra
.me
.REG
[1] = NIT_NULL
;
1504 /* ../lib/standard/string.nit:292 */
1505 REGB1
= TAG_Bool(ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0])!=NIT_NULL
);
1506 if (UNTAG_Bool(REGB1
)) {
1508 nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string
, 292);
1510 REGB1
= ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]);
1511 /* ../lib/standard/collection/array.nit:24 */
1512 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1513 if (UNTAG_Bool(REGB2
)) {
1515 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1517 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1518 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1519 if (UNTAG_Bool(REGB3
)) {
1521 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1523 /* ../lib/standard/kernel.nit:231 */
1524 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<=UNTAG_Int(REGB2
));
1525 /* ../lib/standard/string.nit:292 */
1526 if (UNTAG_Bool(REGB2
)) {
1527 /* ../lib/standard/collection/array.nit:24 */
1528 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1529 if (UNTAG_Bool(REGB2
)) {
1531 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1533 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1534 /* ../lib/standard/string.nit:292 */
1536 /* ../lib/standard/kernel.nit:235 */
1537 REGB1
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB1
));
1538 /* ../lib/standard/string.nit:292 */
1539 CALL_standard___collection___array___AbstractArray___enlarge(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
);
1541 /* ../lib/standard/string.nit:293 */
1542 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
1543 if (UNTAG_Bool(REGB1
)) {
1545 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 293);
1547 fra
.me
.REG
[1] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
1548 /* ../lib/standard/collection/array.nit:24 */
1549 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1550 if (UNTAG_Bool(REGB1
)) {
1552 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1554 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1555 /* ../lib/standard/string.nit:596 */
1556 UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB1
)]=UNTAG_Char(REGB0
);;
1557 /* ../lib/standard/string.nit:294 */
1558 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1560 /* ../lib/standard/kernel.nit:235 */
1561 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1562 /* ../lib/standard/string.nit:294 */
1563 ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]) = REGB1
;
1564 stack_frame_head
= fra
.me
.prev
;
1567 void standard___string___Buffer___enlarge(val_t p0
, val_t p1
){
1568 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1574 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1575 fra
.me
.file
= LOCATE_standard___string
;
1577 fra
.me
.meth
= LOCATE_standard___string___Buffer___enlarge
;
1578 fra
.me
.has_broke
= 0;
1579 fra
.me
.REG_size
= 3;
1580 fra
.me
.nitni_local_ref_head
= NULL
;
1581 fra
.me
.REG
[0] = NIT_NULL
;
1582 fra
.me
.REG
[1] = NIT_NULL
;
1583 fra
.me
.REG
[2] = NIT_NULL
;
1586 /* ../lib/standard/string.nit:299 */
1587 REGB1
= TAG_Bool(ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0])!=NIT_NULL
);
1588 if (UNTAG_Bool(REGB1
)) {
1590 nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string
, 299);
1592 REGB1
= ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]);
1593 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1594 if (UNTAG_Bool(REGB2
)) {
1596 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1598 /* ../lib/standard/kernel.nit:231 */
1599 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<=UNTAG_Int(REGB1
));
1600 /* ../lib/standard/string.nit:300 */
1601 if (UNTAG_Bool(REGB2
)) {
1604 /* ../lib/standard/string.nit:301 */
1606 REGB2
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1607 if (UNTAG_Bool(REGB2
)) {
1609 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1611 /* ../lib/standard/kernel.nit:231 */
1612 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<=UNTAG_Int(REGB0
));
1613 /* ../lib/standard/string.nit:301 */
1614 if (UNTAG_Bool(REGB2
)) {
1616 /* ../lib/standard/kernel.nit:238 */
1617 REGB2
= TAG_Int(UNTAG_Int(REGB1
)*UNTAG_Int(REGB2
));
1618 /* ../lib/standard/string.nit:301 */
1620 /* ../lib/standard/kernel.nit:235 */
1621 REGB3
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB3
));
1622 /* ../lib/standard/string.nit:301 */
1629 /* ../lib/standard/string.nit:302 */
1631 /* ../lib/standard/kernel.nit:235 */
1632 REGB0
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB0
));
1633 /* ../lib/standard/string.nit:611 */
1634 fra
.me
.REG
[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB0
) * sizeof(char))));
1635 /* ../lib/standard/string.nit:303 */
1636 REGB0
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
1637 if (UNTAG_Bool(REGB0
)) {
1639 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 303);
1641 fra
.me
.REG
[2] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
1642 /* ../lib/standard/collection/array.nit:24 */
1643 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1644 if (UNTAG_Bool(REGB0
)) {
1646 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1648 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1649 /* ../lib/standard/string.nit:303 */
1652 /* ../lib/standard/string.nit:597 */
1653 (void)memcpy(UNBOX_NativeString(fra
.me
.REG
[1])+UNTAG_Int(REGB2
), UNBOX_NativeString(fra
.me
.REG
[2])+UNTAG_Int(REGB3
), UNTAG_Int(REGB0
));;
1654 /* ../lib/standard/string.nit:304 */
1655 ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
1656 /* ../lib/standard/string.nit:305 */
1657 ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]) = REGB1
;
1659 stack_frame_head
= fra
.me
.prev
;
1662 void standard___string___Buffer___append(val_t p0
, val_t p1
){
1663 struct {struct stack_frame_t me
; val_t MORE_REG
[4];} fra
;
1669 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1670 fra
.me
.file
= LOCATE_standard___string
;
1672 fra
.me
.meth
= LOCATE_standard___string___Buffer___append
;
1673 fra
.me
.has_broke
= 0;
1674 fra
.me
.REG_size
= 5;
1675 fra
.me
.nitni_local_ref_head
= NULL
;
1676 fra
.me
.REG
[0] = NIT_NULL
;
1677 fra
.me
.REG
[1] = NIT_NULL
;
1678 fra
.me
.REG
[2] = NIT_NULL
;
1679 fra
.me
.REG
[3] = NIT_NULL
;
1680 fra
.me
.REG
[4] = NIT_NULL
;
1683 /* ../lib/standard/string.nit:308 */
1684 fra
.me
.REG
[2] = fra
.me
.REG
[0];
1685 fra
.me
.REG
[3] = fra
.me
.REG
[1];
1686 /* ../lib/standard/string.nit:310 */
1687 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[3], COLOR_standard___string___String
, ID_standard___string___String
)) /*cast String*/;
1688 if (UNTAG_Bool(REGB0
)) {
1689 /* ../lib/standard/collection/array.nit:24 */
1690 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3])!=NIT_NULL
);
1691 if (UNTAG_Bool(REGB0
)) {
1693 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1695 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[3]);
1696 /* ../lib/standard/string.nit:312 */
1697 REGB1
= TAG_Bool(ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[2])!=NIT_NULL
);
1698 if (UNTAG_Bool(REGB1
)) {
1700 nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string
, 312);
1702 REGB1
= ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[2]);
1703 /* ../lib/standard/collection/array.nit:24 */
1704 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
1705 if (UNTAG_Bool(REGB2
)) {
1707 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1709 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
1710 /* ../lib/standard/kernel.nit:235 */
1711 REGB2
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB0
));
1712 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1713 if (UNTAG_Bool(REGB3
)) {
1715 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1717 /* ../lib/standard/kernel.nit:232 */
1718 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1719 /* ../lib/standard/string.nit:312 */
1720 if (UNTAG_Bool(REGB2
)) {
1721 /* ../lib/standard/collection/array.nit:24 */
1722 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
1723 if (UNTAG_Bool(REGB2
)) {
1725 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1727 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
1728 /* ../lib/standard/kernel.nit:235 */
1729 REGB2
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB0
));
1730 /* ../lib/standard/string.nit:312 */
1731 CALL_standard___collection___array___AbstractArray___enlarge(fra
.me
.REG
[2])(fra
.me
.REG
[2], REGB2
);
1733 /* ../lib/standard/string.nit:313 */
1734 fra
.me
.REG
[3] = CALL_standard___string___AbstractString___items(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
1735 REGB2
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[2])!=NIT_NULL
);
1736 if (UNTAG_Bool(REGB2
)) {
1738 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 313);
1740 fra
.me
.REG
[4] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[2]);
1742 /* ../lib/standard/collection/array.nit:24 */
1743 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
1744 if (UNTAG_Bool(REGB1
)) {
1746 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1748 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
1749 /* ../lib/standard/string.nit:597 */
1750 (void)memcpy(UNBOX_NativeString(fra
.me
.REG
[4])+UNTAG_Int(REGB1
), UNBOX_NativeString(fra
.me
.REG
[3])+UNTAG_Int(REGB2
), UNTAG_Int(REGB0
));;
1751 /* ../lib/standard/string.nit:314 */
1752 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
1753 /* ../lib/standard/kernel.nit:235 */
1754 REGB0
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB0
));
1755 /* ../lib/standard/string.nit:314 */
1756 ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]) = REGB0
;
1758 /* ../lib/standard/string.nit:316 */
1759 CALL_SUPER_standard___string___Buffer___append(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1761 stack_frame_head
= fra
.me
.prev
;
1764 val_t
standard___string___Buffer___to_s(val_t p0
){
1765 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1770 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1771 fra
.me
.file
= LOCATE_standard___string
;
1773 fra
.me
.meth
= LOCATE_standard___string___Buffer___to_s
;
1774 fra
.me
.has_broke
= 0;
1775 fra
.me
.REG_size
= 3;
1776 fra
.me
.nitni_local_ref_head
= NULL
;
1777 fra
.me
.REG
[0] = NIT_NULL
;
1778 fra
.me
.REG
[1] = NIT_NULL
;
1779 fra
.me
.REG
[2] = NIT_NULL
;
1781 /* ../lib/standard/collection/array.nit:24 */
1782 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1783 if (UNTAG_Bool(REGB0
)) {
1785 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1787 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1788 /* ../lib/standard/string.nit:323 */
1790 /* ../lib/standard/kernel.nit:235 */
1791 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
1792 /* ../lib/standard/string.nit:611 */
1793 fra
.me
.REG
[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1
) * sizeof(char))));
1794 /* ../lib/standard/string.nit:324 */
1795 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
1796 if (UNTAG_Bool(REGB1
)) {
1798 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 324);
1800 fra
.me
.REG
[2] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
1803 /* ../lib/standard/string.nit:597 */
1804 (void)memcpy(UNBOX_NativeString(fra
.me
.REG
[1])+UNTAG_Int(REGB2
), UNBOX_NativeString(fra
.me
.REG
[2])+UNTAG_Int(REGB1
), UNTAG_Int(REGB0
));;
1805 /* ../lib/standard/collection/array.nit:24 */
1806 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1807 if (UNTAG_Bool(REGB2
)) {
1809 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1811 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1812 /* ../lib/standard/string.nit:327 */
1813 REGB1
= TAG_Char('\0');
1814 /* ../lib/standard/string.nit:596 */
1815 UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB2
)]=UNTAG_Char(REGB1
);;
1816 /* ../lib/standard/collection/array.nit:24 */
1817 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1818 if (UNTAG_Bool(REGB1
)) {
1820 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1822 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1823 /* ../lib/standard/string.nit:329 */
1824 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB1
);
1827 stack_frame_head
= fra
.me
.prev
;
1828 return fra
.me
.REG
[1];
1830 val_t
standard___string___Buffer_____l(val_t p0
, val_t p1
){
1831 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1840 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1841 fra
.me
.file
= LOCATE_standard___string
;
1843 fra
.me
.meth
= LOCATE_standard___string___Buffer_____l
;
1844 fra
.me
.has_broke
= 0;
1845 fra
.me
.REG_size
= 2;
1846 fra
.me
.nitni_local_ref_head
= NULL
;
1847 fra
.me
.REG
[0] = NIT_NULL
;
1848 fra
.me
.REG
[1] = NIT_NULL
;
1851 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[1], VTCOLOR_standard___kernel___Comparable___OTHER(fra
.me
.REG
[0]), VTID_standard___kernel___Comparable___OTHER(fra
.me
.REG
[0]))) /*cast OTHER*/;
1852 if (UNTAG_Bool(REGB0
)) {
1854 nit_abort("Cast failed", NULL
, LOCATE_standard___string
, 0);
1856 /* ../lib/standard/string.nit:334 */
1858 /* ../lib/standard/collection/array.nit:24 */
1859 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1860 if (UNTAG_Bool(REGB1
)) {
1862 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1864 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1865 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
1866 if (UNTAG_Bool(REGB2
)) {
1868 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
1870 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
1871 /* ../lib/standard/string.nit:337 */
1873 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1874 if (UNTAG_Bool(REGB3
)) {
1876 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1878 /* ../lib/standard/kernel.nit:232 */
1879 REGB3
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1880 /* ../lib/standard/string.nit:337 */
1881 if (UNTAG_Bool(REGB3
)) {
1882 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
1883 if (UNTAG_Bool(REGB3
)) {
1885 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1887 /* ../lib/standard/kernel.nit:232 */
1888 REGB3
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
1890 /* ../lib/standard/string.nit:337 */
1891 REGB4
= TAG_Bool(false);
1894 if (UNTAG_Bool(REGB3
)) {
1895 /* ../lib/standard/string.nit:338 */
1896 REGB3
= CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
1897 /* ../lib/standard/kernel.nit:413 */
1898 REGB3
= TAG_Int((unsigned char)UNTAG_Char(REGB3
));
1899 /* ../lib/standard/string.nit:339 */
1900 REGB4
= CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
1901 /* ../lib/standard/kernel.nit:413 */
1902 REGB4
= TAG_Int((unsigned char)UNTAG_Char(REGB4
));
1903 REGB5
= TAG_Bool(VAL_ISA(REGB4
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
1904 if (UNTAG_Bool(REGB5
)) {
1906 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1908 /* ../lib/standard/kernel.nit:232 */
1909 REGB5
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB4
));
1910 /* ../lib/standard/string.nit:340 */
1911 if (UNTAG_Bool(REGB5
)) {
1912 /* ../lib/standard/string.nit:341 */
1913 REGB5
= TAG_Bool(true);
1916 REGB6
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
1917 if (UNTAG_Bool(REGB6
)) {
1919 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1921 /* ../lib/standard/kernel.nit:232 */
1922 REGB3
= TAG_Bool(UNTAG_Int(REGB4
)<UNTAG_Int(REGB3
));
1923 /* ../lib/standard/string.nit:342 */
1924 if (UNTAG_Bool(REGB3
)) {
1925 /* ../lib/standard/string.nit:343 */
1926 REGB3
= TAG_Bool(false);
1931 /* ../lib/standard/string.nit:345 */
1933 /* ../lib/standard/kernel.nit:235 */
1934 REGB3
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB3
));
1935 /* ../lib/standard/string.nit:345 */
1938 /* ../lib/standard/string.nit:337 */
1943 REGB0
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
1944 if (UNTAG_Bool(REGB0
)) {
1946 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
1948 /* ../lib/standard/kernel.nit:232 */
1949 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB2
));
1950 /* ../lib/standard/string.nit:347 */
1951 if (UNTAG_Bool(REGB2
)) {
1952 /* ../lib/standard/string.nit:348 */
1953 REGB2
= TAG_Bool(true);
1957 /* ../lib/standard/string.nit:350 */
1958 REGB2
= TAG_Bool(false);
1963 stack_frame_head
= fra
.me
.prev
;
1966 void standard___string___Buffer___init(val_t p0
, int* init_table
){
1967 int itpos2
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___string___Buffer
].i
;
1968 struct {struct stack_frame_t me
;} fra
;
1971 if (init_table
[itpos2
]) return;
1972 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1973 fra
.me
.file
= LOCATE_standard___string
;
1975 fra
.me
.meth
= LOCATE_standard___string___Buffer___init
;
1976 fra
.me
.has_broke
= 0;
1977 fra
.me
.REG_size
= 1;
1978 fra
.me
.nitni_local_ref_head
= NULL
;
1979 fra
.me
.REG
[0] = NIT_NULL
;
1981 /* ../lib/standard/string.nit:357 */
1983 CALL_standard___string___Buffer___with_capacity(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, init_table
);
1984 stack_frame_head
= fra
.me
.prev
;
1985 init_table
[itpos2
] = 1;
1988 void standard___string___Buffer___from(val_t p0
, val_t p1
, int* init_table
){
1989 int itpos3
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___string___Buffer
].i
;
1990 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1995 if (init_table
[itpos3
]) return;
1996 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1997 fra
.me
.file
= LOCATE_standard___string
;
1999 fra
.me
.meth
= LOCATE_standard___string___Buffer___from
;
2000 fra
.me
.has_broke
= 0;
2001 fra
.me
.REG_size
= 3;
2002 fra
.me
.nitni_local_ref_head
= NULL
;
2003 fra
.me
.REG
[0] = NIT_NULL
;
2004 fra
.me
.REG
[1] = NIT_NULL
;
2005 fra
.me
.REG
[2] = NIT_NULL
;
2008 /* ../lib/standard/collection/array.nit:24 */
2009 REGB0
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
2010 if (UNTAG_Bool(REGB0
)) {
2012 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
2014 REGB0
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
2015 /* ../lib/standard/string.nit:362 */
2017 /* ../lib/standard/kernel.nit:235 */
2018 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
2019 /* ../lib/standard/string.nit:362 */
2020 ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]) = REGB1
;
2021 /* ../lib/standard/collection/array.nit:24 */
2022 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
2023 if (UNTAG_Bool(REGB1
)) {
2025 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
2027 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
2028 /* ../lib/standard/string.nit:363 */
2029 ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]) = REGB1
;
2030 /* ../lib/standard/string.nit:364 */
2031 REGB1
= TAG_Bool(ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0])!=NIT_NULL
);
2032 if (UNTAG_Bool(REGB1
)) {
2034 nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string
, 364);
2036 REGB1
= ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]);
2037 /* ../lib/standard/string.nit:611 */
2038 fra
.me
.REG
[2] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1
) * sizeof(char))));
2039 /* ../lib/standard/string.nit:364 */
2040 ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
2041 /* ../lib/standard/string.nit:365 */
2042 fra
.me
.REG
[1] = CALL_standard___string___AbstractString___items(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2043 REGB1
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
2044 if (UNTAG_Bool(REGB1
)) {
2046 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 365);
2048 fra
.me
.REG
[2] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
2049 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
2050 if (UNTAG_Bool(REGB1
)) {
2052 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string
, 365);
2054 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
2057 /* ../lib/standard/string.nit:597 */
2058 (void)memcpy(UNBOX_NativeString(fra
.me
.REG
[2])+UNTAG_Int(REGB2
), UNBOX_NativeString(fra
.me
.REG
[1])+UNTAG_Int(REGB0
), UNTAG_Int(REGB1
));;
2059 stack_frame_head
= fra
.me
.prev
;
2060 init_table
[itpos3
] = 1;
2063 void standard___string___Buffer___with_capacity(val_t p0
, val_t p1
, int* init_table
){
2064 int itpos4
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___string___Buffer
].i
;
2065 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
2070 if (init_table
[itpos4
]) return;
2071 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2072 fra
.me
.file
= LOCATE_standard___string
;
2074 fra
.me
.meth
= LOCATE_standard___string___Buffer___with_capacity
;
2075 fra
.me
.has_broke
= 0;
2076 fra
.me
.REG_size
= 2;
2077 fra
.me
.nitni_local_ref_head
= NULL
;
2078 fra
.me
.REG
[0] = NIT_NULL
;
2079 fra
.me
.REG
[1] = NIT_NULL
;
2082 /* ../lib/standard/string.nit:371 */
2084 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
2085 if (UNTAG_Bool(REGB2
)) {
2087 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
2089 /* ../lib/standard/kernel.nit:233 */
2090 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
2091 /* ../lib/standard/string.nit:371 */
2092 if (UNTAG_Bool(REGB1
)) {
2094 nit_abort("Assert failed", NULL
, LOCATE_standard___string
, 371);
2096 /* ../lib/standard/string.nit:373 */
2098 /* ../lib/standard/kernel.nit:235 */
2099 REGB1
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB1
));
2100 /* ../lib/standard/string.nit:611 */
2101 fra
.me
.REG
[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1
) * sizeof(char))));
2102 /* ../lib/standard/string.nit:373 */
2103 ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
2104 /* ../lib/standard/string.nit:374 */
2105 ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]) = REGB0
;
2106 /* ../lib/standard/string.nit:375 */
2108 ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]) = REGB0
;
2109 stack_frame_head
= fra
.me
.prev
;
2110 init_table
[itpos4
] = 1;
2113 val_t
standard___string___Buffer_____eqeq(val_t p0
, val_t p1
){
2114 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
2122 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2123 fra
.me
.file
= LOCATE_standard___string
;
2125 fra
.me
.meth
= LOCATE_standard___string___Buffer_____eqeq
;
2126 fra
.me
.has_broke
= 0;
2127 fra
.me
.REG_size
= 2;
2128 fra
.me
.nitni_local_ref_head
= NULL
;
2129 fra
.me
.REG
[0] = NIT_NULL
;
2130 fra
.me
.REG
[1] = NIT_NULL
;
2133 /* ../lib/standard/string.nit:380 */
2134 REGB0
= TAG_Bool((fra
.me
.REG
[1]!=NIT_NULL
) && VAL_ISA(fra
.me
.REG
[1], COLOR_standard___string___Buffer
, ID_standard___string___Buffer
)) /*cast Buffer*/;
2135 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
2136 if (UNTAG_Bool(REGB0
)) {
2137 REGB0
= TAG_Bool(true);
2139 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2142 if (UNTAG_Bool(REGB0
)) {
2143 REGB0
= TAG_Bool(false);
2146 /* ../lib/standard/collection/array.nit:24 */
2147 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
2148 if (UNTAG_Bool(REGB1
)) {
2150 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
2152 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
2153 /* ../lib/standard/string.nit:382 */
2154 REGB2
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
2155 if (UNTAG_Bool(REGB2
)) {
2156 nit_abort("Reciever is null", NULL
, LOCATE_standard___string
, 382);
2158 /* ../lib/standard/collection/array.nit:24 */
2159 REGB2
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
2160 if (UNTAG_Bool(REGB2
)) {
2162 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
2164 REGB2
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[1]);
2165 /* ../lib/standard/string.nit:382 */
2166 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB1
));
2167 if (UNTAG_Bool(REGB3
)) {
2169 /* ../lib/standard/kernel.nit:227 */
2170 REGB2
= TAG_Bool((REGB2
)==(REGB1
));
2171 /* ../lib/standard/string.nit:382 */
2174 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
2175 if (UNTAG_Bool(REGB3
)) {
2176 REGB3
= TAG_Bool(false);
2180 /* ../lib/standard/string.nit:383 */
2182 /* ../lib/standard/string.nit:384 */
2183 REGB2
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0])!=NIT_NULL
);
2184 if (UNTAG_Bool(REGB2
)) {
2186 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 384);
2188 fra
.me
.REG
[0] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[0]);
2189 /* ../lib/standard/string.nit:385 */
2190 REGB2
= TAG_Bool(ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1])!=NIT_NULL
);
2191 if (UNTAG_Bool(REGB2
)) {
2193 nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string
, 385);
2195 fra
.me
.REG
[1] = ATTR_standard___string___AbstractString____items(fra
.me
.REG
[1]);
2196 /* ../lib/standard/string.nit:386 */
2198 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3
), VTID_standard___kernel___Comparable___OTHER(REGB3
))) /*cast OTHER*/;
2199 if (UNTAG_Bool(REGB2
)) {
2201 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
2203 /* ../lib/standard/kernel.nit:232 */
2204 REGB2
= TAG_Bool(UNTAG_Int(REGB3
)<UNTAG_Int(REGB1
));
2205 /* ../lib/standard/string.nit:386 */
2206 if (UNTAG_Bool(REGB2
)) {
2207 /* ../lib/standard/string.nit:595 */
2208 REGB2
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB3
)]);
2209 REGB4
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[1])[UNTAG_Int(REGB3
)]);
2210 /* ../lib/standard/string.nit:387 */
2211 REGB5
= TAG_Bool(IS_EQUAL_OO(REGB2
,REGB4
));
2212 if (UNTAG_Bool(REGB5
)) {
2214 /* ../lib/standard/kernel.nit:378 */
2215 REGB4
= TAG_Bool((REGB2
)==(REGB4
));
2216 /* ../lib/standard/string.nit:387 */
2219 REGB5
= TAG_Bool(!UNTAG_Bool(REGB5
));
2220 if (UNTAG_Bool(REGB5
)) {
2221 REGB5
= TAG_Bool(false);
2225 /* ../lib/standard/string.nit:388 */
2227 /* ../lib/standard/kernel.nit:235 */
2228 REGB5
= TAG_Int(UNTAG_Int(REGB3
)+UNTAG_Int(REGB5
));
2229 /* ../lib/standard/string.nit:388 */
2232 /* ../lib/standard/string.nit:386 */
2237 /* ../lib/standard/string.nit:390 */
2238 REGB3
= TAG_Bool(true);
2242 stack_frame_head
= fra
.me
.prev
;
2245 val_t
standard___string___Buffer___capacity(val_t p0
){
2246 struct {struct stack_frame_t me
;} fra
;
2249 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2250 fra
.me
.file
= LOCATE_standard___string
;
2252 fra
.me
.meth
= LOCATE_standard___string___Buffer___capacity
;
2253 fra
.me
.has_broke
= 0;
2254 fra
.me
.REG_size
= 1;
2255 fra
.me
.nitni_local_ref_head
= NULL
;
2256 fra
.me
.REG
[0] = NIT_NULL
;
2258 /* ../lib/standard/string.nit:393 */
2259 REGB0
= TAG_Bool(ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0])!=NIT_NULL
);
2260 if (UNTAG_Bool(REGB0
)) {
2262 nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string
, 393);
2264 REGB0
= ATTR_standard___string___Buffer____capacity(fra
.me
.REG
[0]);
2265 stack_frame_head
= fra
.me
.prev
;
2268 val_t
standard___string___Object___to_s(val_t p0
){
2269 struct {struct stack_frame_t me
;} fra
;
2271 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2272 fra
.me
.file
= LOCATE_standard___string
;
2274 fra
.me
.meth
= LOCATE_standard___string___Object___to_s
;
2275 fra
.me
.has_broke
= 0;
2276 fra
.me
.REG_size
= 1;
2277 fra
.me
.nitni_local_ref_head
= NULL
;
2278 fra
.me
.REG
[0] = NIT_NULL
;
2280 /* ../lib/standard/string.nit:404 */
2281 fra
.me
.REG
[0] = CALL_standard___string___Object___inspect(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2284 stack_frame_head
= fra
.me
.prev
;
2285 return fra
.me
.REG
[0];
2287 val_t
standard___string___Object___native_class_name(val_t p0
){
2288 struct {struct stack_frame_t me
;} fra
;
2290 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2291 fra
.me
.file
= LOCATE_standard___string
;
2293 fra
.me
.meth
= LOCATE_standard___string___Object___native_class_name
;
2294 fra
.me
.has_broke
= 0;
2295 fra
.me
.REG_size
= 1;
2296 fra
.me
.nitni_local_ref_head
= NULL
;
2297 fra
.me
.REG
[0] = NIT_NULL
;
2299 /* ../lib/standard/string.nit:406 */
2300 fra
.me
.REG
[0] = BOX_NativeString(VAL2VFT(fra
.me
.REG
[0])[2].cname
);;
2301 stack_frame_head
= fra
.me
.prev
;
2302 return fra
.me
.REG
[0];
2304 val_t
standard___string___Object___class_name(val_t p0
){
2305 struct {struct stack_frame_t me
;} fra
;
2307 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2308 fra
.me
.file
= LOCATE_standard___string
;
2310 fra
.me
.meth
= LOCATE_standard___string___Object___class_name
;
2311 fra
.me
.has_broke
= 0;
2312 fra
.me
.REG_size
= 1;
2313 fra
.me
.nitni_local_ref_head
= NULL
;
2314 fra
.me
.REG
[0] = NIT_NULL
;
2316 /* ../lib/standard/string.nit:411 */
2317 fra
.me
.REG
[0] = CALL_standard___string___Object___native_class_name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2318 fra
.me
.REG
[0] = NEW_String_standard___string___String___from_cstring(fra
.me
.REG
[0]);
2321 stack_frame_head
= fra
.me
.prev
;
2322 return fra
.me
.REG
[0];
2324 val_t
standard___string___Object___inspect(val_t p0
){
2325 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2328 static val_t once_value_1
; /* Once value */
2329 static val_t once_value_2
; /* Once value */
2330 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2331 fra
.me
.file
= LOCATE_standard___string
;
2333 fra
.me
.meth
= LOCATE_standard___string___Object___inspect
;
2334 fra
.me
.has_broke
= 0;
2335 fra
.me
.REG_size
= 3;
2336 fra
.me
.nitni_local_ref_head
= NULL
;
2337 fra
.me
.REG
[0] = NIT_NULL
;
2338 fra
.me
.REG
[1] = NIT_NULL
;
2339 fra
.me
.REG
[2] = NIT_NULL
;
2341 /* ../lib/standard/string.nit:417 */
2343 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2344 if (!once_value_1
) {
2345 fra
.me
.REG
[2] = BOX_NativeString("<");
2347 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2348 once_value_1
= fra
.me
.REG
[2];
2349 register_static_object(&once_value_1
);
2350 } else fra
.me
.REG
[2] = once_value_1
;
2351 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2352 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2353 fra
.me
.REG
[0] = CALL_standard___string___Object___inspect_head(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2354 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2355 if (!once_value_2
) {
2356 fra
.me
.REG
[0] = BOX_NativeString(">");
2358 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2359 once_value_2
= fra
.me
.REG
[0];
2360 register_static_object(&once_value_2
);
2361 } else fra
.me
.REG
[0] = once_value_2
;
2362 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2363 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2364 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2367 stack_frame_head
= fra
.me
.prev
;
2368 return fra
.me
.REG
[1];
2370 val_t
standard___string___Object___inspect_head(val_t p0
){
2371 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
2374 static val_t once_value_1
; /* Once value */
2375 static val_t once_value_2
; /* Once value */
2376 static val_t once_value_3
; /* Once value */
2377 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2378 fra
.me
.file
= LOCATE_standard___string
;
2380 fra
.me
.meth
= LOCATE_standard___string___Object___inspect_head
;
2381 fra
.me
.has_broke
= 0;
2382 fra
.me
.REG_size
= 3;
2383 fra
.me
.nitni_local_ref_head
= NULL
;
2384 fra
.me
.REG
[0] = NIT_NULL
;
2385 fra
.me
.REG
[1] = NIT_NULL
;
2386 fra
.me
.REG
[2] = NIT_NULL
;
2388 /* ../lib/standard/string.nit:424 */
2390 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
2391 if (!once_value_1
) {
2392 fra
.me
.REG
[2] = BOX_NativeString("");
2394 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2395 once_value_1
= fra
.me
.REG
[2];
2396 register_static_object(&once_value_1
);
2397 } else fra
.me
.REG
[2] = once_value_1
;
2398 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2399 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2400 fra
.me
.REG
[2] = CALL_standard___string___Object___class_name(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2401 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2402 if (!once_value_2
) {
2403 fra
.me
.REG
[2] = BOX_NativeString(":#");
2405 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2406 once_value_2
= fra
.me
.REG
[2];
2407 register_static_object(&once_value_2
);
2408 } else fra
.me
.REG
[2] = once_value_2
;
2409 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2410 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
2411 REGB0
= CALL_standard___kernel___Object___object_id(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2412 fra
.me
.REG
[0] = CALL_standard___string___Int___to_hex(REGB0
)(REGB0
);
2413 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2414 if (!once_value_3
) {
2415 fra
.me
.REG
[0] = BOX_NativeString("");
2417 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2418 once_value_3
= fra
.me
.REG
[0];
2419 register_static_object(&once_value_3
);
2420 } else fra
.me
.REG
[0] = once_value_3
;
2421 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2422 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[0]);
2423 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2426 stack_frame_head
= fra
.me
.prev
;
2427 return fra
.me
.REG
[1];
2429 val_t
standard___string___Object___args(val_t p0
){
2430 struct {struct stack_frame_t me
;} fra
;
2432 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2433 fra
.me
.file
= LOCATE_standard___string
;
2435 fra
.me
.meth
= LOCATE_standard___string___Object___args
;
2436 fra
.me
.has_broke
= 0;
2437 fra
.me
.REG_size
= 1;
2438 fra
.me
.nitni_local_ref_head
= NULL
;
2439 fra
.me
.REG
[0] = NIT_NULL
;
2441 /* ../lib/standard/string.nit:429 */
2442 fra
.me
.REG
[0] = CALL_standard___kernel___Object___sys(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2443 fra
.me
.REG
[0] = CALL_standard___string___Object___args(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2446 stack_frame_head
= fra
.me
.prev
;
2447 return fra
.me
.REG
[0];
2449 val_t
standard___string___Bool___to_s(val_t p0
){
2450 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
2453 static val_t once_value_1
; /* Once value */
2454 static val_t once_value_2
; /* Once value */
2455 static val_t once_value_4
; /* Once value */
2456 static val_t once_value_5
; /* Once value */
2457 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2458 fra
.me
.file
= LOCATE_standard___string
;
2460 fra
.me
.meth
= LOCATE_standard___string___Bool___to_s
;
2461 fra
.me
.has_broke
= 0;
2462 fra
.me
.REG_size
= 2;
2463 fra
.me
.nitni_local_ref_head
= NULL
;
2464 fra
.me
.REG
[0] = NIT_NULL
;
2465 fra
.me
.REG
[1] = NIT_NULL
;
2467 /* ../lib/standard/string.nit:436 */
2468 if (UNTAG_Bool(REGB0
)) {
2469 /* ../lib/standard/string.nit:437 */
2470 if (!once_value_1
) {
2471 if (!once_value_2
) {
2472 fra
.me
.REG
[0] = BOX_NativeString("true");
2474 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB0
);
2475 once_value_2
= fra
.me
.REG
[0];
2476 register_static_object(&once_value_2
);
2477 } else fra
.me
.REG
[0] = once_value_2
;
2478 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2479 once_value_1
= fra
.me
.REG
[0];
2480 register_static_object(&once_value_1
);
2481 } else fra
.me
.REG
[0] = once_value_1
;
2482 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2485 /* ../lib/standard/string.nit:439 */
2486 if (!once_value_4
) {
2487 if (!once_value_5
) {
2488 fra
.me
.REG
[1] = BOX_NativeString("false");
2490 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
2491 once_value_5
= fra
.me
.REG
[1];
2492 register_static_object(&once_value_5
);
2493 } else fra
.me
.REG
[1] = once_value_5
;
2494 fra
.me
.REG
[1] = fra
.me
.REG
[1];
2495 once_value_4
= fra
.me
.REG
[1];
2496 register_static_object(&once_value_4
);
2497 } else fra
.me
.REG
[1] = once_value_4
;
2498 fra
.me
.REG
[1] = fra
.me
.REG
[1];
2499 fra
.me
.REG
[0] = fra
.me
.REG
[1];
2503 stack_frame_head
= fra
.me
.prev
;
2504 return fra
.me
.REG
[0];
2506 void standard___string___Int___fill_buffer(val_t p0
, val_t p1
, val_t p2
, val_t p3
){
2507 struct {struct stack_frame_t me
;} fra
;
2514 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2515 fra
.me
.file
= LOCATE_standard___string
;
2517 fra
.me
.meth
= LOCATE_standard___string___Int___fill_buffer
;
2518 fra
.me
.has_broke
= 0;
2519 fra
.me
.REG_size
= 1;
2520 fra
.me
.nitni_local_ref_head
= NULL
;
2521 fra
.me
.REG
[0] = NIT_NULL
;
2526 /* ../lib/standard/string.nit:451 */
2528 REGB3
= TAG_Bool(VAL_ISA(REGB2
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
2529 if (UNTAG_Bool(REGB3
)) {
2531 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
2533 /* ../lib/standard/kernel.nit:232 */
2534 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB2
));
2535 /* ../lib/standard/string.nit:451 */
2536 if (UNTAG_Bool(REGB2
)) {
2537 /* ../lib/standard/kernel.nit:236 */
2538 REGB2
= TAG_Int(-UNTAG_Int(REGB0
));
2539 /* ../lib/standard/string.nit:453 */
2541 REGB4
= TAG_Char('-');
2542 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB3
, REGB4
);
2544 /* ../lib/standard/string.nit:454 */
2546 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB4
));
2547 if (UNTAG_Bool(REGB3
)) {
2549 /* ../lib/standard/kernel.nit:227 */
2550 REGB4
= TAG_Bool((REGB0
)==(REGB4
));
2551 /* ../lib/standard/string.nit:454 */
2554 if (UNTAG_Bool(REGB3
)) {
2555 /* ../lib/standard/string.nit:455 */
2557 REGB4
= TAG_Char('0');
2558 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB3
, REGB4
);
2559 /* ../lib/standard/string.nit:456 */
2562 /* ../lib/standard/string.nit:458 */
2566 /* ../lib/standard/string.nit:461 */
2567 REGB0
= CALL_standard___kernel___Int___digit_count(REGB0
)(REGB0
, REGB1
);
2569 /* ../lib/standard/kernel.nit:237 */
2570 REGB4
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB4
));
2571 /* ../lib/standard/string.nit:462 */
2574 REGB3
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4
), VTID_standard___kernel___Comparable___OTHER(REGB4
))) /*cast OTHER*/;
2575 if (UNTAG_Bool(REGB3
)) {
2577 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
2579 /* ../lib/standard/kernel.nit:233 */
2580 REGB0
= TAG_Bool(UNTAG_Int(REGB4
)>=UNTAG_Int(REGB0
));
2581 /* ../lib/standard/string.nit:462 */
2582 if (UNTAG_Bool(REGB0
)) {
2584 REGB3
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
2585 if (UNTAG_Bool(REGB3
)) {
2587 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
2589 /* ../lib/standard/kernel.nit:234 */
2590 REGB0
= TAG_Bool(UNTAG_Int(REGB2
)>UNTAG_Int(REGB0
));
2592 /* ../lib/standard/string.nit:462 */
2593 REGB3
= TAG_Bool(false);
2596 if (UNTAG_Bool(REGB0
)) {
2597 /* ../lib/standard/kernel.nit:240 */
2598 REGB0
= TAG_Int(UNTAG_Int(REGB2
)%UNTAG_Int(REGB1
));
2599 /* ../lib/standard/string.nit:463 */
2600 REGB0
= CALL_standard___kernel___Int___to_c(REGB0
)(REGB0
);
2601 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB4
, REGB0
);
2602 /* ../lib/standard/kernel.nit:239 */
2603 REGB0
= TAG_Int(UNTAG_Int(REGB2
)/UNTAG_Int(REGB1
));
2604 /* ../lib/standard/string.nit:464 */
2606 /* ../lib/standard/string.nit:465 */
2608 /* ../lib/standard/kernel.nit:237 */
2609 REGB0
= TAG_Int(UNTAG_Int(REGB4
)-UNTAG_Int(REGB0
));
2610 /* ../lib/standard/string.nit:465 */
2613 /* ../lib/standard/string.nit:462 */
2619 stack_frame_head
= fra
.me
.prev
;
2622 val_t
standard___string___Int___to_s(val_t p0
){
2623 struct {struct stack_frame_t me
;} fra
;
2628 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2629 fra
.me
.file
= LOCATE_standard___string
;
2631 fra
.me
.meth
= LOCATE_standard___string___Int___to_s
;
2632 fra
.me
.has_broke
= 0;
2633 fra
.me
.REG_size
= 1;
2634 fra
.me
.nitni_local_ref_head
= NULL
;
2635 fra
.me
.REG
[0] = NIT_NULL
;
2637 /* ../lib/standard/string.nit:470 */
2638 REGB1
= TAG_Int(10);
2639 REGB2
= TAG_Bool(true);
2640 fra
.me
.REG
[0] = CALL_standard___string___Int___to_base(REGB0
)(REGB0
, REGB1
, REGB2
);
2643 stack_frame_head
= fra
.me
.prev
;
2644 return fra
.me
.REG
[0];
2646 val_t
standard___string___Int___to_hex(val_t p0
){
2647 struct {struct stack_frame_t me
;} fra
;
2652 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2653 fra
.me
.file
= LOCATE_standard___string
;
2655 fra
.me
.meth
= LOCATE_standard___string___Int___to_hex
;
2656 fra
.me
.has_broke
= 0;
2657 fra
.me
.REG_size
= 1;
2658 fra
.me
.nitni_local_ref_head
= NULL
;
2659 fra
.me
.REG
[0] = NIT_NULL
;
2661 /* ../lib/standard/string.nit:473 */
2662 REGB1
= TAG_Int(16);
2663 REGB2
= TAG_Bool(false);
2664 fra
.me
.REG
[0] = CALL_standard___string___Int___to_base(REGB0
)(REGB0
, REGB1
, REGB2
);
2667 stack_frame_head
= fra
.me
.prev
;
2668 return fra
.me
.REG
[0];
2670 val_t
standard___string___Int___to_base(val_t p0
, val_t p1
, val_t p2
){
2671 struct {struct stack_frame_t me
;} fra
;
2678 static val_t once_value_1
; /* Once value */
2679 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2680 fra
.me
.file
= LOCATE_standard___string
;
2682 fra
.me
.meth
= LOCATE_standard___string___Int___to_base
;
2683 fra
.me
.has_broke
= 0;
2684 fra
.me
.REG_size
= 1;
2685 fra
.me
.nitni_local_ref_head
= NULL
;
2686 fra
.me
.REG
[0] = NIT_NULL
;
2690 /* ../lib/standard/string.nit:478 */
2691 REGB3
= CALL_standard___kernel___Int___digit_count(REGB0
)(REGB0
, REGB1
);
2692 /* ../lib/standard/string.nit:479 */
2693 if (!once_value_1
) {
2694 fra
.me
.REG
[0] = BOX_NativeString(" ");
2696 fra
.me
.REG
[0] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[0], REGB4
);
2697 once_value_1
= fra
.me
.REG
[0];
2698 register_static_object(&once_value_1
);
2699 } else fra
.me
.REG
[0] = once_value_1
;
2700 fra
.me
.REG
[0] = fra
.me
.REG
[0];
2701 fra
.me
.REG
[0] = CALL_standard___string___String_____star(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB3
);
2702 fra
.me
.REG
[0] = NEW_Buffer_standard___string___Buffer___from(fra
.me
.REG
[0]);
2703 /* ../lib/standard/string.nit:480 */
2704 CALL_standard___string___Int___fill_buffer(REGB0
)(REGB0
, fra
.me
.REG
[0], REGB1
, REGB2
);
2705 /* ../lib/standard/string.nit:481 */
2706 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2709 stack_frame_head
= fra
.me
.prev
;
2710 return fra
.me
.REG
[0];
2712 val_t
standard___string___Float___to_s(val_t p0
){
2713 struct {struct stack_frame_t me
;} fra
;
2716 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2717 fra
.me
.file
= LOCATE_standard___string
;
2719 fra
.me
.meth
= LOCATE_standard___string___Float___to_s
;
2720 fra
.me
.has_broke
= 0;
2721 fra
.me
.REG_size
= 1;
2722 fra
.me
.nitni_local_ref_head
= NULL
;
2723 fra
.me
.REG
[0] = NIT_NULL
;
2725 /* ../lib/standard/string.nit:486 */
2727 fra
.me
.REG
[0] = CALL_standard___string___Float___to_precision(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
2730 stack_frame_head
= fra
.me
.prev
;
2731 return fra
.me
.REG
[0];
2733 val_t
standard___string___Float___to_precision(val_t p0
, val_t p1
){
2734 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
2740 static val_t once_value_3
; /* Once value */
2741 static val_t once_value_4
; /* Once value */
2742 static val_t once_value_5
; /* Once value */
2743 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2744 fra
.me
.file
= LOCATE_standard___string
;
2746 fra
.me
.meth
= LOCATE_standard___string___Float___to_precision
;
2747 fra
.me
.has_broke
= 0;
2748 fra
.me
.REG_size
= 4;
2749 fra
.me
.nitni_local_ref_head
= NULL
;
2750 fra
.me
.REG
[0] = NIT_NULL
;
2751 fra
.me
.REG
[1] = NIT_NULL
;
2752 fra
.me
.REG
[2] = NIT_NULL
;
2753 fra
.me
.REG
[3] = NIT_NULL
;
2756 /* ../lib/standard/string.nit:491 */
2758 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB0
,REGB1
));
2759 if (UNTAG_Bool(REGB2
)) {
2761 /* ../lib/standard/kernel.nit:227 */
2762 REGB1
= TAG_Bool((REGB0
)==(REGB1
));
2763 /* ../lib/standard/string.nit:491 */
2766 if (UNTAG_Bool(REGB2
)) {
2767 /* ../lib/standard/kernel.nit:216 */
2768 REGB2
= TAG_Int((bigint
)UNBOX_Float(fra
.me
.REG
[0]));
2769 /* ../lib/standard/string.nit:491 */
2770 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(REGB2
)(REGB2
);
2773 /* ../lib/standard/kernel.nit:216 */
2774 REGB2
= TAG_Int((bigint
)UNBOX_Float(fra
.me
.REG
[0]));
2775 /* ../lib/standard/string.nit:494 */
2776 fra
.me
.REG
[2] = BOX_Float(1.0);
2777 /* ../lib/standard/string.nit:495 */
2780 REGB3
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
2781 if (UNTAG_Bool(REGB3
)) {
2783 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
2785 /* ../lib/standard/kernel.nit:234 */
2786 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>UNTAG_Int(REGB1
));
2787 /* ../lib/standard/string.nit:495 */
2788 if (UNTAG_Bool(REGB1
)) {
2789 /* ../lib/standard/string.nit:496 */
2790 fra
.me
.REG
[3] = BOX_Float(10.0);
2791 /* ../lib/standard/kernel.nit:213 */
2792 fra
.me
.REG
[3] = BOX_Float(UNBOX_Float(fra
.me
.REG
[2])*UNBOX_Float(fra
.me
.REG
[3]));
2793 /* ../lib/standard/string.nit:496 */
2794 fra
.me
.REG
[2] = fra
.me
.REG
[3];
2795 /* ../lib/standard/string.nit:497 */
2797 /* ../lib/standard/kernel.nit:237 */
2798 REGB1
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB1
));
2799 /* ../lib/standard/string.nit:497 */
2802 /* ../lib/standard/string.nit:495 */
2807 /* ../lib/standard/kernel.nit:244 */
2808 fra
.me
.REG
[3] = BOX_Float((float)UNTAG_Int(REGB2
));
2809 /* ../lib/standard/kernel.nit:212 */
2810 fra
.me
.REG
[3] = BOX_Float(UNBOX_Float(fra
.me
.REG
[0])-UNBOX_Float(fra
.me
.REG
[3]));
2811 /* ../lib/standard/kernel.nit:213 */
2812 fra
.me
.REG
[2] = BOX_Float(UNBOX_Float(fra
.me
.REG
[3])*UNBOX_Float(fra
.me
.REG
[2]));
2813 /* ../lib/standard/kernel.nit:216 */
2814 REGB0
= TAG_Int((bigint
)UNBOX_Float(fra
.me
.REG
[2]));
2815 /* ../lib/standard/string.nit:500 */
2817 fra
.me
.REG
[2] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
2818 if (!once_value_3
) {
2819 fra
.me
.REG
[3] = BOX_NativeString("");
2821 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB1
);
2822 once_value_3
= fra
.me
.REG
[3];
2823 register_static_object(&once_value_3
);
2824 } else fra
.me
.REG
[3] = once_value_3
;
2825 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2826 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2827 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB2
)(REGB2
);
2828 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2829 if (!once_value_4
) {
2830 fra
.me
.REG
[3] = BOX_NativeString(".");
2832 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB2
);
2833 once_value_4
= fra
.me
.REG
[3];
2834 register_static_object(&once_value_4
);
2835 } else fra
.me
.REG
[3] = once_value_4
;
2836 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2837 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2838 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(REGB0
)(REGB0
);
2839 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2840 if (!once_value_5
) {
2841 fra
.me
.REG
[3] = BOX_NativeString("");
2843 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
2844 once_value_5
= fra
.me
.REG
[3];
2845 register_static_object(&once_value_5
);
2846 } else fra
.me
.REG
[3] = once_value_5
;
2847 fra
.me
.REG
[3] = fra
.me
.REG
[3];
2848 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[3]);
2849 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
2850 fra
.me
.REG
[1] = fra
.me
.REG
[2];
2853 stack_frame_head
= fra
.me
.prev
;
2854 return fra
.me
.REG
[1];
2856 val_t
standard___string___Char___to_s(val_t p0
){
2857 struct {struct stack_frame_t me
;} fra
;
2861 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2862 fra
.me
.file
= LOCATE_standard___string
;
2864 fra
.me
.meth
= LOCATE_standard___string___Char___to_s
;
2865 fra
.me
.has_broke
= 0;
2866 fra
.me
.REG_size
= 1;
2867 fra
.me
.nitni_local_ref_head
= NULL
;
2868 fra
.me
.REG
[0] = NIT_NULL
;
2870 /* ../lib/standard/string.nit:507 */
2872 fra
.me
.REG
[0] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB1
);
2873 /* ../lib/standard/string.nit:508 */
2875 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
, REGB0
);
2876 /* ../lib/standard/string.nit:509 */
2877 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2880 stack_frame_head
= fra
.me
.prev
;
2881 return fra
.me
.REG
[0];
2883 val_t
standard___string___Collection___to_s(val_t p0
){
2884 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
2886 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2887 fra
.me
.file
= LOCATE_standard___string
;
2889 fra
.me
.meth
= LOCATE_standard___string___Collection___to_s
;
2890 fra
.me
.has_broke
= 0;
2891 fra
.me
.REG_size
= 2;
2892 fra
.me
.nitni_local_ref_head
= NULL
;
2893 fra
.me
.REG
[0] = NIT_NULL
;
2894 fra
.me
.REG
[1] = NIT_NULL
;
2896 /* ../lib/standard/string.nit:517 */
2897 fra
.me
.REG
[1] = NEW_Buffer_standard___string___Buffer___init();
2898 CALL_standard___collection___abstract_collection___Collection___iterate(fra
.me
.REG
[0])(fra
.me
.REG
[0], (&(fra
.me
)), ((fun_t
)OC_standard___string___Collection___to_s_1
));
2899 /* ../lib/standard/string.nit:519 */
2900 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
2903 stack_frame_head
= fra
.me
.prev
;
2904 return fra
.me
.REG
[1];
2906 void OC_standard___string___Collection___to_s_1(struct stack_frame_t
*closctx
, val_t p0
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
){
2907 struct {struct stack_frame_t me
;} fra
;
2912 /* ../lib/standard/string.nit:518 */
2913 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2914 fra
.me
.file
= LOCATE_standard___string
;
2916 fra
.me
.meth
= LOCATE_standard___string___Collection___to_s
;
2917 fra
.me
.has_broke
= 0;
2918 fra
.me
.REG_size
= 1;
2919 fra
.me
.nitni_local_ref_head
= NULL
;
2920 fra
.me
.REG
[0] = NIT_NULL
;
2921 fra
.me
.closure_ctx
= closctx_param
;
2922 fra
.me
.closure_funs
= CREG
;
2924 CREG
[0] = clos_fun0
;
2925 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
2926 if (UNTAG_Bool(REGB0
)) {
2928 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
2929 if (UNTAG_Bool(REGB1
)) {
2930 REGB1
= TAG_Bool(false);
2933 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
2937 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
2938 if (UNTAG_Bool(REGB0
)) {
2939 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
2940 if (UNTAG_Bool(REGB0
)) {
2941 nit_abort("Reciever is null", NULL
, LOCATE_standard___string
, 518);
2943 fra
.me
.REG
[0] = CALL_standard___string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2944 CALL_standard___collection___abstract_collection___Sequence___append(closctx
->REG
[1])(closctx
->REG
[1], fra
.me
.REG
[0]);
2946 stack_frame_head
= fra
.me
.prev
;
2949 val_t
standard___string___Collection___join(val_t p0
, val_t p1
){
2950 struct {struct stack_frame_t me
; val_t MORE_REG
[5];} fra
;
2954 static val_t once_value_1
; /* Once value */
2955 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
2956 fra
.me
.file
= LOCATE_standard___string
;
2958 fra
.me
.meth
= LOCATE_standard___string___Collection___join
;
2959 fra
.me
.has_broke
= 0;
2960 fra
.me
.REG_size
= 6;
2961 fra
.me
.nitni_local_ref_head
= NULL
;
2962 fra
.me
.REG
[0] = NIT_NULL
;
2963 fra
.me
.REG
[1] = NIT_NULL
;
2964 fra
.me
.REG
[2] = NIT_NULL
;
2965 fra
.me
.REG
[3] = NIT_NULL
;
2966 fra
.me
.REG
[4] = NIT_NULL
;
2967 fra
.me
.REG
[5] = NIT_NULL
;
2970 /* ../lib/standard/string.nit:525 */
2971 REGB0
= CALL_standard___collection___abstract_collection___Collection___is_empty(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2972 if (UNTAG_Bool(REGB0
)) {
2973 if (!once_value_1
) {
2974 fra
.me
.REG
[2] = BOX_NativeString("");
2976 fra
.me
.REG
[2] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[2], REGB0
);
2977 once_value_1
= fra
.me
.REG
[2];
2978 register_static_object(&once_value_1
);
2979 } else fra
.me
.REG
[2] = once_value_1
;
2980 fra
.me
.REG
[2] = fra
.me
.REG
[2];
2983 /* ../lib/standard/string.nit:527 */
2984 fra
.me
.REG
[3] = NEW_Buffer_standard___string___Buffer___init();
2985 /* ../lib/standard/string.nit:530 */
2986 fra
.me
.REG
[0] = CALL_standard___collection___abstract_collection___Collection___iterator(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2987 /* ../lib/standard/string.nit:531 */
2988 fra
.me
.REG
[4] = CALL_standard___collection___abstract_collection___Iterator___item(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
2989 /* ../lib/standard/string.nit:532 */
2990 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2991 if (UNTAG_Bool(REGB0
)) {
2993 REGB1
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
2994 if (UNTAG_Bool(REGB1
)) {
2995 REGB1
= TAG_Bool(false);
2998 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[4])(fra
.me
.REG
[4], NIT_NULL
);
3002 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
3003 if (UNTAG_Bool(REGB0
)) {
3004 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
3005 if (UNTAG_Bool(REGB0
)) {
3006 nit_abort("Reciever is null", NULL
, LOCATE_standard___string
, 532);
3008 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
3009 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
3011 /* ../lib/standard/string.nit:535 */
3012 CALL_standard___collection___abstract_collection___Iterator___next(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3013 /* ../lib/standard/string.nit:536 */
3015 REGB0
= CALL_standard___collection___abstract_collection___Iterator___is_ok(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3016 if (UNTAG_Bool(REGB0
)) {
3017 /* ../lib/standard/string.nit:537 */
3018 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[1]);
3019 /* ../lib/standard/string.nit:538 */
3020 fra
.me
.REG
[5] = CALL_standard___collection___abstract_collection___Iterator___item(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3021 fra
.me
.REG
[4] = fra
.me
.REG
[5];
3022 /* ../lib/standard/string.nit:539 */
3023 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
3024 if (UNTAG_Bool(REGB0
)) {
3026 REGB1
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
3027 if (UNTAG_Bool(REGB1
)) {
3028 REGB1
= TAG_Bool(false);
3031 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[4])(fra
.me
.REG
[4], NIT_NULL
);
3035 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
3036 if (UNTAG_Bool(REGB0
)) {
3037 REGB0
= TAG_Bool(fra
.me
.REG
[4]==NIT_NULL
);
3038 if (UNTAG_Bool(REGB0
)) {
3039 nit_abort("Reciever is null", NULL
, LOCATE_standard___string
, 539);
3041 fra
.me
.REG
[5] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
3042 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[3])(fra
.me
.REG
[3], fra
.me
.REG
[5]);
3044 /* ../lib/standard/string.nit:540 */
3045 CALL_standard___collection___abstract_collection___Iterator___next(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3047 /* ../lib/standard/string.nit:536 */
3052 /* ../lib/standard/string.nit:542 */
3053 fra
.me
.REG
[3] = CALL_standard___string___Object___to_s(fra
.me
.REG
[3])(fra
.me
.REG
[3]);
3054 fra
.me
.REG
[2] = fra
.me
.REG
[3];
3057 stack_frame_head
= fra
.me
.prev
;
3058 return fra
.me
.REG
[2];
3060 val_t
standard___string___Array___to_s(val_t p0
){
3061 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
3068 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3069 fra
.me
.file
= LOCATE_standard___string
;
3071 fra
.me
.meth
= LOCATE_standard___string___Array___to_s
;
3072 fra
.me
.has_broke
= 0;
3073 fra
.me
.REG_size
= 3;
3074 fra
.me
.nitni_local_ref_head
= NULL
;
3075 fra
.me
.REG
[0] = NIT_NULL
;
3076 fra
.me
.REG
[1] = NIT_NULL
;
3077 fra
.me
.REG
[2] = NIT_NULL
;
3079 /* ../lib/standard/string.nit:550 */
3080 fra
.me
.REG
[1] = NEW_Buffer_standard___string___Buffer___init();
3081 /* ../lib/standard/string.nit:551 */
3083 /* ../lib/standard/collection/array.nit:24 */
3084 REGB1
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
3085 if (UNTAG_Bool(REGB1
)) {
3087 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 24);
3089 REGB1
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[0]);
3090 /* ../lib/standard/string.nit:553 */
3092 REGB2
= TAG_Bool(VAL_ISA(REGB1
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0
), VTID_standard___kernel___Comparable___OTHER(REGB0
))) /*cast OTHER*/;
3093 if (UNTAG_Bool(REGB2
)) {
3095 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
3097 /* ../lib/standard/kernel.nit:232 */
3098 REGB2
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
3099 /* ../lib/standard/string.nit:553 */
3100 if (UNTAG_Bool(REGB2
)) {
3101 /* ../lib/standard/collection/array.nit:278 */
3102 fra
.me
.REG
[2] = fra
.me
.REG
[0];
3104 /* ../lib/standard/collection/array.nit:280 */
3106 REGB4
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
3107 if (UNTAG_Bool(REGB4
)) {
3109 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
3111 /* ../lib/standard/kernel.nit:233 */
3112 REGB3
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB3
));
3113 /* ../lib/standard/collection/array.nit:280 */
3114 if (UNTAG_Bool(REGB3
)) {
3115 REGB3
= TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
3116 if (UNTAG_Bool(REGB3
)) {
3118 nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array
, 280);
3120 REGB3
= ATTR_standard___collection___array___AbstractArrayRead____length(fra
.me
.REG
[2]);
3121 REGB4
= TAG_Bool(VAL_ISA(REGB3
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2
), VTID_standard___kernel___Comparable___OTHER(REGB2
))) /*cast OTHER*/;
3122 if (UNTAG_Bool(REGB4
)) {
3124 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
3126 /* ../lib/standard/kernel.nit:232 */
3127 REGB3
= TAG_Bool(UNTAG_Int(REGB2
)<UNTAG_Int(REGB3
));
3129 /* ../lib/standard/collection/array.nit:280 */
3130 REGB4
= TAG_Bool(false);
3133 if (UNTAG_Bool(REGB3
)) {
3135 nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array
, 280);
3137 /* ../lib/standard/collection/array.nit:281 */
3138 fra
.me
.REG
[2] = ATTR_standard___collection___array___Array____items(fra
.me
.REG
[2]);
3139 REGB3
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
3140 if (UNTAG_Bool(REGB3
)) {
3141 nit_abort("Reciever is null", NULL
, LOCATE_standard___collection___array
, 281);
3143 /* ../lib/standard/collection/array.nit:718 */
3144 fra
.me
.REG
[2] = ((Nit_NativeArray
)fra
.me
.REG
[2])->val
[UNTAG_Int(REGB2
)];
3145 /* ../lib/standard/collection/array.nit:281 */
3148 /* ../lib/standard/string.nit:555 */
3149 REGB2
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
3150 if (UNTAG_Bool(REGB2
)) {
3152 REGB3
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
3153 if (UNTAG_Bool(REGB3
)) {
3154 REGB3
= TAG_Bool(false);
3157 REGB3
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
3161 REGB2
= TAG_Bool(!UNTAG_Bool(REGB2
));
3162 if (UNTAG_Bool(REGB2
)) {
3163 REGB2
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
3164 if (UNTAG_Bool(REGB2
)) {
3165 nit_abort("Reciever is null", NULL
, LOCATE_standard___string
, 555);
3167 fra
.me
.REG
[2] = CALL_standard___string___Object___to_s(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
3168 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2]);
3170 /* ../lib/standard/string.nit:556 */
3172 /* ../lib/standard/kernel.nit:235 */
3173 REGB2
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB2
));
3174 /* ../lib/standard/string.nit:556 */
3177 /* ../lib/standard/string.nit:553 */
3182 /* ../lib/standard/string.nit:558 */
3183 fra
.me
.REG
[1] = CALL_standard___string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3186 stack_frame_head
= fra
.me
.prev
;
3187 return fra
.me
.REG
[1];
3189 val_t
standard___string___Map___join(val_t p0
, val_t p1
, val_t p2
){
3190 struct {struct stack_frame_t me
; val_t MORE_REG
[8];} fra
;
3194 static val_t once_value_1
; /* Once value */
3195 static val_t once_value_3
; /* Once value */
3196 static val_t once_value_4
; /* Once value */
3197 static val_t once_value_5
; /* Once value */
3198 static val_t once_value_6
; /* Once value */
3199 static val_t once_value_7
; /* Once value */
3200 static val_t once_value_8
; /* Once value */
3201 static val_t once_value_9
; /* Once value */
3202 static val_t once_value_10
; /* Once value */
3203 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3204 fra
.me
.file
= LOCATE_standard___string
;
3206 fra
.me
.meth
= LOCATE_standard___string___Map___join
;
3207 fra
.me
.has_broke
= 0;
3208 fra
.me
.REG_size
= 9;
3209 fra
.me
.nitni_local_ref_head
= NULL
;
3210 fra
.me
.REG
[0] = NIT_NULL
;
3211 fra
.me
.REG
[1] = NIT_NULL
;
3212 fra
.me
.REG
[2] = NIT_NULL
;
3213 fra
.me
.REG
[3] = NIT_NULL
;
3214 fra
.me
.REG
[4] = NIT_NULL
;
3215 fra
.me
.REG
[5] = NIT_NULL
;
3216 fra
.me
.REG
[6] = NIT_NULL
;
3217 fra
.me
.REG
[7] = NIT_NULL
;
3218 fra
.me
.REG
[8] = NIT_NULL
;
3222 /* ../lib/standard/string.nit:566 */
3223 REGB0
= CALL_standard___collection___abstract_collection___MapRead___is_empty(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3224 if (UNTAG_Bool(REGB0
)) {
3225 if (!once_value_1
) {
3226 fra
.me
.REG
[3] = BOX_NativeString("");
3228 fra
.me
.REG
[3] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[3], REGB0
);
3229 once_value_1
= fra
.me
.REG
[3];
3230 register_static_object(&once_value_1
);
3231 } else fra
.me
.REG
[3] = once_value_1
;
3232 fra
.me
.REG
[3] = fra
.me
.REG
[3];
3235 /* ../lib/standard/string.nit:568 */
3236 fra
.me
.REG
[4] = NEW_Buffer_standard___string___Buffer___init();
3237 /* ../lib/standard/string.nit:571 */
3238 fra
.me
.REG
[0] = CALL_standard___collection___abstract_collection___MapRead___iterator(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3239 /* ../lib/standard/string.nit:572 */
3240 fra
.me
.REG
[5] = CALL_standard___collection___abstract_collection___MapIterator___key(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3241 /* ../lib/standard/string.nit:573 */
3242 fra
.me
.REG
[6] = CALL_standard___collection___abstract_collection___MapIterator___item(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3243 /* ../lib/standard/string.nit:574 */
3244 REGB0
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
3245 if (UNTAG_Bool(REGB0
)) {
3247 REGB1
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
3248 if (UNTAG_Bool(REGB1
)) {
3249 REGB1
= TAG_Bool(false);
3252 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[6])(fra
.me
.REG
[6], NIT_NULL
);
3256 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
3257 if (UNTAG_Bool(REGB0
)) {
3259 fra
.me
.REG
[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3260 if (!once_value_3
) {
3261 fra
.me
.REG
[8] = BOX_NativeString("");
3263 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3264 once_value_3
= fra
.me
.REG
[8];
3265 register_static_object(&once_value_3
);
3266 } else fra
.me
.REG
[8] = once_value_3
;
3267 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3268 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3269 fra
.me
.REG
[8] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
3270 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3271 if (!once_value_4
) {
3272 fra
.me
.REG
[8] = BOX_NativeString("");
3274 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3275 once_value_4
= fra
.me
.REG
[8];
3276 register_static_object(&once_value_4
);
3277 } else fra
.me
.REG
[8] = once_value_4
;
3278 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3279 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3280 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[2]);
3281 if (!once_value_5
) {
3282 fra
.me
.REG
[8] = BOX_NativeString("");
3284 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3285 once_value_5
= fra
.me
.REG
[8];
3286 register_static_object(&once_value_5
);
3287 } else fra
.me
.REG
[8] = once_value_5
;
3288 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3289 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3290 fra
.me
.REG
[8] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
3291 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3292 if (!once_value_6
) {
3293 fra
.me
.REG
[8] = BOX_NativeString("");
3295 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3296 once_value_6
= fra
.me
.REG
[8];
3297 register_static_object(&once_value_6
);
3298 } else fra
.me
.REG
[8] = once_value_6
;
3299 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3300 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3301 fra
.me
.REG
[7] = CALL_standard___string___Object___to_s(fra
.me
.REG
[7])(fra
.me
.REG
[7]);
3302 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[7]);
3304 /* ../lib/standard/string.nit:577 */
3305 CALL_standard___collection___abstract_collection___MapIterator___next(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3306 /* ../lib/standard/string.nit:578 */
3308 REGB0
= CALL_standard___collection___abstract_collection___MapIterator___is_ok(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3309 if (UNTAG_Bool(REGB0
)) {
3310 /* ../lib/standard/string.nit:579 */
3311 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[1]);
3312 /* ../lib/standard/string.nit:580 */
3313 fra
.me
.REG
[7] = CALL_standard___collection___abstract_collection___MapIterator___key(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3314 fra
.me
.REG
[5] = fra
.me
.REG
[7];
3315 /* ../lib/standard/string.nit:581 */
3316 fra
.me
.REG
[7] = CALL_standard___collection___abstract_collection___MapIterator___item(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3317 fra
.me
.REG
[6] = fra
.me
.REG
[7];
3318 /* ../lib/standard/string.nit:582 */
3319 REGB0
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
3320 if (UNTAG_Bool(REGB0
)) {
3322 REGB1
= TAG_Bool(fra
.me
.REG
[6]==NIT_NULL
);
3323 if (UNTAG_Bool(REGB1
)) {
3324 REGB1
= TAG_Bool(false);
3327 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[6])(fra
.me
.REG
[6], NIT_NULL
);
3331 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
3332 if (UNTAG_Bool(REGB0
)) {
3334 fra
.me
.REG
[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0
);
3335 if (!once_value_7
) {
3336 fra
.me
.REG
[8] = BOX_NativeString("");
3338 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3339 once_value_7
= fra
.me
.REG
[8];
3340 register_static_object(&once_value_7
);
3341 } else fra
.me
.REG
[8] = once_value_7
;
3342 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3343 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3344 fra
.me
.REG
[8] = CALL_standard___string___Object___to_s(fra
.me
.REG
[5])(fra
.me
.REG
[5]);
3345 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3346 if (!once_value_8
) {
3347 fra
.me
.REG
[8] = BOX_NativeString("");
3349 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3350 once_value_8
= fra
.me
.REG
[8];
3351 register_static_object(&once_value_8
);
3352 } else fra
.me
.REG
[8] = once_value_8
;
3353 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3354 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3355 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[2]);
3356 if (!once_value_9
) {
3357 fra
.me
.REG
[8] = BOX_NativeString("");
3359 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3360 once_value_9
= fra
.me
.REG
[8];
3361 register_static_object(&once_value_9
);
3362 } else fra
.me
.REG
[8] = once_value_9
;
3363 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3364 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3365 fra
.me
.REG
[8] = CALL_standard___string___Object___to_s(fra
.me
.REG
[6])(fra
.me
.REG
[6]);
3366 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3367 if (!once_value_10
) {
3368 fra
.me
.REG
[8] = BOX_NativeString("");
3370 fra
.me
.REG
[8] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[8], REGB0
);
3371 once_value_10
= fra
.me
.REG
[8];
3372 register_static_object(&once_value_10
);
3373 } else fra
.me
.REG
[8] = once_value_10
;
3374 fra
.me
.REG
[8] = fra
.me
.REG
[8];
3375 CALL_standard___collection___abstract_collection___SimpleCollection___add(fra
.me
.REG
[7])(fra
.me
.REG
[7], fra
.me
.REG
[8]);
3376 fra
.me
.REG
[7] = CALL_standard___string___Object___to_s(fra
.me
.REG
[7])(fra
.me
.REG
[7]);
3377 CALL_standard___collection___abstract_collection___Sequence___append(fra
.me
.REG
[4])(fra
.me
.REG
[4], fra
.me
.REG
[7]);
3379 /* ../lib/standard/string.nit:583 */
3380 CALL_standard___collection___abstract_collection___MapIterator___next(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3382 /* ../lib/standard/string.nit:578 */
3387 /* ../lib/standard/string.nit:585 */
3388 fra
.me
.REG
[4] = CALL_standard___string___Object___to_s(fra
.me
.REG
[4])(fra
.me
.REG
[4]);
3389 fra
.me
.REG
[3] = fra
.me
.REG
[4];
3392 stack_frame_head
= fra
.me
.prev
;
3393 return fra
.me
.REG
[3];
3395 val_t
standard___string___NativeString_____bra(val_t p0
, val_t p1
){
3396 struct {struct stack_frame_t me
;} fra
;
3399 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3400 fra
.me
.file
= LOCATE_standard___string
;
3402 fra
.me
.meth
= LOCATE_standard___string___NativeString_____bra
;
3403 fra
.me
.has_broke
= 0;
3404 fra
.me
.REG_size
= 1;
3405 fra
.me
.nitni_local_ref_head
= NULL
;
3406 fra
.me
.REG
[0] = NIT_NULL
;
3409 /* ../lib/standard/string.nit:595 */
3410 REGB0
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB0
)]);
3411 stack_frame_head
= fra
.me
.prev
;
3414 void standard___string___NativeString_____braeq(val_t p0
, val_t p1
, val_t p2
){
3415 struct {struct stack_frame_t me
;} fra
;
3419 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3420 fra
.me
.file
= LOCATE_standard___string
;
3422 fra
.me
.meth
= LOCATE_standard___string___NativeString_____braeq
;
3423 fra
.me
.has_broke
= 0;
3424 fra
.me
.REG_size
= 1;
3425 fra
.me
.nitni_local_ref_head
= NULL
;
3426 fra
.me
.REG
[0] = NIT_NULL
;
3430 /* ../lib/standard/string.nit:596 */
3431 UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB0
)]=UNTAG_Char(REGB1
);;
3432 stack_frame_head
= fra
.me
.prev
;
3435 void standard___string___NativeString___copy_to(val_t p0
, val_t p1
, val_t p2
, val_t p3
, val_t p4
){
3436 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
3441 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3442 fra
.me
.file
= LOCATE_standard___string
;
3444 fra
.me
.meth
= LOCATE_standard___string___NativeString___copy_to
;
3445 fra
.me
.has_broke
= 0;
3446 fra
.me
.REG_size
= 2;
3447 fra
.me
.nitni_local_ref_head
= NULL
;
3448 fra
.me
.REG
[0] = NIT_NULL
;
3449 fra
.me
.REG
[1] = NIT_NULL
;
3455 /* ../lib/standard/string.nit:597 */
3456 (void)memcpy(UNBOX_NativeString(fra
.me
.REG
[1])+UNTAG_Int(REGB2
), UNBOX_NativeString(fra
.me
.REG
[0])+UNTAG_Int(REGB1
), UNTAG_Int(REGB0
));;
3457 stack_frame_head
= fra
.me
.prev
;
3460 val_t
standard___string___NativeString___cstring_length(val_t p0
){
3461 struct {struct stack_frame_t me
;} fra
;
3467 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3468 fra
.me
.file
= LOCATE_standard___string
;
3470 fra
.me
.meth
= LOCATE_standard___string___NativeString___cstring_length
;
3471 fra
.me
.has_broke
= 0;
3472 fra
.me
.REG_size
= 1;
3473 fra
.me
.nitni_local_ref_head
= NULL
;
3474 fra
.me
.REG
[0] = NIT_NULL
;
3476 /* ../lib/standard/string.nit:602 */
3478 /* ../lib/standard/string.nit:603 */
3480 /* ../lib/standard/string.nit:595 */
3481 REGB1
= TAG_Char(UNBOX_NativeString(fra
.me
.REG
[0])[UNTAG_Int(REGB0
)]);
3482 /* ../lib/standard/string.nit:603 */
3483 REGB2
= TAG_Char('\0');
3484 REGB3
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB2
));
3485 if (UNTAG_Bool(REGB3
)) {
3487 /* ../lib/standard/kernel.nit:378 */
3488 REGB2
= TAG_Bool((REGB1
)==(REGB2
));
3489 /* ../lib/standard/string.nit:603 */
3492 REGB3
= TAG_Bool(!UNTAG_Bool(REGB3
));
3493 if (UNTAG_Bool(REGB3
)) {
3495 /* ../lib/standard/kernel.nit:235 */
3496 REGB3
= TAG_Int(UNTAG_Int(REGB0
)+UNTAG_Int(REGB3
));
3497 /* ../lib/standard/string.nit:603 */
3504 /* ../lib/standard/string.nit:604 */
3507 stack_frame_head
= fra
.me
.prev
;
3510 val_t
standard___string___NativeString___atoi(val_t p0
){
3511 struct {struct stack_frame_t me
;} fra
;
3514 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3515 fra
.me
.file
= LOCATE_standard___string
;
3517 fra
.me
.meth
= LOCATE_standard___string___NativeString___atoi
;
3518 fra
.me
.has_broke
= 0;
3519 fra
.me
.REG_size
= 1;
3520 fra
.me
.nitni_local_ref_head
= NULL
;
3521 fra
.me
.REG
[0] = NIT_NULL
;
3523 /* ../lib/standard/string.nit:606 */
3524 REGB0
= TAG_Int(atoi(UNBOX_NativeString(fra
.me
.REG
[0])));
3525 stack_frame_head
= fra
.me
.prev
;
3528 void standard___string___NativeString___init(val_t p0
, int* init_table
){
3529 int itpos5
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_standard___string___NativeString
].i
;
3530 struct {struct stack_frame_t me
;} fra
;
3532 if (init_table
[itpos5
]) return;
3533 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3534 fra
.me
.file
= LOCATE_standard___string
;
3536 fra
.me
.meth
= LOCATE_standard___string___NativeString___init
;
3537 fra
.me
.has_broke
= 0;
3538 fra
.me
.REG_size
= 0;
3539 fra
.me
.nitni_local_ref_head
= NULL
;
3540 stack_frame_head
= fra
.me
.prev
;
3541 init_table
[itpos5
] = 1;
3544 val_t
standard___string___StringCapable___calloc_string(val_t p0
, val_t p1
){
3545 struct {struct stack_frame_t me
;} fra
;
3548 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3549 fra
.me
.file
= LOCATE_standard___string
;
3551 fra
.me
.meth
= LOCATE_standard___string___StringCapable___calloc_string
;
3552 fra
.me
.has_broke
= 0;
3553 fra
.me
.REG_size
= 1;
3554 fra
.me
.nitni_local_ref_head
= NULL
;
3555 fra
.me
.REG
[0] = NIT_NULL
;
3558 /* ../lib/standard/string.nit:611 */
3559 fra
.me
.REG
[0] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB0
) * sizeof(char))));
3560 stack_frame_head
= fra
.me
.prev
;
3561 return fra
.me
.REG
[0];
3563 val_t
standard___string___Sys___args(val_t p0
){
3564 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
3568 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3569 fra
.me
.file
= LOCATE_standard___string
;
3571 fra
.me
.meth
= LOCATE_standard___string___Sys___args
;
3572 fra
.me
.has_broke
= 0;
3573 fra
.me
.REG_size
= 3;
3574 fra
.me
.nitni_local_ref_head
= NULL
;
3575 fra
.me
.REG
[0] = NIT_NULL
;
3576 fra
.me
.REG
[1] = NIT_NULL
;
3577 fra
.me
.REG
[2] = NIT_NULL
;
3579 /* ../lib/standard/string.nit:617 */
3580 fra
.me
.REG
[1] = fra
.me
.REG
[0];
3581 /* ../lib/standard/string.nit:619 */
3582 fra
.me
.REG
[2] = ATTR_standard___string___Sys____args_cache(fra
.me
.REG
[1]);
3583 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
3584 if (UNTAG_Bool(REGB0
)) {
3586 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
3587 if (UNTAG_Bool(REGB1
)) {
3588 REGB1
= TAG_Bool(false);
3591 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
3595 if (UNTAG_Bool(REGB0
)) {
3596 CALL_standard___string___Sys___init_args(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
3598 /* ../lib/standard/string.nit:620 */
3599 fra
.me
.REG
[1] = ATTR_standard___string___Sys____args_cache(fra
.me
.REG
[1]);
3600 REGB0
= TAG_Bool(fra
.me
.REG
[1]!=NIT_NULL
);
3601 if (UNTAG_Bool(REGB0
)) {
3603 nit_abort("Cast failed", NULL
, LOCATE_standard___string
, 620);
3607 stack_frame_head
= fra
.me
.prev
;
3608 return fra
.me
.REG
[1];
3610 val_t
standard___string___Sys___program_name(val_t p0
){
3611 struct {struct stack_frame_t me
;} fra
;
3614 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3615 fra
.me
.file
= LOCATE_standard___string
;
3617 fra
.me
.meth
= LOCATE_standard___string___Sys___program_name
;
3618 fra
.me
.has_broke
= 0;
3619 fra
.me
.REG_size
= 1;
3620 fra
.me
.nitni_local_ref_head
= NULL
;
3621 fra
.me
.REG
[0] = NIT_NULL
;
3623 /* ../lib/standard/string.nit:626 */
3625 fra
.me
.REG
[0] = CALL_standard___string___Sys___native_argv(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
3626 fra
.me
.REG
[0] = NEW_String_standard___string___String___from_cstring(fra
.me
.REG
[0]);
3629 stack_frame_head
= fra
.me
.prev
;
3630 return fra
.me
.REG
[0];
3632 void standard___string___Sys___init_args(val_t p0
){
3633 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
3638 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3639 fra
.me
.file
= LOCATE_standard___string
;
3641 fra
.me
.meth
= LOCATE_standard___string___Sys___init_args
;
3642 fra
.me
.has_broke
= 0;
3643 fra
.me
.REG_size
= 3;
3644 fra
.me
.nitni_local_ref_head
= NULL
;
3645 fra
.me
.REG
[0] = NIT_NULL
;
3646 fra
.me
.REG
[1] = NIT_NULL
;
3647 fra
.me
.REG
[2] = NIT_NULL
;
3649 /* ../lib/standard/string.nit:632 */
3650 REGB0
= CALL_standard___string___Sys___native_argc(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
3651 /* ../lib/standard/string.nit:633 */
3653 fra
.me
.REG
[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1
);
3654 /* ../lib/standard/string.nit:634 */
3656 /* ../lib/standard/string.nit:635 */
3658 REGB2
= TAG_Bool(VAL_ISA(REGB0
, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1
), VTID_standard___kernel___Comparable___OTHER(REGB1
))) /*cast OTHER*/;
3659 if (UNTAG_Bool(REGB2
)) {
3661 nit_abort("Cast failed", NULL
, LOCATE_standard___kernel
, 0);
3663 /* ../lib/standard/kernel.nit:232 */
3664 REGB2
= TAG_Bool(UNTAG_Int(REGB1
)<UNTAG_Int(REGB0
));
3665 /* ../lib/standard/string.nit:635 */
3666 if (UNTAG_Bool(REGB2
)) {
3667 /* ../lib/standard/string.nit:636 */
3669 /* ../lib/standard/kernel.nit:237 */
3670 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
3671 /* ../lib/standard/string.nit:636 */
3672 fra
.me
.REG
[2] = CALL_standard___string___Sys___native_argv(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
);
3673 fra
.me
.REG
[2] = NEW_String_standard___string___String___from_cstring(fra
.me
.REG
[2]);
3674 CALL_standard___collection___abstract_collection___Sequence_____braeq(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB2
, fra
.me
.REG
[2]);
3675 /* ../lib/standard/string.nit:637 */
3677 /* ../lib/standard/kernel.nit:235 */
3678 REGB2
= TAG_Int(UNTAG_Int(REGB1
)+UNTAG_Int(REGB2
));
3679 /* ../lib/standard/string.nit:637 */
3682 /* ../lib/standard/string.nit:635 */
3687 /* ../lib/standard/string.nit:639 */
3688 ATTR_standard___string___Sys____args_cache(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
3689 stack_frame_head
= fra
.me
.prev
;
3692 val_t
standard___string___Sys___native_argc(val_t p0
){
3693 struct {struct stack_frame_t me
;} fra
;
3696 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3697 fra
.me
.file
= LOCATE_standard___string
;
3699 fra
.me
.meth
= LOCATE_standard___string___Sys___native_argc
;
3700 fra
.me
.has_broke
= 0;
3701 fra
.me
.REG_size
= 1;
3702 fra
.me
.nitni_local_ref_head
= NULL
;
3703 fra
.me
.REG
[0] = NIT_NULL
;
3705 /* ../lib/standard/string.nit:642 */
3706 REGB0
= Sys_native_argc___out(fra
.me
.REG
[0]);
3707 stack_frame_head
= fra
.me
.prev
;
3710 val_t
standard___string___Sys___native_argv(val_t p0
, val_t p1
){
3711 struct {struct stack_frame_t me
;} fra
;
3714 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
3715 fra
.me
.file
= LOCATE_standard___string
;
3717 fra
.me
.meth
= LOCATE_standard___string___Sys___native_argv
;
3718 fra
.me
.has_broke
= 0;
3719 fra
.me
.REG_size
= 1;
3720 fra
.me
.nitni_local_ref_head
= NULL
;
3721 fra
.me
.REG
[0] = NIT_NULL
;
3724 /* ../lib/standard/string.nit:644 */
3725 fra
.me
.REG
[0] = Sys_native_argv___out(fra
.me
.REG
[0], REGB0
);
3726 stack_frame_head
= fra
.me
.prev
;
3727 return fra
.me
.REG
[0];