c_src/string._nitni.c

   1 #include "string._nitni.h"
   2 #include "string_nit.h"
   3 /* out/indirect function for string::Float::to_precision_native */
   4 val_t Float_to_precision_native___out( val_t recv, val_t nb )
   5 {
   6 float trans_recv;
   7 String orig_return;
   8 val_t trans_return;
   9 trans_recv = UNBOX_Float(recv);
  10 orig_return = malloc( sizeof( struct s_String ) );
  11 orig_return->ref.val = NIT_NULL;
  12 orig_return->ref.count = 0;
  13 orig_return = Float_to_precision_native___impl( trans_recv, UNTAG_Int(nb) );
  14 trans_return = orig_return->ref.val;
  15 nitni_local_ref_clean(  );
  16 return trans_return;
  17 }
  18 /* out/indirect function for string::NativeString::atof */
  19 val_t NativeString_atof___out( val_t recv )
  20 {
  21 char * trans_recv;
  22 float orig_return;
  23 val_t trans_return;
  24 trans_recv = UNBOX_NativeString(recv);
  25 orig_return = atof( trans_recv );
  26 trans_return = BOX_Float(orig_return);
  27 nitni_local_ref_clean(  );
  28 return trans_return;
  29 }
  30 /* out/indirect function for string::Sys::native_argc */
  31 val_t Sys_native_argc___out( val_t recv )
  32 {
  33 bigint orig_return;
  34 val_t trans_return;
  35 orig_return = kernel_Sys_Sys_native_argc_0( NULL );
  36 trans_return = TAG_Int(orig_return);
  37 nitni_local_ref_clean(  );
  38 return trans_return;
  39 }
  40 /* out/indirect function for string::Sys::native_argv */
  41 val_t Sys_native_argv___out( val_t recv, val_t i )
  42 {
  43 char * orig_return;
  44 val_t trans_return;
  45 orig_return = kernel_Sys_Sys_native_argv_1( NULL, UNTAG_Int(i) );
  46 trans_return = BOX_NativeString(orig_return);
  47 nitni_local_ref_clean(  );
  48 return trans_return;
  49 }
  50 /* friendly for string::String::from_cstring */
  51 String string_new_String_from_cstring( char * str )
  52 {
  53 val_t trans___str;
  54 val_t orig_return;
  55 String trans_return;
  56 trans___str = BOX_NativeString(str);
  57 trans_return = malloc( sizeof( struct s_String ) );
  58 trans_return->ref.val = NIT_NULL;
  59 trans_return->ref.count = 0;
  60 nitni_local_ref_add( (struct nitni_ref *)trans_return );
  61 orig_return = NEW_String_standard___string___String___from_cstring( trans___str );
  62 trans_return->ref.val = orig_return;
  63 return trans_return;
  64 }