#include "e.h"#define abs(x) ((x) > 0 ? (x) : (-(x)))extern void brack(int, char *, char *, char *);void paren(int leftc, int p1, int rightc){	int n, m, j;	double h1, b1;	double v, bv;	/* v = shift of inside, bv = shift of brackets */	extern double Parenbase, Parenshift, Parenheight;	bv = ttype == DEVPOST ? Parenshift : 0;	/* move brackets down this much */	h1 = eht[p1];	b1 = ebase[p1];	yyval = p1;	lfont[yyval] = rfont[yyval] = 0;	n = REL(h1,ps) + 0.99;	/* ceiling */	if (n < 2)		n = 1;	m = n - 2;	if (leftc == '{' || rightc == '}') {		n = n%2 ? n : ++n;		if (n < 3)			n = 3;		m = n-3;	}	eht[yyval] = EM((double) n + Parenheight, ps);	ebase[yyval] = eht[yyval]/2 - EM(Parenbase, ps);	/* try to cope with things that are badly centered */	/* (top heavy or bottom heavy) */	if (abs(h1/2 - b1) >= EM(0.5, ps))		v = REL(-ebase[yyval] + (eht[yyval]-h1)/2 + b1, ps);	else		v = 0;	/* don't shift it at all */	printf(".ds %d \\^", yyval);	/* was \| */	if (bv)		printf("\\v'%gm'", bv);	switch (leftc) {	case 'n':	/* nothing */	case '\0':		break;	case 'f':	/* floor */		if (n <= 1)			printf("\\(lf");		else			brack(m, "\\(bv", "\\(bv", "\\(lf");		break;	case 'c':	/* ceiling */		if (n <= 1)			printf("\\(lc");		else			brack(m, "\\(lc", "\\(bv", "\\(bv");		break;	case '{':		printf("\\b'\\(lt");		for(j = 0; j < m; j += 2) printf("\\(bv");		printf("\\(lk");		for(j = 0; j < m; j += 2) printf("\\(bv");		printf("\\(lb'");		break;	case '(':		brack(m, "\\(lt", "\\(bv", "\\(lb");		break;	case '[':		brack(m, "\\(lc", "\\(bv", "\\(lf");		break;	case '|':		brack(m, "|", "|", "|");		break;	default:		brack(m, (char *) &leftc, (char *) &leftc, (char *) &leftc);		break;	}	if (bv)		printf("\\v'%gm'", -bv);	if (v)		printf("\\v'%gm'\\*(%d\\v'%gm'", -v, p1, v);	else		printf("\\*(%d", p1);	if (rightc) {		if (bv)			printf("\\v'%gm'", bv);		switch (rightc) {		case 'f':	/* floor */			if (n <= 1)				printf("\\(rf");			else				brack(m, "\\(bv", "\\(bv", "\\(rf");			break;		case 'c':	/* ceiling */			if (n <= 1)				printf("\\(rc");			else				brack(m, "\\(rc", "\\(bv", "\\(bv");			break;		case '}':			printf("\\b'\\(rt");			for(j = 0; j < m; j += 2) printf("\\(bv");			printf("\\(rk");			for(j = 0; j < m; j += 2) printf("\\(bv");			printf("\\(rb'");			break;		case ']':			brack(m, "\\(rc", "\\(bv", "\\(rf");			break;		case ')':			brack(m, "\\(rt", "\\(bv", "\\(rb");			break;		case '|':			brack(m, "|", "|", "|");			break;		default:			brack(m, (char *) &rightc, (char *) &rightc, (char *) &rightc);			break;		}		if (bv)			printf("\\v'%gm'", -bv);	}	printf("\n");	dprintf(".\tcurly: h=%g b=%g n=%d v=%g l=%c, r=%c\n", 		eht[yyval], ebase[yyval], n, v, leftc, rightc);}void brack(int m, char *t, char *c, char *b){	int j;	printf("\\b'%s", t);	for( j=0; j < m; j++)		printf("%s", c);	printf("%s'", b);}