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