c_src/exec._nitni.c

   1 #include "exec._nitni.h"
   2 #include "exec_nit.h"
   3 /* out/indirect function for exec::Process::basic_exec_execute */
   4 val_t Process_basic_exec_execute___out( val_t recv, val_t p, val_t av, val_t ac, val_t pf )
   5 {
   6 char * trans___p;
   7 char * trans___av;
   8 void* orig_return;
   9 val_t trans_return;
  10 trans___p = UNBOX_NativeString(p);
  11 trans___av = UNBOX_NativeString(av);
  12 orig_return = exec_Process_Process_basic_exec_execute_4( NULL, trans___p, trans___av, UNTAG_Int(ac), UNTAG_Int(pf) );
  13 trans_return = BOX_NativeProcess(orig_return);
  14 nitni_local_ref_clean(  );
  15 return trans_return;
  16 }
  17 /* out/indirect function for exec::NativeString::system */
  18 val_t NativeString_system___out( val_t recv )
  19 {
  20 char * trans_recv;
  21 bigint orig_return;
  22 val_t trans_return;
  23 trans_recv = UNBOX_NativeString(recv);
  24 orig_return = string_NativeString_NativeString_system_0( trans_recv );
  25 trans_return = TAG_Int(orig_return);
  26 nitni_local_ref_clean(  );
  27 return trans_return;
  28 }
  29 /* out/indirect function for exec::NativeProcess::id */
  30 val_t NativeProcess_id___out( val_t recv )
  31 {
  32 void* trans_recv;
  33 bigint orig_return;
  34 val_t trans_return;
  35 trans_recv = UNBOX_NativeProcess(recv);
  36 orig_return = exec_NativeProcess_NativeProcess_id_0( trans_recv );
  37 trans_return = TAG_Int(orig_return);
  38 nitni_local_ref_clean(  );
  39 return trans_return;
  40 }
  41 /* out/indirect function for exec::NativeProcess::is_finished */
  42 val_t NativeProcess_is_finished___out( val_t recv )
  43 {
  44 void* trans_recv;
  45 int orig_return;
  46 val_t trans_return;
  47 trans_recv = UNBOX_NativeProcess(recv);
  48 orig_return = exec_NativeProcess_NativeProcess_is_finished_0( trans_recv );
  49 trans_return = TAG_Bool(orig_return);
  50 nitni_local_ref_clean(  );
  51 return trans_return;
  52 }
  53 /* out/indirect function for exec::NativeProcess::status */
  54 val_t NativeProcess_status___out( val_t recv )
  55 {
  56 void* trans_recv;
  57 bigint orig_return;
  58 val_t trans_return;
  59 trans_recv = UNBOX_NativeProcess(recv);
  60 orig_return = exec_NativeProcess_NativeProcess_status_0( trans_recv );
  61 trans_return = TAG_Int(orig_return);
  62 nitni_local_ref_clean(  );
  63 return trans_return;
  64 }
  65 /* out/indirect function for exec::NativeProcess::wait */
  66 void NativeProcess_wait___out( val_t recv )
  67 {
  68 void* trans_recv;
  69 trans_recv = UNBOX_NativeProcess(recv);
  70 exec_NativeProcess_NativeProcess_wait_0( trans_recv );
  71 nitni_local_ref_clean(  );
  72 }
  73 /* out/indirect function for exec::NativeProcess::in_fd */
  74 val_t NativeProcess_in_fd___out( val_t recv )
  75 {
  76 void* trans_recv;
  77 bigint orig_return;
  78 val_t trans_return;
  79 trans_recv = UNBOX_NativeProcess(recv);
  80 orig_return = exec_NativeProcess_NativeProcess_in_fd_0( trans_recv );
  81 trans_return = TAG_Int(orig_return);
  82 nitni_local_ref_clean(  );
  83 return trans_return;
  84 }
  85 /* out/indirect function for exec::NativeProcess::out_fd */
  86 val_t NativeProcess_out_fd___out( val_t recv )
  87 {
  88 void* trans_recv;
  89 bigint orig_return;
  90 val_t trans_return;
  91 trans_recv = UNBOX_NativeProcess(recv);
  92 orig_return = exec_NativeProcess_NativeProcess_out_fd_0( trans_recv );
  93 trans_return = TAG_Int(orig_return);
  94 nitni_local_ref_clean(  );
  95 return trans_return;
  96 }
  97 /* out/indirect function for exec::NativeProcess::err_fd */
  98 val_t NativeProcess_err_fd___out( val_t recv )
  99 {
 100 void* trans_recv;
 101 bigint orig_return;
 102 val_t trans_return;
 103 trans_recv = UNBOX_NativeProcess(recv);
 104 orig_return = exec_NativeProcess_NativeProcess_err_fd_0( trans_recv );
 105 trans_return = TAG_Int(orig_return);
 106 nitni_local_ref_clean(  );
 107 return trans_return;
 108 }