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