source: trunk/minix/commands/simple/prep.c@ 10

Last change on this file since 10 was 9, checked in by Mattia Monga, 13 years ago

Minix 3.1.2a

File size: 2.3 KB
Line 
1/* prep - prepare file for statistics Author: Andy Tanenbaum */
2
3#include <ctype.h>
4#include <stdlib.h>
5#include <stdio.h>
6
7#define TROFF_CHAR '.' /* troff commands begin with this char */
8#define EOL '\n' /* end of line char */
9#define APOSTROPHE 047 /* single quote */
10#define BACKSLASH '\\' /* troff code */
11
12int lfread; /* set when last char read was lf */
13int lfwritten = 1; /* set when last char written was lf */
14
15_PROTOTYPE(int main, (int argc, char **argv));
16_PROTOTYPE(void skipline, (void));
17_PROTOTYPE(int backslash, (void));
18_PROTOTYPE(void usage, (void));
19
20int main(argc, argv)
21int argc;
22char *argv[];
23{
24
25 int c;
26
27 if (argc > 2) usage();
28 if (argc == 2) {
29 if (freopen(argv[1], "r", stdin) == NULL) {
30 printf("prep: cannot open %s\n", argv[1]);
31 exit(1);
32 }
33 }
34 while ((c = getchar()) != EOF) {
35 /* Lines beginning with "." are troff commands -- skip them. */
36 if (lfread && c == TROFF_CHAR) {
37 skipline();
38 continue;
39 }
40 while (c == BACKSLASH) c = backslash(); /* eat troff stuff */
41
42 if (isupper(c)) {
43 putchar(tolower(c));
44 lfwritten = 0;
45 lfread = 0;
46 continue;
47 }
48 if (islower(c)) {
49 putchar(c);
50 lfwritten = 0;
51 lfread = 0;
52 continue;
53 }
54 if (c == APOSTROPHE) {
55 putchar(c);
56 lfwritten = 0;
57 lfread = 0;
58 continue;
59 }
60 lfread = (c == EOL ? 1 : 0);
61 if (lfwritten) continue;
62 putchar(EOL);
63 lfwritten = 1;
64 }
65 return(0);
66}
67
68
69void skipline()
70{
71 char c;
72
73 while ((c = getchar()) != EOL);
74}
75
76
77int backslash()
78{
79/* A backslash has been seen. Eat troff stuff. */
80
81 int c, c1, c2;
82
83 c = getchar();
84 switch (c) {
85 case 'f':
86 c = getchar();
87 c = getchar();
88 return(c);
89
90 case 's': /* \s7 or \s14 */
91 c = getchar();
92 c = getchar();
93 if (isdigit(c)) c = getchar();
94 return(c);
95
96 case 'n': /* \na or \n(xx */
97 c = getchar();
98 if (c == '(') {
99 c = getchar();
100 c = getchar();
101 }
102 c = getchar();
103 return(c);
104
105 case '*': /* / * (XX */
106 c = getchar();
107 if (c == '(') {
108 c = getchar();
109 c = getchar();
110 c = getchar();
111 return(c);
112 }
113
114 case '(': /* troff 4-character escape sequence */
115 c1 = getchar();
116 c2 = getchar();
117 if (c1 == 'e' && c2 == 'm') return(' ');
118 if (c1 == 'e' && c2 == 'n') return(' ');
119 c = getchar();
120 return(c);
121
122 case '%': /* soft hyphen: \% */
123 c = getchar();
124 return(c);
125
126 default:
127 return(c);
128
129 }
130}
131
132void usage()
133{
134 printf("Usage: prep [file]\n");
135 exit(1);
136}
Note: See TracBrowser for help on using the repository browser.