Blame

Date:
Message:
Trivial changes: whitespace and modes. Remote whitespace at the ends of lines. Remove blank lines from the ends of files. Change modes on source files so that they are not executable. Signed-off-by: Dan Cross <cross@gajendra.net>
Actions:
History | Blob | Raw File
  1 5cedca1b 2004-05-15 devnull #include "e.h"

  2 5cedca1b 2004-05-15 devnull 

  3 5cedca1b 2004-05-15 devnull #define abs(x) ((x) > 0 ? (x) : (-(x)))

  4 5cedca1b 2004-05-15 devnull 

  5 5cedca1b 2004-05-15 devnull extern void brack(int, char *, char *, char *);

  6 5cedca1b 2004-05-15 devnull 

  7 5cedca1b 2004-05-15 devnull void paren(int leftc, int p1, int rightc)

  8 5cedca1b 2004-05-15 devnull {

  9 5cedca1b 2004-05-15 devnull 	int n, m, j;

 10 5cedca1b 2004-05-15 devnull 	double h1, b1;

 11 5cedca1b 2004-05-15 devnull 	double v, bv;	/* v = shift of inside, bv = shift of brackets */

 12 5cedca1b 2004-05-15 devnull 	extern double Parenbase, Parenshift, Parenheight;

 13 5cedca1b 2004-05-15 devnull 

 14 5cedca1b 2004-05-15 devnull 	bv = ttype == DEVPOST ? Parenshift : 0;	/* move brackets down this much */

 15 5cedca1b 2004-05-15 devnull 	h1 = eht[p1];

 16 5cedca1b 2004-05-15 devnull 	b1 = ebase[p1];

 17 5cedca1b 2004-05-15 devnull 	yyval = p1;

 18 5cedca1b 2004-05-15 devnull 	lfont[yyval] = rfont[yyval] = 0;

 19 5cedca1b 2004-05-15 devnull 	n = REL(h1,ps) + 0.99;	/* ceiling */

 20 5cedca1b 2004-05-15 devnull 	if (n < 2)

 21 5cedca1b 2004-05-15 devnull 		n = 1;

 22 5cedca1b 2004-05-15 devnull 	m = n - 2;

 23 5cedca1b 2004-05-15 devnull 	if (leftc == '{' || rightc == '}') {

 24 73bfbacb 2004-12-27 devnull 		n = n%2 ? n : n+1;

 25 5cedca1b 2004-05-15 devnull 		if (n < 3)

 26 5cedca1b 2004-05-15 devnull 			n = 3;

 27 5cedca1b 2004-05-15 devnull 		m = n-3;

 28 5cedca1b 2004-05-15 devnull 	}

 29 5cedca1b 2004-05-15 devnull 	eht[yyval] = EM((double) n + Parenheight, ps);

 30 5cedca1b 2004-05-15 devnull 	ebase[yyval] = eht[yyval]/2 - EM(Parenbase, ps);

 31 5cedca1b 2004-05-15 devnull 

 32 5cedca1b 2004-05-15 devnull 	/* try to cope with things that are badly centered */

 33 5cedca1b 2004-05-15 devnull 	/* (top heavy or bottom heavy) */

 34 5cedca1b 2004-05-15 devnull 	if (abs(h1/2 - b1) >= EM(0.5, ps))

 35 5cedca1b 2004-05-15 devnull 		v = REL(-ebase[yyval] + (eht[yyval]-h1)/2 + b1, ps);

 36 5cedca1b 2004-05-15 devnull 	else

 37 5cedca1b 2004-05-15 devnull 		v = 0;	/* don't shift it at all */

 38 5cedca1b 2004-05-15 devnull 

 39 eb9be703 2006-02-04 devnull 	printf(".ds %d \\^", (int)yyval);	/* was \| */

 40 5cedca1b 2004-05-15 devnull 	if (bv)

 41 5cedca1b 2004-05-15 devnull 		printf("\\v'%gm'", bv);

 42 5cedca1b 2004-05-15 devnull 	switch (leftc) {

 43 5cedca1b 2004-05-15 devnull 	case 'n':	/* nothing */

 44 5cedca1b 2004-05-15 devnull 	case '\0':

 45 5cedca1b 2004-05-15 devnull 		break;

 46 5cedca1b 2004-05-15 devnull 	case 'f':	/* floor */

 47 5cedca1b 2004-05-15 devnull 		if (n <= 1)

 48 5cedca1b 2004-05-15 devnull 			printf("\\(lf");

 49 5cedca1b 2004-05-15 devnull 		else

 50 5cedca1b 2004-05-15 devnull 			brack(m, "\\(bv", "\\(bv", "\\(lf");

 51 5cedca1b 2004-05-15 devnull 		break;

 52 5cedca1b 2004-05-15 devnull 	case 'c':	/* ceiling */

 53 5cedca1b 2004-05-15 devnull 		if (n <= 1)

 54 5cedca1b 2004-05-15 devnull 			printf("\\(lc");

 55 5cedca1b 2004-05-15 devnull 		else

 56 5cedca1b 2004-05-15 devnull 			brack(m, "\\(lc", "\\(bv", "\\(bv");

 57 5cedca1b 2004-05-15 devnull 		break;

 58 5cedca1b 2004-05-15 devnull 	case '{':

 59 5cedca1b 2004-05-15 devnull 		printf("\\b'\\(lt");

 60 5cedca1b 2004-05-15 devnull 		for(j = 0; j < m; j += 2) printf("\\(bv");

 61 5cedca1b 2004-05-15 devnull 		printf("\\(lk");

 62 5cedca1b 2004-05-15 devnull 		for(j = 0; j < m; j += 2) printf("\\(bv");

 63 5cedca1b 2004-05-15 devnull 		printf("\\(lb'");

 64 5cedca1b 2004-05-15 devnull 		break;

 65 5cedca1b 2004-05-15 devnull 	case '(':

 66 5cedca1b 2004-05-15 devnull 		brack(m, "\\(lt", "\\(bv", "\\(lb");

 67 5cedca1b 2004-05-15 devnull 		break;

 68 5cedca1b 2004-05-15 devnull 	case '[':

 69 5cedca1b 2004-05-15 devnull 		brack(m, "\\(lc", "\\(bv", "\\(lf");

 70 5cedca1b 2004-05-15 devnull 		break;

 71 5cedca1b 2004-05-15 devnull 	case '|':

 72 5cedca1b 2004-05-15 devnull 		brack(m, "|", "|", "|");

 73 5cedca1b 2004-05-15 devnull 		break;

 74 5cedca1b 2004-05-15 devnull 	default:

 75 5cedca1b 2004-05-15 devnull 		brack(m, (char *) &leftc, (char *) &leftc, (char *) &leftc);

 76 5cedca1b 2004-05-15 devnull 		break;

 77 5cedca1b 2004-05-15 devnull 	}

 78 5cedca1b 2004-05-15 devnull 	if (bv)

 79 5cedca1b 2004-05-15 devnull 		printf("\\v'%gm'", -bv);

 80 5cedca1b 2004-05-15 devnull 	if (v)

 81 5cedca1b 2004-05-15 devnull 		printf("\\v'%gm'\\*(%d\\v'%gm'", -v, p1, v);

 82 5cedca1b 2004-05-15 devnull 	else

 83 5cedca1b 2004-05-15 devnull 		printf("\\*(%d", p1);

 84 5cedca1b 2004-05-15 devnull 	if (rightc) {

 85 5cedca1b 2004-05-15 devnull 		if (bv)

 86 5cedca1b 2004-05-15 devnull 			printf("\\v'%gm'", bv);

 87 5cedca1b 2004-05-15 devnull 		switch (rightc) {

 88 5cedca1b 2004-05-15 devnull 		case 'f':	/* floor */

 89 5cedca1b 2004-05-15 devnull 			if (n <= 1)

 90 5cedca1b 2004-05-15 devnull 				printf("\\(rf");

 91 5cedca1b 2004-05-15 devnull 			else

 92 5cedca1b 2004-05-15 devnull 				brack(m, "\\(bv", "\\(bv", "\\(rf");

 93 5cedca1b 2004-05-15 devnull 			break;

 94 5cedca1b 2004-05-15 devnull 		case 'c':	/* ceiling */

 95 5cedca1b 2004-05-15 devnull 			if (n <= 1)

 96 5cedca1b 2004-05-15 devnull 				printf("\\(rc");

 97 5cedca1b 2004-05-15 devnull 			else

 98 5cedca1b 2004-05-15 devnull 				brack(m, "\\(rc", "\\(bv", "\\(bv");

 99 5cedca1b 2004-05-15 devnull 			break;

100 5cedca1b 2004-05-15 devnull 		case '}':

101 5cedca1b 2004-05-15 devnull 			printf("\\b'\\(rt");

102 5cedca1b 2004-05-15 devnull 			for(j = 0; j < m; j += 2) printf("\\(bv");

103 5cedca1b 2004-05-15 devnull 			printf("\\(rk");

104 5cedca1b 2004-05-15 devnull 			for(j = 0; j < m; j += 2) printf("\\(bv");

105 5cedca1b 2004-05-15 devnull 			printf("\\(rb'");

106 5cedca1b 2004-05-15 devnull 			break;

107 5cedca1b 2004-05-15 devnull 		case ']':

108 5cedca1b 2004-05-15 devnull 			brack(m, "\\(rc", "\\(bv", "\\(rf");

109 5cedca1b 2004-05-15 devnull 			break;

110 5cedca1b 2004-05-15 devnull 		case ')':

111 5cedca1b 2004-05-15 devnull 			brack(m, "\\(rt", "\\(bv", "\\(rb");

112 5cedca1b 2004-05-15 devnull 			break;

113 5cedca1b 2004-05-15 devnull 		case '|':

114 5cedca1b 2004-05-15 devnull 			brack(m, "|", "|", "|");

115 5cedca1b 2004-05-15 devnull 			break;

116 5cedca1b 2004-05-15 devnull 		default:

117 5cedca1b 2004-05-15 devnull 			brack(m, (char *) &rightc, (char *) &rightc, (char *) &rightc);

118 5cedca1b 2004-05-15 devnull 			break;

119 5cedca1b 2004-05-15 devnull 		}

120 5cedca1b 2004-05-15 devnull 		if (bv)

121 5cedca1b 2004-05-15 devnull 			printf("\\v'%gm'", -bv);

122 5cedca1b 2004-05-15 devnull 	}

123 5cedca1b 2004-05-15 devnull 	printf("\n");

124 fa325e9b 2020-01-10 cross 	dprintf(".\tcurly: h=%g b=%g n=%d v=%g l=%c, r=%c\n",

125 5cedca1b 2004-05-15 devnull 		eht[yyval], ebase[yyval], n, v, leftc, rightc);

126 5cedca1b 2004-05-15 devnull }

127 5cedca1b 2004-05-15 devnull 

128 5cedca1b 2004-05-15 devnull void brack(int m, char *t, char *c, char *b)

129 5cedca1b 2004-05-15 devnull {

130 5cedca1b 2004-05-15 devnull 	int j;

131 5cedca1b 2004-05-15 devnull 	printf("\\b'%s", t);

132 5cedca1b 2004-05-15 devnull 	for( j=0; j < m; j++)

133 5cedca1b 2004-05-15 devnull 		printf("%s", c);

134 5cedca1b 2004-05-15 devnull 	printf("%s'", b);

135 5cedca1b 2004-05-15 devnull }