1 /* This C file is generated by NIT to compile module file. */
3 void file___Object___printn(val_t p0
, val_t p1
){
4 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
7 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
8 fra
.me
.file
= LOCATE_file
;
10 fra
.me
.meth
= LOCATE_file___Object___printn
;
13 fra
.me
.REG
[0] = NIT_NULL
;
14 fra
.me
.REG
[1] = NIT_NULL
;
17 REGB0
= TAG_Bool(VAL_ISA(fra
.me
.REG
[1], COLOR_Array
, ID_Array
)) /*cast Array[Object]*/;
18 /* ./../lib/standard//file.nit:25 */
19 if (UNTAG_Bool(REGB0
)) {
21 fprintf(stderr
, "Cast failed");
22 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 25);
25 fra
.me
.REG
[0] = CALL_file___Object___stdout(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
26 fra
.me
.REG
[1] = CALL_string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
27 /* ./../lib/standard//file.nit:28 */
28 CALL_stream___OStream___write(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
29 stack_frame_head
= fra
.me
.prev
;
32 void file___Object___print(val_t p0
, val_t p1
){
33 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
36 static val_t once_value_1
; /* Once value */
37 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
38 fra
.me
.file
= LOCATE_file
;
40 fra
.me
.meth
= LOCATE_file___Object___print
;
43 fra
.me
.REG
[0] = NIT_NULL
;
44 fra
.me
.REG
[1] = NIT_NULL
;
45 fra
.me
.REG
[2] = NIT_NULL
;
48 fra
.me
.REG
[2] = CALL_file___Object___stdout(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
49 fra
.me
.REG
[1] = CALL_string___Object___to_s(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
50 /* ./../lib/standard//file.nit:34 */
51 CALL_stream___OStream___write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
52 fra
.me
.REG
[0] = CALL_file___Object___stdout(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
53 /* ./../lib/standard//file.nit:35 */
55 fra
.me
.REG
[1] = BOX_NativeString("\n");
57 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
58 once_value_1
= fra
.me
.REG
[1];
59 register_static_object(&once_value_1
);
60 } else fra
.me
.REG
[1] = once_value_1
;
61 CALL_stream___OStream___write(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
62 stack_frame_head
= fra
.me
.prev
;
65 val_t
file___Object___getc(val_t p0
){
66 struct {struct stack_frame_t me
;} fra
;
69 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
70 fra
.me
.file
= LOCATE_file
;
72 fra
.me
.meth
= LOCATE_file___Object___getc
;
75 fra
.me
.REG
[0] = NIT_NULL
;
77 fra
.me
.REG
[0] = CALL_file___Object___stdin(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
78 REGB0
= CALL_stream___IStream___read_char(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
79 REGB0
= TAG_Char(UNTAG_Int(REGB0
));
80 /* ./../lib/standard//file.nit:41 */
83 stack_frame_head
= fra
.me
.prev
;
86 val_t
file___Object___gets(val_t p0
){
87 struct {struct stack_frame_t me
;} fra
;
89 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
90 fra
.me
.file
= LOCATE_file
;
92 fra
.me
.meth
= LOCATE_file___Object___gets
;
95 fra
.me
.REG
[0] = NIT_NULL
;
97 fra
.me
.REG
[0] = CALL_file___Object___stdin(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
98 fra
.me
.REG
[0] = CALL_stream___IStream___read_line(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
99 /* ./../lib/standard//file.nit:47 */
102 stack_frame_head
= fra
.me
.prev
;
103 return fra
.me
.REG
[0];
105 val_t
file___Object___stdin(val_t p0
){
106 struct {struct stack_frame_t me
;} fra
;
108 static val_t once_value_1
; /* Once value */
109 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
110 fra
.me
.file
= LOCATE_file
;
112 fra
.me
.meth
= LOCATE_file___Object___stdin
;
113 fra
.me
.has_broke
= 0;
115 fra
.me
.REG
[0] = NIT_NULL
;
117 /* ./../lib/standard//file.nit:292 */
119 fra
.me
.REG
[0] = NEW_Stdin_file___Stdin___init();
120 once_value_1
= fra
.me
.REG
[0];
121 register_static_object(&once_value_1
);
122 } else fra
.me
.REG
[0] = once_value_1
;
125 stack_frame_head
= fra
.me
.prev
;
126 return fra
.me
.REG
[0];
128 val_t
file___Object___stdout(val_t p0
){
129 struct {struct stack_frame_t me
;} fra
;
131 static val_t once_value_1
; /* Once value */
132 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
133 fra
.me
.file
= LOCATE_file
;
135 fra
.me
.meth
= LOCATE_file___Object___stdout
;
136 fra
.me
.has_broke
= 0;
138 fra
.me
.REG
[0] = NIT_NULL
;
140 /* ./../lib/standard//file.nit:295 */
142 fra
.me
.REG
[0] = NEW_Stdout_file___Stdout___init();
143 once_value_1
= fra
.me
.REG
[0];
144 register_static_object(&once_value_1
);
145 } else fra
.me
.REG
[0] = once_value_1
;
148 stack_frame_head
= fra
.me
.prev
;
149 return fra
.me
.REG
[0];
151 val_t
file___Object___stderr(val_t p0
){
152 struct {struct stack_frame_t me
;} fra
;
154 static val_t once_value_1
; /* Once value */
155 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
156 fra
.me
.file
= LOCATE_file
;
158 fra
.me
.meth
= LOCATE_file___Object___stderr
;
159 fra
.me
.has_broke
= 0;
161 fra
.me
.REG
[0] = NIT_NULL
;
163 /* ./../lib/standard//file.nit:298 */
165 fra
.me
.REG
[0] = NEW_Stderr_file___Stderr___init();
166 once_value_1
= fra
.me
.REG
[0];
167 register_static_object(&once_value_1
);
168 } else fra
.me
.REG
[0] = once_value_1
;
171 stack_frame_head
= fra
.me
.prev
;
172 return fra
.me
.REG
[0];
174 val_t
file___FStream___path(val_t p0
){
175 struct {struct stack_frame_t me
;} fra
;
177 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
178 fra
.me
.file
= LOCATE_file
;
180 fra
.me
.meth
= LOCATE_file___FStream___path
;
181 fra
.me
.has_broke
= 0;
183 fra
.me
.REG
[0] = NIT_NULL
;
185 fra
.me
.REG
[0] = ATTR_file___FStream____path(fra
.me
.REG
[0]);
186 /* ./../lib/standard//file.nit:55 */
187 stack_frame_head
= fra
.me
.prev
;
188 return fra
.me
.REG
[0];
190 val_t
file___FStream___file_stat(val_t p0
){
191 struct {struct stack_frame_t me
;} fra
;
194 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
195 fra
.me
.file
= LOCATE_file
;
197 fra
.me
.meth
= LOCATE_file___FStream___file_stat
;
198 fra
.me
.has_broke
= 0;
200 fra
.me
.REG
[0] = NIT_NULL
;
202 fra
.me
.REG
[0] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
203 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
204 /* ./../lib/standard//file.nit:62 */
205 if (UNTAG_Bool(REGB0
)) {
206 fprintf(stderr
, "Reciever is null");
207 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 62);
210 fra
.me
.REG
[0] = CALL_file___NativeFile___file_stat(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
213 stack_frame_head
= fra
.me
.prev
;
214 return fra
.me
.REG
[0];
216 void file___IFStream___close(val_t p0
){
217 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
220 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
221 fra
.me
.file
= LOCATE_file
;
223 fra
.me
.meth
= LOCATE_file___IFStream___close
;
224 fra
.me
.has_broke
= 0;
226 fra
.me
.REG
[0] = NIT_NULL
;
227 fra
.me
.REG
[1] = NIT_NULL
;
229 fra
.me
.REG
[1] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
230 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
231 /* ./../lib/standard//file.nit:82 */
232 if (UNTAG_Bool(REGB0
)) {
233 fprintf(stderr
, "Reciever is null");
234 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 82);
237 REGB0
= CALL_file___NativeFile___io_close(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
238 REGB0
= TAG_Bool(true);
239 /* ./../lib/standard//file.nit:83 */
240 ATTR_file___IFStream____end_reached(fra
.me
.REG
[0]) = REGB0
;
241 stack_frame_head
= fra
.me
.prev
;
244 void file___IFStream___fill_buffer(val_t p0
){
245 struct {struct stack_frame_t me
; val_t MORE_REG
[3];} fra
;
249 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
250 fra
.me
.file
= LOCATE_file
;
252 fra
.me
.meth
= LOCATE_file___IFStream___fill_buffer
;
253 fra
.me
.has_broke
= 0;
255 fra
.me
.REG
[0] = NIT_NULL
;
256 fra
.me
.REG
[1] = NIT_NULL
;
257 fra
.me
.REG
[2] = NIT_NULL
;
258 fra
.me
.REG
[3] = NIT_NULL
;
260 fra
.me
.REG
[1] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
261 fra
.me
.REG
[2] = ATTR_stream___BufferedIStream____buffer(fra
.me
.REG
[0]);
262 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
263 /* ./../lib/standard//file.nit:89 */
264 if (UNTAG_Bool(REGB0
)) {
265 fprintf(stderr
, "Reciever is null");
266 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 89);
269 REGB0
= TAG_Bool(ATTR_string___AbstractString____items(fra
.me
.REG
[2])!=NIT_NULL
);
270 if (UNTAG_Bool(REGB0
)) {
272 fprintf(stderr
, "Uninitialized attribute %s", "_items");
273 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 89);
276 fra
.me
.REG
[2] = ATTR_string___AbstractString____items(fra
.me
.REG
[2]);
277 fra
.me
.REG
[3] = ATTR_stream___BufferedIStream____buffer(fra
.me
.REG
[0]);
278 REGB0
= TAG_Bool(fra
.me
.REG
[3]==NIT_NULL
);
279 if (UNTAG_Bool(REGB0
)) {
280 fprintf(stderr
, "Reciever is null");
281 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 89);
284 REGB0
= TAG_Bool(ATTR_string___Buffer____capacity(fra
.me
.REG
[3])!=NIT_NULL
);
285 if (UNTAG_Bool(REGB0
)) {
287 fprintf(stderr
, "Uninitialized attribute %s", "_capacity");
288 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 89);
291 REGB0
= ATTR_string___Buffer____capacity(fra
.me
.REG
[3]);
292 REGB1
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
293 if (UNTAG_Bool(REGB1
)) {
294 fprintf(stderr
, "Reciever is null");
295 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 89);
298 REGB0
= CALL_file___NativeFile___io_read(fra
.me
.REG
[1])(fra
.me
.REG
[1], fra
.me
.REG
[2], REGB0
);
300 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<=UNTAG_Int(REGB1
));
301 /* ./../lib/standard//file.nit:90 */
302 if (UNTAG_Bool(REGB1
)) {
303 REGB1
= TAG_Bool(true);
304 /* ./../lib/standard//file.nit:91 */
305 ATTR_file___IFStream____end_reached(fra
.me
.REG
[0]) = REGB1
;
308 /* ./../lib/standard//file.nit:92 */
310 fra
.me
.REG
[2] = ATTR_stream___BufferedIStream____buffer(fra
.me
.REG
[0]);
311 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
312 /* ./../lib/standard//file.nit:94 */
313 if (UNTAG_Bool(REGB1
)) {
314 fprintf(stderr
, "Reciever is null");
315 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 94);
318 ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[2]) = REGB0
;
320 /* ./../lib/standard//file.nit:95 */
321 ATTR_stream___BufferedIStream____buffer_pos(fra
.me
.REG
[0]) = REGB0
;
322 stack_frame_head
= fra
.me
.prev
;
325 val_t
file___IFStream___end_reached(val_t p0
){
326 struct {struct stack_frame_t me
;} fra
;
329 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
330 fra
.me
.file
= LOCATE_file
;
332 fra
.me
.meth
= LOCATE_file___IFStream___end_reached
;
333 fra
.me
.has_broke
= 0;
335 fra
.me
.REG
[0] = NIT_NULL
;
337 REGB0
= TAG_Bool(ATTR_file___IFStream____end_reached(fra
.me
.REG
[0])!=NIT_NULL
);
338 /* ./../lib/standard//file.nit:98 */
339 if (UNTAG_Bool(REGB0
)) {
341 fprintf(stderr
, "Uninitialized attribute %s", "_end_reached");
342 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 98);
345 REGB0
= ATTR_file___IFStream____end_reached(fra
.me
.REG
[0]);
346 stack_frame_head
= fra
.me
.prev
;
349 void file___IFStream___reopen(val_t p0
){
350 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
353 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
354 fra
.me
.file
= LOCATE_file
;
356 fra
.me
.meth
= LOCATE_file___IFStream___reopen
;
357 fra
.me
.has_broke
= 0;
359 fra
.me
.REG
[0] = NIT_NULL
;
360 fra
.me
.REG
[1] = NIT_NULL
;
362 REGB0
= CALL_stream___IStream___eof(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
363 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
364 /* ./../lib/standard//file.nit:73 */
365 if (UNTAG_Bool(REGB0
)) {
366 CALL_stream___IOS___close(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
368 fra
.me
.REG
[1] = ATTR_file___FStream____path(fra
.me
.REG
[0]);
369 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
370 /* ./../lib/standard//file.nit:74 */
371 if (UNTAG_Bool(REGB0
)) {
372 fprintf(stderr
, "Reciever is null");
373 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 74);
376 fra
.me
.REG
[1] = CALL_string___String___to_cstring(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
377 fra
.me
.REG
[1] = CALL_file___NativeFileCapable___io_open_read(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
378 ATTR_file___FStream____file(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
379 REGB0
= TAG_Bool(false);
380 /* ./../lib/standard//file.nit:75 */
381 ATTR_file___IFStream____end_reached(fra
.me
.REG
[0]) = REGB0
;
383 /* ./../lib/standard//file.nit:76 */
384 ATTR_stream___BufferedIStream____buffer_pos(fra
.me
.REG
[0]) = REGB0
;
385 fra
.me
.REG
[0] = ATTR_stream___BufferedIStream____buffer(fra
.me
.REG
[0]);
386 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
387 /* ./../lib/standard//file.nit:77 */
388 if (UNTAG_Bool(REGB0
)) {
389 fprintf(stderr
, "Reciever is null");
390 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 77);
393 CALL_abstract_collection___RemovableCollection___clear(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
394 stack_frame_head
= fra
.me
.prev
;
397 void file___IFStream___open(val_t p0
, val_t p1
, int* init_table
){
398 int itpos0
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_IFStream
].i
;
399 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
403 if (init_table
[itpos0
]) return;
404 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
405 fra
.me
.file
= LOCATE_file
;
407 fra
.me
.meth
= LOCATE_file___IFStream___open
;
408 fra
.me
.has_broke
= 0;
410 fra
.me
.REG
[0] = NIT_NULL
;
411 fra
.me
.REG
[1] = NIT_NULL
;
414 /* ./../lib/standard//file.nit:104 */
415 ATTR_file___FStream____path(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
417 /* ./../lib/standard//file.nit:105 */
418 CALL_stream___BufferedIStream___prepare_buffer(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
419 fra
.me
.REG
[1] = ATTR_file___FStream____path(fra
.me
.REG
[0]);
420 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
421 /* ./../lib/standard//file.nit:106 */
422 if (UNTAG_Bool(REGB0
)) {
423 fprintf(stderr
, "Reciever is null");
424 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 106);
427 fra
.me
.REG
[1] = CALL_string___String___to_cstring(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
428 fra
.me
.REG
[1] = CALL_file___NativeFileCapable___io_open_read(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
429 ATTR_file___FStream____file(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
430 fra
.me
.REG
[0] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
431 REGB0
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
432 /* ./../lib/standard//file.nit:107 */
433 if (UNTAG_Bool(REGB0
)) {
435 REGB1
= TAG_Bool(fra
.me
.REG
[0]==NIT_NULL
);
436 if (UNTAG_Bool(REGB1
)) {
437 REGB1
= TAG_Bool(false);
440 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], NIT_NULL
);
444 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
445 if (UNTAG_Bool(REGB0
)) {
447 fprintf(stderr
, "Assert %s failed", "'cant_open_file'");
448 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 107);
451 stack_frame_head
= fra
.me
.prev
;
452 init_table
[itpos0
] = 1;
455 void file___IFStream___init(val_t p0
, int* init_table
){
456 int itpos1
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_IFStream
].i
;
457 struct {struct stack_frame_t me
;} fra
;
459 if (init_table
[itpos1
]) return;
460 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
461 fra
.me
.file
= LOCATE_file
;
463 fra
.me
.meth
= LOCATE_file___IFStream___init
;
464 fra
.me
.has_broke
= 0;
466 fra
.me
.REG
[0] = NIT_NULL
;
468 /* ./../lib/standard//file.nit:110 */
469 stack_frame_head
= fra
.me
.prev
;
470 init_table
[itpos1
] = 1;
473 void file___IFStream___without_file(val_t p0
, int* init_table
){
474 int itpos2
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_IFStream
].i
;
475 struct {struct stack_frame_t me
;} fra
;
477 if (init_table
[itpos2
]) return;
478 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
479 fra
.me
.file
= LOCATE_file
;
481 fra
.me
.meth
= LOCATE_file___IFStream___without_file
;
482 fra
.me
.has_broke
= 0;
484 fra
.me
.REG
[0] = NIT_NULL
;
486 /* ./../lib/standard//file.nit:111 */
487 stack_frame_head
= fra
.me
.prev
;
488 init_table
[itpos2
] = 1;
491 void file___OFStream___close(val_t p0
){
492 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
495 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
496 fra
.me
.file
= LOCATE_file
;
498 fra
.me
.meth
= LOCATE_file___OFStream___close
;
499 fra
.me
.has_broke
= 0;
501 fra
.me
.REG
[0] = NIT_NULL
;
502 fra
.me
.REG
[1] = NIT_NULL
;
504 fra
.me
.REG
[1] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
505 REGB0
= TAG_Bool(fra
.me
.REG
[1]==NIT_NULL
);
506 /* ./../lib/standard//file.nit:130 */
507 if (UNTAG_Bool(REGB0
)) {
508 fprintf(stderr
, "Reciever is null");
509 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 130);
512 REGB0
= CALL_file___NativeFile___io_close(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
513 REGB0
= TAG_Bool(false);
514 /* ./../lib/standard//file.nit:131 */
515 ATTR_file___OFStream____writable(fra
.me
.REG
[0]) = REGB0
;
516 stack_frame_head
= fra
.me
.prev
;
519 void file___OFStream___write(val_t p0
, val_t p1
){
520 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
523 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
524 fra
.me
.file
= LOCATE_file
;
526 fra
.me
.meth
= LOCATE_file___OFStream___write
;
527 fra
.me
.has_broke
= 0;
529 fra
.me
.REG
[0] = NIT_NULL
;
530 fra
.me
.REG
[1] = NIT_NULL
;
531 fra
.me
.REG
[2] = NIT_NULL
;
534 REGB0
= TAG_Bool(ATTR_file___OFStream____writable(fra
.me
.REG
[0])!=NIT_NULL
);
535 /* ./../lib/standard//file.nit:122 */
536 if (UNTAG_Bool(REGB0
)) {
538 fprintf(stderr
, "Uninitialized attribute %s", "_writable");
539 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 122);
542 REGB0
= ATTR_file___OFStream____writable(fra
.me
.REG
[0]);
543 if (UNTAG_Bool(REGB0
)) {
545 fprintf(stderr
, "Assert failed");
546 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 122);
549 fra
.me
.REG
[2] = CALL_string___String___to_cstring(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
550 REGB0
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
551 /* ./../lib/standard//collection//array.nit:23 */
552 if (UNTAG_Bool(REGB0
)) {
554 fprintf(stderr
, "Uninitialized attribute %s", "_length");
555 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 23);
558 REGB0
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[1]);
559 /* ./../lib/standard//file.nit:123 */
560 CALL_file___OFStream___write_native(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2], REGB0
);
561 stack_frame_head
= fra
.me
.prev
;
564 val_t
file___OFStream___is_writable(val_t p0
){
565 struct {struct stack_frame_t me
;} fra
;
568 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
569 fra
.me
.file
= LOCATE_file
;
571 fra
.me
.meth
= LOCATE_file___OFStream___is_writable
;
572 fra
.me
.has_broke
= 0;
574 fra
.me
.REG
[0] = NIT_NULL
;
576 REGB0
= TAG_Bool(ATTR_file___OFStream____writable(fra
.me
.REG
[0])!=NIT_NULL
);
577 /* ./../lib/standard//file.nit:126 */
578 if (UNTAG_Bool(REGB0
)) {
580 fprintf(stderr
, "Uninitialized attribute %s", "_writable");
581 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 126);
584 REGB0
= ATTR_file___OFStream____writable(fra
.me
.REG
[0]);
587 stack_frame_head
= fra
.me
.prev
;
590 void file___OFStream___write_native(val_t p0
, val_t p1
, val_t p2
){
591 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
597 static val_t once_value_1
; /* Once value */
598 static val_t once_value_2
; /* Once value */
599 static val_t once_value_3
; /* Once value */
600 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
601 fra
.me
.file
= LOCATE_file
;
603 fra
.me
.meth
= LOCATE_file___OFStream___write_native
;
604 fra
.me
.has_broke
= 0;
606 fra
.me
.REG
[0] = NIT_NULL
;
607 fra
.me
.REG
[1] = NIT_NULL
;
608 fra
.me
.REG
[2] = NIT_NULL
;
612 REGB1
= TAG_Bool(ATTR_file___OFStream____writable(fra
.me
.REG
[0])!=NIT_NULL
);
613 /* ./../lib/standard//file.nit:140 */
614 if (UNTAG_Bool(REGB1
)) {
616 fprintf(stderr
, "Uninitialized attribute %s", "_writable");
617 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 140);
620 REGB1
= ATTR_file___OFStream____writable(fra
.me
.REG
[0]);
621 if (UNTAG_Bool(REGB1
)) {
623 fprintf(stderr
, "Assert failed");
624 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 140);
627 fra
.me
.REG
[2] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
628 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
629 /* ./../lib/standard//file.nit:141 */
630 if (UNTAG_Bool(REGB1
)) {
631 fprintf(stderr
, "Reciever is null");
632 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 141);
635 REGB1
= CALL_file___NativeFile___io_write(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1], REGB0
);
636 REGB2
= TAG_Bool(IS_EQUAL_OO(REGB1
,REGB0
));
637 /* ./../lib/standard//file.nit:142 */
638 if (UNTAG_Bool(REGB2
)) {
640 REGB3
= TAG_Bool((REGB1
)==(REGB0
));
642 /* ./../lib/standard//file.nit:142 */
644 REGB2
= TAG_Bool(!UNTAG_Bool(REGB2
));
645 if (UNTAG_Bool(REGB2
)) {
647 fra
.me
.REG
[1] = NEW_Array_array___Array___with_capacity(REGB2
);
648 /* ./../lib/standard//file.nit:144 */
650 fra
.me
.REG
[2] = BOX_NativeString("Problem in writing : ");
652 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB2
);
653 once_value_1
= fra
.me
.REG
[2];
654 register_static_object(&once_value_1
);
655 } else fra
.me
.REG
[2] = once_value_1
;
656 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
657 array___Array___add(fra
.me
.REG
[1], REGB1
);
659 fra
.me
.REG
[2] = BOX_NativeString(" ");
661 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB1
);
662 once_value_2
= fra
.me
.REG
[2];
663 register_static_object(&once_value_2
);
664 } else fra
.me
.REG
[2] = once_value_2
;
665 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
666 array___Array___add(fra
.me
.REG
[1], REGB0
);
668 fra
.me
.REG
[2] = BOX_NativeString("\n");
670 fra
.me
.REG
[2] = NEW_String_string___String___with_native(fra
.me
.REG
[2], REGB0
);
671 once_value_3
= fra
.me
.REG
[2];
672 register_static_object(&once_value_3
);
673 } else fra
.me
.REG
[2] = once_value_3
;
674 array___Array___add(fra
.me
.REG
[1], fra
.me
.REG
[2]);
675 CALL_file___Object___printn(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
677 stack_frame_head
= fra
.me
.prev
;
680 void file___OFStream___open(val_t p0
, val_t p1
, int* init_table
){
681 int itpos3
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_OFStream
].i
;
682 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
686 if (init_table
[itpos3
]) return;
687 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
688 fra
.me
.file
= LOCATE_file
;
690 fra
.me
.meth
= LOCATE_file___OFStream___open
;
691 fra
.me
.has_broke
= 0;
693 fra
.me
.REG
[0] = NIT_NULL
;
694 fra
.me
.REG
[1] = NIT_NULL
;
695 fra
.me
.REG
[2] = NIT_NULL
;
698 fra
.me
.REG
[2] = CALL_string___String___to_cstring(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
699 fra
.me
.REG
[2] = CALL_file___NativeFileCapable___io_open_write(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
700 /* ./../lib/standard//file.nit:151 */
701 ATTR_file___FStream____file(fra
.me
.REG
[0]) = fra
.me
.REG
[2];
702 fra
.me
.REG
[2] = ATTR_file___FStream____file(fra
.me
.REG
[0]);
703 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
704 /* ./../lib/standard//file.nit:152 */
705 if (UNTAG_Bool(REGB0
)) {
707 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
708 if (UNTAG_Bool(REGB1
)) {
709 REGB1
= TAG_Bool(false);
712 REGB1
= CALL_kernel___Object_____eqeq(fra
.me
.REG
[2])(fra
.me
.REG
[2], NIT_NULL
);
716 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
717 if (UNTAG_Bool(REGB0
)) {
719 fprintf(stderr
, "Assert %s failed", "'cant_open_file'");
720 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 152);
723 /* ./../lib/standard//file.nit:153 */
724 ATTR_file___FStream____path(fra
.me
.REG
[0]) = fra
.me
.REG
[1];
725 REGB0
= TAG_Bool(true);
726 /* ./../lib/standard//file.nit:154 */
727 ATTR_file___OFStream____writable(fra
.me
.REG
[0]) = REGB0
;
728 stack_frame_head
= fra
.me
.prev
;
729 init_table
[itpos3
] = 1;
732 void file___OFStream___init(val_t p0
, int* init_table
){
733 int itpos4
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_OFStream
].i
;
734 struct {struct stack_frame_t me
;} fra
;
736 if (init_table
[itpos4
]) return;
737 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
738 fra
.me
.file
= LOCATE_file
;
740 fra
.me
.meth
= LOCATE_file___OFStream___init
;
741 fra
.me
.has_broke
= 0;
743 fra
.me
.REG
[0] = NIT_NULL
;
745 /* ./../lib/standard//file.nit:157 */
746 stack_frame_head
= fra
.me
.prev
;
747 init_table
[itpos4
] = 1;
750 void file___OFStream___without_file(val_t p0
, int* init_table
){
751 int itpos5
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_OFStream
].i
;
752 struct {struct stack_frame_t me
;} fra
;
754 if (init_table
[itpos5
]) return;
755 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
756 fra
.me
.file
= LOCATE_file
;
758 fra
.me
.meth
= LOCATE_file___OFStream___without_file
;
759 fra
.me
.has_broke
= 0;
761 fra
.me
.REG
[0] = NIT_NULL
;
763 /* ./../lib/standard//file.nit:158 */
764 stack_frame_head
= fra
.me
.prev
;
765 init_table
[itpos5
] = 1;
768 void file___Stdin___init(val_t p0
, int* init_table
){
769 int itpos6
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_Stdin
].i
;
770 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
773 static val_t once_value_1
; /* Once value */
774 if (init_table
[itpos6
]) return;
775 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
776 fra
.me
.file
= LOCATE_file
;
778 fra
.me
.meth
= LOCATE_file___Stdin___init
;
779 fra
.me
.has_broke
= 0;
781 fra
.me
.REG
[0] = NIT_NULL
;
782 fra
.me
.REG
[1] = NIT_NULL
;
784 fra
.me
.REG
[1] = fra
.me
.REG
[0];
785 /* ./../lib/standard//file.nit:165 */
786 CALL_file___IFStream___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], init_table
);
787 fra
.me
.REG
[0] = CALL_file___NativeFileCapable___native_stdin(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
788 /* ./../lib/standard//file.nit:166 */
789 ATTR_file___FStream____file(fra
.me
.REG
[1]) = fra
.me
.REG
[0];
790 /* ./../lib/standard//file.nit:167 */
792 fra
.me
.REG
[0] = BOX_NativeString("/dev/stdin");
794 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
795 once_value_1
= fra
.me
.REG
[0];
796 register_static_object(&once_value_1
);
797 } else fra
.me
.REG
[0] = once_value_1
;
798 ATTR_file___FStream____path(fra
.me
.REG
[1]) = fra
.me
.REG
[0];
800 /* ./../lib/standard//file.nit:168 */
801 CALL_stream___BufferedIStream___prepare_buffer(fra
.me
.REG
[1])(fra
.me
.REG
[1], REGB0
);
802 stack_frame_head
= fra
.me
.prev
;
803 init_table
[itpos6
] = 1;
806 void file___Stdout___init(val_t p0
, int* init_table
){
807 int itpos7
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_Stdout
].i
;
808 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
811 static val_t once_value_1
; /* Once value */
812 if (init_table
[itpos7
]) return;
813 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
814 fra
.me
.file
= LOCATE_file
;
816 fra
.me
.meth
= LOCATE_file___Stdout___init
;
817 fra
.me
.has_broke
= 0;
819 fra
.me
.REG
[0] = NIT_NULL
;
820 fra
.me
.REG
[1] = NIT_NULL
;
822 fra
.me
.REG
[1] = fra
.me
.REG
[0];
823 /* ./../lib/standard//file.nit:174 */
824 CALL_file___OFStream___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], init_table
);
825 fra
.me
.REG
[0] = CALL_file___NativeFileCapable___native_stdout(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
826 /* ./../lib/standard//file.nit:175 */
827 ATTR_file___FStream____file(fra
.me
.REG
[1]) = fra
.me
.REG
[0];
828 /* ./../lib/standard//file.nit:176 */
830 fra
.me
.REG
[0] = BOX_NativeString("/dev/stdout");
832 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
833 once_value_1
= fra
.me
.REG
[0];
834 register_static_object(&once_value_1
);
835 } else fra
.me
.REG
[0] = once_value_1
;
836 ATTR_file___FStream____path(fra
.me
.REG
[1]) = fra
.me
.REG
[0];
837 REGB0
= TAG_Bool(true);
838 /* ./../lib/standard//file.nit:177 */
839 ATTR_file___OFStream____writable(fra
.me
.REG
[1]) = REGB0
;
840 stack_frame_head
= fra
.me
.prev
;
841 init_table
[itpos7
] = 1;
844 void file___Stderr___init(val_t p0
, int* init_table
){
845 int itpos8
= VAL2OBJ(p0
)->vft
[INIT_TABLE_POS_Stderr
].i
;
846 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
849 static val_t once_value_1
; /* Once value */
850 if (init_table
[itpos8
]) return;
851 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
852 fra
.me
.file
= LOCATE_file
;
854 fra
.me
.meth
= LOCATE_file___Stderr___init
;
855 fra
.me
.has_broke
= 0;
857 fra
.me
.REG
[0] = NIT_NULL
;
858 fra
.me
.REG
[1] = NIT_NULL
;
860 fra
.me
.REG
[1] = fra
.me
.REG
[0];
861 /* ./../lib/standard//file.nit:183 */
862 CALL_file___OFStream___init(fra
.me
.REG
[0])(fra
.me
.REG
[0], init_table
);
863 fra
.me
.REG
[0] = CALL_file___NativeFileCapable___native_stderr(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
864 /* ./../lib/standard//file.nit:184 */
865 ATTR_file___FStream____file(fra
.me
.REG
[1]) = fra
.me
.REG
[0];
866 /* ./../lib/standard//file.nit:185 */
868 fra
.me
.REG
[0] = BOX_NativeString("/dev/stderr");
870 fra
.me
.REG
[0] = NEW_String_string___String___with_native(fra
.me
.REG
[0], REGB0
);
871 once_value_1
= fra
.me
.REG
[0];
872 register_static_object(&once_value_1
);
873 } else fra
.me
.REG
[0] = once_value_1
;
874 ATTR_file___FStream____path(fra
.me
.REG
[1]) = fra
.me
.REG
[0];
875 REGB0
= TAG_Bool(true);
876 /* ./../lib/standard//file.nit:186 */
877 ATTR_file___OFStream____writable(fra
.me
.REG
[1]) = REGB0
;
878 stack_frame_head
= fra
.me
.prev
;
879 init_table
[itpos8
] = 1;
882 val_t
file___String___file_exists(val_t p0
){
883 struct {struct stack_frame_t me
;} fra
;
886 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
887 fra
.me
.file
= LOCATE_file
;
889 fra
.me
.meth
= LOCATE_file___String___file_exists
;
890 fra
.me
.has_broke
= 0;
892 fra
.me
.REG
[0] = NIT_NULL
;
894 fra
.me
.REG
[0] = CALL_string___String___to_cstring(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
895 REGB0
= CALL_file___NativeString___file_exists(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
896 /* ./../lib/standard//file.nit:194 */
899 stack_frame_head
= fra
.me
.prev
;
902 val_t
file___String___file_stat(val_t p0
){
903 struct {struct stack_frame_t me
;} fra
;
905 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
906 fra
.me
.file
= LOCATE_file
;
908 fra
.me
.meth
= LOCATE_file___String___file_stat
;
909 fra
.me
.has_broke
= 0;
911 fra
.me
.REG
[0] = NIT_NULL
;
913 fra
.me
.REG
[0] = CALL_string___String___to_cstring(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
914 fra
.me
.REG
[0] = CALL_file___NativeString___file_stat(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
915 /* ./../lib/standard//file.nit:196 */
918 stack_frame_head
= fra
.me
.prev
;
919 return fra
.me
.REG
[0];
921 val_t
file___String___file_delete(val_t p0
){
922 struct {struct stack_frame_t me
;} fra
;
925 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
926 fra
.me
.file
= LOCATE_file
;
928 fra
.me
.meth
= LOCATE_file___String___file_delete
;
929 fra
.me
.has_broke
= 0;
931 fra
.me
.REG
[0] = NIT_NULL
;
933 fra
.me
.REG
[0] = CALL_string___String___to_cstring(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
934 REGB0
= CALL_file___NativeString___file_delete(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
935 /* ./../lib/standard//file.nit:198 */
938 stack_frame_head
= fra
.me
.prev
;
941 val_t
file___String___strip_extension(val_t p0
, val_t p1
){
942 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
947 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
948 fra
.me
.file
= LOCATE_file
;
950 fra
.me
.meth
= LOCATE_file___String___strip_extension
;
951 fra
.me
.has_broke
= 0;
953 fra
.me
.REG
[0] = NIT_NULL
;
954 fra
.me
.REG
[1] = NIT_NULL
;
957 REGB0
= CALL_string___AbstractString___has_suffix(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
958 /* ./../lib/standard//file.nit:202 */
959 if (UNTAG_Bool(REGB0
)) {
961 REGB1
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
962 /* ./../lib/standard//collection//array.nit:23 */
963 if (UNTAG_Bool(REGB1
)) {
965 fprintf(stderr
, "Uninitialized attribute %s", "_length");
966 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 23);
969 REGB1
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0]);
970 REGB2
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[1])!=NIT_NULL
);
971 if (UNTAG_Bool(REGB2
)) {
973 fprintf(stderr
, "Uninitialized attribute %s", "_length");
974 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 23);
977 REGB2
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[1]);
978 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
979 fra
.me
.REG
[1] = CALL_string___AbstractString___substring(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB2
);
980 /* ./../lib/standard//file.nit:203 */
983 fra
.me
.REG
[1] = fra
.me
.REG
[0];
984 /* ./../lib/standard//file.nit:205 */
987 stack_frame_head
= fra
.me
.prev
;
988 return fra
.me
.REG
[1];
990 val_t
file___String___basename(val_t p0
, val_t p1
){
991 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
996 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
997 fra
.me
.file
= LOCATE_file
;
999 fra
.me
.meth
= LOCATE_file___String___basename
;
1000 fra
.me
.has_broke
= 0;
1001 fra
.me
.REG_size
= 3;
1002 fra
.me
.REG
[0] = NIT_NULL
;
1003 fra
.me
.REG
[1] = NIT_NULL
;
1004 fra
.me
.REG
[2] = NIT_NULL
;
1007 REGB0
= TAG_Char('/');
1008 REGB1
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1009 /* ./../lib/standard//file.nit:210 */
1010 if (UNTAG_Bool(REGB1
)) {
1012 fprintf(stderr
, "Uninitialized attribute %s", "_length");
1013 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 210);
1016 REGB1
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1018 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
1019 REGB2
= CALL_array___AbstractArrayRead___last_index_of_from(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB2
);
1020 fra
.me
.REG
[2] = fra
.me
.REG
[0];
1022 REGB0
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB0
));
1023 /* ./../lib/standard//file.nit:212 */
1024 if (UNTAG_Bool(REGB0
)) {
1026 REGB0
= TAG_Int(UNTAG_Int(REGB2
)+UNTAG_Int(REGB0
));
1027 fra
.me
.REG
[0] = CALL_string___AbstractString___substring_from(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
1028 fra
.me
.REG
[2] = fra
.me
.REG
[0];
1029 /* ./../lib/standard//file.nit:213 */
1031 fra
.me
.REG
[1] = CALL_file___String___strip_extension(fra
.me
.REG
[2])(fra
.me
.REG
[2], fra
.me
.REG
[1]);
1032 /* ./../lib/standard//file.nit:215 */
1035 stack_frame_head
= fra
.me
.prev
;
1036 return fra
.me
.REG
[1];
1038 val_t
file___String___dirname(val_t p0
){
1039 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1044 static val_t once_value_2
; /* Once value */
1045 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1046 fra
.me
.file
= LOCATE_file
;
1048 fra
.me
.meth
= LOCATE_file___String___dirname
;
1049 fra
.me
.has_broke
= 0;
1050 fra
.me
.REG_size
= 2;
1051 fra
.me
.REG
[0] = NIT_NULL
;
1052 fra
.me
.REG
[1] = NIT_NULL
;
1054 REGB0
= TAG_Char('/');
1055 REGB1
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1056 /* ./../lib/standard//file.nit:220 */
1057 if (UNTAG_Bool(REGB1
)) {
1059 fprintf(stderr
, "Uninitialized attribute %s", "_length");
1060 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 220);
1063 REGB1
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1065 REGB2
= TAG_Int(UNTAG_Int(REGB1
)-UNTAG_Int(REGB2
));
1066 REGB2
= CALL_array___AbstractArrayRead___last_index_of_from(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB2
);
1068 REGB0
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB0
));
1069 /* ./../lib/standard//file.nit:221 */
1070 if (UNTAG_Bool(REGB0
)) {
1072 fra
.me
.REG
[0] = CALL_string___AbstractString___substring(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
, REGB2
);
1073 /* ./../lib/standard//file.nit:222 */
1076 /* ./../lib/standard//file.nit:224 */
1077 if (!once_value_2
) {
1078 fra
.me
.REG
[1] = BOX_NativeString(".");
1080 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB2
);
1081 once_value_2
= fra
.me
.REG
[1];
1082 register_static_object(&once_value_2
);
1083 } else fra
.me
.REG
[1] = once_value_2
;
1084 fra
.me
.REG
[0] = fra
.me
.REG
[1];
1088 stack_frame_head
= fra
.me
.prev
;
1089 return fra
.me
.REG
[0];
1091 val_t
file___String___file_path(val_t p0
){
1092 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1097 static val_t once_value_2
; /* Once value */
1098 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1099 fra
.me
.file
= LOCATE_file
;
1101 fra
.me
.meth
= LOCATE_file___String___file_path
;
1102 fra
.me
.has_broke
= 0;
1103 fra
.me
.REG_size
= 2;
1104 fra
.me
.REG
[0] = NIT_NULL
;
1105 fra
.me
.REG
[1] = NIT_NULL
;
1107 REGB0
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0])!=NIT_NULL
);
1108 /* ./../lib/standard//file.nit:230 */
1109 if (UNTAG_Bool(REGB0
)) {
1111 fprintf(stderr
, "Uninitialized attribute %s", "_length");
1112 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 230);
1115 REGB0
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[0]);
1116 REGB1
= TAG_Char('/');
1118 REGB2
= TAG_Int(UNTAG_Int(REGB0
)-UNTAG_Int(REGB2
));
1119 REGB2
= CALL_array___AbstractArrayRead___last_index_of_from(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
, REGB2
);
1121 REGB1
= TAG_Bool(UNTAG_Int(REGB2
)>=UNTAG_Int(REGB1
));
1122 /* ./../lib/standard//file.nit:232 */
1123 if (UNTAG_Bool(REGB1
)) {
1125 fra
.me
.REG
[0] = CALL_string___AbstractString___substring(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB1
, REGB2
);
1126 /* ./../lib/standard//file.nit:233 */
1129 /* ./../lib/standard//file.nit:235 */
1130 if (!once_value_2
) {
1131 fra
.me
.REG
[1] = BOX_NativeString(".");
1133 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB2
);
1134 once_value_2
= fra
.me
.REG
[1];
1135 register_static_object(&once_value_2
);
1136 } else fra
.me
.REG
[1] = once_value_2
;
1137 fra
.me
.REG
[0] = fra
.me
.REG
[1];
1140 stack_frame_head
= fra
.me
.prev
;
1141 return fra
.me
.REG
[0];
1143 void file___String___mkdir(val_t p0
){
1144 struct {struct stack_frame_t me
; val_t MORE_REG
[2];} fra
;
1149 static val_t once_value_1
; /* Once value */
1150 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1151 fra
.me
.file
= LOCATE_file
;
1153 fra
.me
.meth
= LOCATE_file___String___mkdir
;
1154 fra
.me
.has_broke
= 0;
1155 fra
.me
.REG_size
= 3;
1156 fra
.me
.REG
[0] = NIT_NULL
;
1157 fra
.me
.REG
[1] = NIT_NULL
;
1158 fra
.me
.REG
[2] = NIT_NULL
;
1160 /* ./../lib/standard//file.nit:241 */
1161 if (!once_value_1
) {
1162 fra
.me
.REG
[1] = BOX_NativeString("/");
1164 fra
.me
.REG
[1] = NEW_String_string___String___with_native(fra
.me
.REG
[1], REGB0
);
1165 once_value_1
= fra
.me
.REG
[1];
1166 register_static_object(&once_value_1
);
1167 } else fra
.me
.REG
[1] = once_value_1
;
1168 fra
.me
.REG
[1] = CALL_string_search___String___split_with(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
1169 fra
.me
.REG
[0] = NEW_Buffer_string___Buffer___init();
1170 REGB0
= CALL_abstract_collection___Collection___is_empty(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1171 /* ./../lib/standard//file.nit:243 */
1172 if (UNTAG_Bool(REGB0
)) {
1176 fra
.me
.REG
[2] = fra
.me
.REG
[1];
1178 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)>=UNTAG_Int(REGB1
));
1179 /* ./../lib/standard//collection//array.nit:233 */
1180 if (UNTAG_Bool(REGB1
)) {
1181 REGB1
= TAG_Bool(ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[2])!=NIT_NULL
);
1182 if (UNTAG_Bool(REGB1
)) {
1184 fprintf(stderr
, "Uninitialized attribute %s", "_length");
1185 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
1188 REGB1
= ATTR_array___AbstractArrayRead____length(fra
.me
.REG
[2]);
1189 REGB1
= TAG_Bool(UNTAG_Int(REGB0
)<UNTAG_Int(REGB1
));
1190 /* ./../lib/standard//collection//array.nit:233 */
1192 REGB2
= TAG_Bool(false);
1195 if (UNTAG_Bool(REGB1
)) {
1197 fprintf(stderr
, "Assert %s failed", "'index'");
1198 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 233);
1201 fra
.me
.REG
[2] = ATTR_array___Array____items(fra
.me
.REG
[2]);
1202 REGB1
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1203 /* ./../lib/standard//collection//array.nit:234 */
1204 if (UNTAG_Bool(REGB1
)) {
1205 fprintf(stderr
, "Reciever is null");
1206 fprintf(stderr
, " (%s:%d)\n", LOCATE_array
, 234);
1209 fra
.me
.REG
[2] = ((Nit_NativeArray
)fra
.me
.REG
[2])->val
[UNTAG_Int(REGB0
)];
1210 /* ./../lib/standard//collection//array.nit:234 */
1213 REGB0
= TAG_Bool(fra
.me
.REG
[2]==NIT_NULL
);
1214 /* ./../lib/standard//file.nit:244 */
1215 if (UNTAG_Bool(REGB0
)) {
1216 fprintf(stderr
, "Reciever is null");
1217 fprintf(stderr
, " (%s:%d)\n", LOCATE_file
, 244);
1220 REGB0
= CALL_abstract_collection___Collection___is_empty(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1221 if (UNTAG_Bool(REGB0
)) {
1222 REGB0
= TAG_Char('/');
1223 /* ./../lib/standard//file.nit:246 */
1224 CALL_abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
1226 fra
.me
.REG
[1] = CALL_abstract_collection___Collection___iterator(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1227 /* ./../lib/standard//file.nit:248 */
1229 REGB0
= CALL_abstract_collection___Iterator___is_ok(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1230 if (UNTAG_Bool(REGB0
)) {
1231 fra
.me
.REG
[2] = CALL_abstract_collection___Iterator___item(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1232 REGB0
= CALL_abstract_collection___Collection___is_empty(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1233 /* ./../lib/standard//file.nit:249 */
1234 if (UNTAG_Bool(REGB0
)) {
1237 /* ./../lib/standard//file.nit:250 */
1238 CALL_abstract_collection___Sequence___append(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[2]);
1239 REGB0
= TAG_Char('/');
1240 /* ./../lib/standard//file.nit:251 */
1241 CALL_abstract_collection___SimpleCollection___add(fra
.me
.REG
[0])(fra
.me
.REG
[0], REGB0
);
1242 fra
.me
.REG
[2] = CALL_string___Object___to_s(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
1243 fra
.me
.REG
[2] = CALL_string___String___to_cstring(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1244 /* ./../lib/standard//file.nit:252 */
1245 CALL_file___NativeString___file_mkdir(fra
.me
.REG
[2])(fra
.me
.REG
[2]);
1248 /* ./../lib/standard//file.nit:248 */
1251 CALL_abstract_collection___Iterator___next(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
1255 stack_frame_head
= fra
.me
.prev
;
1258 val_t
file___NativeString___file_exists(val_t p0
){
1259 struct {struct stack_frame_t me
;} fra
;
1262 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1263 fra
.me
.file
= LOCATE_file
;
1265 fra
.me
.meth
= LOCATE_file___NativeString___file_exists
;
1266 fra
.me
.has_broke
= 0;
1267 fra
.me
.REG_size
= 1;
1268 fra
.me
.REG
[0] = NIT_NULL
;
1270 REGB0
= TAG_Bool(string_NativeString_NativeString_file_exists_0(UNBOX_NativeString(fra
.me
.REG
[0])));
1271 /* ./../lib/standard//file.nit:258 */
1272 stack_frame_head
= fra
.me
.prev
;
1275 val_t
file___NativeString___file_stat(val_t p0
){
1276 struct {struct stack_frame_t me
;} fra
;
1278 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1279 fra
.me
.file
= LOCATE_file
;
1281 fra
.me
.meth
= LOCATE_file___NativeString___file_stat
;
1282 fra
.me
.has_broke
= 0;
1283 fra
.me
.REG_size
= 1;
1284 fra
.me
.REG
[0] = NIT_NULL
;
1286 fra
.me
.REG
[0] = BOX_FileStat(string_NativeString_NativeString_file_stat_0(UNBOX_NativeString(fra
.me
.REG
[0])));
1287 /* ./../lib/standard//file.nit:259 */
1288 stack_frame_head
= fra
.me
.prev
;
1289 return fra
.me
.REG
[0];
1291 val_t
file___NativeString___file_mkdir(val_t p0
){
1292 struct {struct stack_frame_t me
;} fra
;
1295 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1296 fra
.me
.file
= LOCATE_file
;
1298 fra
.me
.meth
= LOCATE_file___NativeString___file_mkdir
;
1299 fra
.me
.has_broke
= 0;
1300 fra
.me
.REG_size
= 1;
1301 fra
.me
.REG
[0] = NIT_NULL
;
1303 REGB0
= TAG_Bool(string_NativeString_NativeString_file_mkdir_0(UNBOX_NativeString(fra
.me
.REG
[0])));
1304 /* ./../lib/standard//file.nit:260 */
1305 stack_frame_head
= fra
.me
.prev
;
1308 val_t
file___NativeString___file_delete(val_t p0
){
1309 struct {struct stack_frame_t me
;} fra
;
1312 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1313 fra
.me
.file
= LOCATE_file
;
1315 fra
.me
.meth
= LOCATE_file___NativeString___file_delete
;
1316 fra
.me
.has_broke
= 0;
1317 fra
.me
.REG_size
= 1;
1318 fra
.me
.REG
[0] = NIT_NULL
;
1320 REGB0
= TAG_Bool(string_NativeString_NativeString_file_delete_0(UNBOX_NativeString(fra
.me
.REG
[0])));
1321 /* ./../lib/standard//file.nit:261 */
1322 stack_frame_head
= fra
.me
.prev
;
1325 val_t
file___FileStat___mode(val_t p0
){
1326 struct {struct stack_frame_t me
;} fra
;
1329 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1330 fra
.me
.file
= LOCATE_file
;
1332 fra
.me
.meth
= LOCATE_file___FileStat___mode
;
1333 fra
.me
.has_broke
= 0;
1334 fra
.me
.REG_size
= 1;
1335 fra
.me
.REG
[0] = NIT_NULL
;
1337 REGB0
= TAG_Int(file_FileStat_FileStat_mode_0(UNBOX_FileStat(fra
.me
.REG
[0])));
1338 /* ./../lib/standard//file.nit:266 */
1339 stack_frame_head
= fra
.me
.prev
;
1342 val_t
file___FileStat___atime(val_t p0
){
1343 struct {struct stack_frame_t me
;} fra
;
1346 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1347 fra
.me
.file
= LOCATE_file
;
1349 fra
.me
.meth
= LOCATE_file___FileStat___atime
;
1350 fra
.me
.has_broke
= 0;
1351 fra
.me
.REG_size
= 1;
1352 fra
.me
.REG
[0] = NIT_NULL
;
1354 REGB0
= TAG_Int(file_FileStat_FileStat_atime_0(UNBOX_FileStat(fra
.me
.REG
[0])));
1355 /* ./../lib/standard//file.nit:268 */
1356 stack_frame_head
= fra
.me
.prev
;
1359 val_t
file___FileStat___ctime(val_t p0
){
1360 struct {struct stack_frame_t me
;} fra
;
1363 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1364 fra
.me
.file
= LOCATE_file
;
1366 fra
.me
.meth
= LOCATE_file___FileStat___ctime
;
1367 fra
.me
.has_broke
= 0;
1368 fra
.me
.REG_size
= 1;
1369 fra
.me
.REG
[0] = NIT_NULL
;
1371 REGB0
= TAG_Int(file_FileStat_FileStat_ctime_0(UNBOX_FileStat(fra
.me
.REG
[0])));
1372 /* ./../lib/standard//file.nit:269 */
1373 stack_frame_head
= fra
.me
.prev
;
1376 val_t
file___FileStat___mtime(val_t p0
){
1377 struct {struct stack_frame_t me
;} fra
;
1380 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1381 fra
.me
.file
= LOCATE_file
;
1383 fra
.me
.meth
= LOCATE_file___FileStat___mtime
;
1384 fra
.me
.has_broke
= 0;
1385 fra
.me
.REG_size
= 1;
1386 fra
.me
.REG
[0] = NIT_NULL
;
1388 REGB0
= TAG_Int(file_FileStat_FileStat_mtime_0(UNBOX_FileStat(fra
.me
.REG
[0])));
1389 /* ./../lib/standard//file.nit:270 */
1390 stack_frame_head
= fra
.me
.prev
;
1393 val_t
file___FileStat___size(val_t p0
){
1394 struct {struct stack_frame_t me
;} fra
;
1397 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1398 fra
.me
.file
= LOCATE_file
;
1400 fra
.me
.meth
= LOCATE_file___FileStat___size
;
1401 fra
.me
.has_broke
= 0;
1402 fra
.me
.REG_size
= 1;
1403 fra
.me
.REG
[0] = NIT_NULL
;
1405 REGB0
= TAG_Int(file_FileStat_FileStat_size_0(UNBOX_FileStat(fra
.me
.REG
[0])));
1406 /* ./../lib/standard//file.nit:271 */
1407 stack_frame_head
= fra
.me
.prev
;
1410 val_t
file___NativeFile___io_read(val_t p0
, val_t p1
, val_t p2
){
1411 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1414 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1415 fra
.me
.file
= LOCATE_file
;
1417 fra
.me
.meth
= LOCATE_file___NativeFile___io_read
;
1418 fra
.me
.has_broke
= 0;
1419 fra
.me
.REG_size
= 2;
1420 fra
.me
.REG
[0] = NIT_NULL
;
1421 fra
.me
.REG
[1] = NIT_NULL
;
1425 REGB0
= TAG_Int(file_NativeFile_NativeFile_io_read_2(UNBOX_NativeFile(fra
.me
.REG
[0]), UNBOX_NativeString(fra
.me
.REG
[1]), UNTAG_Int(REGB0
)));
1426 /* ./../lib/standard//file.nit:277 */
1427 stack_frame_head
= fra
.me
.prev
;
1430 val_t
file___NativeFile___io_write(val_t p0
, val_t p1
, val_t p2
){
1431 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1434 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1435 fra
.me
.file
= LOCATE_file
;
1437 fra
.me
.meth
= LOCATE_file___NativeFile___io_write
;
1438 fra
.me
.has_broke
= 0;
1439 fra
.me
.REG_size
= 2;
1440 fra
.me
.REG
[0] = NIT_NULL
;
1441 fra
.me
.REG
[1] = NIT_NULL
;
1445 REGB0
= TAG_Int(file_NativeFile_NativeFile_io_write_2(UNBOX_NativeFile(fra
.me
.REG
[0]), UNBOX_NativeString(fra
.me
.REG
[1]), UNTAG_Int(REGB0
)));
1446 /* ./../lib/standard//file.nit:278 */
1447 stack_frame_head
= fra
.me
.prev
;
1450 val_t
file___NativeFile___io_close(val_t p0
){
1451 struct {struct stack_frame_t me
;} fra
;
1454 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1455 fra
.me
.file
= LOCATE_file
;
1457 fra
.me
.meth
= LOCATE_file___NativeFile___io_close
;
1458 fra
.me
.has_broke
= 0;
1459 fra
.me
.REG_size
= 1;
1460 fra
.me
.REG
[0] = NIT_NULL
;
1462 REGB0
= TAG_Int(file_NativeFile_NativeFile_io_close_0(UNBOX_NativeFile(fra
.me
.REG
[0])));
1463 /* ./../lib/standard//file.nit:279 */
1464 stack_frame_head
= fra
.me
.prev
;
1467 val_t
file___NativeFile___file_stat(val_t p0
){
1468 struct {struct stack_frame_t me
;} fra
;
1470 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1471 fra
.me
.file
= LOCATE_file
;
1473 fra
.me
.meth
= LOCATE_file___NativeFile___file_stat
;
1474 fra
.me
.has_broke
= 0;
1475 fra
.me
.REG_size
= 1;
1476 fra
.me
.REG
[0] = NIT_NULL
;
1478 fra
.me
.REG
[0] = BOX_FileStat(file_NativeFile_NativeFile_file_stat_0(UNBOX_NativeFile(fra
.me
.REG
[0])));
1479 /* ./../lib/standard//file.nit:280 */
1480 stack_frame_head
= fra
.me
.prev
;
1481 return fra
.me
.REG
[0];
1483 val_t
file___NativeFileCapable___io_open_read(val_t p0
, val_t p1
){
1484 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1486 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1487 fra
.me
.file
= LOCATE_file
;
1489 fra
.me
.meth
= LOCATE_file___NativeFileCapable___io_open_read
;
1490 fra
.me
.has_broke
= 0;
1491 fra
.me
.REG_size
= 2;
1492 fra
.me
.REG
[0] = NIT_NULL
;
1493 fra
.me
.REG
[1] = NIT_NULL
;
1496 fra
.me
.REG
[1] = BOX_NativeFile(file_NativeFileCapable_NativeFileCapable_io_open_read_1(fra
.me
.REG
[0], UNBOX_NativeString(fra
.me
.REG
[1])));
1497 /* ./../lib/standard//file.nit:284 */
1498 stack_frame_head
= fra
.me
.prev
;
1499 return fra
.me
.REG
[1];
1501 val_t
file___NativeFileCapable___io_open_write(val_t p0
, val_t p1
){
1502 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
1504 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1505 fra
.me
.file
= LOCATE_file
;
1507 fra
.me
.meth
= LOCATE_file___NativeFileCapable___io_open_write
;
1508 fra
.me
.has_broke
= 0;
1509 fra
.me
.REG_size
= 2;
1510 fra
.me
.REG
[0] = NIT_NULL
;
1511 fra
.me
.REG
[1] = NIT_NULL
;
1514 fra
.me
.REG
[1] = BOX_NativeFile(file_NativeFileCapable_NativeFileCapable_io_open_write_1(fra
.me
.REG
[0], UNBOX_NativeString(fra
.me
.REG
[1])));
1515 /* ./../lib/standard//file.nit:285 */
1516 stack_frame_head
= fra
.me
.prev
;
1517 return fra
.me
.REG
[1];
1519 val_t
file___NativeFileCapable___native_stdin(val_t p0
){
1520 struct {struct stack_frame_t me
;} fra
;
1522 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1523 fra
.me
.file
= LOCATE_file
;
1525 fra
.me
.meth
= LOCATE_file___NativeFileCapable___native_stdin
;
1526 fra
.me
.has_broke
= 0;
1527 fra
.me
.REG_size
= 1;
1528 fra
.me
.REG
[0] = NIT_NULL
;
1530 fra
.me
.REG
[0] = BOX_NativeFile(file_NativeFileCapable_NativeFileCapable_native_stdin_0(fra
.me
.REG
[0]));
1531 /* ./../lib/standard//file.nit:286 */
1532 stack_frame_head
= fra
.me
.prev
;
1533 return fra
.me
.REG
[0];
1535 val_t
file___NativeFileCapable___native_stdout(val_t p0
){
1536 struct {struct stack_frame_t me
;} fra
;
1538 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1539 fra
.me
.file
= LOCATE_file
;
1541 fra
.me
.meth
= LOCATE_file___NativeFileCapable___native_stdout
;
1542 fra
.me
.has_broke
= 0;
1543 fra
.me
.REG_size
= 1;
1544 fra
.me
.REG
[0] = NIT_NULL
;
1546 fra
.me
.REG
[0] = BOX_NativeFile(file_NativeFileCapable_NativeFileCapable_native_stdout_0(fra
.me
.REG
[0]));
1547 /* ./../lib/standard//file.nit:287 */
1548 stack_frame_head
= fra
.me
.prev
;
1549 return fra
.me
.REG
[0];
1551 val_t
file___NativeFileCapable___native_stderr(val_t p0
){
1552 struct {struct stack_frame_t me
;} fra
;
1554 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
1555 fra
.me
.file
= LOCATE_file
;
1557 fra
.me
.meth
= LOCATE_file___NativeFileCapable___native_stderr
;
1558 fra
.me
.has_broke
= 0;
1559 fra
.me
.REG_size
= 1;
1560 fra
.me
.REG
[0] = NIT_NULL
;
1562 fra
.me
.REG
[0] = BOX_NativeFile(file_NativeFileCapable_NativeFileCapable_native_stderr_0(fra
.me
.REG
[0]));
1563 /* ./../lib/standard//file.nit:288 */
1564 stack_frame_head
= fra
.me
.prev
;
1565 return fra
.me
.REG
[0];