X-Git-Url: http://nitlanguage.org diff --git a/c_src/string._nitni.c b/c_src/string._nitni.c index b96ec8d..6eaec59 100644 --- a/c_src/string._nitni.c +++ b/c_src/string._nitni.c @@ -1,36 +1,4 @@ +/* + Extern implementation of Nit module string +*/ #include "string._nitni.h" -#include "string_nit.h" -/* 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; -}