1 /* This C file is generated by NIT to compile module standard___environ. */
2 #include "standard___environ._sep.h"
3 static const char LOCATE_standard___environ___String___environ
[] = "environ::String::environ";
4 val_t
standard___environ___String___environ(val_t p0
){
5 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
9 static val_t once_value_1
; /* Once value */
10 static val_t once_value_2
; /* Once value */
11 static val_t once_value_4
; /* Once value */
12 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
13 fra
.me
.file
= LOCATE_standard___environ
;
15 fra
.me
.meth
= LOCATE_standard___environ___String___environ
;
18 fra
.me
.nitni_local_ref_head
= NULL
;
19 fra
.me
.REG
[0] = NIT_NULL
;
20 fra
.me
.REG
[1] = NIT_NULL
;
22 /* ../lib/standard/environ.nit:26 */
23 fra
.me
.REG
[0] = CALL_standard___string___String___to_cstring(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
24 fra
.me
.REG
[0] = CALL_standard___environ___NativeString___get_environ(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
25 /* ../lib/standard/environ.nit:28 */
28 fra
.me
.REG
[1] = BOX_NativeString("");
30 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
31 once_value_2
= fra
.me
.REG
[1];
32 register_static_object(&once_value_2
);
33 } else fra
.me
.REG
[1] = once_value_2
;
34 fra
.me
.REG
[1] = fra
.me
.REG
[1];
35 fra
.me
.REG
[1] = CALL_standard___string___String___to_cstring(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
36 fra
.me
.REG
[1] = CALL_standard___environ___NativeString___get_environ(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
37 once_value_1
= fra
.me
.REG
[1];
38 register_static_object(&once_value_1
);
39 } else fra
.me
.REG
[1] = once_value_1
;
40 fra
.me
.REG
[1] = fra
.me
.REG
[1];
41 /* ../lib/standard/environ.nit:29 */
42 REGB0
= TAG_Bool(IS_EQUAL_OO(fra
.me
.REG
[0],fra
.me
.REG
[1]));
43 if (UNTAG_Bool(REGB0
)) {
45 REGB1
= CALL_standard___kernel___Object_____eqeq(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
48 REGB0
= TAG_Bool(!UNTAG_Bool(REGB0
));
49 if (UNTAG_Bool(REGB0
)) {
50 /* ../lib/standard/environ.nit:30 */
51 fra
.me
.REG
[0] = NEW_String_standard___string___String___from_cstring(fra
.me
.REG
[0]);
54 /* ../lib/standard/environ.nit:32 */
56 fra
.me
.REG
[1] = BOX_NativeString("");
58 fra
.me
.REG
[1] = NEW_String_standard___string___String___with_native(fra
.me
.REG
[1], REGB0
);
59 once_value_4
= fra
.me
.REG
[1];
60 register_static_object(&once_value_4
);
61 } else fra
.me
.REG
[1] = once_value_4
;
62 fra
.me
.REG
[1] = fra
.me
.REG
[1];
63 fra
.me
.REG
[0] = fra
.me
.REG
[1];
67 stack_frame_head
= fra
.me
.prev
;
70 static const char LOCATE_standard___environ___String___setenv
[] = "environ::String::setenv";
71 void standard___environ___String___setenv(val_t p0
, val_t p1
){
72 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
74 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
75 fra
.me
.file
= LOCATE_standard___environ
;
77 fra
.me
.meth
= LOCATE_standard___environ___String___setenv
;
80 fra
.me
.nitni_local_ref_head
= NULL
;
81 fra
.me
.REG
[0] = NIT_NULL
;
82 fra
.me
.REG
[1] = NIT_NULL
;
85 /* ../lib/standard/environ.nit:35 */
86 fra
.me
.REG
[0] = CALL_standard___string___String___to_cstring(fra
.me
.REG
[0])(fra
.me
.REG
[0]);
87 fra
.me
.REG
[1] = CALL_standard___string___String___to_cstring(fra
.me
.REG
[1])(fra
.me
.REG
[1]);
88 CALL_standard___environ___NativeString___setenv(fra
.me
.REG
[0])(fra
.me
.REG
[0], fra
.me
.REG
[1]);
89 stack_frame_head
= fra
.me
.prev
;
92 static const char LOCATE_standard___environ___NativeString___get_environ
[] = "environ::NativeString::get_environ";
93 val_t
standard___environ___NativeString___get_environ(val_t p0
){
94 struct {struct stack_frame_t me
;} fra
;
96 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
97 fra
.me
.file
= LOCATE_standard___environ
;
99 fra
.me
.meth
= LOCATE_standard___environ___NativeString___get_environ
;
100 fra
.me
.has_broke
= 0;
102 fra
.me
.nitni_local_ref_head
= NULL
;
103 fra
.me
.REG
[0] = NIT_NULL
;
105 /* ../lib/standard/environ.nit:39 */
106 fra
.me
.REG
[0] = NativeString_get_environ___out(fra
.me
.REG
[0]);
107 stack_frame_head
= fra
.me
.prev
;
108 return fra
.me
.REG
[0];
110 static const char LOCATE_standard___environ___NativeString___setenv
[] = "environ::NativeString::setenv";
111 void standard___environ___NativeString___setenv(val_t p0
, val_t p1
){
112 struct {struct stack_frame_t me
; val_t MORE_REG
[1];} fra
;
114 fra
.me
.prev
= stack_frame_head
; stack_frame_head
= &fra
.me
;
115 fra
.me
.file
= LOCATE_standard___environ
;
117 fra
.me
.meth
= LOCATE_standard___environ___NativeString___setenv
;
118 fra
.me
.has_broke
= 0;
120 fra
.me
.nitni_local_ref_head
= NULL
;
121 fra
.me
.REG
[0] = NIT_NULL
;
122 fra
.me
.REG
[1] = NIT_NULL
;
125 /* ../lib/standard/environ.nit:40 */
126 NativeString_setenv___out(fra
.me
.REG
[0], fra
.me
.REG
[1]);
127 stack_frame_head
= fra
.me
.prev
;