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();
}
|