Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
# include "e.h"
2 
 
3 
void setfont(char *ch1)
4 
{
5 
	yyval = ft;
6 
	if (strcmp(ch1, "I") == 0) {	/* I and italic mean merely position 2 */
7 
		*ch1 = '2';
8 
		ft = ITAL;
9 
	} else if (strcmp(ch1, "B") == 0) {	/* and similarly for B & bold */
10 
		*ch1 = '3';
11 
		ft = BLD;
12 
	} else if (strcmp(ch1, "R") == 0) {	/* and R and roman */
13 
		*ch1 = '1';
14 
		ft = ROM;
15 
	} else {
16 
		ft = ROM;	/* assume it's a roman style */
17 
	}
18 
	ftp++;
19 
	if (ftp >= &ftstack[10])
20 
		ERROR "font stack overflow (10)" FATAL;
21 
	ftp->ft = ft;
22 
	if (ch1[1] == 0) {	/* 1-char name */
23 
		ftp->name[0] = *ch1;
24 
		ftp->name[1] = '\0';
25 
	} else
26 
		sprintf(ftp->name, "(%s", ch1);
27 
	dprintf(".\tsetfont %s %c\n", ch1, ft);
28 
}
29 
 
30 
void font(int p1, int p2)
31 
{
32 
		/* old font in p1, new in ft */
33 
	yyval = p2;
34 
	lfont[yyval] = rfont[yyval] = ft==ITAL ? ITAL : ROM;
35 
	ftp--;
36 
	ft = p1;
37 
}
38 
 
39 
void globfont(void)
40 
{
41 
	char temp[20];
42 
 
43 
	getstr(temp, sizeof(temp));
44 
	yyval = eqnreg = 0;
45 
	if (strcmp(temp, "I") == 0 || strncmp(temp, "it", 2) == 0) {
46 
		ft = ITAL;
47 
		strcpy(temp, "2");
48 
	} else if (strcmp(temp, "B") == 0 || strncmp(temp, "bo", 2) == 0) {
49 
		ft = BLD;
50 
		strcpy(temp, "3");
51 
	} else if (strcmp(temp, "R") == 0 || strncmp(temp, "ro", 2) == 0) {
52 
		ft = ROM;
53 
		strcpy(temp, "1");
54 
	} else {
55 
		ft = ROM;	/* assume it's a roman style */
56 
	}
57 
	ftstack[0].ft = ft;
58 
	if (temp[1] == 0)	/* 1-char name */
59 
		strcpy(ftstack[0].name, temp);
60 
	else
61 
		sprintf(ftstack[0].name, "(%.2s", temp);
62 
}
63 
 
64 
void fatbox(int p)
65 
{
66 
	extern double Fatshift;
67 
 
68 
	yyval = p;
69 
	printf(".ds %d \\*(%d\\h'-\\w'\\*(%d'u+%gm'\\*(%d\n", p, p, p, Fatshift, p);
70 
}