Blame


1 5cedca1b 2004-05-15 devnull #include "e.h"
2 5cedca1b 2004-05-15 devnull #include "y.tab.h"
3 5cedca1b 2004-05-15 devnull
4 5cedca1b 2004-05-15 devnull extern int Funnyps;
5 5cedca1b 2004-05-15 devnull extern double Funnyht, Funnybase;
6 5cedca1b 2004-05-15 devnull
7 5cedca1b 2004-05-15 devnull void funny(int n)
8 5cedca1b 2004-05-15 devnull {
9 5cedca1b 2004-05-15 devnull char *f = 0;
10 5cedca1b 2004-05-15 devnull
11 5cedca1b 2004-05-15 devnull yyval = salloc();
12 5cedca1b 2004-05-15 devnull switch (n) {
13 5cedca1b 2004-05-15 devnull case SUM:
14 5cedca1b 2004-05-15 devnull f = lookup(deftbl, "sum_def")->cval; break;
15 5cedca1b 2004-05-15 devnull case UNION:
16 5cedca1b 2004-05-15 devnull f = lookup(deftbl, "union_def")->cval; break;
17 5cedca1b 2004-05-15 devnull case INTER: /* intersection */
18 5cedca1b 2004-05-15 devnull f = lookup(deftbl, "inter_def")->cval; break;
19 5cedca1b 2004-05-15 devnull case PROD:
20 5cedca1b 2004-05-15 devnull f = lookup(deftbl, "prod_def")->cval; break;
21 5cedca1b 2004-05-15 devnull default:
22 5cedca1b 2004-05-15 devnull ERROR "funny type %d in funny", n FATAL;
23 5cedca1b 2004-05-15 devnull }
24 eb9be703 2006-02-04 devnull printf(".ds %d %s\n", (int)yyval, f);
25 5cedca1b 2004-05-15 devnull eht[yyval] = EM(1.0, ps+Funnyps) - EM(Funnyht, ps);
26 5cedca1b 2004-05-15 devnull ebase[yyval] = EM(Funnybase, ps);
27 fa325e9b 2020-01-10 cross dprintf(".\tS%d <- %s; h=%g b=%g\n",
28 eb9be703 2006-02-04 devnull (int)yyval, f, eht[yyval], ebase[yyval]);
29 5cedca1b 2004-05-15 devnull lfont[yyval] = rfont[yyval] = ROM;
30 5cedca1b 2004-05-15 devnull }