float.cpp

   1 #include "stdafx.h"
   2 #include "defs.h"
   3
   4 void
   5 eval_float(void)
   6 {
   7         push(cadr(p1));
   8         eval();
   9         yyfloat();
  10         eval(); // normalize
  11 }
  12
  13 void
  14 yyfloat(void)
  15 {
  16         int i, h;
  17         save();
  18         p1 = pop();
  19         if (iscons(p1)) {
  20                 h = tos;
  21                 while (iscons(p1)) {
  22                         push(car(p1));
  23                         yyfloat();
  24                         p1 = cdr(p1);
  25                 }
  26                 list(tos - h);
  27         } else if (p1->k == TENSOR) {
  28                 push(p1);
  29                 copy_tensor();
  30                 p1 = pop();
  31                 for (i = 0; i < p1->u.tensor->nelem; i++) {
  32                         push(p1->u.tensor->elem[i]);
  33                         yyfloat();
  34                         p1->u.tensor->elem[i] = pop();
  35                 }
  36                 push(p1);
  37         } else if (p1->k == NUM) {
  38                 push(p1);
  39                 bignum_float();
  40         } else if (p1 == symbol(PI))
  41                 push_double(M_PI);
  42         else if (p1 == symbol(E))
  43                 push_double(M_E);
  44         else
  45                 push(p1);
  46         restore();
  47 }
  48
  49 #if SELFTEST
  50
  51 static char *s[] = {
  52
  53         "float(x)",
  54         "x",
  55
  56         "float(1/2)",
  57         "0.5",
  58
  59         "float(pi)",
  60         "3.14159",
  61
  62         "float(exp(1))",
  63         "2.71828",
  64
  65         "x=(1/2,1/4)",
  66         "",
  67
  68         "float(x)",
  69         "(0.5,0.25)",
  70
  71         "x",
  72         "(1/2,1/4)",
  73
  74         "x=quote(x)",
  75         "",
  76 };
  77
  78 void
  79 test_float(void)
  80 {
  81         test(__FILE__, s, sizeof s / sizeof (char *));
  82 }
  83
  84 #endif