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 recv___nitni;
   7 bigint return___nitni;
   8 val_t return___nit;
   9 recv___nitni = UNTAG_Int(recv);
  10 return___nitni = kernel_Int_Int_rand_0( recv___nitni );
  11 return___nit = TAG_Int(return___nitni);
  12 return return___nit;
  13 }
  14 /* out/indirect function for math::Float::sqrt */
  15 val_t Float_sqrt___out( val_t recv )
  16 {
  17 float recv___nitni;
  18 float return___nitni;
  19 val_t return___nit;
  20 recv___nitni = UNBOX_Float(recv);
  21 return___nitni = kernel_Float_Float_sqrt_0( recv___nitni );
  22 return___nit = BOX_Float(return___nitni);
  23 return return___nit;
  24 }
  25 /* out/indirect function for math::Float::cos */
  26 val_t Float_cos___out( val_t recv )
  27 {
  28 float recv___nitni;
  29 float return___nitni;
  30 val_t return___nit;
  31 recv___nitni = UNBOX_Float(recv);
  32 return___nitni = kernel_Float_Float_cos_0( recv___nitni );
  33 return___nit = BOX_Float(return___nitni);
  34 return return___nit;
  35 }
  36 /* out/indirect function for math::Float::sin */
  37 val_t Float_sin___out( val_t recv )
  38 {
  39 float recv___nitni;
  40 float return___nitni;
  41 val_t return___nit;
  42 recv___nitni = UNBOX_Float(recv);
  43 return___nitni = kernel_Float_Float_sin_0( recv___nitni );
  44 return___nit = BOX_Float(return___nitni);
  45 return return___nit;
  46 }
  47 /* out/indirect function for math::Float::tan */
  48 val_t Float_tan___out( val_t recv )
  49 {
  50 float recv___nitni;
  51 float return___nitni;
  52 val_t return___nit;
  53 recv___nitni = UNBOX_Float(recv);
  54 return___nitni = kernel_Float_Float_tan_0( recv___nitni );
  55 return___nit = BOX_Float(return___nitni);
  56 return return___nit;
  57 }
  58 /* out/indirect function for math::Float::acos */
  59 val_t Float_acos___out( val_t recv )
  60 {
  61 float recv___nitni;
  62 float return___nitni;
  63 val_t return___nit;
  64 recv___nitni = UNBOX_Float(recv);
  65 return___nitni = kernel_Float_Float_acos_0( recv___nitni );
  66 return___nit = BOX_Float(return___nitni);
  67 return return___nit;
  68 }
  69 /* out/indirect function for math::Float::asin */
  70 val_t Float_asin___out( val_t recv )
  71 {
  72 float recv___nitni;
  73 float return___nitni;
  74 val_t return___nit;
  75 recv___nitni = UNBOX_Float(recv);
  76 return___nitni = kernel_Float_Float_asin_0( recv___nitni );
  77 return___nit = BOX_Float(return___nitni);
  78 return return___nit;
  79 }
  80 /* out/indirect function for math::Float::atan */
  81 val_t Float_atan___out( val_t recv )
  82 {
  83 float recv___nitni;
  84 float return___nitni;
  85 val_t return___nit;
  86 recv___nitni = UNBOX_Float(recv);
  87 return___nitni = kernel_Float_Float_atan_0( recv___nitni );
  88 return___nit = BOX_Float(return___nitni);
  89 return return___nit;
  90 }
  91 /* out/indirect function for math::Float::pow */
  92 val_t Float_pow___out( val_t recv, val_t e )
  93 {
  94 float recv___nitni;
  95 float e___nitni;
  96 float return___nitni;
  97 val_t return___nit;
  98 recv___nitni = UNBOX_Float(recv);
  99 e___nitni = UNBOX_Float(e);
 100 return___nitni = kernel_Float_Float_pow_1( recv___nitni, e___nitni );
 101 return___nit = BOX_Float(return___nitni);
 102 return return___nit;
 103 }
 104 /* out/indirect function for math::Float::log */
 105 val_t Float_log___out( val_t recv )
 106 {
 107 float recv___nitni;
 108 float return___nitni;
 109 val_t return___nit;
 110 recv___nitni = UNBOX_Float(recv);
 111 return___nitni = kernel_Float_Float_log_0( recv___nitni );
 112 return___nit = BOX_Float(return___nitni);
 113 return return___nit;
 114 }
 115 /* out/indirect function for math::Float::exp */
 116 val_t Float_exp___out( val_t recv )
 117 {
 118 float recv___nitni;
 119 float return___nitni;
 120 val_t return___nit;
 121 recv___nitni = UNBOX_Float(recv);
 122 return___nitni = kernel_Float_Float_exp_0( recv___nitni );
 123 return___nit = BOX_Float(return___nitni);
 124 return return___nit;
 125 }
 126 /* out/indirect function for math::Float::rand */
 127 val_t Float_rand___out( val_t recv )
 128 {
 129 float recv___nitni;
 130 float return___nitni;
 131 val_t return___nit;
 132 recv___nitni = UNBOX_Float(recv);
 133 return___nitni = kernel_Float_Float_rand_0( recv___nitni );
 134 return___nit = BOX_Float(return___nitni);
 135 return return___nit;
 136 }
 137 /* out/indirect function for math::Object::atan2 */
 138 val_t Object_atan2___out( val_t recv, val_t x, val_t y )
 139 {
 140 Object recv___nitni;
 141 float x___nitni;
 142 float y___nitni;
 143 float return___nitni;
 144 val_t return___nit;
 145 recv___nitni.v = recv;
 146 x___nitni = UNBOX_Float(x);
 147 y___nitni = UNBOX_Float(y);
 148 return___nitni = kernel_Any_Any_atan2_2( recv___nitni, x___nitni, y___nitni );
 149 return___nit = BOX_Float(return___nitni);
 150 return return___nit;
 151 }
 152 /* out/indirect function for math::Object::pi */
 153 val_t Object_pi___out( val_t recv )
 154 {
 155 Object recv___nitni;
 156 float return___nitni;
 157 val_t return___nit;
 158 recv___nitni.v = recv;
 159 return___nitni = kernel_Any_Any_pi_0( recv___nitni );
 160 return___nit = BOX_Float(return___nitni);
 161 return return___nit;
 162 }
 163 /* out/indirect function for math::Object::srand_from */
 164 void Object_srand_from___out( val_t recv, val_t x )
 165 {
 166 Object recv___nitni;
 167 bigint x___nitni;
 168 recv___nitni.v = recv;
 169 x___nitni = UNTAG_Int(x);
 170 kernel_Any_Any_srand_from_1( recv___nitni, x___nitni );
 171 }
 172 /* out/indirect function for math::Object::srand */
 173 void Object_srand___out( val_t recv )
 174 {
 175 Object recv___nitni;
 176 recv___nitni.v = recv;
 177 kernel_Any_Any_srand_0( recv___nitni );
 178 }