blob: acbded7ecc505f2b2acb4b3a534a901ec5f0eef1 (
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
/* prep - prepare file for statistics Author: Andy Tanenbaum */
#include <ctype.h>
#include <stdlib.h>
#include <stdio.h>
#define TROFF_CHAR '.' /* troff commands begin with this char */
#define EOL '\n' /* end of line char */
#define APOSTROPHE 047 /* single quote */
#define BACKSLASH '\\' /* troff code */
int lfread; /* set when last char read was lf */
int lfwritten = 1; /* set when last char written was lf */
int main(int argc, char **argv);
void skipline(void);
int backslash(void);
void usage(void);
int main(argc, argv)
int argc;
char *argv[];
{
int c;
if (argc > 2) usage();
if (argc == 2) {
if (freopen(argv[1], "r", stdin) == NULL) {
printf("prep: cannot open %s\n", argv[1]);
exit(1);
}
}
while ((c = getchar()) != EOF) {
/* Lines beginning with "." are troff commands -- skip them. */
if (lfread && c == TROFF_CHAR) {
skipline();
continue;
}
while (c == BACKSLASH) c = backslash(); /* eat troff stuff */
if (isupper(c)) {
putchar(tolower(c));
lfwritten = 0;
lfread = 0;
continue;
}
if (islower(c)) {
putchar(c);
lfwritten = 0;
lfread = 0;
continue;
}
if (c == APOSTROPHE) {
putchar(c);
lfwritten = 0;
lfread = 0;
continue;
}
lfread = (c == EOL ? 1 : 0);
if (lfwritten) continue;
putchar(EOL);
lfwritten = 1;
}
return(0);
}
void skipline()
{
char c;
while ((c = getchar()) != EOL);
}
int backslash()
{
/* A backslash has been seen. Eat troff stuff. */
int c, c1, c2;
c = getchar();
switch (c) {
case 'f':
c = getchar();
c = getchar();
return(c);
case 's': /* \s7 or \s14 */
c = getchar();
c = getchar();
if (isdigit(c)) c = getchar();
return(c);
case 'n': /* \na or \n(xx */
c = getchar();
if (c == '(') {
c = getchar();
c = getchar();
}
c = getchar();
return(c);
case '*': /* / * (XX */
c = getchar();
if (c == '(') {
c = getchar();
c = getchar();
c = getchar();
return(c);
}
case '(': /* troff 4-character escape sequence */
c1 = getchar();
c2 = getchar();
if (c1 == 'e' && c2 == 'm') return(' ');
if (c1 == 'e' && c2 == 'n') return(' ');
c = getchar();
return(c);
case '%': /* soft hyphen: \% */
c = getchar();
return(c);
default:
return(c);
}
}
void usage()
{
printf("Usage: prep [file]\n");
exit(1);
}
|
