X-Git-Url: http://nitlanguage.org diff --git a/c_src/string._nitni.c b/c_src/string._nitni.c index ecf4630..1bccb57 100644 --- a/c_src/string._nitni.c +++ b/c_src/string._nitni.c @@ -1,14 +1,35 @@ #include "string._nitni.h" #include "string_nit.h" +/* out/indirect function for string::String::to_f */ +val_t String_to_f___out( val_t recv ) +{ +String recv___nitni; +float return___nitni; +val_t return___nit; +recv___nitni = malloc( sizeof( struct s_String ) ); +recv___nitni->ref.val = NIT_NULL; +recv___nitni->ref.count = 0; +nitni_local_ref_add( (struct nitni_ref *)recv___nitni ); +recv___nitni->ref.val = recv; +return___nitni = String_to_f___impl( recv___nitni ); +return___nit = BOX_Float(return___nitni); +nitni_local_ref_clean( ); +return return___nit; +} /* out/indirect function for string::Sys::native_argc */ val_t Sys_native_argc___out( val_t recv ) { Sys recv___nitni; bigint return___nitni; val_t return___nit; -recv___nitni.v = recv; +recv___nitni = malloc( sizeof( struct s_Sys ) ); +recv___nitni->ref.val = NIT_NULL; +recv___nitni->ref.count = 0; +nitni_local_ref_add( (struct nitni_ref *)recv___nitni ); +recv___nitni->ref.val = recv; return___nitni = kernel_Sys_Sys_native_argc_0( recv___nitni ); return___nit = TAG_Int(return___nitni); +nitni_local_ref_clean( ); return return___nit; } /* out/indirect function for string::Sys::native_argv */ @@ -18,9 +39,25 @@ Sys recv___nitni; bigint i___nitni; char * return___nitni; val_t return___nit; -recv___nitni.v = recv; +recv___nitni = malloc( sizeof( struct s_Sys ) ); +recv___nitni->ref.val = NIT_NULL; +recv___nitni->ref.count = 0; +nitni_local_ref_add( (struct nitni_ref *)recv___nitni ); +recv___nitni->ref.val = recv; i___nitni = UNTAG_Int(i); return___nitni = kernel_Sys_Sys_native_argv_1( recv___nitni, i___nitni ); return___nit = BOX_NativeString(return___nitni); +nitni_local_ref_clean( ); return return___nit; } +/* friendly for string::String::to_cstring */ +char * string_String_to_cstring( String recv ) +{ +val_t recv___nit; +char * result___nitni; +val_t result___nit; +recv___nit = recv->ref.val; +result___nit = CALL_standard___string___String___to_cstring( recv___nit )( recv___nit ); +result___nitni = UNBOX_NativeString(result___nit); +return result___nitni; +}