Return to init.c CVS log

Up to [Research Unix] / researchv10no / cmd / hoc

Annotation of researchv10no/cmd/hoc/init.c, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.