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
;