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