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