c_src/standard___math._sep.c

   1 /* This C file is generated by NIT to compile module standard___math. */
   2 #include "standard___math._sep.h"
   3 static const char LOCATE_standard___math___Int___rand[] = "math::Int::rand";
   4 val_t standard___math___Int___rand(val_t p0){
   5   struct {struct stack_frame_t me;} fra;
   6   val_t REGB0;
   7   val_t tmp;
   8   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   9   fra.me.file = LOCATE_standard___math;
  10   fra.me.line = 20;
  11   fra.me.meth = LOCATE_standard___math___Int___rand;
  12   fra.me.has_broke = 0;
  13   fra.me.REG_size = 0;
  14   fra.me.nitni_local_ref_head = NULL;
  15   REGB0 = p0;
  16   /* ../lib/standard/math.nit:20 */
  17   REGB0 = Int_rand___out(REGB0);
  18   stack_frame_head = fra.me.prev;
  19   return REGB0;
  20 }
  21 static const char LOCATE_standard___math___Int___bin_and[] = "math::Int::bin_and";
  22 val_t standard___math___Int___bin_and(val_t p0, val_t p1){
  23   struct {struct stack_frame_t me;} fra;
  24   val_t REGB0;
  25   val_t REGB1;
  26   val_t tmp;
  27   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  28   fra.me.file = LOCATE_standard___math;
  29   fra.me.line = 21;
  30   fra.me.meth = LOCATE_standard___math___Int___bin_and;
  31   fra.me.has_broke = 0;
  32   fra.me.REG_size = 0;
  33   fra.me.nitni_local_ref_head = NULL;
  34   REGB0 = p0;
  35   REGB1 = p1;
  36   /* ../lib/standard/math.nit:21 */
  37   REGB1 = Int_bin_and___out(REGB0, REGB1);
  38   stack_frame_head = fra.me.prev;
  39   return REGB1;
  40 }
  41 static const char LOCATE_standard___math___Int___bin_or[] = "math::Int::bin_or";
  42 val_t standard___math___Int___bin_or(val_t p0, val_t p1){
  43   struct {struct stack_frame_t me;} fra;
  44   val_t REGB0;
  45   val_t REGB1;
  46   val_t tmp;
  47   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  48   fra.me.file = LOCATE_standard___math;
  49   fra.me.line = 22;
  50   fra.me.meth = LOCATE_standard___math___Int___bin_or;
  51   fra.me.has_broke = 0;
  52   fra.me.REG_size = 0;
  53   fra.me.nitni_local_ref_head = NULL;
  54   REGB0 = p0;
  55   REGB1 = p1;
  56   /* ../lib/standard/math.nit:22 */
  57   REGB1 = Int_bin_or___out(REGB0, REGB1);
  58   stack_frame_head = fra.me.prev;
  59   return REGB1;
  60 }
  61 static const char LOCATE_standard___math___Int___bin_xor[] = "math::Int::bin_xor";
  62 val_t standard___math___Int___bin_xor(val_t p0, val_t p1){
  63   struct {struct stack_frame_t me;} fra;
  64   val_t REGB0;
  65   val_t REGB1;
  66   val_t tmp;
  67   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  68   fra.me.file = LOCATE_standard___math;
  69   fra.me.line = 23;
  70   fra.me.meth = LOCATE_standard___math___Int___bin_xor;
  71   fra.me.has_broke = 0;
  72   fra.me.REG_size = 0;
  73   fra.me.nitni_local_ref_head = NULL;
  74   REGB0 = p0;
  75   REGB1 = p1;
  76   /* ../lib/standard/math.nit:23 */
  77   REGB1 = Int_bin_xor___out(REGB0, REGB1);
  78   stack_frame_head = fra.me.prev;
  79   return REGB1;
  80 }
  81 static const char LOCATE_standard___math___Float___sqrt[] = "math::Float::sqrt";
  82 val_t standard___math___Float___sqrt(val_t p0){
  83   struct {struct stack_frame_t me;} fra;
  84   val_t tmp;
  85   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  86   fra.me.file = LOCATE_standard___math;
  87   fra.me.line = 27;
  88   fra.me.meth = LOCATE_standard___math___Float___sqrt;
  89   fra.me.has_broke = 0;
  90   fra.me.REG_size = 1;
  91   fra.me.nitni_local_ref_head = NULL;
  92   fra.me.REG[0] = NIT_NULL;
  93   fra.me.REG[0] = p0;
  94   /* ../lib/standard/math.nit:27 */
  95   fra.me.REG[0] = Float_sqrt___out(fra.me.REG[0]);
  96   stack_frame_head = fra.me.prev;
  97   return fra.me.REG[0];
  98 }
  99 static const char LOCATE_standard___math___Float___cos[] = "math::Float::cos";
 100 val_t standard___math___Float___cos(val_t p0){
 101   struct {struct stack_frame_t me;} fra;
 102   val_t tmp;
 103   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 104   fra.me.file = LOCATE_standard___math;
 105   fra.me.line = 28;
 106   fra.me.meth = LOCATE_standard___math___Float___cos;
 107   fra.me.has_broke = 0;
 108   fra.me.REG_size = 1;
 109   fra.me.nitni_local_ref_head = NULL;
 110   fra.me.REG[0] = NIT_NULL;
 111   fra.me.REG[0] = p0;
 112   /* ../lib/standard/math.nit:28 */
 113   fra.me.REG[0] = Float_cos___out(fra.me.REG[0]);
 114   stack_frame_head = fra.me.prev;
 115   return fra.me.REG[0];
 116 }
 117 static const char LOCATE_standard___math___Float___sin[] = "math::Float::sin";
 118 val_t standard___math___Float___sin(val_t p0){
 119   struct {struct stack_frame_t me;} fra;
 120   val_t tmp;
 121   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 122   fra.me.file = LOCATE_standard___math;
 123   fra.me.line = 29;
 124   fra.me.meth = LOCATE_standard___math___Float___sin;
 125   fra.me.has_broke = 0;
 126   fra.me.REG_size = 1;
 127   fra.me.nitni_local_ref_head = NULL;
 128   fra.me.REG[0] = NIT_NULL;
 129   fra.me.REG[0] = p0;
 130   /* ../lib/standard/math.nit:29 */
 131   fra.me.REG[0] = Float_sin___out(fra.me.REG[0]);
 132   stack_frame_head = fra.me.prev;
 133   return fra.me.REG[0];
 134 }
 135 static const char LOCATE_standard___math___Float___tan[] = "math::Float::tan";
 136 val_t standard___math___Float___tan(val_t p0){
 137   struct {struct stack_frame_t me;} fra;
 138   val_t tmp;
 139   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 140   fra.me.file = LOCATE_standard___math;
 141   fra.me.line = 30;
 142   fra.me.meth = LOCATE_standard___math___Float___tan;
 143   fra.me.has_broke = 0;
 144   fra.me.REG_size = 1;
 145   fra.me.nitni_local_ref_head = NULL;
 146   fra.me.REG[0] = NIT_NULL;
 147   fra.me.REG[0] = p0;
 148   /* ../lib/standard/math.nit:30 */
 149   fra.me.REG[0] = Float_tan___out(fra.me.REG[0]);
 150   stack_frame_head = fra.me.prev;
 151   return fra.me.REG[0];
 152 }
 153 static const char LOCATE_standard___math___Float___acos[] = "math::Float::acos";
 154 val_t standard___math___Float___acos(val_t p0){
 155   struct {struct stack_frame_t me;} fra;
 156   val_t tmp;
 157   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 158   fra.me.file = LOCATE_standard___math;
 159   fra.me.line = 31;
 160   fra.me.meth = LOCATE_standard___math___Float___acos;
 161   fra.me.has_broke = 0;
 162   fra.me.REG_size = 1;
 163   fra.me.nitni_local_ref_head = NULL;
 164   fra.me.REG[0] = NIT_NULL;
 165   fra.me.REG[0] = p0;
 166   /* ../lib/standard/math.nit:31 */
 167   fra.me.REG[0] = Float_acos___out(fra.me.REG[0]);
 168   stack_frame_head = fra.me.prev;
 169   return fra.me.REG[0];
 170 }
 171 static const char LOCATE_standard___math___Float___asin[] = "math::Float::asin";
 172 val_t standard___math___Float___asin(val_t p0){
 173   struct {struct stack_frame_t me;} fra;
 174   val_t tmp;
 175   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 176   fra.me.file = LOCATE_standard___math;
 177   fra.me.line = 32;
 178   fra.me.meth = LOCATE_standard___math___Float___asin;
 179   fra.me.has_broke = 0;
 180   fra.me.REG_size = 1;
 181   fra.me.nitni_local_ref_head = NULL;
 182   fra.me.REG[0] = NIT_NULL;
 183   fra.me.REG[0] = p0;
 184   /* ../lib/standard/math.nit:32 */
 185   fra.me.REG[0] = Float_asin___out(fra.me.REG[0]);
 186   stack_frame_head = fra.me.prev;
 187   return fra.me.REG[0];
 188 }
 189 static const char LOCATE_standard___math___Float___atan[] = "math::Float::atan";
 190 val_t standard___math___Float___atan(val_t p0){
 191   struct {struct stack_frame_t me;} fra;
 192   val_t tmp;
 193   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 194   fra.me.file = LOCATE_standard___math;
 195   fra.me.line = 33;
 196   fra.me.meth = LOCATE_standard___math___Float___atan;
 197   fra.me.has_broke = 0;
 198   fra.me.REG_size = 1;
 199   fra.me.nitni_local_ref_head = NULL;
 200   fra.me.REG[0] = NIT_NULL;
 201   fra.me.REG[0] = p0;
 202   /* ../lib/standard/math.nit:33 */
 203   fra.me.REG[0] = Float_atan___out(fra.me.REG[0]);
 204   stack_frame_head = fra.me.prev;
 205   return fra.me.REG[0];
 206 }
 207 static const char LOCATE_standard___math___Float___pow[] = "math::Float::pow";
 208 val_t standard___math___Float___pow(val_t p0, val_t p1){
 209   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 210   val_t tmp;
 211   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 212   fra.me.file = LOCATE_standard___math;
 213   fra.me.line = 35;
 214   fra.me.meth = LOCATE_standard___math___Float___pow;
 215   fra.me.has_broke = 0;
 216   fra.me.REG_size = 2;
 217   fra.me.nitni_local_ref_head = NULL;
 218   fra.me.REG[0] = NIT_NULL;
 219   fra.me.REG[1] = NIT_NULL;
 220   fra.me.REG[0] = p0;
 221   fra.me.REG[1] = p1;
 222   /* ../lib/standard/math.nit:35 */
 223   fra.me.REG[1] = Float_pow___out(fra.me.REG[0], fra.me.REG[1]);
 224   stack_frame_head = fra.me.prev;
 225   return fra.me.REG[1];
 226 }
 227 static const char LOCATE_standard___math___Float___log[] = "math::Float::log";
 228 val_t standard___math___Float___log(val_t p0){
 229   struct {struct stack_frame_t me;} fra;
 230   val_t tmp;
 231   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 232   fra.me.file = LOCATE_standard___math;
 233   fra.me.line = 36;
 234   fra.me.meth = LOCATE_standard___math___Float___log;
 235   fra.me.has_broke = 0;
 236   fra.me.REG_size = 1;
 237   fra.me.nitni_local_ref_head = NULL;
 238   fra.me.REG[0] = NIT_NULL;
 239   fra.me.REG[0] = p0;
 240   /* ../lib/standard/math.nit:36 */
 241   fra.me.REG[0] = Float_log___out(fra.me.REG[0]);
 242   stack_frame_head = fra.me.prev;
 243   return fra.me.REG[0];
 244 }
 245 static const char LOCATE_standard___math___Float___exp[] = "math::Float::exp";
 246 val_t standard___math___Float___exp(val_t p0){
 247   struct {struct stack_frame_t me;} fra;
 248   val_t tmp;
 249   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 250   fra.me.file = LOCATE_standard___math;
 251   fra.me.line = 37;
 252   fra.me.meth = LOCATE_standard___math___Float___exp;
 253   fra.me.has_broke = 0;
 254   fra.me.REG_size = 1;
 255   fra.me.nitni_local_ref_head = NULL;
 256   fra.me.REG[0] = NIT_NULL;
 257   fra.me.REG[0] = p0;
 258   /* ../lib/standard/math.nit:37 */
 259   fra.me.REG[0] = Float_exp___out(fra.me.REG[0]);
 260   stack_frame_head = fra.me.prev;
 261   return fra.me.REG[0];
 262 }
 263 static const char LOCATE_standard___math___Float___rand[] = "math::Float::rand";
 264 val_t standard___math___Float___rand(val_t p0){
 265   struct {struct stack_frame_t me;} fra;
 266   val_t tmp;
 267   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 268   fra.me.file = LOCATE_standard___math;
 269   fra.me.line = 39;
 270   fra.me.meth = LOCATE_standard___math___Float___rand;
 271   fra.me.has_broke = 0;
 272   fra.me.REG_size = 1;
 273   fra.me.nitni_local_ref_head = NULL;
 274   fra.me.REG[0] = NIT_NULL;
 275   fra.me.REG[0] = p0;
 276   /* ../lib/standard/math.nit:39 */
 277   fra.me.REG[0] = Float_rand___out(fra.me.REG[0]);
 278   stack_frame_head = fra.me.prev;
 279   return fra.me.REG[0];
 280 }
 281 static const char LOCATE_standard___math___Float___hypot_with[] = "math::Float::hypot_with";
 282 val_t standard___math___Float___hypot_with(val_t p0, val_t p1){
 283   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 284   val_t tmp;
 285   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 286   fra.me.file = LOCATE_standard___math;
 287   fra.me.line = 40;
 288   fra.me.meth = LOCATE_standard___math___Float___hypot_with;
 289   fra.me.has_broke = 0;
 290   fra.me.REG_size = 2;
 291   fra.me.nitni_local_ref_head = NULL;
 292   fra.me.REG[0] = NIT_NULL;
 293   fra.me.REG[1] = NIT_NULL;
 294   fra.me.REG[0] = p0;
 295   fra.me.REG[1] = p1;
 296   /* ../lib/standard/math.nit:40 */
 297   fra.me.REG[1] = Float_hypot_with___out(fra.me.REG[0], fra.me.REG[1]);
 298   stack_frame_head = fra.me.prev;
 299   return fra.me.REG[1];
 300 }
 301 static const char LOCATE_standard___math___Collection___rand[] = "math::Collection::rand";
 302 val_t standard___math___Collection___rand(val_t p0){
 303   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
 304   val_t REGB0;
 305   val_t tmp;
 306   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 307   fra.me.file = LOCATE_standard___math;
 308   fra.me.line = 44;
 309   fra.me.meth = LOCATE_standard___math___Collection___rand;
 310   fra.me.has_broke = 0;
 311   fra.me.REG_size = 3;
 312   fra.me.nitni_local_ref_head = NULL;
 313   fra.me.REG[0] = NIT_NULL;
 314   fra.me.REG[1] = NIT_NULL;
 315   fra.me.REG[2] = NIT_NULL;
 316   fra.me.REG[0] = p0;
 317   /* ../lib/standard/math.nit:47 */
 318   REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]);
 319   if (UNTAG_Bool(REGB0)) {
 320     fra.me.REG[1] = NIT_NULL;
 321     goto label1;
 322   }
 323   /* ../lib/standard/math.nit:48 */
 324   REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[0])(fra.me.REG[0]);
 325   REGB0 = CALL_standard___math___Int___rand(REGB0)(REGB0);
 326   fra.me.REG[2] = REGB0;
 327   CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_standard___math___Collection___rand_2));
 328   switch ((&(fra.me))->has_broke) {
 329     case 0: break;
 330     case 1: (&(fra.me))->has_broke = 0; goto label1;
 331   }
 332   /* ../lib/standard/math.nit:54 */
 333   nit_abort("Aborted", NULL, LOCATE_standard___math, 54);
 334   label1: while(0);
 335   stack_frame_head = fra.me.prev;
 336   return fra.me.REG[1];
 337 }
 338   void OC_standard___math___Collection___rand_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
 339     struct {struct stack_frame_t me;} fra;
 340     val_t REGB0;
 341     val_t REGB1;
 342     fun_t CREG[1];
 343     val_t tmp;
 344     /* ../lib/standard/math.nit:50 */
 345     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 346     fra.me.file = LOCATE_standard___math;
 347     fra.me.line = 0;
 348     fra.me.meth = LOCATE_standard___math___Collection___rand;
 349     fra.me.has_broke = 0;
 350     fra.me.REG_size = 1;
 351     fra.me.nitni_local_ref_head = NULL;
 352     fra.me.REG[0] = NIT_NULL;
 353     fra.me.closure_ctx = closctx_param;
 354     fra.me.closure_funs = CREG;
 355     fra.me.REG[0] = p0;
 356     CREG[0] = clos_fun0;
 357     /* ../lib/standard/math.nit:51 */
 358     REGB0 = TAG_Int(0);
 359     REGB1 = TAG_Bool(IS_EQUAL_OO(closctx->REG[2],REGB0));
 360     if (UNTAG_Bool(REGB1)) {
 361     } else {
 362       /* ../lib/standard/kernel.nit:230 */
 363       REGB0 = TAG_Bool((closctx->REG[2])==(REGB0));
 364       /* ../lib/standard/math.nit:51 */
 365       REGB1 = REGB0;
 366     }
 367     if (UNTAG_Bool(REGB1)) {
 368       closctx->REG[1] = fra.me.REG[0];
 369       closctx->has_broke = 1;
 370       goto label3;
 371     }
 372     /* ../lib/standard/math.nit:52 */
 373     REGB1 = TAG_Int(1);
 374     /* ../lib/standard/kernel.nit:240 */
 375     REGB1 = TAG_Int(UNTAG_Int(closctx->REG[2])-UNTAG_Int(REGB1));
 376     /* ../lib/standard/math.nit:52 */
 377     closctx->REG[2] = REGB1;
 378     label3: while(0);
 379     stack_frame_head = fra.me.prev;
 380     return;
 381   }
 382 static const char LOCATE_standard___math___Object___atan2[] = "math::Object::atan2";
 383 val_t standard___math___Object___atan2(val_t p0, val_t p1, val_t p2){
 384   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
 385   val_t tmp;
 386   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 387   fra.me.file = LOCATE_standard___math;
 388   fra.me.line = 58;
 389   fra.me.meth = LOCATE_standard___math___Object___atan2;
 390   fra.me.has_broke = 0;
 391   fra.me.REG_size = 3;
 392   fra.me.nitni_local_ref_head = NULL;
 393   fra.me.REG[0] = NIT_NULL;
 394   fra.me.REG[1] = NIT_NULL;
 395   fra.me.REG[2] = NIT_NULL;
 396   fra.me.REG[0] = p0;
 397   fra.me.REG[1] = p1;
 398   fra.me.REG[2] = p2;
 399   /* ../lib/standard/math.nit:58 */
 400   fra.me.REG[2] = Object_atan2___out(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]);
 401   stack_frame_head = fra.me.prev;
 402   return fra.me.REG[2];
 403 }
 404 static const char LOCATE_standard___math___Object___pi[] = "math::Object::pi";
 405 val_t standard___math___Object___pi(val_t p0){
 406   struct {struct stack_frame_t me;} fra;
 407   val_t tmp;
 408   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 409   fra.me.file = LOCATE_standard___math;
 410   fra.me.line = 59;
 411   fra.me.meth = LOCATE_standard___math___Object___pi;
 412   fra.me.has_broke = 0;
 413   fra.me.REG_size = 1;
 414   fra.me.nitni_local_ref_head = NULL;
 415   fra.me.REG[0] = NIT_NULL;
 416   fra.me.REG[0] = p0;
 417   /* ../lib/standard/math.nit:59 */
 418   fra.me.REG[0] = Object_pi___out(fra.me.REG[0]);
 419   stack_frame_head = fra.me.prev;
 420   return fra.me.REG[0];
 421 }
 422 static const char LOCATE_standard___math___Object___srand_from[] = "math::Object::srand_from";
 423 void standard___math___Object___srand_from(val_t p0, val_t p1){
 424   struct {struct stack_frame_t me;} fra;
 425   val_t REGB0;
 426   val_t tmp;
 427   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 428   fra.me.file = LOCATE_standard___math;
 429   fra.me.line = 60;
 430   fra.me.meth = LOCATE_standard___math___Object___srand_from;
 431   fra.me.has_broke = 0;
 432   fra.me.REG_size = 1;
 433   fra.me.nitni_local_ref_head = NULL;
 434   fra.me.REG[0] = NIT_NULL;
 435   fra.me.REG[0] = p0;
 436   REGB0 = p1;
 437   /* ../lib/standard/math.nit:60 */
 438   Object_srand_from___out(fra.me.REG[0], REGB0);
 439   stack_frame_head = fra.me.prev;
 440   return;
 441 }
 442 static const char LOCATE_standard___math___Object___srand[] = "math::Object::srand";
 443 void standard___math___Object___srand(val_t p0){
 444   struct {struct stack_frame_t me;} fra;
 445   val_t tmp;
 446   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 447   fra.me.file = LOCATE_standard___math;
 448   fra.me.line = 61;
 449   fra.me.meth = LOCATE_standard___math___Object___srand;
 450   fra.me.has_broke = 0;
 451   fra.me.REG_size = 1;
 452   fra.me.nitni_local_ref_head = NULL;
 453   fra.me.REG[0] = NIT_NULL;
 454   fra.me.REG[0] = p0;
 455   /* ../lib/standard/math.nit:61 */
 456   Object_srand___out(fra.me.REG[0]);
 457   stack_frame_head = fra.me.prev;
 458   return;
 459 }