merge eqn and neqn

[unix-history] / usr / src / old / eqn / common_source / funny.c

/*      funny.c 4.2     83/02/12        */

# include "e.h"
# include "e.def"

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

       yyval = oalloc();
       switch(n) {
       case SUM:
               f = "\\(*S"; break;
       case UNION:
               f = "\\(cu"; break;
       case INTER:     /* intersection */
               f = "\\(ca"; break;
       case PROD:
               f = "\\(*P"; break;
       default:
               error(FATAL, "funny type %d in funny", n);
       }
#ifndef NEQN
       printf(".ds %d \\s%d\\v'.3m'\\s+5%s\\s-5\\v'-.3m'\\s%d\n", yyval, ps, f, ps);
       eht[yyval] = VERT( (ps+5)*6 -(ps*6*2)/10 );
       ebase[yyval] = VERT( (ps*6*3)/10 );
#else NEQN
       printf(".ds %d %s\n", yyval, f);
       eht[yyval] = VERT(2);
       ebase[yyval] = 0;
#endif NEQN
       if(dbg)printf(".\tfunny: S%d <- %s; h=%d b=%d\n", 
               yyval, f, eht[yyval], ebase[yyval]);
       lfont[yyval] = rfont[yyval] = ROM;
}