xref: /titanic_44/usr/src/cmd/eqn/paren.c (revision 32529ec11ac8e93a62985721612a18ee6bb8659a)
1 /*
2  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
3  * Use is subject to license terms.
4  */
5 
6 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
7 /*	  All Rights Reserved  	*/
8 
9 /*
10  * Copyright (c) 1980 Regents of the University of California.
11  * All rights reserved. The Berkeley software License Agreement
12  * specifies the terms and conditions for redistribution.
13  */
14 
15 #pragma ident	"%Z%%M%	%I%	%E% SMI"
16 
17 #include "e.h"
18 
19 extern int max();
20 
21 void brack(int, char *, char *, char *);
22 
23 void
24 paren(int leftc, int p1, int rightc)
25 {
26 	int n, m, h1, j, b1, v;
27 	h1 = eht[p1]; b1 = ebase[p1];
28 	yyval = p1;
29 #ifndef NEQN
30 	lfont[yyval] = rfont[yyval] = 0;
31 	n = (h1 + EM(1.0, EFFPS(ps)) - 1) / EM(1.0, EFFPS(ps));
32 #else	/* NEQN */
33 	n = max(b1+VERT(1), h1-b1-VERT(1)) / VERT(1);
34 #endif	/* NEQN */
35 	if (n < 2) n = 1;
36 	m = n-2;
37 	if (leftc == '{' || rightc == '}') {
38 		if ((n % 2) == 0) {
39 			n++;
40 		}
41 		if (n < 3) n = 3;
42 		m = n-3;
43 	}
44 #ifndef NEQN
45 	eht[yyval] = VERT(EM(n, ps));
46 	ebase[yyval] = b1 + (eht[yyval]-h1)/2;
47 	v = b1 - h1/2 + VERT(EM(0.4, ps));
48 #else	/* NEQN */
49 	eht[yyval] = VERT(2 * n);
50 	ebase[yyval] = (n)/2 * VERT(2);
51 	if (n%2 == 0)
52 		ebase[yyval] -= VERT(1);
53 	v = b1 - h1/2 + VERT(1);
54 #endif	/* NEQN */
55 	printf(".ds %d \\|\\v'%du'", yyval, v);
56 	switch (leftc) {
57 		case 'n':	/* nothing */
58 		case '\0':
59 			break;
60 		case 'f':	/* floor */
61 			if (n <= 1)
62 				printf("\\(lf");
63 			else
64 				brack(m, "\\(bv", "\\(bv", "\\(lf");
65 			break;
66 		case 'c':	/* ceiling */
67 			if (n <= 1)
68 				printf("\\(lc");
69 			else
70 				brack(m, "\\(lc", "\\(bv", "\\(bv");
71 			break;
72 		case '{':
73 			printf("\\b'\\(lt");
74 			for (j = 0; j < m; j += 2) printf("\\(bv");
75 			printf("\\(lk");
76 			for (j = 0; j < m; j += 2) printf("\\(bv");
77 			printf("\\(lb'");
78 			break;
79 		case '(':
80 			brack(m, "\\(lt", "\\(bv", "\\(lb");
81 			break;
82 		case '[':
83 			brack(m, "\\(lc", "\\(bv", "\\(lf");
84 			break;
85 		case '|':
86 			brack(m, "\\(bv", "\\(bv", "\\(bv");
87 			break;
88 		default:
89 			brack(m, (char *)&leftc, (char *)&leftc,
90 			    (char *)&leftc);
91 			break;
92 		}
93 	printf("\\v'%du'\\*(%d", -v, p1);
94 	if (rightc) {
95 		printf("\\|\\v'%du'", v);
96 		switch (rightc) {
97 			case 'f':	/* floor */
98 				if (n <= 1)
99 					printf("\\(rf");
100 				else
101 					brack(m, "\\(bv", "\\(bv", "\\(rf");
102 				break;
103 			case 'c':	/* ceiling */
104 				if (n <= 1)
105 					printf("\\(rc");
106 				else
107 					brack(m, "\\(rc", "\\(bv", "\\(bv");
108 				break;
109 			case '}':
110 				printf("\\b'\\(rt");
111 				for (j = 0; j < m; j += 2) printf("\\(bv");
112 				printf("\\(rk");
113 				for (j = 0; j < m; j += 2) printf("\\(bv");
114 				printf("\\(rb'");
115 				break;
116 			case ']':
117 				brack(m, "\\(rc", "\\(bv", "\\(rf");
118 				break;
119 			case ')':
120 				brack(m, "\\(rt", "\\(bv", "\\(rb");
121 				break;
122 			case '|':
123 				brack(m, "\\(bv", "\\(bv", "\\(bv");
124 				break;
125 			default:
126 				brack(m, (char *)&rightc, (char *)&rightc,
127 				    (char *)&rightc);
128 				break;
129 		}
130 		printf("\\v'%du'", -v);
131 	}
132 	printf("\n");
133 	if (dbg)
134 		printf(".\tcurly: h=%d b=%d n=%d v=%d l=%c, r=%c\n",
135 		    eht[yyval], ebase[yyval], n, v, leftc, rightc);
136 }
137 
138 void
139 brack(int m, char *t, char *c, char *b)
140 {
141 	int j;
142 	printf("\\b'%s", t);
143 	for (j = 0; j < m; j++)
144 		printf("%s", c);
145 	printf("%s'", b);
146 }
147