2.9BSD - /usr/src/cmd/eqn/funny.c

   1: # include "e.h"
   2: # include "e.def"
   3: 
   4: funny(n) int n; {
   5:     char *f;
   6: 
   7:     yyval = oalloc();
   8:     switch(n) {
   9:     case SUM:
  10:         f = "\\(*S"; break;
  11:     case UNION:
  12:         f = "\\(cu"; break;
  13:     case INTER: /* intersection */
  14:         f = "\\(ca"; break;
  15:     case PROD:
  16:         f = "\\(*P"; break;
  17:     default:
  18:         error(FATAL, "funny type %d in funny", n);
  19:     }
  20:     printf(".ds %d \\s%d\\v'.3m'\\s+5%s\\s-5\\v'-.3m'\\s%d\n", yyval, ps, f, ps);
  21:     eht[yyval] = VERT( (ps+5)*6 -(ps*6*2)/10 );
  22:     ebase[yyval] = VERT( (ps*6*3)/10 );
  23:     if(dbg)printf(".\tfunny: S%d <- %s; h=%d b=%d\n",
  24:         yyval, f, eht[yyval], ebase[yyval]);
  25:     lfont[yyval] = rfont[yyval] = ROM;
  26: }

Defined functions