5 extern double Funnyht, Funnybase;
14 f = lookup(deftbl, "sum_def")->cval; break;
16 f = lookup(deftbl, "union_def")->cval; break;
17 case INTER: /* intersection */
18 f = lookup(deftbl, "inter_def")->cval; break;
20 f = lookup(deftbl, "prod_def")->cval; break;
22 ERROR "funny type %d in funny", n FATAL;
24 printf(".ds %d %s\n", yyval, f);
25 eht[yyval] = EM(1.0, ps+Funnyps) - EM(Funnyht, ps);
26 ebase[yyval] = EM(Funnybase, ps);
27 dprintf(".\tS%d <- %s; h=%g b=%g\n",
28 yyval, f, eht[yyval], ebase[yyval]);
29 lfont[yyval] = rfont[yyval] = ROM;