2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.6 1995-09-28 09:18:51 adam
8 * Removed various preprocessor defines.
10 * Revision 1.5 1995/09/04 12:33:25 adam
11 * Various cleanup. YAZ util used instead.
13 * Revision 1.4 1995/01/24 16:00:21 adam
14 * Added -ansi to CFLAGS.
15 * Some changes to the dfa module.
17 * Revision 1.3 1994/09/27 16:31:18 adam
18 * First version of grepper: grep with error correction.
20 * Revision 1.2 1994/09/26 16:30:56 adam
21 * Minor changes. imalloc uses xmalloc now.
23 * Revision 1.1 1994/09/26 10:16:52 adam
24 * First version of dfa module in alex. This version uses yacc to parse
25 * regular expressions. This should be hand-made instead.
34 #include <sys/types.h>
50 void error (const char *format, ...)
53 va_start (argptr, format);
54 fprintf (stderr, "%s error: ", prog);
55 (void) vfprintf (stderr, format, argptr);
60 static int show_lines = 0;
62 int agrep_options (argc, argv)
73 fprintf (stderr, "%s: %s %s\n", prog, __DATE__, __TIME__);
91 debug_dfa_followpos = 1;
96 debug_dfa_followpos = 1;
101 fprintf (stderr, "%s: unknown option `-%s'\n", prog, *argv);
109 #define INF_BUF_SIZE 32768U
110 static char *inf_buf;
111 static char *inf_ptr, *inf_flsh;
112 static int inf_eof, line_no;
114 static int inf_flush (fd)
120 r = (unsigned) (inf_buf+INF_BUF_SIZE - inf_ptr); /* no of `wrap' bytes */
122 memcpy (inf_buf, inf_ptr, r);
123 inf_ptr = p = inf_buf + r;
124 b = INF_BUF_SIZE - r;
126 if ((r = read (fd, p, b)) == (unsigned) -1)
136 while ((b -= r) > 0);
137 while (p != inf_buf && *--p != '\n')
139 while (p != inf_buf && *--p != '\n')
145 static char *prline (p)
151 while (p != inf_buf && p[-1] != '\n')
158 printf ("%5d:\t%s\n", line_no, p0);
165 static int go (fd, dfaar)
167 struct DFA_state **dfaar;
169 struct DFA_state *s = dfaar[0];
177 for (c = *inf_ptr++, t=s->trans, i=s->tran_no; --i >= 0; t++)
178 if (c >= t->ch[0] && c <= t->ch[1])
183 if ((s = dfaar[t->to])->rule_no)
185 inf_ptr = prline (inf_ptr);
189 for (t=s->trans, i=s->tran_no; --i >= 0; t++)
190 if ((unsigned) *p >= t->ch[0]
191 && (unsigned) *p <= t->ch[1])
201 if (inf_ptr == inf_flsh)
208 fprintf (stderr, "%s: read error\n", prog);
218 struct DFA_state **dfas;
221 inf_buf = imalloc (sizeof(char)*INF_BUF_SIZE);
223 inf_ptr = inf_buf+INF_BUF_SIZE;
234 int main (argc, argv)
238 char *pattern = NULL;
241 struct DFA *dfa = dfa_init();
244 setbuf (stdout, outbuf);
245 i = agrep_options (argc, argv);
249 if (**++argv != '-' && **argv)
253 i = dfa_parse (dfa, &pattern);
256 fprintf (stderr, "%s: illegal pattern\n", prog);
264 fd = open (*argv, O_RDONLY | O_BINARY);
267 fprintf (stderr, "%s: couldn't open `%s'\n", prog, *argv);
270 i = agrep (dfa->states, fd);
277 fprintf (stderr, "%s: no files specified\n", prog);