home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / eqn / funny.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  600 b   |  27 lines
  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. }
  27.