Return to funny.c CVS log

Up to [Research Unix] / researchv9 / cmd / eqn

researchv9-SUN3(old)

# include "e.h"
# include "y.tab.h"

extern int Funnyps;
extern float Funnyht, Funnybase;
extern char *Sum, *Union, *Inter, *Prod;

funny(n)
	int n;
{
	char *f;

	yyval = salloc();
	switch(n) {
	case SUM:
		f = Sum; break;
	case UNION:
		f = Union; break;
	case INTER:	/* intersection */
		f = Inter; break;
	case PROD:
		f = Prod; break;
	default:
		error(FATAL, "funny type %d in funny", n);
	}
	printf(".ds %d %s\n", yyval, f);
	eht[yyval] = EM(1.0, ps+Funnyps) - EM(Funnyht, ps);
	ebase[yyval] = EM(Funnybase, ps);
	eps[yyval] = ps;
	dprintf(".\tS%d <- %s; h=%g b=%g\n", 
		yyval, f, eht[yyval], ebase[yyval]);
	lfont[yyval] = rfont[yyval] = ROM;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.