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 Process recv___nitni;
   7 char * p___nitni;
   8 char * av___nitni;
   9 bigint ac___nitni;
  10 bigint pf___nitni;
  11 NativeProcess return___nitni;
  12 val_t return___nit;
  13 recv___nitni = malloc( sizeof( struct s_Process ) );
  14 recv___nitni->ref.val = NIT_NULL;
  15 recv___nitni->ref.count = 0;
  16 nitni_local_ref_add( (struct nitni_ref *)recv___nitni );
  17 recv___nitni->ref.val = recv;
  18 p___nitni = UNBOX_NativeString(p);
  19 av___nitni = UNBOX_NativeString(av);
  20 ac___nitni = UNTAG_Int(ac);
  21 pf___nitni = UNTAG_Int(pf);
  22 return___nitni = exec_Process_Process_basic_exec_execute_4( recv___nitni, p___nitni, av___nitni, ac___nitni, pf___nitni );
  23 return___nit = BOX_NativeProcess(return___nitni);
  24 nitni_local_ref_clean(  );
  25 return return___nit;
  26 }
  27 /* out/indirect function for exec::NativeString::system */
  28 val_t NativeString_system___out( val_t recv )
  29 {
  30 char * recv___nitni;
  31 bigint return___nitni;
  32 val_t return___nit;
  33 recv___nitni = UNBOX_NativeString(recv);
  34 return___nitni = string_NativeString_NativeString_system_0( recv___nitni );
  35 return___nit = TAG_Int(return___nitni);
  36 nitni_local_ref_clean(  );
  37 return return___nit;
  38 }
  39 /* out/indirect function for exec::NativeProcess::id */
  40 val_t NativeProcess_id___out( val_t recv )
  41 {
  42 NativeProcess recv___nitni;
  43 bigint return___nitni;
  44 val_t return___nit;
  45 recv___nitni = UNBOX_NativeProcess(recv);
  46 return___nitni = exec_NativeProcess_NativeProcess_id_0( recv___nitni );
  47 return___nit = TAG_Int(return___nitni);
  48 nitni_local_ref_clean(  );
  49 return return___nit;
  50 }
  51 /* out/indirect function for exec::NativeProcess::is_finished */
  52 val_t NativeProcess_is_finished___out( val_t recv )
  53 {
  54 NativeProcess recv___nitni;
  55 int return___nitni;
  56 val_t return___nit;
  57 recv___nitni = UNBOX_NativeProcess(recv);
  58 return___nitni = exec_NativeProcess_NativeProcess_is_finished_0( recv___nitni );
  59 return___nit = TAG_Bool(return___nitni);
  60 nitni_local_ref_clean(  );
  61 return return___nit;
  62 }
  63 /* out/indirect function for exec::NativeProcess::status */
  64 val_t NativeProcess_status___out( val_t recv )
  65 {
  66 NativeProcess recv___nitni;
  67 bigint return___nitni;
  68 val_t return___nit;
  69 recv___nitni = UNBOX_NativeProcess(recv);
  70 return___nitni = exec_NativeProcess_NativeProcess_status_0( recv___nitni );
  71 return___nit = TAG_Int(return___nitni);
  72 nitni_local_ref_clean(  );
  73 return return___nit;
  74 }
  75 /* out/indirect function for exec::NativeProcess::wait */
  76 void NativeProcess_wait___out( val_t recv )
  77 {
  78 NativeProcess recv___nitni;
  79 recv___nitni = UNBOX_NativeProcess(recv);
  80 exec_NativeProcess_NativeProcess_wait_0( recv___nitni );
  81 nitni_local_ref_clean(  );
  82 }
  83 /* out/indirect function for exec::NativeProcess::in_fd */
  84 val_t NativeProcess_in_fd___out( val_t recv )
  85 {
  86 NativeProcess recv___nitni;
  87 bigint return___nitni;
  88 val_t return___nit;
  89 recv___nitni = UNBOX_NativeProcess(recv);
  90 return___nitni = exec_NativeProcess_NativeProcess_in_fd_0( recv___nitni );
  91 return___nit = TAG_Int(return___nitni);
  92 nitni_local_ref_clean(  );
  93 return return___nit;
  94 }
  95 /* out/indirect function for exec::NativeProcess::out_fd */
  96 val_t NativeProcess_out_fd___out( val_t recv )
  97 {
  98 NativeProcess recv___nitni;
  99 bigint return___nitni;
 100 val_t return___nit;
 101 recv___nitni = UNBOX_NativeProcess(recv);
 102 return___nitni = exec_NativeProcess_NativeProcess_out_fd_0( recv___nitni );
 103 return___nit = TAG_Int(return___nitni);
 104 nitni_local_ref_clean(  );
 105 return return___nit;
 106 }
 107 /* out/indirect function for exec::NativeProcess::err_fd */
 108 val_t NativeProcess_err_fd___out( val_t recv )
 109 {
 110 NativeProcess recv___nitni;
 111 bigint return___nitni;
 112 val_t return___nit;
 113 recv___nitni = UNBOX_NativeProcess(recv);
 114 return___nitni = exec_NativeProcess_NativeProcess_err_fd_0( recv___nitni );
 115 return___nit = TAG_Int(return___nitni);
 116 nitni_local_ref_clean(  );
 117 return return___nit;
 118 }