not a grep源代码

minus273

1. 
   
2. #define D ++*p
   
3. #define B **p
   
4. #define W while
   
5. #define R return
   
6. #define E else
   
7. #define Q if
   
8. #define G fprintf(stderr,
   
9. 
   
10. 
    
11. #include <stdio.h>
    
12. 
    
13. #ifndef A
    
14. #define A        512
    
15. #endif
    
16. 
    
17. typedef int I;
    
18. typedef char C;
    
19. typedef void V;
    
20. 
    
21. I z;
    
22. I f;
    
23. I x;
    
24. I a[A], b;
    
25. 
    
26. 
    
27. I d[A][A];
    
28. I m[A], n, o;
    
29. 
    
30. I N();
    
31. I M();
    
32. I P();
    
33. I U();
    
34. V X();
    
35. V T();
    
36. V F();
    
37. V L();
    
38. V O();
    
39. 
    
40. I
    
41. main(c, p)
    
42. I c;
    
43. C B;
    
44. {
    
45.         I i;
    
46.         FILE *j;
    
47.         C *k, l[BUFSIZ+1];
    
48. 
    
49.         Q (--c < 1) {
    
50.                 G "usage:  ag <pattern> [js...]\n");
    
51.                 R 2;
    
52.         }
    
53. 
    
54.        
    
55.         N(-3);
    
56.         N(-6-b);
    
57.         N(0);
    
58.         N(-3-b);
    
59. 
    
60.         X(&(*++p));
    
61. 
    
62.         *l = '\n';
    
63.         o = 1;
    
64.         i = 1;
    
65.         do {
    
66.                 k = "-";
    
67.                 j = stdin;
    
68.                 Q (1 < c && **++p != '-') {
    
69.                         Q (!(j = fopen(k = *p, "r"))) {
    
70.                                 G
    
71.                                         "ag: Failed to open '%s'.\n", k);
    
72.                                 i = 3;
    
73.                                 continue;
    
74.                         }
    
75.                 }
    
76.                 W (fgets(l+1, BUFSIZ, j)) {
    
77.                         Q (M(l)) {
    
78.                                 printf("%s:%s", k, l+1);
    
79.                                 i = 0;
    
80.                         }
    
81.                 }
    
82.                 fclose(j);
    
83.         } W (1 < --c);
    
84.         R i;
    
85. }
    
86. 
    
87. 
    
88. V
    
89. X(p)
    
90. C B;
    
91. {
    
92.         I i, j;
    
93.         i = N(-3);
    
94.         T(p);
    
95.         W (B == '|') {
    
96.                 D;
    
97.                 j = N(-3);
    
98.                 N('\n');
    
99.                 a[i] = -4-b;
    
100.                 i = N(-3);
     
101.                 T(p);
     
102.                 a[j] = -4-b;
     
103.         }
     
104. }
     
105. 
     
106. 
     
107. V
     
108. T(p)
     
109. C B;
     
110. {
     
111.         W (B != '|' && (!x || B != ')')  && B)
     
112.                 F(p);
     
113. }
     
114. 
     
115. 
     
116. V
     
117. F(p)
     
118. C B;
     
119. {
     
120.         I i = N(-3);
     
121.         Q (B == '^') {
     
122.                 D;
     
123.                 N('\n');
     
124.         } E Q (B == '$') {
     
125.                 D;
     
126.                 N('\n');
     
127.         } E Q (B == '(') {
     
128.                 D;
     
129.                 ++x;
     
130.                 X(p);
     
131.                 Q (B != ')') {
     
132.                         G "ag: Missing ')'.\n");
     
133.                         exit(3);
     
134.                 }
     
135.                 --x;
     
136.                 D;
     
137.         } E {
     
138.                 L(p);
     
139.         }
     
140.         Q (B == '*') {
     
141.                 D;
     
142.                 a[i] = -4-b;
     
143.                 N(-5-i);
     
144.         } E Q (B == '?') {
     
145.                 D;
     
146.                 a[i] = -4-b;
     
147.         }
     
148. }
     
149. 
     
150. 
     
151. V
     
152. L(p)
     
153. C B;
     
154. {
     
155.         I i, j;
     
156.         Q (B == '.') {
     
157.                 N(0);
     
158.         } E Q (B == '[') {
     
159.                 D;
     
160.                 i = N(-2);
     
161.                 Q (B == '^') {
     
162.                         D;
     
163.                         a[i] = -1;
     
164.                 }
     
165.                 Q (B == ']') {
     
166.                         D;
     
167.                         N(']');
     
168.                 }
     
169.                 W ((i = B) != ']') {
     
170.                         Q ((*p)[1] == '-' && i < (j = (*p)[2])) {
     
171.                                 W (i <= j)
     
172.                                         N(i++);
     
173.                                 *p += 3;
     
174.                         } E {
     
175.                                 N(i);
     
176.                                 D;
     
177.                         }
     
178.                 }
     
179.                 N('\n');
     
180.         } E {
     
181.                 Q (B == '\\')
     
182.                         D;
     
183.                 N(B);
     
184.         }
     
185.         D;
     
186. }
     
187. 
     
188. 
     
189. I
     
190. N(c)
     
191. I c;
     
192. {
     
193.         Q (A <= b) {
     
194.                 G "ag: Pattern too long.\n");
     
195.                 exit(3);
     
196.         }
     
197.         a[b] = c;
     
198.         R b++;
     
199. }
     
200. 
     
201. 
     
202. V
     
203. O(p)
     
204. I p;
     
205. {
     
206.         I i = n;
     
207.         Q (b <= p)
     
208.                 R;
     
209.         Q (a[p] < -2) {
     
210.                 Q (a[p] != -3)
     
211.                         O(-4-a[p]);
     
212.                 O(p+1);
     
213.         } E Q (!a[p] || a[p] == z || P(&p)) {
     
214.                
     
215.                 W (i < o)
     
216.                         Q (m[i++] == p)
     
217.                                 R;
     
218.                
     
219.                 f = U(p+1);
     
220. 
     
221.                 Q (A <= o) {
     
222.                         G "ag: Out of space.\n");
     
223.                         exit(3);
     
224.                 }
     
225.                
     
226.                 m[o++] = p;
     
227.         }
     
228. }
     
229. 
     
230. 
     
231. I
     
232. P(p)
     
233. I *p;
     
234. {
     
235.         I i = 0, j = 0;
     
236.         Q (a[*p] == -2 || (j = a[*p] == -1)) {
     
237.                 W (a[D] != '\n')
     
238.                         Q (a[*p] == z)
     
239.                                 i = 1;
     
240.         }
     
241.         R i ^ j;
     
242. }
     
243. 
     
244. 
     
245. I
     
246. U(p)
     
247. I p;
     
248. {
     
249.         R (
     
250.                 f || p == b || (
     
251.                         a[p] < -2 && (
     
252.                                 (a[p] != -3 && U(-4-a[p]))
     
253.                                 || U(p+1)
     
254.                         )
     
255.                 )
     
256.         );
     
257. }
     
258. 
     
259. 
     
260. I
     
261. M(p)
     
262. C *p;
     
263. {
     
264.         I c, i, j, k;
     
265.         f = c = 0;
     
266.         W (*p && 0 <= c) {
     
267.                 Q (0 < (i = d[c][*p])) {
     
268.                        
     
269.                         c = i;
     
270.                 } E {
     
271.                        
     
272.                         z = *p;
     
273.                         i = d[c][0];
     
274.                         j = n = o;
     
275.                         do
     
276.                                 O(m[i++]+1);
     
277.                         W (m[i] != 2);
     
278. 
     
279.                        
     
280.                         i = k = 0;
     
281.                         W (i < n) {
     
282.                                 Q (m[i] == 2) {
     
283.                                         j = n;
     
284.                                         ++k;
     
285.                                 }
     
286.                                 Q (m[i++] == m[j]) {
     
287.                                         Q (o <= ++j) {
     
288.                                                 j = n;
     
289.                                                 Q (m[i] == 2) {
     
290.                                                        
     
291.                                                         o = n;
     
292.                                                         break;
     
293.                                                 }
     
294.                                         }
     
295.                                 } E {
     
296.                                         j = n;
     
297.                                 }
     
298.                         }
     
299.                         Q (n < o)
     
300.                                
     
301.                                 d[++k][0] = n;
     
302.                         c = d[c][*p] = f ? -1 : k;
     
303.                 }
     
304.                 ++p;
     
305.         }
     
306.         R c < 0;
     
307. }
     

复制代码

minus273

not a make

1. 
   
2. #define W while
   
3. #define S strspn
   
4. #define R return
   
5. #define F fprintf(stderr,
   
6. #define C continue;
   
7. 
   
8. #include <stdlib.h>
   
9. #include <stdio.h>
   
10. #include <string.h>
    
11. #include <sys/stat.h>
    
12. 
    
13. #ifndef RULES
    
14. #define RULES        500
    
15. #endif
    
16. 
    
17. #define N(p, i)        (p += i, p += S(p, w), i = strcspn(p, w))
    
18. 
    
19. char *b, l[BUFSIZ], *t[RULES], *d[RULES], *c[RULES], w[] = "\n\t ";
    
20. 
    
21. time_t M();
    
22. int T();
    
23. void U();
    
24. 
    
25. 
    
26. time_t
    
27. M(f)
    
28. char *f;
    
29. {
    
30.         int j, x;
    
31.         size_t i = 0;
    
32.         struct stat s;
    
33.         N(f, i);
    
34.         x = f[i];
    
35.         f[i] = 0;
    
36.         j = stat(f, &s);
    
37.         f[i] = x;
    
38.         R j < 0 ? 0 : s.st_mtime;
    
39. }
    
40. 
    
41. int
    
42. T(f)
    
43. char *f;
    
44. {
    
45.         char *q;
    
46.         size_t i = 0, j, k = 1;
    
47.         N(f, i);
    
48.         W ((q = t[k])) {
    
49.                 j = 0;
    
50.                 W (N(q, j)) {
    
51.                         if (i == j && !strncmp(f, q, i))
    
52.                                 R k;
    
53.                 }
    
54.                 ++k;
    
55.         }
    
56.         R 0;
    
57. }
    
58. 
    
59. void
    
60. U(f)
    
61. char *f;
    
62. {
    
63.         time_t t = M(f);
    
64.         size_t i = 0, j = !t, k = T(f);
    
65.         char *p = d[k], *q = c[k];
    
66.         if (!N(p, i) && q && *q != '\t' && j) {
    
67.                 F "am: Don't know how to make '%s'.\n", f);
    
68.                 exit(1);
    
69.         }
    
70.         W (0 < i) {
    
71.                 U(p);
    
72.                 if (t < M(p))
    
73.                         j = 1;
    
74.                 N(p, i);
    
75.         }
    
76.         if (j && q && *q == '\t') {
    
77.                 sleep(1);
    
78.                 W (*q++ == '\t') {
    
79.                         i = j = 1;
    
80.                         W (0 < S(q, "-+@")) {
    
81.                                 if (*q == '@')
    
82.                                        
    
83.                                         i = 0;
    
84.                                 if (*q++ == '-')
    
85.                                        
    
86.                                         j = 0;
    
87.                         }
    
88.                         if (i)
    
89.                                 puts(q);
    
90.                         if (system(q) && j) {
    
91.                                 F "am: Error making '%s'\n", f);
    
92.                                 exit(1);
    
93.                         }
    
94.                         q += strlen(q) + 1;
    
95.                 }
    
96.                 c[k] = 0;
    
97.         }
    
98. }
    
99. 
    
100. int
     
101. main(u, v)
     
102. int u;
     
103. char **v;
     
104. {
     
105.         FILE *f;
     
106.         struct stat s;
     
107.         size_t i, j, k;
     
108.         char *m, *n, *p, *q, *r;
     
109.         if (u < 2) {
     
110.                 F "usage: am <makefile> [target]\n");
     
111.                 R 2;
     
112.         }
     
113.         if (stat(*++v, &s) || !(f = fopen(*v, "r")))
     
114.                 R 3;
     
115.         q = b = malloc(2*s.st_size);
     
116.         if (!b)
     
117.                 R 4;
     
118.         i = 1;
     
119.         k = 0;
     
120.         m = 0;
     
121.         *t = *d = *c = "";
     
122.         W ((r = fgets(l, BUFSIZ, f))) {
     
123.                 if (RULES <= i) {
     
124.                         F "am: Number of target-rules exceeds %d.\n", RULES);
     
125.                         R 1;
     
126.                 }
     
127.                 if (k) {
     
128.                         *q++ = ' ';
     
129.                         r += S(r, w);
     
130.                 } else {
     
131.                         if (t[i])
     
132.                                 c[i++] = q;
     
133.                         if (m && putenv(m))
     
134.                                 F "am: No more environment space.\n");
     
135.                         m = 0;
     
136.                         if (*l == '#' || *l == '\n')
     
137.                                 C
     
138.                         p = q;
     
139.                 }
     
140.                 W (!(k = *r == '\\' && r[1] == '\n') && *r) {
     
141.                         if (*r == '$') {
     
142.                                 if (r[1] == '(') {
     
143.                                         n = r+2;
     
144.                                         r += strcspn(r, ")");
     
145.                                         *r++ = 0;
     
146.                                         n = getenv(n);
     
147.                                         if (n)
     
148.                                                 q = strcpy(q, n) + strlen(n);
     
149.                                         C
     
150.                                 }
     
151.                                 if (*r == r[1])
     
152.                                         ++r;
     
153.                         }
     
154.                         if (*r == '=' && *l != '\t' && !m) {
     
155.                                 *q = 0;
     
156.                                 m = p;
     
157.                                 j = 0;
     
158.                                 q = N(m, j) + m;
     
159.                                 *q++ = *r;
     
160.                                 j = 1;
     
161.                                 if (!N(r, j))
     
162.                                         *q++ = 0;
     
163.                                 C
     
164.                         }
     
165.                         if (*r == ':') {
     
166.                                 t[i] = p;
     
167.                                 *r = 0;
     
168.                                 d[i] = q+1;
     
169.                         }
     
170.                         if (*r == '\n')
     
171.                                 *r = 0;
     
172.                         *q++ = *r++;
     
173.                 }
     
174.         }
     
175.         fclose(f);
     
176.         U(2 < u ? *++v : t[1]);
     
177.         R 0
     
178. }
     

复制代码