Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include "e.h"
2 
#include "y.tab.h"
3 
 
4 
extern int Funnyps;
5 
extern double Funnyht, Funnybase;
6 
 
7 
void funny(int n)
8 
{
9 
	char *f = 0;
10 
 
11 
	yyval = salloc();
12 
	switch (n) {
13 
	case SUM:
14 
		f = lookup(deftbl, "sum_def")->cval; break;
15 
	case UNION:
16 
		f = lookup(deftbl, "union_def")->cval; break;
17 
	case INTER:	/* intersection */
18 
		f = lookup(deftbl, "inter_def")->cval; break;
19 
	case PROD:
20 
		f = lookup(deftbl, "prod_def")->cval; break;
21 
	default:
22 
		ERROR "funny type %d in funny", n FATAL;
23 
	}
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;
30 
}