X-Git-Url: http://nitlanguage.org diff --git a/c_src/string._nitni.c b/c_src/string._nitni.c index 1bccb57..6eaec59 100644 --- a/c_src/string._nitni.c +++ b/c_src/string._nitni.c @@ -1,63 +1,4 @@ +/* + Extern implementation of Nit module string +*/ #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 = 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 */ -val_t Sys_native_argv___out( val_t recv, val_t i ) -{ -Sys recv___nitni; -bigint i___nitni; -char * return___nitni; -val_t return___nit; -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; -}