diff options
Diffstat (limited to 'src/cmd/eqn/funny.c')
-rw-r--r-- | src/cmd/eqn/funny.c | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/cmd/eqn/funny.c b/src/cmd/eqn/funny.c new file mode 100644 index 00000000..85955fce --- /dev/null +++ b/src/cmd/eqn/funny.c @@ -0,0 +1,30 @@ +#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; +} |