sys/src/cmd/hoc/init.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include "hoc.h"
   4 #include "y.tab.h"
   5
   6 static struct {         /* Keywords */
   7         char    *name;
   8         int     kval;
   9 } keywords[] = {
  10         "proc",         PROC,
  11         "func",         FUNC,
  12         "return",       RETURN,
  13         "if",           IF,
  14         "else",         ELSE,
  15         "while",        WHILE,
  16         "for",          FOR,
  17         "print",        PRINT,
  18         "read",         READ,
  19         0,              0,
  20 };
  21
  22 static struct {         /* Constants */
  23         char *name;
  24         double cval;
  25 } consts[] = {
  26         "PI",    3.14159265358979323846,
  27         "E",     2.71828182845904523536,
  28         "GAMMA", 0.57721566490153286060,  /* Euler */
  29         "DEG",  57.29577951308232087680,  /* deg/radian */
  30         "PHI",   1.61803398874989484820,  /* golden ratio */
  31         0,       0
  32 };
  33
  34 static struct {         /* Built-ins */
  35         char *name;
  36         double  (*func)(double);
  37 } builtins[] = {
  38         "sin",  sin,
  39         "cos",  cos,
  40         "tan",  tan,
  41         "atan", atan,
  42         "asin", Asin,   /* checks range */
  43         "acos", Acos,   /* checks range */
  44         "sinh", Sinh,   /* checks range */
  45         "cosh", Cosh,   /* checks range */
  46         "tanh", tanh,
  47         "log",  Log,    /* checks range */
  48         "log10", Log10, /* checks range */
  49         "exp",  Exp,    /* checks range */
  50         "sqrt", Sqrt,   /* checks range */
  51         "int",  integer,
  52         "abs",  fabs,
  53         0,      0
  54 };
  55
  56 void
  57 init(void)      /* install constants and built-ins in table */
  58 {
  59         int i;
  60         Symbol *s;
  61         for (i = 0; keywords[i].name; i++)
  62                 install(keywords[i].name, keywords[i].kval, 0.0);
  63         for (i = 0; consts[i].name; i++)
  64                 install(consts[i].name, VAR, consts[i].cval);
  65         for (i = 0; builtins[i].name; i++) {
  66                 s = install(builtins[i].name, BLTIN, 0.0);
  67                 s->u.ptr = builtins[i].func;
  68         }
  69 }