c_src/string._nitni.c

   1 #include "string._nitni.h"
   2 #include "string_nit.h"
   3 /* out/indirect function for string::NativeString::atof */
   4 val_t NativeString_atof___out( val_t recv )
   5 {
   6 float orig_return;
   7 val_t trans_return;
   8 orig_return = atof( UNBOX_NativeString(recv) );
   9 trans_return = BOX_Float(orig_return);
  10 nitni_local_ref_clean(  );
  11 return trans_return;
  12 }
  13 /* out/indirect function for string::Sys::native_argc */
  14 val_t Sys_native_argc___out( val_t recv )
  15 {
  16 bigint orig_return;
  17 val_t trans_return;
  18 orig_return = kernel_Sys_Sys_native_argc_0( NULL );
  19 trans_return = TAG_Int(orig_return);
  20 nitni_local_ref_clean(  );
  21 return trans_return;
  22 }
  23 /* out/indirect function for string::Sys::native_argv */
  24 val_t Sys_native_argv___out( val_t recv, val_t i )
  25 {
  26 bigint trans___i;
  27 char * orig_return;
  28 val_t trans_return;
  29 trans___i = UNTAG_Int(i);
  30 orig_return = kernel_Sys_Sys_native_argv_1( NULL, trans___i );
  31 trans_return = BOX_NativeString(orig_return);
  32 nitni_local_ref_clean(  );
  33 return trans_return;
  34 }