1 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ 2 /* All Rights Reserved */ 3 4 5 /* 6 * Copyright (c) 1980 Regents of the University of California. 7 * All rights reserved. The Berkeley software License Agreement 8 * specifies the terms and conditions for redistribution. 9 */ 10 11 /* 12 * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc. 13 * All Rights Reserved. 14 */ 15 16 #ident "%Z%%M% %I% %E% SMI" /* SVr4.0 1.1 */ 17 18 # include "e.h" 19 # include "e.def" 20 #include <locale.h> 21 22 funny(n) int n; { 23 char *f; 24 25 yyval = oalloc(); 26 switch(n) { 27 case SUM: 28 f = "\\(*S"; break; 29 case UNION: 30 f = "\\(cu"; break; 31 case INTER: /* intersection */ 32 f = "\\(ca"; break; 33 case PROD: 34 f = "\\(*P"; break; 35 default: 36 error(FATAL, gettext("funny type %d in funny"), n); 37 } 38 #ifndef NEQN 39 printf(".ds %d \\s%d\\v'.3m'\\s+5%s\\s-5\\v'-.3m'\\s%d\n", yyval, ps, f, ps); 40 eht[yyval] = VERT(EM(1.0, ps+5) - EM(0.2, ps)); 41 ebase[yyval] = VERT(EM(0.3, ps)); 42 #else NEQN 43 printf(".ds %d %s\n", yyval, f); 44 eht[yyval] = VERT(2); 45 ebase[yyval] = 0; 46 #endif NEQN 47 if(dbg)printf(".\tfunny: S%d <- %s; h=%d b=%d\n", 48 yyval, f, eht[yyval], ebase[yyval]); 49 lfont[yyval] = rfont[yyval] = ROM; 50 } 51