/* This C file is generated by NIT to compile module environ. */
#include "environ._sep.h"
val_t environ___Symbol___environ(val_t self) {
- struct trace_t trace = {NULL, LOCATE_environ, 19, LOCATE_environ___Symbol___environ};
+ struct trace_t trace = {NULL, NULL, 19, LOCATE_environ___Symbol___environ};
val_t variable0;
val_t variable1;
val_t variable2;
val_t variable6;
val_t variable7;
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_environ;
variable1 = ((symbol___Symbol___to_s_t)CALL( self,COLOR_string___Object___to_s))( self) /*Symbol::to_s*/;
variable1 = ((string___String___to_cstring_t)CALL(variable1,COLOR_string___String___to_cstring))(variable1) /*String::to_cstring*/;
variable1 = ((environ___NativeString___get_environ_t)CALL(variable1,COLOR_environ___NativeString___get_environ))(variable1) /*NativeString::get_environ*/;
variable0 = variable1;
if (once_bool_variable2_1) variable2 = once_value_variable2_1;
else {
- variable2 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable2 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable2 = ((string___String___to_cstring_t)CALL(variable2,COLOR_string___String___to_cstring))(variable2) /*String::to_cstring*/;
variable2 = ((environ___NativeString___get_environ_t)CALL(variable2,COLOR_environ___NativeString___get_environ))(variable2) /*NativeString::get_environ*/;
once_value_variable2_1 = variable2;
variable1 = variable2;
variable2 = TAG_Bool(!UNTAG_Bool(TAG_Bool(( variable0 /*res*/ == variable1 /*nulstr*/) || (( variable0 /*res*/ != NIT_NULL) && ((((kernel___Object_____eqeq_t)CALL( variable0 /*res*/,COLOR_kernel___Object_____eqeq))==kernel___Object_____eqeq)?(IS_EQUAL_NN( variable0 /*res*/, variable1 /*nulstr*/)):(UNTAG_Bool(((kernel___Object_____eqeq_t)CALL( variable0 /*res*/,COLOR_kernel___Object_____eqeq))( variable0 /*res*/, variable1 /*nulstr*/) /*Object::==*/)))))));
if (UNTAG_Bool(variable2)) { /*if*/
- variable2 = NEW_string___String___init(); /*new String*/
- variable3 = NEW_string___String___with_native(BOX_NativeString("env "), TAG_Int(4)); /*new String*/
+ variable2 = NEW_String_string___String___init(); /*new String*/
+ variable3 = NEW_String_string___String___with_native(BOX_NativeString("env "), TAG_Int(4)); /*new String*/
variable4 = variable3;
((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable4) /*String::append*/;
variable5 = self;
variable5 = ((string___String___to_s_t)CALL(variable5,COLOR_string___Object___to_s))(variable5) /*String::to_s*/;
((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable5) /*String::append*/;
- variable6 = NEW_string___String___with_native(BOX_NativeString("="), TAG_Int(1)); /*new String*/
+ variable6 = NEW_String_string___String___with_native(BOX_NativeString("="), TAG_Int(1)); /*new String*/
variable7 = variable6;
((string___String___append_t)CALL(variable2,COLOR_abstract_collection___IndexedCollection___append))(variable2, variable7) /*String::append*/;
((string___String___output_t)CALL(variable2,COLOR_kernel___Object___output))(variable2) /*String::output*/;
((kernel___Object___output_t)CALL( variable0 /*res*/,COLOR_kernel___Object___output))( variable0 /*res*/) /*Object::output*/;
- variable2 = NEW_string___String___from_cstring( variable0 /*res*/); /*new String*/
+ variable2 = NEW_String_string___String___from_cstring( variable0 /*res*/); /*new String*/
variable0 = variable2;
goto return_label0;
} else { /*if*/
- variable2 = NEW_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
+ variable2 = NEW_String_string___String___with_native(BOX_NativeString(""), TAG_Int(0)); /*new String*/
variable0 = variable2;
goto return_label0;
}
return variable0;
}
val_t environ___NativeString___get_environ(val_t self) {
- struct trace_t trace = {NULL, LOCATE_environ, 36, LOCATE_environ___NativeString___get_environ};
+ struct trace_t trace = {NULL, NULL, 36, LOCATE_environ___NativeString___get_environ};
trace.prev = tracehead; tracehead = &trace;
+ trace.file = LOCATE_environ;
tracehead = trace.prev;
return BOX_NativeString(string_NativeString_NativeString_get_environ_0(UNBOX_NativeString( self)));
}