?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
etc/services - sync with NetBSD-8
[minix.git] / external / historical / nawk / dist / b.c
blob3364316322fc825b40daf18c9ed002c3b6d97014
1 /****************************************************************
2 Copyright (C) Lucent Technologies 1997
3 All Rights Reserved
4
5 Permission to use, copy, modify, and distribute this software and
6 its documentation for any purpose and without fee is hereby
7 granted, provided that the above copyright notice appear in all
8 copies and that both that the copyright notice and this
9 permission notice and warranty disclaimer appear in supporting
10 documentation, and that the name Lucent Technologies or any of
11 its entities not be used in advertising or publicity pertaining
12 to distribution of the software without specific, written prior
13 permission.
14
15 LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
16 INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
17 IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
18 SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
20 IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
21 ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
22 THIS SOFTWARE.
23 ****************************************************************/
24
25 /* lasciate ogne speranza, voi ch'intrate. */
26
27 #if HAVE_NBTOOL_CONFIG_H
28 #include "nbtool_config.h"
29 #endif
30
31 #define DEBUG
32
33 #include <ctype.h>
34 #include <stdio.h>
35 #include <string.h>
36 #include <stdlib.h>
37 #include <assert.h>
38 #include "awk.h"
39 #include "awkgram.h"
40
41 #define HAT (NCHARS+2) /* matches ^ in regular expr */
42 /* NCHARS is 2**n */
43 #define MAXLIN 22
44
45 #define type(v) (v)->nobj /* badly overloaded here */
46 #define info(v) (v)->ntype /* badly overloaded here */
47 #define left(v) (v)->narg[0]
48 #define right(v) (v)->narg[1]
49 #define parent(v) (v)->nnext
50
51 #define LEAF case CCL: case NCCL: case CHAR: case DOT: case FINAL: case ALL:
52 #define ELEAF case EMPTYRE: /* empty string in regexp */
53 #define UNARY case STAR: case PLUS: case QUEST:
54
55 /* encoding in tree Nodes:
56 leaf (CCL, NCCL, CHAR, DOT, FINAL, ALL, EMPTYRE):
57 left is index, right contains value or pointer to value
58 unary (STAR, PLUS, QUEST): left is child, right is null
59 binary (CAT, OR): left and right are children
60 parent contains pointer to parent
61 */
62
63
64 int *setvec;
65 int *tmpset;
66 int maxsetvec = 0;
67
68 int rtok; /* next token in current re */
69 int rlxval;
70 static const uschar *rlxstr;
71 static const uschar *prestr; /* current position in current re */
72 static const uschar *lastre; /* origin of last re */
73
74 static int setcnt;
75 static int poscnt;
76
77 uschar *patbeg;
78 int patlen;
79
80 #define NFA 128 /* cache this many dynamic fa's */
81 fa *fatab[NFA];
82 int nfatab = 0; /* entries in fatab */
83
84 static void
85 resizesetvec(const char *msg)
86 {
87 if (maxsetvec == 0)
88 maxsetvec = MAXLIN;
89 else
90 maxsetvec *= 4;
91 setvec = realloc(setvec, maxsetvec * sizeof(*setvec));
92 tmpset = realloc(tmpset, maxsetvec * sizeof(*tmpset));
93 if (setvec == 0 || tmpset == 0)
94 overflo(msg);
95 }
96
97 static void
98 resize_state(fa *f, int state)
99 {
100 void *p;
101 int i, new_count;
102
103 if (++state < f->state_count)
104 return;
105
106 new_count = state + 10; /* needs to be tuned */
107
108 p = realloc(f->gototab, new_count * sizeof(f->gototab[0]));
109 if (p == NULL)
110 goto out;
111 f->gototab = p;
112
113 p = realloc(f->out, new_count * sizeof(f->out[0]));
114 if (p == NULL)
115 goto out;
116 f->out = p;
117
118 p = realloc(f->posns, new_count * sizeof(f->posns[0]));
119 if (p == NULL)
120 goto out;
121 f->posns = p;
122
123 for (i = f->state_count; i < new_count; ++i) {
124 f->gototab[i] = calloc(1, NCHARS * sizeof (**f->gototab));
125 if (f->gototab[i] == NULL)
126 goto out;
127 f->out[i] = 0;
128 f->posns[i] = NULL;
129 }
130 f->state_count = new_count;
131 return;
132 out:
133 overflo("out of memory in resize_state");
134 }
135
136 fa *makedfa(const char *s, int anchor) /* returns dfa for reg expr s */
137 {
138 int i, use, nuse;
139 fa *pfa;
140 static int now = 1;
141
142 if (setvec == 0) /* first time through any RE */
143 resizesetvec("out of space initializing makedfa");
144
145 if (compile_time) /* a constant for sure */
146 return mkdfa(s, anchor);
147 for (i = 0; i < nfatab; i++) /* is it there already? */
148 if (fatab[i]->anchor == anchor
149 && strcmp((const char *) fatab[i]->restr, s) == 0) {
150 fatab[i]->use = now++;
151 return fatab[i];
152 }
153 pfa = mkdfa(s, anchor);
154 if (nfatab < NFA) { /* room for another */
155 fatab[nfatab] = pfa;
156 fatab[nfatab]->use = now++;
157 nfatab++;
158 return pfa;
159 }
160 use = fatab[0]->use; /* replace least-recently used */
161 nuse = 0;
162 for (i = 1; i < nfatab; i++)
163 if (fatab[i]->use < use) {
164 use = fatab[i]->use;
165 nuse = i;
166 }
167 freefa(fatab[nuse]);
168 fatab[nuse] = pfa;
169 pfa->use = now++;
170 return pfa;
171 }
172
173 fa *mkdfa(const char *s, int anchor) /* does the real work of making a dfa */
174 /* anchor = 1 for anchored matches, else 0 */
175 {
176 Node *p, *p1;
177 fa *f;
178
179 p = reparse(s);
180 p1 = op2(CAT, op2(STAR, op2(ALL, NIL, NIL), NIL), p);
181 /* put ALL STAR in front of reg. exp. */
182 p1 = op2(CAT, p1, op2(FINAL, NIL, NIL));
183 /* put FINAL after reg. exp. */
184
185 poscnt = 0;
186 penter(p1); /* enter parent pointers and leaf indices */
187 if ((f = calloc(1, sizeof(*f) + poscnt*sizeof(rrow))) == NULL)
188 overflo("out of space for fa");
189 f->accept = poscnt-1; /* penter has computed number of positions in re */
190 cfoll(f, p1); /* set up follow sets */
191 freetr(p1);
192 resize_state(f, 1);
193 if ((f->posns[0] = calloc(1, *(f->re[0].lfollow)*sizeof(int))) == NULL)
194 overflo("out of space in makedfa");
195 if ((f->posns[1] = calloc(1, sizeof(int))) == NULL)
196 overflo("out of space in makedfa");
197 *f->posns[1] = 0;
198 f->initstat = makeinit(f, anchor);
199 f->anchor = anchor;
200 f->restr = (uschar *) tostring(s);
201 return f;
202 }
203
204 int makeinit(fa *f, int anchor)
205 {
206 int i, k;
207
208 resize_state(f, 2);
209 f->curstat = 2;
210 f->out[2] = 0;
211 k = *(f->re[0].lfollow);
212 xfree(f->posns[2]);
213 if ((f->posns[2] = calloc(1, (k+1)*sizeof(int))) == NULL)
214 overflo("out of space in makeinit");
215 for (i=0; i <= k; i++) {
216 (f->posns[2])[i] = (f->re[0].lfollow)[i];
217 }
218 if ((f->posns[2])[1] == f->accept)
219 f->out[2] = 1;
220 for (i=0; i < NCHARS; i++)
221 f->gototab[2][i] = 0;
222 f->curstat = cgoto(f, 2, HAT);
223 if (anchor) {
224 *f->posns[2] = k-1; /* leave out position 0 */
225 for (i=0; i < k; i++) {
226 (f->posns[0])[i] = (f->posns[2])[i];
227 }
228
229 f->out[0] = f->out[2];
230 if (f->curstat != 2) {
231 resize_state(f, f->curstat);
232 --(*f->posns[f->curstat]);
233 }
234 }
235 return f->curstat;
236 }
237
238 void penter(Node *p) /* set up parent pointers and leaf indices */
239 {
240 switch (type(p)) {
241 ELEAF
242 LEAF
243 info(p) = poscnt;
244 poscnt++;
245 break;
246 UNARY
247 penter(left(p));
248 parent(left(p)) = p;
249 break;
250 case CAT:
251 case OR:
252 penter(left(p));
253 penter(right(p));
254 parent(left(p)) = p;
255 parent(right(p)) = p;
256 break;
257 default: /* can't happen */
258 FATAL("can't happen: unknown type %d in penter", type(p));
259 break;
260 }
261 }
262
263 void freetr(Node *p) /* free parse tree */
264 {
265 switch (type(p)) {
266 ELEAF
267 LEAF
268 xfree(p);
269 break;
270 UNARY
271 freetr(left(p));
272 xfree(p);
273 break;
274 case CAT:
275 case OR:
276 freetr(left(p));
277 freetr(right(p));
278 xfree(p);
279 break;
280 default: /* can't happen */
281 FATAL("can't happen: unknown type %d in freetr", type(p));
282 break;
283 }
284 }
285
286 /* in the parsing of regular expressions, metacharacters like . have */
287 /* to be seen literally; \056 is not a metacharacter. */
288
289 int hexstr(const uschar **pp) /* find and eval hex string at pp, return new p */
290 { /* only pick up one 8-bit byte (2 chars) */
291 const uschar *p;
292 int n = 0;
293 int i;
294
295 for (i = 0, p = *pp; i < 2 && isxdigit(*p); i++, p++) {
296 if (isdigit(*p))
297 n = 16 * n + *p - '0';
298 else if (*p >= 'a' && *p <= 'f')
299 n = 16 * n + *p - 'a' + 10;
300 else if (*p >= 'A' && *p <= 'F')
301 n = 16 * n + *p - 'A' + 10;
302 }
303 *pp = p;
304 return n;
305 }
306
307 #define isoctdigit(c) ((c) >= '0' && (c) <= '7') /* multiple use of arg */
308
309 int quoted(const uschar **pp) /* pick up next thing after a \\ */
310 /* and increment *pp */
311 {
312 const uschar *p = *pp;
313 int c;
314
315 if ((c = *p++) == 't')
316 c = '\t';
317 else if (c == 'n')
318 c = '\n';
319 else if (c == 'f')
320 c = '\f';
321 else if (c == 'r')
322 c = '\r';
323 else if (c == 'b')
324 c = '\b';
325 else if (c == '\\')
326 c = '\\';
327 else if (c == 'x') { /* hexadecimal goo follows */
328 c = hexstr(&p); /* this adds a null if number is invalid */
329 } else if (isoctdigit(c)) { /* \d \dd \ddd */
330 int n = c - '0';
331 if (isoctdigit(*p)) {
332 n = 8 * n + *p++ - '0';
333 if (isoctdigit(*p))
334 n = 8 * n + *p++ - '0';
335 }
336 c = n;
337 } /* else */
338 /* c = c; */
339 *pp = p;
340 return c;
341 }
342
343 char *cclenter(const char *argp) /* add a character class */
344 {
345 int i, c, c2;
346 const uschar *p = (const uschar *) argp;
347 const uschar *op;
348 uschar *bp;
349 static uschar *buf = 0;
350 static int bufsz = 100;
351
352 op = p;
353 if (buf == 0 && (buf = malloc(bufsz)) == NULL)
354 FATAL("out of space for character class [%.10s...] 1", p);
355 bp = buf;
356 for (i = 0; (c = *p++) != 0; ) {
357 if (c == '\\') {
358 c = quoted(&p);
359 } else if (c == '-' && i > 0 && bp[-1] != 0) {
360 if (*p != 0) {
361 c = bp[-1];
362 c2 = *p++;
363 if (c2 == '\\')
364 c2 = quoted(&p);
365 if (c > c2) { /* empty; ignore */
366 bp--;
367 i--;
368 continue;
369 }
370 while (c < c2) {
371 if (!adjbuf(&buf, &bufsz, bp-buf+2, 100, &bp, "cclenter1"))
372 FATAL("out of space for character class [%.10s...] 2", p);
373 *bp++ = ++c;
374 i++;
375 }
376 continue;
377 }
378 }
379 if (!adjbuf(&buf, &bufsz, bp-buf+2, 100, &bp, "cclenter2"))
380 FATAL("out of space for character class [%.10s...] 3", p);
381 *bp++ = c;
382 i++;
383 }
384 *bp = 0;
385 dprintf( ("cclenter: in = |%s|, out = |%s|\n", op, buf) );
386 free(__UNCONST(op));
387 return (char *) tostring((char *) buf);
388 }
389
390 void overflo(const char *s)
391 {
392 FATAL("regular expression too big: %.30s...", s);
393 }
394
395 void cfoll(fa *f, Node *v) /* enter follow set of each leaf of vertex v into lfollow[leaf] */
396 {
397 int i;
398 int *p;
399
400 switch (type(v)) {
401 ELEAF
402 LEAF
403 f->re[info(v)].ltype = type(v);
404 f->re[info(v)].lval.np = right(v);
405 while (f->accept >= maxsetvec) /* guessing here! */
406 resizesetvec("out of space in cfoll()");
407 for (i = 0; i <= f->accept; i++)
408 setvec[i] = 0;
409 setcnt = 0;
410 follow(v); /* computes setvec and setcnt */
411 if ((p = calloc(1, (setcnt+1)*sizeof(int))) == NULL)
412 overflo("out of space building follow set");
413 f->re[info(v)].lfollow = p;
414 *p = setcnt;
415 for (i = f->accept; i >= 0; i--)
416 if (setvec[i] == 1)
417 *++p = i;
418 break;
419 UNARY
420 cfoll(f,left(v));
421 break;
422 case CAT:
423 case OR:
424 cfoll(f,left(v));
425 cfoll(f,right(v));
426 break;
427 default: /* can't happen */
428 FATAL("can't happen: unknown type %d in cfoll", type(v));
429 }
430 }
431
432 int first(Node *p) /* collects initially active leaves of p into setvec */
433 /* returns 0 if p matches empty string */
434 {
435 int b, lp;
436
437 switch (type(p)) {
438 ELEAF
439 LEAF
440 lp = info(p); /* look for high-water mark of subscripts */
441 while (setcnt >= maxsetvec || lp >= maxsetvec) /* guessing here! */
442 resizesetvec("out of space in first()");
443 if (type(p) == EMPTYRE) {
444 setvec[lp] = 0;
445 return(0);
446 }
447 if (setvec[lp] != 1) {
448 setvec[lp] = 1;
449 setcnt++;
450 }
451 if (type(p) == CCL && (*(char *) right(p)) == '\0')
452 return(0); /* empty CCL */
453 else return(1);
454 case PLUS:
455 if (first(left(p)) == 0) return(0);
456 return(1);
457 case STAR:
458 case QUEST:
459 first(left(p));
460 return(0);
461 case CAT:
462 if (first(left(p)) == 0 && first(right(p)) == 0) return(0);
463 return(1);
464 case OR:
465 b = first(right(p));
466 if (first(left(p)) == 0 || b == 0) return(0);
467 return(1);
468 }
469 FATAL("can't happen: unknown type %d in first", type(p)); /* can't happen */
470 return(-1);
471 }
472
473 void follow(Node *v) /* collects leaves that can follow v into setvec */
474 {
475 Node *p;
476
477 if (type(v) == FINAL)
478 return;
479 p = parent(v);
480 switch (type(p)) {
481 case STAR:
482 case PLUS:
483 first(v);
484 follow(p);
485 return;
486
487 case OR:
488 case QUEST:
489 follow(p);
490 return;
491
492 case CAT:
493 if (v == left(p)) { /* v is left child of p */
494 if (first(right(p)) == 0) {
495 follow(p);
496 return;
497 }
498 } else /* v is right child */
499 follow(p);
500 return;
501 }
502 }
503
504 int member(int c, const char *sarg) /* is c in s? */
505 {
506 const uschar *s = (const uschar *) sarg;
507
508 while (*s)
509 if (c == *s++)
510 return(1);
511 return(0);
512 }
513
514 int match(fa *f, const char *p0) /* shortest match ? */
515 {
516 int s, ns;
517 const uschar *p = (const uschar *) p0;
518
519 s = f->initstat;
520 assert (s < f->state_count);
521
522 if (f->out[s])
523 return(1);
524 do {
525 /* assert(*p < NCHARS); */
526 if ((ns = f->gototab[s][*p]) != 0)
527 s = ns;
528 else
529 s = cgoto(f, s, *p);
530
531 assert (s < f->state_count);
532
533 if (f->out[s])
534 return(1);
535 } while (*p++ != 0);
536 return(0);
537 }
538
539 int pmatch(fa *f, const char *p0) /* longest match, for sub */
540 {
541 int s, ns;
542 uschar *p = __UNCONST(p0);
543 uschar *q;
544
545 s = f->initstat;
546 assert(s < f->state_count);
547 patbeg = p;
548 patlen = -1;
549 do {
550 q = p;
551 do {
552 if (f->out[s]) /* final state */
553 patlen = q-p;
554 /* assert(*q < NCHARS); */
555 if ((ns = f->gototab[s][*q]) != 0)
556 s = ns;
557 else
558 s = cgoto(f, s, *q);
559
560 assert(s < f->state_count);
561
562 if (s == 1) { /* no transition */
563 if (patlen >= 0) {
564 patbeg = p;
565 return(1);
566 }
567 else
568 goto nextin; /* no match */
569 }
570 } while (*q++ != 0);
571 if (f->out[s])
572 patlen = q-p-1; /* don't count $ */
573 if (patlen >= 0) {
574 patbeg = p;
575 return(1);
576 }
577 nextin:
578 s = 2;
579 } while (*p++ != 0);
580 return (0);
581 }
582
583 int nematch(fa *f, const char *p0) /* non-empty match, for sub */
584 {
585 int s, ns;
586 uschar *p = __UNCONST(p0);
587 uschar *q;
588
589 s = f->initstat;
590 assert(s < f->state_count);
591
592 patlen = -1;
593 while (*p) {
594 q = p;
595 do {
596 if (f->out[s]) /* final state */
597 patlen = q-p;
598 /* assert(*q < NCHARS); */
599 if ((ns = f->gototab[s][*q]) != 0)
600 s = ns;
601 else
602 s = cgoto(f, s, *q);
603
604 assert(s < f->state_count);
605
606 if (s == 1) { /* no transition */
607 if (patlen > 0) {
608 patbeg = p;
609 return(1);
610 } else
611 goto nnextin; /* no nonempty match */
612 }
613 } while (*q++ != 0);
614 if (f->out[s])
615 patlen = q-p-1; /* don't count $ */
616 if (patlen > 0 ) {
617 patbeg = p;
618 return(1);
619 }
620 nnextin:
621 s = 2;
622 p++;
623 }
624 return (0);
625 }
626
627
628 /*
629 * NAME
630 * fnematch
631 *
632 * DESCRIPTION
633 * A stream-fed version of nematch which transfers characters to a
634 * null-terminated buffer. All characters up to and including the last
635 * character of the matching text or EOF are placed in the buffer. If
636 * a match is found, patbeg and patlen are set appropriately.
637 *
638 * RETURN VALUES
639 * 0 No match found.
640 * 1 Match found.
641 */
642
643 int fnematch(fa *pfa, FILE *f, uschar **pbuf, int *pbufsize, int quantum)
644 {
645 uschar *buf = *pbuf;
646 int bufsize = *pbufsize;
647 int c, i, j, k, ns, s;
648
649 s = pfa->initstat;
650 assert(s < pfa->state_count);
651 patlen = 0;
652
653 /*
654 * All indices relative to buf.
655 * i <= j <= k <= bufsize
656 *
657 * i: origin of active substring
658 * j: current character
659 * k: destination of next getc()
660 */
661 i = -1, k = 0;
662 do {
663 j = i++;
664 do {
665 if (++j == k) {
666 if (k == bufsize)
667 if (!adjbuf(&buf, &bufsize, bufsize+1, quantum, 0, "fnematch"))
668 FATAL("stream '%.30s...' too long", buf);
669 buf[k++] = (c = getc(f)) != EOF ? c : 0;
670 }
671 c = buf[j];
672 /* assert(c < NCHARS); */
673
674 if ((ns = pfa->gototab[s][c]) != 0)
675 s = ns;
676 else
677 s = cgoto(pfa, s, c);
678 assert(s < pfa->state_count);
679
680 if (pfa->out[s]) { /* final state */
681 patlen = j - i + 1;
682 if (c == 0) /* don't count $ */
683 patlen--;
684 }
685 } while (buf[j] && s != 1);
686 s = 2;
687 } while (buf[i] && !patlen);
688
689 /* adjbuf() may have relocated a resized buffer. Inform the world. */
690 *pbuf = buf;
691 *pbufsize = bufsize;
692
693 if (patlen) {
694 patbeg = buf + i;
695 /*
696 * Under no circumstances is the last character fed to
697 * the automaton part of the match. It is EOF's nullbyte,
698 * or it sent the automaton into a state with no further
699 * transitions available (s==1), or both. Room for a
700 * terminating nullbyte is guaranteed.
701 *
702 * ungetc any chars after the end of matching text
703 * (except for EOF's nullbyte, if present) and null
704 * terminate the buffer.
705 */
706 do
707 if (buf[--k] && ungetc(buf[k], f) == EOF)
708 FATAL("unable to ungetc '%c'", buf[k]);
709 while (k > i + patlen);
710 buf[k] = 0;
711 return 1;
712 }
713 else
714 return 0;
715 }
716
717 Node *reparse(const char *p) /* parses regular expression pointed to by p */
718 { /* uses relex() to scan regular expression */
719 Node *np;
720
721 dprintf( ("reparse <%s>\n", p) );
722 lastre = prestr = (const uschar *) p; /* prestr points to string to be parsed */
723 rtok = relex();
724 /* GNU compatibility: an empty regexp matches anything */
725 if (rtok == '\0') {
726 /* FATAL("empty regular expression"); previous */
727 return(op2(EMPTYRE, NIL, NIL));
728 }
729 np = regexp();
730 if (rtok != '\0')
731 FATAL("syntax error in regular expression %s at %s", lastre, prestr);
732 return(np);
733 }
734
735 Node *regexp(void) /* top-level parse of reg expr */
736 {
737 return (alt(concat(primary())));
738 }
739
740 Node *primary(void)
741 {
742 Node *np;
743
744 switch (rtok) {
745 case CHAR:
746 np = op2(CHAR, NIL, itonp(rlxval));
747 rtok = relex();
748 return (unary(np));
749 case ALL:
750 rtok = relex();
751 return (unary(op2(ALL, NIL, NIL)));
752 case EMPTYRE:
753 rtok = relex();
754 return (unary(op2(ALL, NIL, NIL)));
755 case DOT:
756 rtok = relex();
757 return (unary(op2(DOT, NIL, NIL)));
758 case CCL:
759 np = op2(CCL, NIL, (Node*) cclenter((const char *) rlxstr));
760 rtok = relex();
761 return (unary(np));
762 case NCCL:
763 np = op2(NCCL, NIL, (Node *) cclenter((const char *) rlxstr));
764 rtok = relex();
765 return (unary(np));
766 case '^':
767 rtok = relex();
768 return (unary(op2(CHAR, NIL, itonp(HAT))));
769 case '$':
770 rtok = relex();
771 return (unary(op2(CHAR, NIL, NIL)));
772 case '(':
773 rtok = relex();
774 if (rtok == ')') { /* special pleading for () */
775 rtok = relex();
776 return unary(op2(CCL, NIL, (Node *) tostring("")));
777 }
778 np = regexp();
779 if (rtok == ')') {
780 rtok = relex();
781 return (unary(np));
782 }
783 else
784 FATAL("syntax error in regular expression %s at %s", lastre, prestr);
785 default:
786 FATAL("illegal primary in regular expression %s at %s", lastre, prestr);
787 }
788 return 0; /*NOTREACHED*/
789 }
790
791 Node *concat(Node *np)
792 {
793 switch (rtok) {
794 case CHAR: case DOT: case ALL: case EMPTYRE: case CCL: case NCCL: case '$': case '(':
795 return (concat(op2(CAT, np, primary())));
796 }
797 return (np);
798 }
799
800 Node *alt(Node *np)
801 {
802 if (rtok == OR) {
803 rtok = relex();
804 return (alt(op2(OR, np, concat(primary()))));
805 }
806 return (np);
807 }
808
809 Node *unary(Node *np)
810 {
811 switch (rtok) {
812 case STAR:
813 rtok = relex();
814 return (unary(op2(STAR, np, NIL)));
815 case PLUS:
816 rtok = relex();
817 return (unary(op2(PLUS, np, NIL)));
818 case QUEST:
819 rtok = relex();
820 return (unary(op2(QUEST, np, NIL)));
821 default:
822 return (np);
823 }
824 }
825
826 /*
827 * Character class definitions conformant to the POSIX locale as
828 * defined in IEEE P1003.1 draft 7 of June 2001, assuming the source
829 * and operating character sets are both ASCII (ISO646) or supersets
830 * thereof.
831 *
832 * Note that to avoid overflowing the temporary buffer used in
833 * relex(), the expanded character class (prior to range expansion)
834 * must be less than twice the size of their full name.
835 */
836
837 /* Because isblank doesn't show up in any of the header files on any
838 * system i use, it's defined here. if some other locale has a richer
839 * definition of "blank", define HAS_ISBLANK and provide your own
840 * version.
841 * the parentheses here are an attempt to find a path through the maze
842 * of macro definition and/or function and/or version provided. thanks
843 * to nelson beebe for the suggestion; let's see if it works everywhere.
844 */
845
846 /* #define HAS_ISBLANK */
847
848 static const struct charclass {
849 const char *cc_name;
850 int cc_namelen;
851 int (*cc_func)(int);
852 } charclasses[] = {
853 { "alnum", 5, isalnum },
854 { "alpha", 5, isalpha },
855 #ifndef HAS_ISBLANK
856 { "blank", 5, isspace }, /* was isblank */
857 #else
858 { "blank", 5, isblank },
859 #endif
860 { "cntrl", 5, iscntrl },
861 { "digit", 5, isdigit },
862 { "graph", 5, isgraph },
863 { "lower", 5, islower },
864 { "print", 5, isprint },
865 { "punct", 5, ispunct },
866 { "space", 5, isspace },
867 { "upper", 5, isupper },
868 { "xdigit", 6, isxdigit },
869 { NULL, 0, NULL },
870 };
871
872
873 int relex(void) /* lexical analyzer for reparse */
874 {
875 int c, n;
876 int cflag;
877 static uschar *buf = 0;
878 static int bufsz = 100;
879 uschar *bp;
880 const struct charclass *cc;
881 int i;
882
883 switch (c = *prestr++) {
884 case '|': return OR;
885 case '*': return STAR;
886 case '+': return PLUS;
887 case '?': return QUEST;
888 case '.': return DOT;
889 case '\0': prestr--; return '\0';
890 case '^':
891 case '$':
892 case '(':
893 case ')':
894 return c;
895 case '\\':
896 rlxval = quoted(&prestr);
897 return CHAR;
898 default:
899 rlxval = c;
900 return CHAR;
901 case '[':
902 if (buf == 0 && (buf = malloc(bufsz)) == NULL)
903 FATAL("out of space in reg expr %.10s..", lastre);
904 bp = buf;
905 if (*prestr == '^') {
906 cflag = 1;
907 prestr++;
908 }
909 else
910 cflag = 0;
911 n = 2 * strlen((const char *) prestr)+1;
912 if (!adjbuf(&buf, &bufsz, n, n, &bp, "relex1"))
913 FATAL("out of space for reg expr %.10s...", lastre);
914 for (; ; ) {
915 if ((c = *prestr++) == '\\') {
916 *bp++ = '\\';
917 if ((c = *prestr++) == '\0')
918 FATAL("nonterminated character class %.20s...", lastre);
919 *bp++ = c;
920 /* } else if (c == '\n') { */
921 /* FATAL("newline in character class %.20s...", lastre); */
922 } else if (c == '[' && *prestr == ':') {
923 /* POSIX char class names, Dag-Erling Smorgrav, des@ofug.org */
924 for (cc = charclasses; cc->cc_name; cc++)
925 if (strncmp((const char *) prestr + 1, (const char *) cc->cc_name, cc->cc_namelen) == 0)
926 break;
927 if (cc->cc_name != NULL && prestr[1 + cc->cc_namelen] == ':' &&
928 prestr[2 + cc->cc_namelen] == ']') {
929 prestr += cc->cc_namelen + 3;
930 for (i = 1; i < NCHARS; i++) {
931 if (!adjbuf(&buf, &bufsz, bp-buf+1, 100, &bp, "relex2"))
932 FATAL("out of space for reg expr %.10s...", lastre);
933 if (cc->cc_func(i)) {
934 *bp++ = i;
935 n++;
936 }
937 }
938 } else
939 *bp++ = c;
940 } else if (c == '\0') {
941 FATAL("nonterminated character class %.20s", lastre);
942 } else if (bp == buf) { /* 1st char is special */
943 *bp++ = c;
944 } else if (c == ']') {
945 *bp++ = 0;
946 rlxstr = (uschar *) tostring((char *) buf);
947 if (cflag == 0)
948 return CCL;
949 else
950 return NCCL;
951 } else
952 *bp++ = c;
953 }
954 }
955 }
956
957 int cgoto(fa *f, int s, int c)
958 {
959 int i, j, k;
960 int *p, *q;
961
962 assert(c == HAT || c < NCHARS);
963 while (f->accept >= maxsetvec) /* guessing here! */
964 resizesetvec("out of space in cgoto()");
965 for (i = 0; i <= f->accept; i++)
966 setvec[i] = 0;
967 setcnt = 0;
968 resize_state(f, s);
969 /* compute positions of gototab[s,c] into setvec */
970 p = f->posns[s];
971 for (i = 1; i <= *p; i++) {
972 if ((k = f->re[p[i]].ltype) != FINAL) {
973 if ((k == CHAR && c == ptoi(f->re[p[i]].lval.np))
974 || (k == DOT && c != 0 && c != HAT)
975 || (k == ALL && c != 0)
976 || (k == EMPTYRE && c != 0)
977 || (k == CCL && member(c, (char *) f->re[p[i]].lval.up))
978 || (k == NCCL && !member(c, (char *) f->re[p[i]].lval.up) && c != 0 && c != HAT)) {
979 q = f->re[p[i]].lfollow;
980 for (j = 1; j <= *q; j++) {
981 if (q[j] >= maxsetvec)
982 resizesetvec("cgoto overflow");
983 if (setvec[q[j]] == 0) {
984 setcnt++;
985 setvec[q[j]] = 1;
986 }
987 }
988 }
989 }
990 }
991 /* determine if setvec is a previous state */
992 tmpset[0] = setcnt;
993 j = 1;
994 for (i = f->accept; i >= 0; i--)
995 if (setvec[i]) {
996 tmpset[j++] = i;
997 }
998
999 resize_state(f, f->curstat > s ? f->curstat : s);
1000 /* tmpset == previous state? */
1001 for (i = 1; i <= f->curstat; i++) {
1002 p = f->posns[i];
1003 if ((k = tmpset[0]) != p[0])
1004 goto different;
1005 for (j = 1; j <= k; j++)
1006 if (tmpset[j] != p[j])
1007 goto different;
1008 /* setvec is state i */
1009 if (c != HAT)
1010 f->gototab[s][c] = i;
1011 return i;
1012 different:;
1013 }
1014
1015 /* add tmpset to current set of states */
1016 ++(f->curstat);
1017 resize_state(f, f->curstat);
1018 for (i = 0; i < NCHARS; i++)
1019 f->gototab[f->curstat][i] = 0;
1020 xfree(f->posns[f->curstat]);
1021 if ((p = calloc(1, (setcnt+1)*sizeof(int))) == NULL)
1022 overflo("out of space in cgoto");
1023
1024 f->posns[f->curstat] = p;
1025 if (c != HAT)
1026 f->gototab[s][c] = f->curstat;
1027 for (i = 0; i <= setcnt; i++)
1028 p[i] = tmpset[i];
1029 if (setvec[f->accept])
1030 f->out[f->curstat] = 1;
1031 else
1032 f->out[f->curstat] = 0;
1033 return f->curstat;
1034 }
1035
1036
1037 void freefa(fa *f) /* free a finite automaton */
1038 {
1039 int i;
1040
1041 if (f == NULL)
1042 return;
1043 for (i = 0; i < f->state_count; i++) {
1044 xfree(f->gototab[i])
1045 xfree(f->posns[i]);
1046 }
1047 for (i = 0; i <= f->accept; i++) {
1048 xfree(f->re[i].lfollow);
1049 if (f->re[i].ltype == CCL || f->re[i].ltype == NCCL)
1050 xfree((f->re[i].lval.np));
1051 }
1052 xfree(f->restr);
1053 xfree(f->out);
1054 xfree(f->posns);
1055 xfree(f->gototab);
1056 xfree(f);
1057 }
MINIX 3 (repo.or.cz mirror)