c_src/string._nitni.c

   1 #include "string._nitni.h"
   2 #include "string_nit.h"
   3 /* out/indirect function for string::Int::native_int_to_s */
   4 val_t Int_native_int_to_s___out( val_t recv, val_t len )
   5 {
   6 char * orig_return;
   7 val_t trans_return;
   8 orig_return = native_int_to_s( UNTAG_Int(recv), UNTAG_Int(len) );
   9 trans_return = BOX_NativeString(orig_return);
  10 nitni_local_ref_clean(  );
  11 return trans_return;
  12 }
  13 /* out/indirect function for string::Float::to_precision_native */
  14 val_t Float_to_precision_native___out( val_t recv, val_t nb )
  15 {
  16 float trans_recv;
  17 String orig_return;
  18 val_t trans_return;
  19 trans_recv = UNBOX_Float(recv);
  20 orig_return = malloc( sizeof( struct s_String ) );
  21 orig_return->ref.val = NIT_NULL;
  22 orig_return->ref.count = 0;
  23 orig_return = Float_to_precision_native___impl( trans_recv, UNTAG_Int(nb) );
  24 trans_return = orig_return->ref.val;
  25 nitni_local_ref_clean(  );
  26 return trans_return;
  27 }
  28 /* out/indirect function for string::NativeString::atof */
  29 val_t NativeString_atof___out( val_t recv )
  30 {
  31 char * trans_recv;
  32 float orig_return;
  33 val_t trans_return;
  34 trans_recv = UNBOX_NativeString(recv);
  35 orig_return = atof( trans_recv );
  36 trans_return = BOX_Float(orig_return);
  37 nitni_local_ref_clean(  );
  38 return trans_return;
  39 }
  40 /* friendly for string::NativeString::(string::Object::to_s) */
  41 String string_NativeString_to_s( char * recv )
  42 {
  43 val_t trans_recv;
  44 val_t orig_return;
  45 String trans_return;
  46 trans_recv = BOX_NativeString(recv);
  47 trans_return = malloc( sizeof( struct s_String ) );
  48 trans_return->ref.val = NIT_NULL;
  49 trans_return->ref.count = 0;
  50 nitni_local_ref_add( (struct nitni_ref *)trans_return );
  51 orig_return = CALL_standard___string___Object___to_s( trans_recv )( trans_recv );
  52 trans_return->ref.val = orig_return;
  53 return trans_return;
  54 }