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
init(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 }
70