c_src/math._nitni.c

   1 #include "math._nitni.h"
   2 #include "math_nit.h"
   3 /* out/indirect function for math::Int::rand */
   4 val_t Int_rand___out( val_t recv )
   5 {
   6 bigint trans_recv;
   7 bigint orig_return;
   8 val_t trans_return;
   9 trans_recv = UNTAG_Int(recv);
  10 orig_return = kernel_Int_Int_rand_0( trans_recv );
  11 trans_return = TAG_Int(orig_return);
  12 nitni_local_ref_clean(  );
  13 return trans_return;
  14 }
  15 /* out/indirect function for math::Int::bin_and */
  16 val_t Int_bin_and___out( val_t recv, val_t i )
  17 {
  18 bigint trans_recv;
  19 bigint trans___i;
  20 bigint orig_return;
  21 val_t trans_return;
  22 trans_recv = UNTAG_Int(recv);
  23 trans___i = UNTAG_Int(i);
  24 orig_return = kernel_Int_Int_binand_0( trans_recv, trans___i );
  25 trans_return = TAG_Int(orig_return);
  26 nitni_local_ref_clean(  );
  27 return trans_return;
  28 }
  29 /* out/indirect function for math::Int::bin_or */
  30 val_t Int_bin_or___out( val_t recv, val_t i )
  31 {
  32 bigint trans_recv;
  33 bigint trans___i;
  34 bigint orig_return;
  35 val_t trans_return;
  36 trans_recv = UNTAG_Int(recv);
  37 trans___i = UNTAG_Int(i);
  38 orig_return = kernel_Int_Int_binor_0( trans_recv, trans___i );
  39 trans_return = TAG_Int(orig_return);
  40 nitni_local_ref_clean(  );
  41 return trans_return;
  42 }
  43 /* out/indirect function for math::Int::bin_xor */
  44 val_t Int_bin_xor___out( val_t recv, val_t i )
  45 {
  46 bigint trans_recv;
  47 bigint trans___i;
  48 bigint orig_return;
  49 val_t trans_return;
  50 trans_recv = UNTAG_Int(recv);
  51 trans___i = UNTAG_Int(i);
  52 orig_return = kernel_Int_Int_binxor_0( trans_recv, trans___i );
  53 trans_return = TAG_Int(orig_return);
  54 nitni_local_ref_clean(  );
  55 return trans_return;
  56 }
  57 /* out/indirect function for math::Float::sqrt */
  58 val_t Float_sqrt___out( val_t recv )
  59 {
  60 float orig_return;
  61 val_t trans_return;
  62 orig_return = kernel_Float_Float_sqrt_0( UNBOX_Float(recv) );
  63 trans_return = BOX_Float(orig_return);
  64 nitni_local_ref_clean(  );
  65 return trans_return;
  66 }
  67 /* out/indirect function for math::Float::cos */
  68 val_t Float_cos___out( val_t recv )
  69 {
  70 float orig_return;
  71 val_t trans_return;
  72 orig_return = kernel_Float_Float_cos_0( UNBOX_Float(recv) );
  73 trans_return = BOX_Float(orig_return);
  74 nitni_local_ref_clean(  );
  75 return trans_return;
  76 }
  77 /* out/indirect function for math::Float::sin */
  78 val_t Float_sin___out( val_t recv )
  79 {
  80 float orig_return;
  81 val_t trans_return;
  82 orig_return = kernel_Float_Float_sin_0( UNBOX_Float(recv) );
  83 trans_return = BOX_Float(orig_return);
  84 nitni_local_ref_clean(  );
  85 return trans_return;
  86 }
  87 /* out/indirect function for math::Float::tan */
  88 val_t Float_tan___out( val_t recv )
  89 {
  90 float orig_return;
  91 val_t trans_return;
  92 orig_return = kernel_Float_Float_tan_0( UNBOX_Float(recv) );
  93 trans_return = BOX_Float(orig_return);
  94 nitni_local_ref_clean(  );
  95 return trans_return;
  96 }
  97 /* out/indirect function for math::Float::acos */
  98 val_t Float_acos___out( val_t recv )
  99 {
 100 float orig_return;
 101 val_t trans_return;
 102 orig_return = kernel_Float_Float_acos_0( UNBOX_Float(recv) );
 103 trans_return = BOX_Float(orig_return);
 104 nitni_local_ref_clean(  );
 105 return trans_return;
 106 }
 107 /* out/indirect function for math::Float::asin */
 108 val_t Float_asin___out( val_t recv )
 109 {
 110 float orig_return;
 111 val_t trans_return;
 112 orig_return = kernel_Float_Float_asin_0( UNBOX_Float(recv) );
 113 trans_return = BOX_Float(orig_return);
 114 nitni_local_ref_clean(  );
 115 return trans_return;
 116 }
 117 /* out/indirect function for math::Float::atan */
 118 val_t Float_atan___out( val_t recv )
 119 {
 120 float orig_return;
 121 val_t trans_return;
 122 orig_return = kernel_Float_Float_atan_0( UNBOX_Float(recv) );
 123 trans_return = BOX_Float(orig_return);
 124 nitni_local_ref_clean(  );
 125 return trans_return;
 126 }
 127 /* out/indirect function for math::Float::pow */
 128 val_t Float_pow___out( val_t recv, val_t e )
 129 {
 130 float orig_return;
 131 val_t trans_return;
 132 orig_return = kernel_Float_Float_pow_1( UNBOX_Float(recv), UNBOX_Float(e) );
 133 trans_return = BOX_Float(orig_return);
 134 nitni_local_ref_clean(  );
 135 return trans_return;
 136 }
 137 /* out/indirect function for math::Float::log */
 138 val_t Float_log___out( val_t recv )
 139 {
 140 float orig_return;
 141 val_t trans_return;
 142 orig_return = kernel_Float_Float_log_0( UNBOX_Float(recv) );
 143 trans_return = BOX_Float(orig_return);
 144 nitni_local_ref_clean(  );
 145 return trans_return;
 146 }
 147 /* out/indirect function for math::Float::exp */
 148 val_t Float_exp___out( val_t recv )
 149 {
 150 float orig_return;
 151 val_t trans_return;
 152 orig_return = kernel_Float_Float_exp_0( UNBOX_Float(recv) );
 153 trans_return = BOX_Float(orig_return);
 154 nitni_local_ref_clean(  );
 155 return trans_return;
 156 }
 157 /* out/indirect function for math::Float::rand */
 158 val_t Float_rand___out( val_t recv )
 159 {
 160 float orig_return;
 161 val_t trans_return;
 162 orig_return = kernel_Float_Float_rand_0( UNBOX_Float(recv) );
 163 trans_return = BOX_Float(orig_return);
 164 nitni_local_ref_clean(  );
 165 return trans_return;
 166 }
 167 /* out/indirect function for math::Float::hypot_with */
 168 val_t Float_hypot_with___out( val_t recv, val_t b )
 169 {
 170 float orig_return;
 171 val_t trans_return;
 172 orig_return = hypotf( UNBOX_Float(recv), UNBOX_Float(b) );
 173 trans_return = BOX_Float(orig_return);
 174 nitni_local_ref_clean(  );
 175 return trans_return;
 176 }
 177 /* out/indirect function for math::Object::atan2 */
 178 val_t Object_atan2___out( val_t recv, val_t x, val_t y )
 179 {
 180 float orig_return;
 181 val_t trans_return;
 182 orig_return = kernel_Any_Any_atan2_2( NULL, UNBOX_Float(x), UNBOX_Float(y) );
 183 trans_return = BOX_Float(orig_return);
 184 nitni_local_ref_clean(  );
 185 return trans_return;
 186 }
 187 /* out/indirect function for math::Object::pi */
 188 val_t Object_pi___out( val_t recv )
 189 {
 190 float orig_return;
 191 val_t trans_return;
 192 orig_return = kernel_Any_Any_pi_0( NULL );
 193 trans_return = BOX_Float(orig_return);
 194 nitni_local_ref_clean(  );
 195 return trans_return;
 196 }
 197 /* out/indirect function for math::Object::srand_from */
 198 void Object_srand_from___out( val_t recv, val_t x )
 199 {
 200 bigint trans___x;
 201 trans___x = UNTAG_Int(x);
 202 kernel_Any_Any_srand_from_1( NULL, trans___x );
 203 nitni_local_ref_clean(  );
 204 }
 205 /* out/indirect function for math::Object::srand */
 206 void Object_srand___out( val_t recv )
 207 {
 208 kernel_Any_Any_srand_0( NULL );
 209 nitni_local_ref_clean(  );
 210 }