c_src/environ._nitni.c

   1 #include "environ._nitni.h"
   2 #include "environ_nit.h"
   3 /* out/indirect function for environ::NativeString::get_environ */
   4 val_t NativeString_get_environ___out( val_t recv )
   5 {
   6 char * trans_recv;
   7 char * orig_return;
   8 val_t trans_return;
   9 trans_recv = UNBOX_NativeString(recv);
  10 orig_return = string_NativeString_NativeString_get_environ_0( trans_recv );
  11 trans_return = BOX_NativeString(orig_return);
  12 nitni_local_ref_clean(  );
  13 return trans_return;
  14 }
  15 /* out/indirect function for environ::NativeString::setenv */
  16 void NativeString_setenv___out( val_t recv, val_t v )
  17 {
  18 char * trans_recv;
  19 char * trans___v;
  20 trans_recv = UNBOX_NativeString(recv);
  21 trans___v = UNBOX_NativeString(v);
  22 string_NativeString_NativeString_setenv_1( trans_recv, trans___v );
  23 nitni_local_ref_clean(  );
  24 }