Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/feature_tlsv12/sys/src/cmd/eqn/paren.c – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include "e.h"
2 
 
3 
#define abs(x) ((x) > 0 ? (x) : (-(x)))
4 
 
5 
extern void brack(int, char *, char *, char *);
6 
 
7 
void paren(int leftc, int p1, int rightc)
8 
{
9 
	int n, m, j;
10 
	double h1, b1;
11 
	double v, bv;	/* v = shift of inside, bv = shift of brackets */
12 
	extern double Parenbase, Parenshift, Parenheight;
13 
 
14 
	bv = ttype == DEVPOST ? Parenshift : 0;	/* move brackets down this much */
15 
	h1 = eht[p1];
16 
	b1 = ebase[p1];
17 
	yyval = p1;
18 
	lfont[yyval] = rfont[yyval] = 0;
19 
	n = REL(h1,ps) + 0.99;	/* ceiling */
20 
	if (n < 2)
21 
		n = 1;
22 
	m = n - 2;
23 
	if (leftc == '{' || rightc == '}') {
24 
		n = n%2 ? n : ++n;
25 
		if (n < 3)
26 
			n = 3;
27 
		m = n-3;
28 
	}
29 
	eht[yyval] = EM((double) n + Parenheight, ps);
30 
	ebase[yyval] = eht[yyval]/2 - EM(Parenbase, ps);
31 
 
32 
	/* try to cope with things that are badly centered */
33 
	/* (top heavy or bottom heavy) */
34 
	if (abs(h1/2 - b1) >= EM(0.5, ps))
35 
		v = REL(-ebase[yyval] + (eht[yyval]-h1)/2 + b1, ps);
36 
	else
37 
		v = 0;	/* don't shift it at all */
38 
 
39 
	printf(".ds %d \\^", yyval);	/* was \| */
40 
	if (bv)
41 
		printf("\\v'%gm'", bv);
42 
	switch (leftc) {
43 
	case 'n':	/* nothing */
44 
	case '\0':
45 
		break;
46 
	case 'f':	/* floor */
47 
		if (n <= 1)
48 
			printf("\\(lf");
49 
		else
50 
			brack(m, "\\(bv", "\\(bv", "\\(lf");
51 
		break;
52 
	case 'c':	/* ceiling */
53 
		if (n <= 1)
54 
			printf("\\(lc");
55 
		else
56 
			brack(m, "\\(lc", "\\(bv", "\\(bv");
57 
		break;
58 
	case '{':
59 
		printf("\\b'\\(lt");
60 
		for(j = 0; j < m; j += 2) printf("\\(bv");
61 
		printf("\\(lk");
62 
		for(j = 0; j < m; j += 2) printf("\\(bv");
63 
		printf("\\(lb'");
64 
		break;
65 
	case '(':
66 
		brack(m, "\\(lt", "\\(bv", "\\(lb");
67 
		break;
68 
	case '[':
69 
		brack(m, "\\(lc", "\\(bv", "\\(lf");
70 
		break;
71 
	case '|':
72 
		brack(m, "|", "|", "|");
73 
		break;
74 
	default:
75 
		brack(m, (char *) &leftc, (char *) &leftc, (char *) &leftc);
76 
		break;
77 
	}
78 
	if (bv)
79 
		printf("\\v'%gm'", -bv);
80 
	if (v)
81 
		printf("\\v'%gm'\\*(%d\\v'%gm'", -v, p1, v);
82 
	else
83 
		printf("\\*(%d", p1);
84 
	if (rightc) {
85 
		if (bv)
86 
			printf("\\v'%gm'", bv);
87 
		switch (rightc) {
88 
		case 'f':	/* floor */
89 
			if (n <= 1)
90 
				printf("\\(rf");
91 
			else
92 
				brack(m, "\\(bv", "\\(bv", "\\(rf");
93 
			break;
94 
		case 'c':	/* ceiling */
95 
			if (n <= 1)
96 
				printf("\\(rc");
97 
			else
98 
				brack(m, "\\(rc", "\\(bv", "\\(bv");
99 
			break;
100 
		case '}':
101 
			printf("\\b'\\(rt");
102 
			for(j = 0; j < m; j += 2) printf("\\(bv");
103 
			printf("\\(rk");
104 
			for(j = 0; j < m; j += 2) printf("\\(bv");
105 
			printf("\\(rb'");
106 
			break;
107 
		case ']':
108 
			brack(m, "\\(rc", "\\(bv", "\\(rf");
109 
			break;
110 
		case ')':
111 
			brack(m, "\\(rt", "\\(bv", "\\(rb");
112 
			break;
113 
		case '|':
114 
			brack(m, "|", "|", "|");
115 
			break;
116 
		default:
117 
			brack(m, (char *) &rightc, (char *) &rightc, (char *) &rightc);
118 
			break;
119 
		}
120 
		if (bv)
121 
			printf("\\v'%gm'", -bv);
122 
	}
123 
	printf("\n");
124 
	dprintf(".\tcurly: h=%g b=%g n=%d v=%g l=%c, r=%c\n",
125 
		eht[yyval], ebase[yyval], n, v, leftc, rightc);
126 
}
127 
 
128 
void brack(int m, char *t, char *c, char *b)
129 
{
130 
	int j;
131 
	printf("\\b'%s", t);
132 
	for( j=0; j < m; j++)
133 
		printf("%s", c);
134 
	printf("%s'", b);
135 
}