update c_src (now with ffi)

[nit.git] / c_src / exec._nitni.c

diff --git a/c_src/exec._nitni.c b/c_src/exec._nitni.c
index c0a49eb..72a50c7 100644 (file)
--- a/c_src/exec._nitni.c
+++ b/c_src/exec._nitni.c
@@ -3,116 +3,90 @@
 /* out/indirect function for exec::Process::basic_exec_execute */
 val_t Process_basic_exec_execute___out( val_t recv, val_t p, val_t av, val_t ac, val_t pf )
 {
-Process recv___nitni;
-char * p___nitni;
-char * av___nitni;
-bigint ac___nitni;
-bigint pf___nitni;
-NativeProcess return___nitni;
-val_t return___nit;
-recv___nitni = malloc( sizeof( struct s_Process ) );
-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;
-p___nitni = UNBOX_NativeString(p);
-av___nitni = UNBOX_NativeString(av);
-ac___nitni = UNTAG_Int(ac);
-pf___nitni = UNTAG_Int(pf);
-return___nitni = exec_Process_Process_basic_exec_execute_4( recv___nitni, p___nitni, av___nitni, ac___nitni, pf___nitni );
-return___nit = BOX_NativeProcess(return___nitni);
+bigint trans___ac;
+bigint trans___pf;
+void* orig_return;
+val_t trans_return;
+trans___ac = UNTAG_Int(ac);
+trans___pf = UNTAG_Int(pf);
+orig_return = exec_Process_Process_basic_exec_execute_4( NULL, UNBOX_NativeString(p), UNBOX_NativeString(av), trans___ac, trans___pf );
+trans_return = BOX_NativeProcess(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeString::system */
 val_t NativeString_system___out( val_t recv )
 {
-char * recv___nitni;
-bigint return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeString(recv);
-return___nitni = string_NativeString_NativeString_system_0( recv___nitni );
-return___nit = TAG_Int(return___nitni);
+bigint orig_return;
+val_t trans_return;
+orig_return = string_NativeString_NativeString_system_0( UNBOX_NativeString(recv) );
+trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeProcess::id */
 val_t NativeProcess_id___out( val_t recv )
 {
-NativeProcess recv___nitni;
-bigint return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeProcess(recv);
-return___nitni = exec_NativeProcess_NativeProcess_id_0( recv___nitni );
-return___nit = TAG_Int(return___nitni);
+bigint orig_return;
+val_t trans_return;
+orig_return = exec_NativeProcess_NativeProcess_id_0( UNBOX_NativeProcess(recv) );
+trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeProcess::is_finished */
 val_t NativeProcess_is_finished___out( val_t recv )
 {
-NativeProcess recv___nitni;
-int return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeProcess(recv);
-return___nitni = exec_NativeProcess_NativeProcess_is_finished_0( recv___nitni );
-return___nit = TAG_Bool(return___nitni);
+int orig_return;
+val_t trans_return;
+orig_return = exec_NativeProcess_NativeProcess_is_finished_0( UNBOX_NativeProcess(recv) );
+trans_return = TAG_Bool(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeProcess::status */
 val_t NativeProcess_status___out( val_t recv )
 {
-NativeProcess recv___nitni;
-bigint return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeProcess(recv);
-return___nitni = exec_NativeProcess_NativeProcess_status_0( recv___nitni );
-return___nit = TAG_Int(return___nitni);
+bigint orig_return;
+val_t trans_return;
+orig_return = exec_NativeProcess_NativeProcess_status_0( UNBOX_NativeProcess(recv) );
+trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeProcess::wait */
 void NativeProcess_wait___out( val_t recv )
 {
-NativeProcess recv___nitni;
-recv___nitni = UNBOX_NativeProcess(recv);
-exec_NativeProcess_NativeProcess_wait_0( recv___nitni );
+exec_NativeProcess_NativeProcess_wait_0( UNBOX_NativeProcess(recv) );
 nitni_local_ref_clean(  );
 }
 /* out/indirect function for exec::NativeProcess::in_fd */
 val_t NativeProcess_in_fd___out( val_t recv )
 {
-NativeProcess recv___nitni;
-bigint return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeProcess(recv);
-return___nitni = exec_NativeProcess_NativeProcess_in_fd_0( recv___nitni );
-return___nit = TAG_Int(return___nitni);
+bigint orig_return;
+val_t trans_return;
+orig_return = exec_NativeProcess_NativeProcess_in_fd_0( UNBOX_NativeProcess(recv) );
+trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeProcess::out_fd */
 val_t NativeProcess_out_fd___out( val_t recv )
 {
-NativeProcess recv___nitni;
-bigint return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeProcess(recv);
-return___nitni = exec_NativeProcess_NativeProcess_out_fd_0( recv___nitni );
-return___nit = TAG_Int(return___nitni);
+bigint orig_return;
+val_t trans_return;
+orig_return = exec_NativeProcess_NativeProcess_out_fd_0( UNBOX_NativeProcess(recv) );
+trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }
 /* out/indirect function for exec::NativeProcess::err_fd */
 val_t NativeProcess_err_fd___out( val_t recv )
 {
-NativeProcess recv___nitni;
-bigint return___nitni;
-val_t return___nit;
-recv___nitni = UNBOX_NativeProcess(recv);
-return___nitni = exec_NativeProcess_NativeProcess_err_fd_0( recv___nitni );
-return___nit = TAG_Int(return___nitni);
+bigint orig_return;
+val_t trans_return;
+orig_return = exec_NativeProcess_NativeProcess_err_fd_0( UNBOX_NativeProcess(recv) );
+trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
-return return___nit;
+return trans_return;
 }