c_src/string._nitni.c

   1 #include "string._nitni.h"
   2 #include "string_nit.h"
   3 /* out/indirect function for string::String::to_f */
   4 val_t String_to_f___out( val_t recv )
   5 {
   6 String recv___nitni;
   7 float return___nitni;
   8 val_t return___nit;
   9 recv___nitni = malloc( sizeof( struct s_String ) );
  10 recv___nitni->ref.val = NIT_NULL;
  11 recv___nitni->ref.count = 0;
  12 nitni_local_ref_add( (struct nitni_ref *)recv___nitni );
  13 recv___nitni->ref.val = recv;
  14 return___nitni = String_to_f___impl( recv___nitni );
  15 return___nit = BOX_Float(return___nitni);
  16 nitni_local_ref_clean(  );
  17 return return___nit;
  18 }
  19 /* out/indirect function for string::Sys::native_argc */
  20 val_t Sys_native_argc___out( val_t recv )
  21 {
  22 Sys recv___nitni;
  23 bigint return___nitni;
  24 val_t return___nit;
  25 recv___nitni = malloc( sizeof( struct s_Sys ) );
  26 recv___nitni->ref.val = NIT_NULL;
  27 recv___nitni->ref.count = 0;
  28 nitni_local_ref_add( (struct nitni_ref *)recv___nitni );
  29 recv___nitni->ref.val = recv;
  30 return___nitni = kernel_Sys_Sys_native_argc_0( recv___nitni );
  31 return___nit = TAG_Int(return___nitni);
  32 nitni_local_ref_clean(  );
  33 return return___nit;
  34 }
  35 /* out/indirect function for string::Sys::native_argv */
  36 val_t Sys_native_argv___out( val_t recv, val_t i )
  37 {
  38 Sys recv___nitni;
  39 bigint i___nitni;
  40 char * return___nitni;
  41 val_t return___nit;
  42 recv___nitni = malloc( sizeof( struct s_Sys ) );
  43 recv___nitni->ref.val = NIT_NULL;
  44 recv___nitni->ref.count = 0;
  45 nitni_local_ref_add( (struct nitni_ref *)recv___nitni );
  46 recv___nitni->ref.val = recv;
  47 i___nitni = UNTAG_Int(i);
  48 return___nitni = kernel_Sys_Sys_native_argv_1( recv___nitni, i___nitni );
  49 return___nit = BOX_NativeString(return___nitni);
  50 nitni_local_ref_clean(  );
  51 return return___nit;
  52 }
  53 /* friendly for string::String::to_cstring */
  54 char * string_String_to_cstring( String recv )
  55 {
  56 val_t recv___nit;
  57 char * result___nitni;
  58 val_t result___nit;
  59 recv___nit = recv->ref.val;
  60 result___nit = CALL_standard___string___String___to_cstring( recv___nit )( recv___nit );
  61 result___nitni = UNBOX_NativeString(result___nit);
  62 return result___nitni;
  63 }