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.v = recv;
  14 p___nitni = UNBOX_NativeString(p);
  15 av___nitni = UNBOX_NativeString(av);
  16 ac___nitni = UNTAG_Int(ac);
  17 pf___nitni = UNTAG_Int(pf);
  18 return___nitni = exec_Process_Process_basic_exec_execute_4( recv___nitni, p___nitni, av___nitni, ac___nitni, pf___nitni );
  19 return___nit = BOX_NativeProcess(return___nitni);
  20 return return___nit;
  21 }
  22 /* out/indirect function for exec::NativeString::system */
  23 val_t NativeString_system___out( val_t recv )
  24 {
  25 char * recv___nitni;
  26 bigint return___nitni;
  27 val_t return___nit;
  28 recv___nitni = UNBOX_NativeString(recv);
  29 return___nitni = string_NativeString_NativeString_system_0( recv___nitni );
  30 return___nit = TAG_Int(return___nitni);
  31 return return___nit;
  32 }
  33 /* out/indirect function for exec::NativeProcess::id */
  34 val_t NativeProcess_id___out( val_t recv )
  35 {
  36 NativeProcess recv___nitni;
  37 bigint return___nitni;
  38 val_t return___nit;
  39 recv___nitni = UNBOX_NativeProcess(recv);
  40 return___nitni = exec_NativeProcess_NativeProcess_id_0( recv___nitni );
  41 return___nit = TAG_Int(return___nitni);
  42 return return___nit;
  43 }
  44 /* out/indirect function for exec::NativeProcess::is_finished */
  45 val_t NativeProcess_is_finished___out( val_t recv )
  46 {
  47 NativeProcess recv___nitni;
  48 int return___nitni;
  49 val_t return___nit;
  50 recv___nitni = UNBOX_NativeProcess(recv);
  51 return___nitni = exec_NativeProcess_NativeProcess_is_finished_0( recv___nitni );
  52 return___nit = TAG_Bool(return___nitni);
  53 return return___nit;
  54 }
  55 /* out/indirect function for exec::NativeProcess::status */
  56 val_t NativeProcess_status___out( val_t recv )
  57 {
  58 NativeProcess recv___nitni;
  59 bigint return___nitni;
  60 val_t return___nit;
  61 recv___nitni = UNBOX_NativeProcess(recv);
  62 return___nitni = exec_NativeProcess_NativeProcess_status_0( recv___nitni );
  63 return___nit = TAG_Int(return___nitni);
  64 return return___nit;
  65 }
  66 /* out/indirect function for exec::NativeProcess::wait */
  67 void NativeProcess_wait___out( val_t recv )
  68 {
  69 NativeProcess recv___nitni;
  70 recv___nitni = UNBOX_NativeProcess(recv);
  71 exec_NativeProcess_NativeProcess_wait_0( recv___nitni );
  72 }
  73 /* out/indirect function for exec::NativeProcess::in_fd */
  74 val_t NativeProcess_in_fd___out( val_t recv )
  75 {
  76 NativeProcess recv___nitni;
  77 bigint return___nitni;
  78 val_t return___nit;
  79 recv___nitni = UNBOX_NativeProcess(recv);
  80 return___nitni = exec_NativeProcess_NativeProcess_in_fd_0( recv___nitni );
  81 return___nit = TAG_Int(return___nitni);
  82 return return___nit;
  83 }
  84 /* out/indirect function for exec::NativeProcess::out_fd */
  85 val_t NativeProcess_out_fd___out( val_t recv )
  86 {
  87 NativeProcess recv___nitni;
  88 bigint return___nitni;
  89 val_t return___nit;
  90 recv___nitni = UNBOX_NativeProcess(recv);
  91 return___nitni = exec_NativeProcess_NativeProcess_out_fd_0( recv___nitni );
  92 return___nit = TAG_Int(return___nitni);
  93 return return___nit;
  94 }
  95 /* out/indirect function for exec::NativeProcess::err_fd */
  96 val_t NativeProcess_err_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_err_fd_0( recv___nitni );
 103 return___nit = TAG_Int(return___nitni);
 104 return return___nit;
 105 }