|
|
1.1 ! root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.