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 val_t standard___math___Int___rand(val_t p0){
   4   struct {struct stack_frame_t me;} fra;
   5   val_t REGB0;
   6   val_t tmp;
   7   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
   8   fra.me.file = LOCATE_standard___math;
   9   fra.me.line = 20;
  10   fra.me.meth = LOCATE_standard___math___Int___rand;
  11   fra.me.has_broke = 0;
  12   fra.me.REG_size = 0;
  13   fra.me.nitni_local_ref_head = NULL;
  14   REGB0 = p0;
  15   /* ../lib/standard/math.nit:20 */
  16   REGB0 = Int_rand___out(REGB0);
  17   stack_frame_head = fra.me.prev;
  18   return REGB0;
  19 }
  20 val_t standard___math___Float___sqrt(val_t p0){
  21   struct {struct stack_frame_t me;} fra;
  22   val_t tmp;
  23   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  24   fra.me.file = LOCATE_standard___math;
  25   fra.me.line = 24;
  26   fra.me.meth = LOCATE_standard___math___Float___sqrt;
  27   fra.me.has_broke = 0;
  28   fra.me.REG_size = 1;
  29   fra.me.nitni_local_ref_head = NULL;
  30   fra.me.REG[0] = NIT_NULL;
  31   fra.me.REG[0] = p0;
  32   /* ../lib/standard/math.nit:24 */
  33   fra.me.REG[0] = Float_sqrt___out(fra.me.REG[0]);
  34   stack_frame_head = fra.me.prev;
  35   return fra.me.REG[0];
  36 }
  37 val_t standard___math___Float___cos(val_t p0){
  38   struct {struct stack_frame_t me;} fra;
  39   val_t tmp;
  40   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  41   fra.me.file = LOCATE_standard___math;
  42   fra.me.line = 25;
  43   fra.me.meth = LOCATE_standard___math___Float___cos;
  44   fra.me.has_broke = 0;
  45   fra.me.REG_size = 1;
  46   fra.me.nitni_local_ref_head = NULL;
  47   fra.me.REG[0] = NIT_NULL;
  48   fra.me.REG[0] = p0;
  49   /* ../lib/standard/math.nit:25 */
  50   fra.me.REG[0] = Float_cos___out(fra.me.REG[0]);
  51   stack_frame_head = fra.me.prev;
  52   return fra.me.REG[0];
  53 }
  54 val_t standard___math___Float___sin(val_t p0){
  55   struct {struct stack_frame_t me;} fra;
  56   val_t tmp;
  57   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  58   fra.me.file = LOCATE_standard___math;
  59   fra.me.line = 26;
  60   fra.me.meth = LOCATE_standard___math___Float___sin;
  61   fra.me.has_broke = 0;
  62   fra.me.REG_size = 1;
  63   fra.me.nitni_local_ref_head = NULL;
  64   fra.me.REG[0] = NIT_NULL;
  65   fra.me.REG[0] = p0;
  66   /* ../lib/standard/math.nit:26 */
  67   fra.me.REG[0] = Float_sin___out(fra.me.REG[0]);
  68   stack_frame_head = fra.me.prev;
  69   return fra.me.REG[0];
  70 }
  71 val_t standard___math___Float___tan(val_t p0){
  72   struct {struct stack_frame_t me;} fra;
  73   val_t tmp;
  74   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  75   fra.me.file = LOCATE_standard___math;
  76   fra.me.line = 27;
  77   fra.me.meth = LOCATE_standard___math___Float___tan;
  78   fra.me.has_broke = 0;
  79   fra.me.REG_size = 1;
  80   fra.me.nitni_local_ref_head = NULL;
  81   fra.me.REG[0] = NIT_NULL;
  82   fra.me.REG[0] = p0;
  83   /* ../lib/standard/math.nit:27 */
  84   fra.me.REG[0] = Float_tan___out(fra.me.REG[0]);
  85   stack_frame_head = fra.me.prev;
  86   return fra.me.REG[0];
  87 }
  88 val_t standard___math___Float___acos(val_t p0){
  89   struct {struct stack_frame_t me;} fra;
  90   val_t tmp;
  91   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
  92   fra.me.file = LOCATE_standard___math;
  93   fra.me.line = 28;
  94   fra.me.meth = LOCATE_standard___math___Float___acos;
  95   fra.me.has_broke = 0;
  96   fra.me.REG_size = 1;
  97   fra.me.nitni_local_ref_head = NULL;
  98   fra.me.REG[0] = NIT_NULL;
  99   fra.me.REG[0] = p0;
 100   /* ../lib/standard/math.nit:28 */
 101   fra.me.REG[0] = Float_acos___out(fra.me.REG[0]);
 102   stack_frame_head = fra.me.prev;
 103   return fra.me.REG[0];
 104 }
 105 val_t standard___math___Float___asin(val_t p0){
 106   struct {struct stack_frame_t me;} fra;
 107   val_t tmp;
 108   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 109   fra.me.file = LOCATE_standard___math;
 110   fra.me.line = 29;
 111   fra.me.meth = LOCATE_standard___math___Float___asin;
 112   fra.me.has_broke = 0;
 113   fra.me.REG_size = 1;
 114   fra.me.nitni_local_ref_head = NULL;
 115   fra.me.REG[0] = NIT_NULL;
 116   fra.me.REG[0] = p0;
 117   /* ../lib/standard/math.nit:29 */
 118   fra.me.REG[0] = Float_asin___out(fra.me.REG[0]);
 119   stack_frame_head = fra.me.prev;
 120   return fra.me.REG[0];
 121 }
 122 val_t standard___math___Float___atan(val_t p0){
 123   struct {struct stack_frame_t me;} fra;
 124   val_t tmp;
 125   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 126   fra.me.file = LOCATE_standard___math;
 127   fra.me.line = 30;
 128   fra.me.meth = LOCATE_standard___math___Float___atan;
 129   fra.me.has_broke = 0;
 130   fra.me.REG_size = 1;
 131   fra.me.nitni_local_ref_head = NULL;
 132   fra.me.REG[0] = NIT_NULL;
 133   fra.me.REG[0] = p0;
 134   /* ../lib/standard/math.nit:30 */
 135   fra.me.REG[0] = Float_atan___out(fra.me.REG[0]);
 136   stack_frame_head = fra.me.prev;
 137   return fra.me.REG[0];
 138 }
 139 val_t standard___math___Float___pow(val_t p0, val_t p1){
 140   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 141   val_t tmp;
 142   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 143   fra.me.file = LOCATE_standard___math;
 144   fra.me.line = 32;
 145   fra.me.meth = LOCATE_standard___math___Float___pow;
 146   fra.me.has_broke = 0;
 147   fra.me.REG_size = 2;
 148   fra.me.nitni_local_ref_head = NULL;
 149   fra.me.REG[0] = NIT_NULL;
 150   fra.me.REG[1] = NIT_NULL;
 151   fra.me.REG[0] = p0;
 152   fra.me.REG[1] = p1;
 153   /* ../lib/standard/math.nit:32 */
 154   fra.me.REG[1] = Float_pow___out(fra.me.REG[0], fra.me.REG[1]);
 155   stack_frame_head = fra.me.prev;
 156   return fra.me.REG[1];
 157 }
 158 val_t standard___math___Float___log(val_t p0){
 159   struct {struct stack_frame_t me;} fra;
 160   val_t tmp;
 161   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 162   fra.me.file = LOCATE_standard___math;
 163   fra.me.line = 33;
 164   fra.me.meth = LOCATE_standard___math___Float___log;
 165   fra.me.has_broke = 0;
 166   fra.me.REG_size = 1;
 167   fra.me.nitni_local_ref_head = NULL;
 168   fra.me.REG[0] = NIT_NULL;
 169   fra.me.REG[0] = p0;
 170   /* ../lib/standard/math.nit:33 */
 171   fra.me.REG[0] = Float_log___out(fra.me.REG[0]);
 172   stack_frame_head = fra.me.prev;
 173   return fra.me.REG[0];
 174 }
 175 val_t standard___math___Float___exp(val_t p0){
 176   struct {struct stack_frame_t me;} fra;
 177   val_t tmp;
 178   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 179   fra.me.file = LOCATE_standard___math;
 180   fra.me.line = 34;
 181   fra.me.meth = LOCATE_standard___math___Float___exp;
 182   fra.me.has_broke = 0;
 183   fra.me.REG_size = 1;
 184   fra.me.nitni_local_ref_head = NULL;
 185   fra.me.REG[0] = NIT_NULL;
 186   fra.me.REG[0] = p0;
 187   /* ../lib/standard/math.nit:34 */
 188   fra.me.REG[0] = Float_exp___out(fra.me.REG[0]);
 189   stack_frame_head = fra.me.prev;
 190   return fra.me.REG[0];
 191 }
 192 val_t standard___math___Float___rand(val_t p0){
 193   struct {struct stack_frame_t me;} fra;
 194   val_t tmp;
 195   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 196   fra.me.file = LOCATE_standard___math;
 197   fra.me.line = 36;
 198   fra.me.meth = LOCATE_standard___math___Float___rand;
 199   fra.me.has_broke = 0;
 200   fra.me.REG_size = 1;
 201   fra.me.nitni_local_ref_head = NULL;
 202   fra.me.REG[0] = NIT_NULL;
 203   fra.me.REG[0] = p0;
 204   /* ../lib/standard/math.nit:36 */
 205   fra.me.REG[0] = Float_rand___out(fra.me.REG[0]);
 206   stack_frame_head = fra.me.prev;
 207   return fra.me.REG[0];
 208 }
 209 val_t standard___math___Float___hypot_with(val_t p0, val_t p1){
 210   struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
 211   val_t tmp;
 212   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 213   fra.me.file = LOCATE_standard___math;
 214   fra.me.line = 37;
 215   fra.me.meth = LOCATE_standard___math___Float___hypot_with;
 216   fra.me.has_broke = 0;
 217   fra.me.REG_size = 2;
 218   fra.me.nitni_local_ref_head = NULL;
 219   fra.me.REG[0] = NIT_NULL;
 220   fra.me.REG[1] = NIT_NULL;
 221   fra.me.REG[0] = p0;
 222   fra.me.REG[1] = p1;
 223   /* ../lib/standard/math.nit:37 */
 224   fra.me.REG[1] = Float_hypot_with___out(fra.me.REG[0], fra.me.REG[1]);
 225   stack_frame_head = fra.me.prev;
 226   return fra.me.REG[1];
 227 }
 228 val_t standard___math___Collection___rand(val_t p0){
 229   struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
 230   val_t REGB0;
 231   val_t tmp;
 232   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 233   fra.me.file = LOCATE_standard___math;
 234   fra.me.line = 41;
 235   fra.me.meth = LOCATE_standard___math___Collection___rand;
 236   fra.me.has_broke = 0;
 237   fra.me.REG_size = 4;
 238   fra.me.nitni_local_ref_head = NULL;
 239   fra.me.REG[0] = NIT_NULL;
 240   fra.me.REG[1] = NIT_NULL;
 241   fra.me.REG[2] = NIT_NULL;
 242   fra.me.REG[3] = NIT_NULL;
 243   fra.me.REG[0] = p0;
 244   /* ../lib/standard/math.nit:44 */
 245   REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]);
 246   if (UNTAG_Bool(REGB0)) {
 247     fra.me.REG[1] = NIT_NULL;
 248     goto label1;
 249   }
 250   /* ../lib/standard/math.nit:46 */
 251   REGB0 = CALL_standard___collection___abstract_collection___Collection___length(fra.me.REG[0])(fra.me.REG[0]);
 252   REGB0 = CALL_standard___math___Int___rand(REGB0)(REGB0);
 253   fra.me.REG[2] = REGB0;
 254   /* ../lib/standard/math.nit:47 */
 255   fra.me.REG[3] = NIT_NULL;
 256   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));
 257   switch ((&(fra.me))->has_broke) {
 258     case 0: break;
 259     case 1: (&(fra.me))->has_broke = 0; goto label4;
 260   }
 261   label4: while(0);
 262   /* ../lib/standard/math.nit:59 */
 263   fra.me.REG[1] = fra.me.REG[3];
 264   goto label1;
 265   label1: while(0);
 266   stack_frame_head = fra.me.prev;
 267   return fra.me.REG[1];
 268 }
 269   void OC_standard___math___Collection___rand_2(struct stack_frame_t *closctx, val_t p0){
 270     struct {struct stack_frame_t me;} fra;
 271     val_t REGB0;
 272     val_t REGB1;
 273     val_t tmp;
 274     /* ../lib/standard/math.nit:49 */
 275     fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 276     fra.me.file = LOCATE_standard___math;
 277     fra.me.line = 49;
 278     fra.me.meth = LOCATE_standard___math___Collection___rand;
 279     fra.me.has_broke = 0;
 280     fra.me.REG_size = 1;
 281     fra.me.nitni_local_ref_head = NULL;
 282     fra.me.REG[0] = NIT_NULL;
 283     fra.me.REG[0] = p0;
 284     /* ../lib/standard/math.nit:50 */
 285     REGB0 = TAG_Int(0);
 286     REGB1 = TAG_Bool(IS_EQUAL_OO(closctx->REG[2],REGB0));
 287     if (UNTAG_Bool(REGB1)) {
 288     } else {
 289       /* ../lib/standard/kernel.nit:227 */
 290       REGB0 = TAG_Bool((closctx->REG[2])==(REGB0));
 291       /* ../lib/standard/math.nit:50 */
 292       REGB1 = REGB0;
 293     }
 294     if (UNTAG_Bool(REGB1)) {
 295       /* ../lib/standard/math.nit:52 */
 296       closctx->REG[3] = fra.me.REG[0];
 297       /* ../lib/standard/math.nit:53 */
 298       closctx->has_broke = 1;
 299       goto label3;
 300     } else {
 301       /* ../lib/standard/math.nit:55 */
 302       REGB1 = TAG_Int(1);
 303       /* ../lib/standard/kernel.nit:237 */
 304       REGB1 = TAG_Int(UNTAG_Int(closctx->REG[2])-UNTAG_Int(REGB1));
 305       /* ../lib/standard/math.nit:55 */
 306       closctx->REG[2] = REGB1;
 307     }
 308     label3: while(0);
 309     stack_frame_head = fra.me.prev;
 310     return;
 311   }
 312 val_t standard___math___Object___atan2(val_t p0, val_t p1, val_t p2){
 313   struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
 314   val_t tmp;
 315   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 316   fra.me.file = LOCATE_standard___math;
 317   fra.me.line = 63;
 318   fra.me.meth = LOCATE_standard___math___Object___atan2;
 319   fra.me.has_broke = 0;
 320   fra.me.REG_size = 3;
 321   fra.me.nitni_local_ref_head = NULL;
 322   fra.me.REG[0] = NIT_NULL;
 323   fra.me.REG[1] = NIT_NULL;
 324   fra.me.REG[2] = NIT_NULL;
 325   fra.me.REG[0] = p0;
 326   fra.me.REG[1] = p1;
 327   fra.me.REG[2] = p2;
 328   /* ../lib/standard/math.nit:63 */
 329   fra.me.REG[2] = Object_atan2___out(fra.me.REG[0], fra.me.REG[1], fra.me.REG[2]);
 330   stack_frame_head = fra.me.prev;
 331   return fra.me.REG[2];
 332 }
 333 val_t standard___math___Object___pi(val_t p0){
 334   struct {struct stack_frame_t me;} fra;
 335   val_t tmp;
 336   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 337   fra.me.file = LOCATE_standard___math;
 338   fra.me.line = 64;
 339   fra.me.meth = LOCATE_standard___math___Object___pi;
 340   fra.me.has_broke = 0;
 341   fra.me.REG_size = 1;
 342   fra.me.nitni_local_ref_head = NULL;
 343   fra.me.REG[0] = NIT_NULL;
 344   fra.me.REG[0] = p0;
 345   /* ../lib/standard/math.nit:64 */
 346   fra.me.REG[0] = Object_pi___out(fra.me.REG[0]);
 347   stack_frame_head = fra.me.prev;
 348   return fra.me.REG[0];
 349 }
 350 void standard___math___Object___srand_from(val_t p0, val_t p1){
 351   struct {struct stack_frame_t me;} fra;
 352   val_t REGB0;
 353   val_t tmp;
 354   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 355   fra.me.file = LOCATE_standard___math;
 356   fra.me.line = 65;
 357   fra.me.meth = LOCATE_standard___math___Object___srand_from;
 358   fra.me.has_broke = 0;
 359   fra.me.REG_size = 1;
 360   fra.me.nitni_local_ref_head = NULL;
 361   fra.me.REG[0] = NIT_NULL;
 362   fra.me.REG[0] = p0;
 363   REGB0 = p1;
 364   /* ../lib/standard/math.nit:65 */
 365   Object_srand_from___out(fra.me.REG[0], REGB0);
 366   stack_frame_head = fra.me.prev;
 367   return;
 368 }
 369 void standard___math___Object___srand(val_t p0){
 370   struct {struct stack_frame_t me;} fra;
 371   val_t tmp;
 372   fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
 373   fra.me.file = LOCATE_standard___math;
 374   fra.me.line = 66;
 375   fra.me.meth = LOCATE_standard___math___Object___srand;
 376   fra.me.has_broke = 0;
 377   fra.me.REG_size = 1;
 378   fra.me.nitni_local_ref_head = NULL;
 379   fra.me.REG[0] = NIT_NULL;
 380   fra.me.REG[0] = p0;
 381   /* ../lib/standard/math.nit:66 */
 382   Object_srand___out(fra.me.REG[0]);
 383   stack_frame_head = fra.me.prev;
 384   return;
 385 }