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 #include "e.h"
16
17 extern int max();
18
19 void brack(int, char *, char *, char *);
20
21 void
paren(int leftc,int p1,int rightc)22 paren(int leftc, int p1, int rightc)
23 {
24 int n, m, h1, j, b1, v;
25 h1 = eht[p1]; b1 = ebase[p1];
26 yyval = p1;
27 #ifndef NEQN
28 lfont[yyval] = rfont[yyval] = 0;
29 n = (h1 + EM(1.0, EFFPS(ps)) - 1) / EM(1.0, EFFPS(ps));
30 #else /* NEQN */
31 n = max(b1+VERT(1), h1-b1-VERT(1)) / VERT(1);
32 #endif /* NEQN */
33 if (n < 2) n = 1;
34 m = n-2;
35 if (leftc == '{' || rightc == '}') {
36 if ((n % 2) == 0) {
37 n++;
38 }
39 if (n < 3) n = 3;
40 m = n-3;
41 }
42 #ifndef NEQN
43 eht[yyval] = VERT(EM(n, ps));
44 ebase[yyval] = b1 + (eht[yyval]-h1)/2;
45 v = b1 - h1/2 + VERT(EM(0.4, ps));
46 #else /* NEQN */
47 eht[yyval] = VERT(2 * n);
48 ebase[yyval] = (n)/2 * VERT(2);
49 if (n%2 == 0)
50 ebase[yyval] -= VERT(1);
51 v = b1 - h1/2 + VERT(1);
52 #endif /* NEQN */
53 printf(".ds %d \\|\\v'%du'", yyval, v);
54 switch (leftc) {
55 case 'n': /* nothing */
56 case '\0':
57 break;
58 case 'f': /* floor */
59 if (n <= 1)
60 printf("\\(lf");
61 else
62 brack(m, "\\(bv", "\\(bv", "\\(lf");
63 break;
64 case 'c': /* ceiling */
65 if (n <= 1)
66 printf("\\(lc");
67 else
68 brack(m, "\\(lc", "\\(bv", "\\(bv");
69 break;
70 case '{':
71 printf("\\b'\\(lt");
72 for (j = 0; j < m; j += 2) printf("\\(bv");
73 printf("\\(lk");
74 for (j = 0; j < m; j += 2) printf("\\(bv");
75 printf("\\(lb'");
76 break;
77 case '(':
78 brack(m, "\\(lt", "\\(bv", "\\(lb");
79 break;
80 case '[':
81 brack(m, "\\(lc", "\\(bv", "\\(lf");
82 break;
83 case '|':
84 brack(m, "\\(bv", "\\(bv", "\\(bv");
85 break;
86 default:
87 brack(m, (char *)&leftc, (char *)&leftc,
88 (char *)&leftc);
89 break;
90 }
91 printf("\\v'%du'\\*(%d", -v, p1);
92 if (rightc) {
93 printf("\\|\\v'%du'", v);
94 switch (rightc) {
95 case 'f': /* floor */
96 if (n <= 1)
97 printf("\\(rf");
98 else
99 brack(m, "\\(bv", "\\(bv", "\\(rf");
100 break;
101 case 'c': /* ceiling */
102 if (n <= 1)
103 printf("\\(rc");
104 else
105 brack(m, "\\(rc", "\\(bv", "\\(bv");
106 break;
107 case '}':
108 printf("\\b'\\(rt");
109 for (j = 0; j < m; j += 2) printf("\\(bv");
110 printf("\\(rk");
111 for (j = 0; j < m; j += 2) printf("\\(bv");
112 printf("\\(rb'");
113 break;
114 case ']':
115 brack(m, "\\(rc", "\\(bv", "\\(rf");
116 break;
117 case ')':
118 brack(m, "\\(rt", "\\(bv", "\\(rb");
119 break;
120 case '|':
121 brack(m, "\\(bv", "\\(bv", "\\(bv");
122 break;
123 default:
124 brack(m, (char *)&rightc, (char *)&rightc,
125 (char *)&rightc);
126 break;
127 }
128 printf("\\v'%du'", -v);
129 }
130 printf("\n");
131 if (dbg)
132 printf(".\tcurly: h=%d b=%d n=%d v=%d l=%c, r=%c\n",
133 eht[yyval], ebase[yyval], n, v, leftc, rightc);
134 }
135
136 void
brack(int m,char * t,char * c,char * b)137 brack(int m, char *t, char *c, char *b)
138 {
139 int j;
140 printf("\\b'%s", t);
141 for (j = 0; j < m; j++)
142 printf("%s", c);
143 printf("%s'", b);
144 }
145