2004-05-15 23:24:00 +00:00
|
|
|
#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;
|
|
|
|
|
}
|
2006-02-04 20:26:35 +00:00
|
|
|
printf(".ds %d %s\n", (int)yyval, f);
|
2004-05-15 23:24:00 +00:00
|
|
|
eht[yyval] = EM(1.0, ps+Funnyps) - EM(Funnyht, ps);
|
|
|
|
|
ebase[yyval] = EM(Funnybase, ps);
|
|
|
|
|
dprintf(".\tS%d <- %s; h=%g b=%g\n",
|
2006-02-04 20:26:35 +00:00
|
|
|
(int)yyval, f, eht[yyval], ebase[yyval]);
|
2004-05-15 23:24:00 +00:00
|
|
|
lfont[yyval] = rfont[yyval] = ROM;
|
|
|
|
|
}
|
