| 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\n", yyval, f); |
| 21 | eht[yyval] = VERT(2); |
| 22 | ebase[yyval] = 0; |
| 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 | } |