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#include "e.def"
19
20void
21bshiftb(int p1, int dir, int p2)
22{
23	int shval, d1, h1, b1, h2, b2;
24#ifndef NEQN
25	int diffps, effps, effps2;
26	char *sh1, *sh2;
27#endif	/* NEQN */
28
29	yyval = p1;
30	h1 = eht[p1];
31	b1 = ebase[p1];
32	h2 = eht[p2];
33	b2 = ebase[p2];
34#ifndef NEQN
35	effps = EFFPS(ps);
36	effps2 = EFFPS(ps+deltaps);
37	diffps = deltaps;
38	sh1 = sh2 = "";
39#endif	/* NEQN */
40	if (dir == SUB) {	/* subscript */
41#ifndef NEQN
42		/* top 1/2m above bottom of main box */
43		d1 = VERT(EM(0.5, effps2));
44#else	/* NEQN */
45		d1 = VERT(1);
46#endif	/* NEQN */
47		shval = - d1 + h2 - b2;
48		if (d1+b1 > h2) /* move little sub down */
49			shval = b1-b2;
50		ebase[yyval] = b1 + max(0, h2-b1-d1);
51		eht[yyval] = h1 + max(0, h2-b1-d1);
52#ifndef NEQN
53		if (rfont[p1] == ITAL && lfont[p2] == ROM)
54			sh1 = "\\|";
55		if (rfont[p2] == ITAL)
56			sh2 = "\\|";
57#endif	/* NEQN */
58	} else {	/* superscript */
59#ifndef NEQN
60		/* 4/10 up main box */
61		d1 = VERT(EM(0.2, effps));
62#else	/* NEQN */
63		d1 = VERT(1);
64#endif	/* NEQN */
65		ebase[yyval] = b1;
66#ifndef NEQN
67		shval = -VERT((4 * (h1-b1)) / 10) - b2;
68		if (VERT(4*(h1-b1)/10) + h2 < h1-b1)	/* raise little super */
69#else	/* NEQN */
70		shval = -VERT(1) - b2;
71		if (VERT(1) + h2 < h1-b1)	/* raise little super */
72#endif	/* NEQN */
73			shval = -(h1-b1) + h2-b2 - d1;
74#ifndef NEQN
75		eht[yyval] = h1 + max(0, h2-VERT((6*(h1-b1))/10));
76		if (rfont[p1] == ITAL)
77			sh1 = "\\|";
78		if (rfont[p2] == ITAL)
79			sh2 = "\\|";
80#else	/* NEQN */
81		eht[yyval] = h1 + max(0, h2 - VERT(1));
82#endif	/* NEQN */
83	}
84	if (dbg)
85		printf(".\tb:b shift b: S%d <- S%d vert %d S%d vert %d; "
86		    "b=%d, h=%d\n", yyval, p1, shval, p2, -shval,
87		    ebase[yyval], eht[yyval]);
88#ifndef NEQN
89	printf(".as %d \\v'%du'\\s-%d%s\\*(%d\\s+%d%s\\v'%du'\n",
90	    yyval, shval, diffps, sh1, p2, diffps, sh2, -shval);
91	ps += deltaps;
92	if (rfont[p2] == ITAL)
93		rfont[p1] = 0;
94	else
95		rfont[p1] = rfont[p2];
96#else	/* NEQN */
97	printf(".as %d \\v'%du'\\*(%d\\v'%du'\n",
98	    yyval, shval, p2, -shval);
99#endif	/* NEQN */
100	ofree(p2);
101}
102
103void
104shift(int p1)
105{
106	ps -= deltaps;
107	yyval = p1;
108	if (dbg) printf(".\tshift: %d;ps=%d\n", yyval, ps);
109}
110
111void
112shift2(int p1, int p2, int p3)
113{
114	int effps, h1, h2, h3, b1, b2, b3, subsh, d1, d2, supsh, treg;
115#ifndef NEQN
116	int effps2;
117#endif	/* NEQN */
118
119	treg = oalloc();
120	yyval = p1;
121	if (dbg) printf(".\tshift2 s%d <- %d %d %d\n", yyval, p1, p2, p3);
122	effps = EFFPS(ps+deltaps);
123#ifndef NEQN
124	eht[p3] = h3 = VERT((eht[p3] * effps) / EFFPS(ps));
125	ps += deltaps;
126	effps2 = EFFPS(ps+deltaps);
127#endif	/* NEQN */
128	h1 = eht[p1]; b1 = ebase[p1];
129	h2 = eht[p2]; b2 = ebase[p2];
130#ifndef NEQN
131	b3 = ebase[p3];
132	d1 = VERT(EM(0.5, effps2));
133#else	/* NEQN */
134	h3 = eht[p3]; b3 = ebase[p3];
135	d1 = VERT(1);
136#endif	/* NEQN */
137	subsh = -d1+h2-b2;
138	if (d1+b1 > h2) /* move little sub down */
139		subsh = b1-b2;
140#ifndef NEQN
141	supsh = -VERT((4*(h1-b1))/10) - b3;
142	d2 = VERT(EM(0.2, effps));
143	if (VERT(4*(h1-b1)/10)+h3 < h1-b1)
144#else	/* NEQN */
145	supsh = - VERT(1) - b3;
146	d2 = VERT(1);
147	if (VERT(1)+h3 < h1-b1)
148#endif	/* NEQN */
149		supsh = -(h1-b1) + (h3-b3) - d2;
150#ifndef NEQN
151	eht[yyval] = h1 + max(0, h3-VERT((6*(h1-b1))/10)) + max(0, h2-b1-d1);
152#else	/* NEQN */
153	eht[yyval] = h1 + max(0, h3-VERT(1)) + max(0, h2-b1-d1);
154#endif	/* NEQN */
155	ebase[yyval] = b1+max(0, h2-b1-d1);
156#ifndef NEQN
157	if (rfont[p1] == ITAL && lfont[p2] == ROM)
158		printf(".ds %d \\|\\*(%d\n", p2, p2);
159	if (rfont[p2] == ITAL)
160		printf(".as %d \\|\n", p2);
161#endif	/* NEQN */
162	nrwid(p2, effps, p2);
163#ifndef NEQN
164	if (rfont[p1] == ITAL && lfont[p3] == ROM)
165		printf(".ds %d \\|\\|\\*(%d\n", p3, p3);
166	else
167		printf(".ds %d \\|\\*(%d\n", p3, p3);
168#endif	/* NEQN */
169	nrwid(p3, effps, p3);
170	printf(".nr %d \\n(%d\n", treg, p3);
171	printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, treg, treg, p2);
172#ifndef NEQN
173	printf(".as %d \\v'%du'\\s%d\\*(%d\\h'-\\n(%du'\\v'%du'\\\n",
174	    p1, subsh, effps, p2, p2, -subsh+supsh);
175	printf("\\s%d\\*(%d\\h'-\\n(%du+\\n(%du'\\s%d\\v'%du'\n",
176	    effps, p3, p3, treg, effps2, -supsh);
177#else	/* NEQN */
178	printf(".as %d \\v'%du'\\*(%d\\h'-\\n(%du'\\v'%du'\\\n",
179	    p1, subsh, p2, p2, -subsh+supsh);
180	printf("\\*(%d\\h'-\\n(%du+\\n(%du'\\v'%du'\n",
181	    p3, p3, treg, -supsh);
182#endif	/* NEQN */
183	ps += deltaps;
184#ifndef NEQN
185	if (rfont[p2] == ITAL)
186		rfont[yyval] = 0;	/* lie */
187#endif	/* NEQN */
188	ofree(p2); ofree(p3); ofree(treg);
189}
190