ref: 05f6c08985c9bd522e0a938f0e90b20df3f6792d
dir: /sys/src/cmd/eqn/funny.c/
#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; } printf(".ds %d %s\n", yyval, f); eht[yyval] = EM(1.0, ps+Funnyps) - EM(Funnyht, ps); ebase[yyval] = EM(Funnybase, ps); dprintf(".\tS%d <- %s; h=%g b=%g\n", yyval, f, eht[yyval], ebase[yyval]); lfont[yyval] = rfont[yyval] = ROM; }