summaryrefslogtreecommitdiff
path: root/graphics/tree/mdoc.l
blob: afe9a31cdd8ffd7e7ea8ff87caa9f78bf8c3b847 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
%{
/* mdoc: utility to add \tree examples to "use" document for tree
 *		Greg Lee, July 1990
 */
char *buf, *bufp;
char *line[100];
int count = 0, last = 0, i;
#define ADDCH(c) *bufp++ = c
#define ADDS(s) strcpy(bufp,s); bufp += yyleng
%}

%s X

%%

^"\\xtwo"[ \t\n]+ {
	ECHO;
	last = 2;
	line[0] = bufp;
	BEGIN(X);
}

^"\\xthree"[ \t\n]+ {
	ECHO;
	last = 3;
	line[0] = bufp;
	BEGIN(X);
}

^"\\xfour"[ \t\n]+ {
	ECHO;
	last = 4;
	line[0] = bufp;
	BEGIN(X);
}

^"\\x"[ \t\n]+ {
	ECHO;
	last = 1;
	line[0] = bufp;
	BEGIN(X);
}
<X>"$" {
	printf("\\$");
	ADDCH('$');
}
<X>"\\ " {
	printf("\\xbs{\\ }");
	ADDS(yytext);
}
<X>\\[a-z]+ {
	printf("\\xbs{%s}", yytext+1);
	ADDS(yytext);
}
<X>\\. {
	printf("\\xbs{%c}", yytext[1]);
	ADDS(yytext);
}
<X>: {
	ECHO;
	ADDCH(0);
	count++;
	line[count] = bufp;
}
<X>"." {
	ECHO;
	if (count < last) ADDCH('.');
    else {
	ADDCH(0);

	printf("\n\\smallbreak{\\parindent=.5in\\par");
	printf("\\hskip-.2in\\it gives:\\tfont\n\\tree ");
	for (i = 0; i < count; i++)
		printf("%s\n", line[i]);
	printf("}\\smallbreak\n");

	count = last = 0;
	bufp = buf;
	BEGIN(0);
    }
}
<X>. {
	ECHO;
	ADDCH(yytext[0]);
}

%%
main()
{	char *malloc();

	buf = bufp = malloc(BUFSIZ);
	yylex();
}