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 /* from OpenSolaris "fromto.c 1.3 05/06/02 SMI" SVr4.0 1.1 */
17
18 /*
19 * Portions Copyright (c) 2005 Gunnar Ritter, Freiburg i. Br., Germany
20 *
21 * Sccsid @(#)fromto.c 1.5 (gritter) 10/19/06
22 */
23
24 /*
25 * Changes Copyright (c) 2014 Carsten Kunze (carsten.kunze at arcor.de)
26 */
27
28 # include "e.h"
29 #include "y.tab.h"
30
31 extern YYSTYPE yyval;
32
33 void
fromto(int p1,int p2,int p3)34 fromto(int p1, int p2, int p3) {
35 float pss;
36 #ifndef NEQN
37 float b, h1, b1;
38 #else /* NEQN */
39 int b, h1, b1;
40 #endif /* NEQN */
41 yyval.token = oalloc();
42 lfont[yyval.token] = rfont[yyval.token] = 0;
43 h1 = eht[yyval.token] = eht[p1];
44 b1 = ebase[p1];
45 b = 0;
46 pss = EFFPS(ps);
47 ps += 3;
48 nrwid(p1, ps, p1);
49 printf(".nr %d \\n(%d\n", yyval.token, p1);
50 if( p2>0 ) {
51 nrwid(p2, pss, p2);
52 printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p2, yyval.token, yyval.token, p2);
53 eht[yyval.token] += eht[p2];
54 b = eht[p2];
55 }
56 if( p3>0 ) {
57 nrwid(p3, pss, p3);
58 printf(".if \\n(%d>\\n(%d .nr %d \\n(%d\n", p3, yyval.token, yyval.token, p3);
59 eht[yyval.token] += eht[p3];
60 }
61 printf(".ds %d ", yyval.token); /* bottom of middle box */
62 if( p2>0 ) {
63 #ifndef NEQN
64 printf("\\v'%gp'\\h'\\n(%du-\\n(%du/2u'\\s%s\\*(%d\\s%s",
65 eht[p2]-ebase[p2]+b1, yyval.token, p2, tsize(pss), p2, tsize(EFFPS(ps)));
66 printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%gp'\\\n",
67 yyval.token, p2, -(eht[p2]-ebase[p2]+b1));
68 #else /* NEQN */
69 printf("\\v'%du'\\h'\\n(%du-\\n(%du/2u'\\s%s\\*(%d\\s%s",
70 eht[p2]-ebase[p2]+b1, yyval.token, p2, tsize(pss), p2, tsize(EFFPS(ps)));
71 printf("\\h'-\\n(%du-\\n(%du/2u'\\v'%du'\\\n",
72 yyval.token, p2, -(eht[p2]-ebase[p2]+b1));
73 #endif /* NEQN */
74 }
75 #ifndef NEQN
76 printf("\\h'\\n(%du-\\n(%du/2u'\\*(%d\\h'\\n(%du-\\n(%du/2u'\\\n",
77 yyval.token, p1, p1, yyval.token, p1);
78 #else /* NEQN */
79 printf("\\h'\\n(%du-\\n(%du/2u'\\*(%d\\h'\\n(%du-\\n(%du+2u/2u'\\\n",
80 yyval.token, p1, p1, yyval.token, p1);
81 #endif /* NEQN */
82 if( p3>0 ) {
83 #ifndef NEQN
84 printf("\\v'%gp'\\h'-\\n(%du-\\n(%du/2u'\\s%s\\*(%d\\s%s\\h'\\n(%du-\\n(%du/2u'\\v'%gp'\\\n",
85 -(h1-b1+ebase[p3]), yyval.token, p3, tsize(pss), p3, tsize(EFFPS(ps)), yyval.token, p3, (h1-b1+ebase[p3]));
86 #else /* NEQN */
87 printf("\\v'%du'\\h'-\\n(%du-\\n(%du/2u'\\s%s\\*(%d\\s%s\\h'\\n(%du-\\n(%du/2u'\\v'%du'\\\n",
88 -(h1-b1+ebase[p3]), yyval.token, p3, tsize(pss), p3, tsize(EFFPS(ps)), yyval.token, p3, (h1-b1+ebase[p3]));
89 #endif /* NEQN */
90 }
91 printf("\n");
92 ebase[yyval.token] = b + b1;
93 #ifndef NEQN
94 if(dbg)printf(".\tfrom to: S%d <- %d f %d t %d; h=%g b=%g\n",
95 yyval.token, p1, p2, p3, eht[yyval.token], ebase[yyval.token]);
96 #else /* NEQN */
97 if(dbg)printf(".\tfrom to: S%d <- %d f %d t %d; h=%d b=%d\n",
98 yyval.token, p1, p2, p3, eht[yyval.token], ebase[yyval.token]);
99 #endif /* NEQN */
100 ofree(p1);
101 if( p2>0 ) ofree(p2);
102 if( p3>0 ) ofree(p3);
103 }
104