Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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 
}