Attachment "quantified-backrefs.patch" to
ticket [0e0e150e49]
added by
tgl
2015-09-19 15:55:52.
0000: 64 69 66 66 20 2d 70 63 64 72 20 74 63 6c 38 2e diff -pcdr tcl8.
0010: 36 2e 34 2e 6f 72 69 67 2f 67 65 6e 65 72 69 63 6.4.orig/generic
0020: 2f 72 65 67 63 6f 6d 70 2e 63 20 74 63 6c 38 2e /regcomp.c tcl8.
0030: 36 2e 34 2f 67 65 6e 65 72 69 63 2f 72 65 67 63 6.4/generic/regc
0040: 6f 6d 70 2e 63 0a 2a 2a 2a 20 74 63 6c 38 2e 36 omp.c.*** tcl8.6
0050: 2e 34 2e 6f 72 69 67 2f 67 65 6e 65 72 69 63 2f .4.orig/generic/
0060: 72 65 67 63 6f 6d 70 2e 63 09 54 68 75 20 46 65 regcomp.c.Thu Fe
0070: 62 20 32 36 20 31 31 3a 35 37 3a 32 38 20 32 30 b 26 11:57:28 20
0080: 31 35 0a 2d 2d 2d 20 74 63 6c 38 2e 36 2e 34 2f 15.--- tcl8.6.4/
0090: 67 65 6e 65 72 69 63 2f 72 65 67 63 6f 6d 70 2e generic/regcomp.
00a0: 63 09 46 72 69 20 53 65 70 20 31 38 20 31 32 3a c.Fri Sep 18 12:
00b0: 31 36 3a 33 30 20 32 30 31 35 0a 2a 2a 2a 2a 2a 16:30 2015.*****
00c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 70 61 72 73 65 ********** parse
00d0: 71 61 74 6f 6d 28 0a 2a 2a 2a 20 31 31 30 32 2c qatom(.*** 1102,
00e0: 31 31 31 32 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 1112 ****.
00f0: 2f 2a 0a 20 20 20 20 20 20 20 2a 20 50 72 65 70 /*. * Prep
0100: 61 72 65 20 61 20 67 65 6e 65 72 61 6c 2d 70 75 are a general-pu
0110: 72 70 6f 73 65 20 73 74 61 74 65 20 73 6b 65 6c rpose state skel
0120: 65 74 6f 6e 2e 0a 20 20 20 20 20 20 20 2a 0a 21 eton.. *.!
0130: 20 20 20 20 20 20 2a 20 20 20 20 2d 2d 2d 3e 20 * --->
0140: 5b 73 5d 20 2d 2d 2d 70 72 65 66 69 78 2d 2d 2d [s] ---prefix---
0150: 3e 20 5b 62 65 67 69 6e 5d 20 2d 2d 2d 61 74 6f > [begin] ---ato
0160: 6d 2d 2d 2d 3e 20 5b 65 6e 64 5d 20 2d 2d 2d 2d m---> [end] ----
0170: 72 65 73 74 2d 2d 2d 3e 20 5b 72 70 5d 0a 21 20 rest---> [rp].!
0180: 20 20 20 20 20 2a 20 20 20 2f 20 20 20 20 20 20 * /
0190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01b0: 20 20 20 20 20 20 2f 0a 21 20 20 20 20 20 20 2a /.! *
01c0: 20 5b 6c 70 5d 20 2d 2d 2d 2d 3e 20 5b 73 32 5d [lp] ----> [s2]
01d0: 20 2d 2d 2d 2d 62 79 70 61 73 73 2d 2d 2d 2d 2d ----bypass-----
01e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01f0: 0a 20 20 20 20 20 20 20 2a 0a 21 20 20 20 20 20 . *.!
0200: 20 2a 20 77 68 65 72 65 20 62 79 70 61 73 73 20 * where bypass
0210: 69 73 20 61 6e 20 65 6d 70 74 79 2c 20 61 6e 64 is an empty, and
0220: 20 70 72 65 66 69 78 20 69 73 20 73 6f 6d 65 20 prefix is some
0230: 72 65 70 65 74 69 74 69 6f 6e 73 20 6f 66 20 61 repetitions of a
0240: 74 6f 6d 0a 20 20 20 20 20 20 20 2a 2f 0a 20 20 tom. */.
0250: 0a 20 20 20 20 20 20 73 20 3d 20 6e 65 77 73 74 . s = newst
0260: 61 74 65 28 76 2d 3e 6e 66 61 29 3b 09 2f 2a 20 ate(v->nfa);./*
0270: 66 69 72 73 74 2c 20 6e 65 77 20 65 6e 64 70 6f first, new endpo
0280: 69 6e 74 73 20 66 6f 72 20 74 68 65 20 61 74 6f ints for the ato
0290: 6d 20 2a 2f 0a 2d 2d 2d 20 31 31 30 32 2c 31 31 m */.--- 1102,11
02a0: 31 38 20 2d 2d 2d 2d 0a 20 20 20 20 20 20 2f 2a 18 ----. /*
02b0: 0a 20 20 20 20 20 20 20 2a 20 50 72 65 70 61 72 . * Prepar
02c0: 65 20 61 20 67 65 6e 65 72 61 6c 2d 70 75 72 70 e a general-purp
02d0: 6f 73 65 20 73 74 61 74 65 20 73 6b 65 6c 65 74 ose state skelet
02e0: 6f 6e 2e 0a 20 20 20 20 20 20 20 2a 0a 21 20 20 on.. *.!
02f0: 20 20 20 20 2a 20 49 6e 20 74 68 65 20 6e 6f 2d * In the no-
0300: 62 61 63 6b 72 65 66 73 20 63 61 73 65 2c 20 77 backrefs case, w
0310: 65 20 77 61 6e 74 20 74 68 69 73 3a 0a 20 20 20 e want this:.
0320: 20 20 20 20 2a 0a 21 20 20 20 20 20 20 2a 20 5b *.! * [
0330: 6c 70 5d 20 2d 2d 2d 3e 20 5b 73 5d 20 2d 2d 2d lp] ---> [s] ---
0340: 70 72 65 66 69 78 2d 2d 2d 3e 20 5b 62 65 67 69 prefix---> [begi
0350: 6e 5d 20 2d 2d 2d 61 74 6f 6d 2d 2d 2d 3e 20 5b n] ---atom---> [
0360: 65 6e 64 5d 20 2d 2d 2d 72 65 73 74 2d 2d 2d 3e end] ---rest--->
0370: 20 5b 72 70 5d 0a 21 20 20 20 20 20 20 2a 0a 21 [rp].! *.!
0380: 20 20 20 20 20 20 2a 20 77 68 65 72 65 20 70 72 * where pr
0390: 65 66 69 78 20 69 73 20 73 6f 6d 65 20 72 65 70 efix is some rep
03a0: 65 74 69 74 69 6f 6e 73 20 6f 66 20 61 74 6f 6d etitions of atom
03b0: 2e 20 20 49 6e 20 74 68 65 20 67 65 6e 65 72 61 . In the genera
03c0: 6c 20 63 61 73 65 20 77 65 20 6e 65 65 64 0a 21 l case we need.!
03d0: 20 20 20 20 20 20 2a 0a 21 20 20 20 20 20 20 2a *.! *
03e0: 20 5b 6c 70 5d 20 2d 2d 2d 3e 20 5b 73 5d 20 2d [lp] ---> [s] -
03f0: 2d 2d 69 74 65 72 61 74 6f 72 2d 2d 2d 3e 20 5b --iterator---> [
0400: 73 32 5d 20 2d 2d 2d 72 65 73 74 2d 2d 2d 3e 20 s2] ---rest--->
0410: 5b 72 70 5d 0a 21 20 20 20 20 20 20 2a 0a 21 20 [rp].! *.!
0420: 20 20 20 20 20 2a 20 77 68 65 72 65 20 74 68 65 * where the
0430: 20 69 74 65 72 61 74 6f 72 20 77 72 61 70 73 20 iterator wraps
0440: 61 72 6f 75 6e 64 20 5b 62 65 67 69 6e 5d 20 2d around [begin] -
0450: 2d 2d 61 74 6f 6d 2d 2d 2d 3e 20 5b 65 6e 64 5d --atom---> [end]
0460: 0a 21 20 20 20 20 20 20 2a 0a 21 20 20 20 20 20 .! *.!
0470: 20 2a 20 57 65 20 6d 61 6b 65 20 74 68 65 20 73 * We make the s
0480: 20 73 74 61 74 65 20 68 65 72 65 20 66 6f 72 20 state here for
0490: 62 6f 74 68 20 63 61 73 65 73 3b 20 73 32 20 69 both cases; s2 i
04a0: 73 20 6d 61 64 65 20 62 65 6c 6f 77 20 69 66 20 s made below if
04b0: 6e 65 65 64 65 64 0a 20 20 20 20 20 20 20 2a 2f needed. */
04c0: 0a 20 20 0a 20 20 20 20 20 20 73 20 3d 20 6e 65 . . s = ne
04d0: 77 73 74 61 74 65 28 76 2d 3e 6e 66 61 29 3b 09 wstate(v->nfa);.
04e0: 2f 2a 20 66 69 72 73 74 2c 20 6e 65 77 20 65 6e /* first, new en
04f0: 64 70 6f 69 6e 74 73 20 66 6f 72 20 74 68 65 20 dpoints for the
0500: 61 74 6f 6d 20 2a 2f 0a 2a 2a 2a 2a 2a 2a 2a 2a atom */.********
0510: 2a 2a 2a 2a 2a 2a 2a 20 70 61 72 73 65 71 61 74 ******* parseqat
0520: 6f 6d 28 0a 2a 2a 2a 20 31 31 31 37 2c 31 31 32 om(.*** 1117,112
0530: 37 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 4e 4f 45 7 ****. NOE
0540: 52 52 28 29 3b 0a 20 20 20 20 20 20 61 74 6f 6d RR();. atom
0550: 2d 3e 62 65 67 69 6e 20 3d 20 73 3b 0a 20 20 20 ->begin = s;.
0560: 20 20 20 61 74 6f 6d 2d 3e 65 6e 64 20 3d 20 73 atom->end = s
0570: 32 3b 0a 21 20 20 20 20 20 73 20 3d 20 6e 65 77 2;.! s = new
0580: 73 74 61 74 65 28 76 2d 3e 6e 66 61 29 3b 09 2f state(v->nfa);./
0590: 2a 20 61 6e 64 20 73 70 6f 74 73 20 66 6f 72 20 * and spots for
05a0: 70 72 65 66 69 78 20 61 6e 64 20 62 79 70 61 73 prefix and bypas
05b0: 73 20 2a 2f 0a 21 20 20 20 20 20 73 32 20 3d 20 s */.! s2 =
05c0: 6e 65 77 73 74 61 74 65 28 76 2d 3e 6e 66 61 29 newstate(v->nfa)
05d0: 3b 0a 20 20 20 20 20 20 4e 4f 45 52 52 28 29 3b ;. NOERR();
05e0: 0a 20 20 20 20 20 20 45 4d 50 54 59 41 52 43 28 . EMPTYARC(
05f0: 6c 70 2c 20 73 29 3b 0a 2d 20 20 20 20 20 45 4d lp, s);.- EM
0600: 50 54 59 41 52 43 28 6c 70 2c 20 73 32 29 3b 0a PTYARC(lp, s2);.
0610: 20 20 20 20 20 20 4e 4f 45 52 52 28 29 3b 0a 20 NOERR();.
0620: 20 0a 20 20 20 20 20 20 2f 2a 0a 2d 2d 2d 20 31 . /*.--- 1
0630: 31 32 33 2c 31 31 33 31 20 2d 2d 2d 2d 0a 20 20 123,1131 ----.
0640: 20 20 20 20 4e 4f 45 52 52 28 29 3b 0a 20 20 20 NOERR();.
0650: 20 20 20 61 74 6f 6d 2d 3e 62 65 67 69 6e 20 3d atom->begin =
0660: 20 73 3b 0a 20 20 20 20 20 20 61 74 6f 6d 2d 3e s;. atom->
0670: 65 6e 64 20 3d 20 73 32 3b 0a 21 20 20 20 20 20 end = s2;.!
0680: 73 20 3d 20 6e 65 77 73 74 61 74 65 28 76 2d 3e s = newstate(v->
0690: 6e 66 61 29 3b 09 2f 2a 20 73 65 74 20 75 70 20 nfa);./* set up
06a0: 73 74 61 72 74 69 6e 67 20 73 74 61 74 65 20 2a starting state *
06b0: 2f 0a 20 20 20 20 20 20 4e 4f 45 52 52 28 29 3b /. NOERR();
06c0: 0a 20 20 20 20 20 20 45 4d 50 54 59 41 52 43 28 . EMPTYARC(
06d0: 6c 70 2c 20 73 29 3b 0a 20 20 20 20 20 20 4e 4f lp, s);. NO
06e0: 45 52 52 28 29 3b 0a 20 20 0a 20 20 20 20 20 20 ERR();. .
06f0: 2f 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /*.*************
0700: 2a 2a 20 70 61 72 73 65 71 61 74 6f 6d 28 0a 2a ** parseqatom(.*
0710: 2a 2a 20 31 31 36 36 2c 31 31 39 32 20 2a 2a 2a ** 1166,1192 ***
0720: 2a 0a 20 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 *. }. .
0730: 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 49 /*.! * I
0740: 74 27 73 20 71 75 61 6e 74 69 66 69 65 72 20 74 t's quantifier t
0750: 69 6d 65 3b 20 66 69 72 73 74 2c 20 74 75 72 6e ime; first, turn
0760: 20 78 7b 30 2c 2e 2e 2e 7d 20 69 6e 74 6f 20 78 x{0,...} into x
0770: 7b 31 2c 2e 2e 2e 7d 7c 65 6d 70 74 79 0a 21 20 {1,...}|empty.!
0780: 20 20 20 20 20 2a 2f 0a 21 20 0a 21 20 20 20 20 */.! .!
0790: 20 69 66 20 28 6d 20 3d 3d 20 30 29 20 7b 0a 21 if (m == 0) {.!
07a0: 20 09 45 4d 50 54 59 41 52 43 28 73 32 2c 20 61 .EMPTYARC(s2, a
07b0: 74 6f 6d 2d 3e 65 6e 64 29 3b 2f 2a 20 74 68 65 tom->end);/* the
07c0: 20 62 79 70 61 73 73 20 2a 2f 0a 21 20 09 61 73 bypass */.! .as
07d0: 73 65 72 74 28 50 52 45 46 28 71 70 72 65 66 65 sert(PREF(qprefe
07e0: 72 29 20 21 3d 20 30 29 3b 0a 21 20 09 66 20 3d r) != 0);.! .f =
07f0: 20 43 4f 4d 42 49 4e 45 28 71 70 72 65 66 65 72 COMBINE(qprefer
0800: 2c 20 61 74 6f 6d 2d 3e 66 6c 61 67 73 29 3b 0a , atom->flags);.
0810: 21 20 09 74 20 3d 20 73 75 62 72 65 28 76 2c 20 ! .t = subre(v,
0820: 27 7c 27 2c 20 66 2c 20 6c 70 2c 20 61 74 6f 6d '|', f, lp, atom
0830: 2d 3e 65 6e 64 29 3b 0a 21 20 09 4e 4f 45 52 52 ->end);.! .NOERR
0840: 28 29 3b 0a 21 20 09 74 2d 3e 6c 65 66 74 20 3d ();.! .t->left =
0850: 20 61 74 6f 6d 3b 0a 21 20 09 74 2d 3e 72 69 67 atom;.! .t->rig
0860: 68 74 20 3d 20 73 75 62 72 65 28 76 2c 20 27 7c ht = subre(v, '|
0870: 27 2c 20 50 52 45 46 28 66 29 2c 20 73 32 2c 20 ', PREF(f), s2,
0880: 61 74 6f 6d 2d 3e 65 6e 64 29 3b 0a 21 20 09 4e atom->end);.! .N
0890: 4f 45 52 52 28 29 3b 0a 21 20 09 74 2d 3e 72 69 OERR();.! .t->ri
08a0: 67 68 74 2d 3e 6c 65 66 74 20 3d 20 73 75 62 72 ght->left = subr
08b0: 65 28 76 2c 20 27 3d 27 2c 20 30 2c 20 73 32 2c e(v, '=', 0, s2,
08c0: 20 61 74 6f 6d 2d 3e 65 6e 64 29 3b 0a 21 20 09 atom->end);.! .
08d0: 4e 4f 45 52 52 28 29 3b 0a 21 20 09 2a 61 74 6f NOERR();.! .*ato
08e0: 6d 70 20 3d 20 74 3b 0a 21 20 09 61 74 6f 6d 70 mp = t;.! .atomp
08f0: 20 3d 20 26 74 2d 3e 6c 65 66 74 3b 0a 21 20 09 = &t->left;.! .
0900: 6d 20 3d 20 31 3b 0a 21 20 20 20 20 20 7d 0a 21 m = 1;.! }.!
0910: 20 0a 21 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 .! /*.!
0920: 20 20 2a 20 44 65 61 6c 20 77 69 74 68 20 74 68 * Deal with th
0930: 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 71 75 e rest of the qu
0940: 61 6e 74 69 66 69 65 72 2e 0a 20 20 20 20 20 20 antifier..
0950: 20 2a 2f 0a 20 20 0a 20 20 20 20 20 20 69 66 20 */. . if
0960: 28 61 74 6f 6d 74 79 70 65 20 3d 3d 20 42 41 43 (atomtype == BAC
0970: 4b 52 45 46 29 20 7b 0a 2d 2d 2d 20 31 31 37 30 KREF) {.--- 1170
0980: 2c 31 31 37 37 20 2d 2d 2d 2d 0a 20 20 20 20 20 ,1177 ----.
0990: 20 7d 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a 21 }. . /*.!
09a0: 20 20 20 20 20 20 2a 20 49 74 27 73 20 71 75 61 * It's qua
09b0: 6e 74 69 66 69 65 72 20 74 69 6d 65 2e 20 20 49 ntifier time. I
09c0: 66 20 74 68 65 20 61 74 6f 6d 20 69 73 20 6a 75 f the atom is ju
09d0: 73 74 20 61 20 62 61 63 6b 72 65 66 2c 20 77 65 st a backref, we
09e0: 27 6c 6c 20 6c 65 74 20 69 74 20 64 65 61 6c 0a 'll let it deal.
09f0: 21 20 20 20 20 20 20 2a 20 77 69 74 68 20 71 75 ! * with qu
0a00: 61 6e 74 69 66 69 65 72 73 20 69 6e 74 65 72 6e antifiers intern
0a10: 61 6c 6c 79 2e 0a 20 20 20 20 20 20 20 2a 2f 0a ally.. */.
0a20: 20 20 0a 20 20 20 20 20 20 69 66 20 28 61 74 6f . if (ato
0a30: 6d 74 79 70 65 20 3d 3d 20 42 41 43 4b 52 45 46 mtype == BACKREF
0a40: 29 20 7b 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ) {.************
0a50: 2a 2a 2a 20 70 61 72 73 65 71 61 74 6f 6d 28 0a *** parseqatom(.
0a60: 2a 2a 2a 20 31 32 30 34 2c 31 32 31 39 20 2a 2a *** 1204,1219 **
0a70: 2a 2a 0a 20 20 09 61 74 6f 6d 2d 3e 6d 69 6e 20 **. .atom->min
0a80: 3d 20 28 73 68 6f 72 74 29 20 6d 3b 0a 20 20 09 = (short) m;. .
0a90: 61 74 6f 6d 2d 3e 6d 61 78 20 3d 20 28 73 68 6f atom->max = (sho
0aa0: 72 74 29 20 6e 3b 0a 20 20 09 61 74 6f 6d 2d 3e rt) n;. .atom->
0ab0: 66 6c 61 67 73 20 7c 3d 20 43 4f 4d 42 49 4e 45 flags |= COMBINE
0ac0: 28 71 70 72 65 66 65 72 2c 20 61 74 6f 6d 2d 3e (qprefer, atom->
0ad0: 66 6c 61 67 73 29 3b 0a 20 20 20 20 20 20 7d 20 flags);. }
0ae0: 65 6c 73 65 20 69 66 20 28 6d 20 3d 3d 20 31 20 else if (m == 1
0af0: 26 26 20 6e 20 3d 3d 20 31 29 20 7b 0a 20 20 09 && n == 1) {. .
0b00: 2f 2a 0a 20 20 09 20 2a 20 4e 6f 2f 76 61 63 75 /*. . * No/vacu
0b10: 6f 75 73 20 71 75 61 6e 74 69 66 69 65 72 3a 20 ous quantifier:
0b20: 64 6f 6e 65 2e 0a 20 20 09 20 2a 2f 0a 20 20 0a done.. . */. .
0b30: 20 20 09 45 4d 50 54 59 41 52 43 28 73 2c 20 61 .EMPTYARC(s, a
0b40: 74 6f 6d 2d 3e 62 65 67 69 6e 29 3b 09 2f 2a 20 tom->begin);./*
0b50: 65 6d 70 74 79 20 70 72 65 66 69 78 20 2a 2f 0a empty prefix */.
0b60: 21 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 ! } else {.
0b70: 20 09 2f 2a 0a 21 20 09 20 2a 20 54 75 72 6e 20 ./*.! . * Turn
0b80: 78 7b 6d 2c 6e 7d 20 69 6e 74 6f 20 78 7b 6d 2d x{m,n} into x{m-
0b90: 31 2c 6e 2d 31 7d 78 2c 20 77 69 74 68 20 63 61 1,n-1}x, with ca
0ba0: 70 74 75 72 69 6e 67 20 70 61 72 65 6e 73 20 69 pturing parens i
0bb0: 6e 20 6f 6e 6c 79 20 73 65 63 6f 6e 64 0a 21 20 n only second.!
0bc0: 09 20 2a 20 78 0a 20 20 09 20 2a 2f 0a 20 20 0a . * x. . */. .
0bd0: 20 20 09 64 75 70 6e 66 61 28 76 2d 3e 6e 66 61 .dupnfa(v->nfa
0be0: 2c 20 61 74 6f 6d 2d 3e 62 65 67 69 6e 2c 20 61 , atom->begin, a
0bf0: 74 6f 6d 2d 3e 65 6e 64 2c 20 73 2c 20 61 74 6f tom->end, s, ato
0c00: 6d 2d 3e 62 65 67 69 6e 29 3b 0a 2d 2d 2d 20 31 m->begin);.--- 1
0c10: 31 38 39 2c 31 32 31 32 20 2d 2d 2d 2d 0a 20 20 189,1212 ----.
0c20: 09 61 74 6f 6d 2d 3e 6d 69 6e 20 3d 20 28 73 68 .atom->min = (sh
0c30: 6f 72 74 29 20 6d 3b 0a 20 20 09 61 74 6f 6d 2d ort) m;. .atom-
0c40: 3e 6d 61 78 20 3d 20 28 73 68 6f 72 74 29 20 6e >max = (short) n
0c50: 3b 0a 20 20 09 61 74 6f 6d 2d 3e 66 6c 61 67 73 ;. .atom->flags
0c60: 20 7c 3d 20 43 4f 4d 42 49 4e 45 28 71 70 72 65 |= COMBINE(qpre
0c70: 66 65 72 2c 20 61 74 6f 6d 2d 3e 66 6c 61 67 73 fer, atom->flags
0c80: 29 3b 0a 2b 20 09 2f 2a 20 72 65 73 74 20 6f 66 );.+ ./* rest of
0c90: 20 62 72 61 6e 63 68 20 63 61 6e 20 62 65 20 73 branch can be s
0ca0: 74 72 75 6e 67 20 73 74 61 72 74 69 6e 67 20 66 trung starting f
0cb0: 72 6f 6d 20 61 74 6f 6d 2d 3e 65 6e 64 20 2a 2f rom atom->end */
0cc0: 0a 2b 20 09 73 32 20 3d 20 61 74 6f 6d 2d 3e 65 .+ .s2 = atom->e
0cd0: 6e 64 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 nd;. } else
0ce0: 20 69 66 20 28 6d 20 3d 3d 20 31 20 26 26 20 6e if (m == 1 && n
0cf0: 20 3d 3d 20 31 29 20 7b 0a 20 20 09 2f 2a 0a 20 == 1) {. ./*.
0d00: 20 09 20 2a 20 4e 6f 2f 76 61 63 75 6f 75 73 20 . * No/vacuous
0d10: 71 75 61 6e 74 69 66 69 65 72 3a 20 64 6f 6e 65 quantifier: done
0d20: 2e 0a 20 20 09 20 2a 2f 0a 20 20 0a 20 20 09 45 .. . */. . .E
0d30: 4d 50 54 59 41 52 43 28 73 2c 20 61 74 6f 6d 2d MPTYARC(s, atom-
0d40: 3e 62 65 67 69 6e 29 3b 09 2f 2a 20 65 6d 70 74 >begin);./* empt
0d50: 79 20 70 72 65 66 69 78 20 2a 2f 0a 21 20 09 2f y prefix */.! ./
0d60: 2a 20 72 65 73 74 20 6f 66 20 62 72 61 6e 63 68 * rest of branch
0d70: 20 63 61 6e 20 62 65 20 73 74 72 75 6e 67 20 73 can be strung s
0d80: 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 61 74 6f tarting from ato
0d90: 6d 2d 3e 65 6e 64 20 2a 2f 0a 21 20 09 73 32 20 m->end */.! .s2
0da0: 3d 20 61 74 6f 6d 2d 3e 65 6e 64 3b 0a 21 20 20 = atom->end;.!
0db0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6d 20 } else if (m
0dc0: 3e 20 30 20 26 26 20 21 28 61 74 6f 6d 2d 3e 66 > 0 && !(atom->f
0dd0: 6c 61 67 73 20 26 20 42 41 43 4b 52 29 29 20 7b lags & BACKR)) {
0de0: 0a 20 20 09 2f 2a 0a 21 20 09 20 2a 20 49 66 20 . ./*.! . * If
0df0: 74 68 65 72 65 27 73 20 6e 6f 20 62 61 63 6b 72 there's no backr
0e00: 65 66 73 20 69 6e 76 6f 6c 76 65 64 2c 20 77 65 efs involved, we
0e10: 20 63 61 6e 20 74 75 72 6e 20 78 7b 6d 2c 6e 7d can turn x{m,n}
0e20: 20 69 6e 74 6f 0a 21 20 09 20 2a 20 78 7b 6d 2d into.! . * x{m-
0e30: 31 2c 6e 2d 31 7d 78 2c 20 77 69 74 68 20 63 61 1,n-1}x, with ca
0e40: 70 74 75 72 69 6e 67 20 70 61 72 65 6e 73 20 69 pturing parens i
0e50: 6e 20 6f 6e 6c 79 20 74 68 65 20 73 65 63 6f 6e n only the secon
0e60: 64 20 78 2e 20 20 54 68 69 73 0a 21 20 09 20 2a d x. This.! . *
0e70: 20 69 73 20 76 61 6c 69 64 20 62 65 63 61 75 73 is valid becaus
0e80: 65 20 77 65 20 6f 6e 6c 79 20 63 61 72 65 20 61 e we only care a
0e90: 62 6f 75 74 20 63 61 70 74 75 72 69 6e 67 20 6d bout capturing m
0ea0: 61 74 63 68 65 73 20 66 72 6f 6d 20 74 68 65 0a atches from the.
0eb0: 21 20 09 20 2a 20 66 69 6e 61 6c 20 69 74 65 72 ! . * final iter
0ec0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 71 75 61 ation of the qua
0ed0: 6e 74 69 66 69 65 72 2e 20 20 49 74 27 73 20 61 ntifier. It's a
0ee0: 20 77 69 6e 20 62 65 63 61 75 73 65 20 77 65 20 win because we
0ef0: 63 61 6e 0a 21 20 09 20 2a 20 69 6d 70 6c 65 6d can.! . * implem
0f00: 65 6e 74 20 74 68 65 20 62 61 63 6b 72 65 66 2d ent the backref-
0f10: 66 72 65 65 20 6c 65 66 74 20 73 69 64 65 20 61 free left side a
0f20: 73 20 61 20 70 6c 61 69 6e 20 44 46 41 20 6e 6f s a plain DFA no
0f30: 64 65 2c 20 73 69 6e 63 65 0a 21 20 09 20 2a 20 de, since.! . *
0f40: 77 65 20 64 6f 6e 27 74 20 72 65 61 6c 6c 79 20 we don't really
0f50: 63 61 72 65 20 77 68 65 72 65 20 69 74 73 20 73 care where its s
0f60: 75 62 6d 61 74 63 68 65 73 20 61 72 65 2e 0a 20 ubmatches are..
0f70: 20 09 20 2a 2f 0a 20 20 0a 20 20 09 64 75 70 6e . */. . .dupn
0f80: 66 61 28 76 2d 3e 6e 66 61 2c 20 61 74 6f 6d 2d fa(v->nfa, atom-
0f90: 3e 62 65 67 69 6e 2c 20 61 74 6f 6d 2d 3e 65 6e >begin, atom->en
0fa0: 64 2c 20 73 2c 20 61 74 6f 6d 2d 3e 62 65 67 69 d, s, atom->begi
0fb0: 6e 29 3b 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a n);.************
0fc0: 2a 2a 2a 20 70 61 72 73 65 71 61 74 6f 6d 28 0a *** parseqatom(.
0fd0: 2a 2a 2a 20 31 32 32 36 2c 31 32 33 31 20 2a 2a *** 1226,1231 **
0fe0: 2a 2a 0a 2d 2d 2d 20 31 32 31 39 2c 31 32 34 32 **.--- 1219,1242
0ff0: 20 2d 2d 2d 2d 0a 20 20 09 4e 4f 45 52 52 28 29 ----. .NOERR()
1000: 3b 0a 20 20 09 74 2d 3e 72 69 67 68 74 20 3d 20 ;. .t->right =
1010: 61 74 6f 6d 3b 0a 20 20 09 2a 61 74 6f 6d 70 20 atom;. .*atomp
1020: 3d 20 74 3b 0a 2b 20 09 2f 2a 20 72 65 73 74 20 = t;.+ ./* rest
1030: 6f 66 20 62 72 61 6e 63 68 20 63 61 6e 20 62 65 of branch can be
1040: 20 73 74 72 75 6e 67 20 73 74 61 72 74 69 6e 67 strung starting
1050: 20 66 72 6f 6d 20 61 74 6f 6d 2d 3e 65 6e 64 20 from atom->end
1060: 2a 2f 0a 2b 20 09 73 32 20 3d 20 61 74 6f 6d 2d */.+ .s2 = atom-
1070: 3e 65 6e 64 3b 0a 2b 20 20 20 20 20 7d 20 65 6c >end;.+ } el
1080: 73 65 20 7b 0a 2b 20 09 2f 2a 20 67 65 6e 65 72 se {.+ ./* gener
1090: 61 6c 20 63 61 73 65 3a 20 6e 65 65 64 20 61 6e al case: need an
10a0: 20 69 74 65 72 61 74 69 6f 6e 20 6e 6f 64 65 20 iteration node
10b0: 2a 2f 0a 2b 20 09 73 32 20 3d 20 6e 65 77 73 74 */.+ .s2 = newst
10c0: 61 74 65 28 76 2d 3e 6e 66 61 29 3b 0a 2b 20 09 ate(v->nfa);.+ .
10d0: 4e 4f 45 52 52 28 29 3b 0a 2b 20 09 6d 6f 76 65 NOERR();.+ .move
10e0: 6f 75 74 73 28 76 2d 3e 6e 66 61 2c 20 61 74 6f outs(v->nfa, ato
10f0: 6d 2d 3e 65 6e 64 2c 20 73 32 29 3b 0a 2b 20 09 m->end, s2);.+ .
1100: 4e 4f 45 52 52 28 29 3b 0a 2b 20 09 64 75 70 6e NOERR();.+ .dupn
1110: 66 61 28 76 2d 3e 6e 66 61 2c 20 61 74 6f 6d 2d fa(v->nfa, atom-
1120: 3e 62 65 67 69 6e 2c 20 61 74 6f 6d 2d 3e 65 6e >begin, atom->en
1130: 64 2c 20 73 2c 20 73 32 29 3b 0a 2b 20 09 72 65 d, s, s2);.+ .re
1140: 70 65 61 74 28 76 2c 20 73 2c 20 73 32 2c 20 6d peat(v, s, s2, m
1150: 2c 20 6e 29 3b 0a 2b 20 09 66 20 3d 20 43 4f 4d , n);.+ .f = COM
1160: 42 49 4e 45 28 71 70 72 65 66 65 72 2c 20 61 74 BINE(qprefer, at
1170: 6f 6d 2d 3e 66 6c 61 67 73 29 3b 0a 2b 20 09 74 om->flags);.+ .t
1180: 20 3d 20 73 75 62 72 65 28 76 2c 20 27 2a 27 2c = subre(v, '*',
1190: 20 66 2c 20 73 2c 20 73 32 29 3b 0a 2b 20 09 4e f, s, s2);.+ .N
11a0: 4f 45 52 52 28 29 3b 0a 2b 20 09 74 2d 3e 6d 69 OERR();.+ .t->mi
11b0: 6e 20 3d 20 28 73 68 6f 72 74 29 20 6d 3b 0a 2b n = (short) m;.+
11c0: 20 09 74 2d 3e 6d 61 78 20 3d 20 28 73 68 6f 72 .t->max = (shor
11d0: 74 29 20 6e 3b 0a 2b 20 09 74 2d 3e 6c 65 66 74 t) n;.+ .t->left
11e0: 20 3d 20 61 74 6f 6d 3b 0a 2b 20 09 2a 61 74 6f = atom;.+ .*ato
11f0: 6d 70 20 3d 20 74 3b 0a 2b 20 09 2f 2a 20 72 65 mp = t;.+ ./* re
1200: 73 74 20 6f 66 20 62 72 61 6e 63 68 20 69 73 20 st of branch is
1210: 74 6f 20 62 65 20 73 74 72 75 6e 67 20 66 72 6f to be strung fro
1220: 6d 20 69 74 65 72 61 74 69 6f 6e 27 73 20 65 6e m iteration's en
1230: 64 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 20 20 d state */.
1240: 20 7d 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a 2a }. . /*.*
1250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 70 ************** p
1260: 61 72 73 65 71 61 74 6f 6d 28 0a 2a 2a 2a 20 31 arseqatom(.*** 1
1270: 32 33 34 2c 31 32 34 33 20 2a 2a 2a 2a 0a 20 20 234,1243 ****.
1280: 0a 20 20 20 20 20 20 74 20 3d 20 74 6f 70 2d 3e . t = top->
1290: 72 69 67 68 74 3b 0a 20 20 20 20 20 20 69 66 20 right;. if
12a0: 28 21 28 53 45 45 28 27 7c 27 29 20 7c 7c 20 53 (!(SEE('|') || S
12b0: 45 45 28 73 74 6f 70 70 65 72 29 20 7c 7c 20 53 EE(stopper) || S
12c0: 45 45 28 45 4f 53 29 29 29 20 7b 0a 21 20 09 74 EE(EOS))) {.! .t
12d0: 2d 3e 72 69 67 68 74 20 3d 20 70 61 72 73 65 62 ->right = parseb
12e0: 72 61 6e 63 68 28 76 2c 20 73 74 6f 70 70 65 72 ranch(v, stopper
12f0: 2c 20 74 79 70 65 2c 20 61 74 6f 6d 2d 3e 65 6e , type, atom->en
1300: 64 2c 20 72 70 2c 20 31 29 3b 0a 20 20 20 20 20 d, rp, 1);.
1310: 20 7d 20 65 6c 73 65 20 7b 0a 21 20 09 45 4d 50 } else {.! .EMP
1320: 54 59 41 52 43 28 61 74 6f 6d 2d 3e 65 6e 64 2c TYARC(atom->end,
1330: 20 72 70 29 3b 0a 21 20 09 74 2d 3e 72 69 67 68 rp);.! .t->righ
1340: 74 20 3d 20 73 75 62 72 65 28 76 2c 20 27 3d 27 t = subre(v, '='
1350: 2c 20 30 2c 20 61 74 6f 6d 2d 3e 65 6e 64 2c 20 , 0, atom->end,
1360: 72 70 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 rp);. }.
1370: 20 20 20 4e 4f 45 52 52 28 29 3b 0a 20 20 20 20 NOERR();.
1380: 20 20 61 73 73 65 72 74 28 53 45 45 28 27 7c 27 assert(SEE('|'
1390: 29 20 7c 7c 20 53 45 45 28 73 74 6f 70 70 65 72 ) || SEE(stopper
13a0: 29 20 7c 7c 20 53 45 45 28 45 4f 53 29 29 3b 0a ) || SEE(EOS));.
13b0: 2d 2d 2d 20 31 32 34 35 2c 31 32 35 34 20 2d 2d --- 1245,1254 --
13c0: 2d 2d 0a 20 20 0a 20 20 20 20 20 20 74 20 3d 20 --. . t =
13d0: 74 6f 70 2d 3e 72 69 67 68 74 3b 0a 20 20 20 20 top->right;.
13e0: 20 20 69 66 20 28 21 28 53 45 45 28 27 7c 27 29 if (!(SEE('|')
13f0: 20 7c 7c 20 53 45 45 28 73 74 6f 70 70 65 72 29 || SEE(stopper)
1400: 20 7c 7c 20 53 45 45 28 45 4f 53 29 29 29 20 7b || SEE(EOS))) {
1410: 0a 21 20 09 74 2d 3e 72 69 67 68 74 20 3d 20 70 .! .t->right = p
1420: 61 72 73 65 62 72 61 6e 63 68 28 76 2c 20 73 74 arsebranch(v, st
1430: 6f 70 70 65 72 2c 20 74 79 70 65 2c 20 73 32 2c opper, type, s2,
1440: 20 72 70 2c 20 31 29 3b 0a 20 20 20 20 20 20 7d rp, 1);. }
1450: 20 65 6c 73 65 20 7b 0a 21 20 09 45 4d 50 54 59 else {.! .EMPTY
1460: 41 52 43 28 73 32 2c 20 72 70 29 3b 0a 21 20 09 ARC(s2, rp);.! .
1470: 74 2d 3e 72 69 67 68 74 20 3d 20 73 75 62 72 65 t->right = subre
1480: 28 76 2c 20 27 3d 27 2c 20 30 2c 20 73 32 2c 20 (v, '=', 0, s2,
1490: 72 70 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 rp);. }.
14a0: 20 20 20 4e 4f 45 52 52 28 29 3b 0a 20 20 20 20 NOERR();.
14b0: 20 20 61 73 73 65 72 74 28 53 45 45 28 27 7c 27 assert(SEE('|'
14c0: 29 20 7c 7c 20 53 45 45 28 73 74 6f 70 70 65 72 ) || SEE(stopper
14d0: 29 20 7c 7c 20 53 45 45 28 45 4f 53 29 29 3b 0a ) || SEE(EOS));.
14e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ***************
14f0: 73 63 61 6e 6e 75 6d 28 0a 2a 2a 2a 20 31 33 30 scannum(.*** 130
1500: 34 2c 31 33 30 39 20 2a 2a 2a 2a 0a 2d 2d 2d 20 4,1309 ****.---
1510: 31 33 31 35 2c 31 33 32 32 20 2d 2d 2d 2d 0a 20 1315,1322 ----.
1520: 20 0c 0a 20 20 2f 2a 0a 20 20 20 2d 20 72 65 70 .. /*. - rep
1530: 65 61 74 20 2d 20 72 65 70 6c 69 63 61 74 65 20 eat - replicate
1540: 73 75 62 4e 46 41 20 66 6f 72 20 71 75 61 6e 74 subNFA for quant
1550: 69 66 69 65 72 73 0a 2b 20 20 2a 20 54 68 65 20 ifiers.+ * The
1560: 73 75 62 2d 4e 46 41 20 73 74 72 75 6e 67 20 66 sub-NFA strung f
1570: 72 6f 6d 20 6c 70 20 74 6f 20 72 70 20 69 73 20 rom lp to rp is
1580: 6d 6f 64 69 66 69 65 64 20 74 6f 20 72 65 70 72 modified to repr
1590: 65 73 65 6e 74 20 6d 20 74 6f 20 6e 0a 2b 20 20 esent m to n.+
15a0: 2a 20 72 65 70 65 74 69 74 69 6f 6e 73 20 6f 66 * repetitions of
15b0: 20 69 74 73 20 69 6e 69 74 69 61 6c 20 63 6f 6e its initial con
15c0: 74 65 6e 74 73 2e 0a 20 20 20 2a 20 54 68 65 20 tents.. * The
15d0: 64 75 70 6c 69 63 61 74 69 6f 6e 20 73 65 71 75 duplication sequ
15e0: 65 6e 63 65 73 20 75 73 65 64 20 68 65 72 65 20 ences used here
15f0: 61 72 65 20 63 68 6f 73 65 6e 20 63 61 72 65 66 are chosen caref
1600: 75 6c 6c 79 20 73 6f 20 74 68 61 74 20 61 6e 79 ully so that any
1610: 0a 20 20 20 2a 20 70 6f 69 6e 74 65 72 73 20 73 . * pointers s
1620: 74 61 72 74 69 6e 67 20 6f 75 74 20 70 6f 69 6e tarting out poin
1630: 74 69 6e 67 20 69 6e 74 6f 20 74 68 65 20 73 75 ting into the su
1640: 62 65 78 70 72 65 73 73 69 6f 6e 20 65 6e 64 20 bexpression end
1650: 75 70 20 70 6f 69 6e 74 69 6e 67 20 69 6e 74 6f up pointing into
1660: 0a 20 20 20 2a 20 74 68 65 20 6c 61 73 74 20 6f . * the last o
1670: 63 63 75 72 72 65 6e 63 65 2e 20 28 4e 6f 74 65 ccurrence. (Note
1680: 20 74 68 61 74 20 69 74 20 6d 61 79 20 6e 6f 74 that it may not
1690: 20 62 65 20 73 74 72 75 6e 67 20 62 65 74 77 65 be strung betwe
16a0: 65 6e 20 74 68 65 20 73 61 6d 65 20 6c 65 66 74 en the same left
16b0: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
16c0: 20 73 75 62 72 65 28 0a 2a 2a 2a 20 31 37 31 33 subre(.*** 1713
16d0: 2c 31 37 32 33 20 2a 2a 2a 2a 0a 20 20 09 76 2d ,1723 ****. .v-
16e0: 3e 74 72 65 65 63 68 61 69 6e 20 3d 20 72 65 74 >treechain = ret
16f0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 0a 21 20 20 ;. }. .!
1700: 20 20 20 61 73 73 65 72 74 28 73 74 72 63 68 72 assert(strchr
1710: 28 22 7c 2e 62 28 3d 22 2c 20 6f 70 29 20 21 3d ("|.b(=", op) !=
1720: 20 4e 55 4c 4c 29 3b 0a 20 20 0a 20 20 20 20 20 NULL);. .
1730: 20 72 65 74 2d 3e 6f 70 20 3d 20 6f 70 3b 0a 20 ret->op = op;.
1740: 20 20 20 20 20 72 65 74 2d 3e 66 6c 61 67 73 20 ret->flags
1750: 3d 20 66 6c 61 67 73 3b 0a 21 20 20 20 20 20 72 = flags;.! r
1760: 65 74 2d 3e 72 65 74 72 79 20 3d 20 30 3b 0a 20 et->retry = 0;.
1770: 20 20 20 20 20 72 65 74 2d 3e 73 75 62 6e 6f 20 ret->subno
1780: 3d 20 30 3b 0a 20 20 20 20 20 20 72 65 74 2d 3e = 0;. ret->
1790: 6d 69 6e 20 3d 20 72 65 74 2d 3e 6d 61 78 20 3d min = ret->max =
17a0: 20 31 3b 0a 20 20 20 20 20 20 72 65 74 2d 3e 6c 1;. ret->l
17b0: 65 66 74 20 3d 20 4e 55 4c 4c 3b 0a 2d 2d 2d 20 eft = NULL;.---
17c0: 31 37 32 36 2c 31 37 33 36 20 2d 2d 2d 2d 0a 20 1726,1736 ----.
17d0: 20 09 76 2d 3e 74 72 65 65 63 68 61 69 6e 20 3d .v->treechain =
17e0: 20 72 65 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 ret;. }.
17f0: 0a 21 20 20 20 20 20 61 73 73 65 72 74 28 73 74 .! assert(st
1800: 72 63 68 72 28 22 3d 62 7c 2e 2a 28 22 2c 20 6f rchr("=b|.*(", o
1810: 70 29 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 0a p) != NULL);. .
1820: 20 20 20 20 20 20 72 65 74 2d 3e 6f 70 20 3d 20 ret->op =
1830: 6f 70 3b 0a 20 20 20 20 20 20 72 65 74 2d 3e 66 op;. ret->f
1840: 6c 61 67 73 20 3d 20 66 6c 61 67 73 3b 0a 21 20 lags = flags;.!
1850: 20 20 20 20 72 65 74 2d 3e 69 64 20 3d 20 30 3b ret->id = 0;
1860: 09 09 2f 2a 20 77 69 6c 6c 20 62 65 20 61 73 73 ../* will be ass
1870: 69 67 6e 65 64 20 6c 61 74 65 72 20 2a 2f 0a 20 igned later */.
1880: 20 20 20 20 20 72 65 74 2d 3e 73 75 62 6e 6f 20 ret->subno
1890: 3d 20 30 3b 0a 20 20 20 20 20 20 72 65 74 2d 3e = 0;. ret->
18a0: 6d 69 6e 20 3d 20 72 65 74 2d 3e 6d 61 78 20 3d min = ret->max =
18b0: 20 31 3b 0a 20 20 20 20 20 20 72 65 74 2d 3e 6c 1;. ret->l
18c0: 65 66 74 20 3d 20 4e 55 4c 4c 3b 0a 2a 2a 2a 2a eft = NULL;.****
18d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 6f 70 74 73 *********** opts
18e0: 74 28 0a 2a 2a 2a 20 31 37 39 38 2c 31 38 30 34 t(.*** 1798,1804
18f0: 20 2a 2a 2a 2a 0a 20 20 7d 0a 20 20 0c 0a 20 20 ****. }. ..
1900: 2f 2a 0a 21 20 20 2d 20 6e 75 6d 73 74 20 2d 20 /*.! - numst -
1910: 6e 75 6d 62 65 72 20 74 72 65 65 20 6e 6f 64 65 number tree node
1920: 73 20 28 61 73 73 69 67 6e 69 6e 67 20 72 65 74 s (assigning ret
1930: 72 79 20 69 6e 64 65 78 65 73 29 0a 20 20 20 5e ry indexes). ^
1940: 20 73 74 61 74 69 63 20 69 6e 74 20 6e 75 6d 73 static int nums
1950: 74 28 73 74 72 75 63 74 20 73 75 62 72 65 20 2a t(struct subre *
1960: 2c 20 69 6e 74 29 3b 0a 20 20 20 2a 2f 0a 20 20 , int);. */.
1970: 73 74 61 74 69 63 20 69 6e 74 09 09 09 2f 2a 20 static int.../*
1980: 6e 65 78 74 20 6e 75 6d 62 65 72 20 2a 2f 0a 2d next number */.-
1990: 2d 2d 20 31 38 31 31 2c 31 38 31 37 20 2d 2d 2d -- 1811,1817 ---
19a0: 2d 0a 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a 0a 21 -. }. .. /*.!
19b0: 20 20 2d 20 6e 75 6d 73 74 20 2d 20 6e 75 6d 62 - numst - numb
19c0: 65 72 20 74 72 65 65 20 6e 6f 64 65 73 20 28 61 er tree nodes (a
19d0: 73 73 69 67 6e 69 6e 67 20 22 69 64 22 20 69 6e ssigning "id" in
19e0: 64 65 78 65 73 29 0a 20 20 20 5e 20 73 74 61 74 dexes). ^ stat
19f0: 69 63 20 69 6e 74 20 6e 75 6d 73 74 28 73 74 72 ic int numst(str
1a00: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 69 6e 74 uct subre *, int
1a10: 29 3b 0a 20 20 20 2a 2f 0a 20 20 73 74 61 74 69 );. */. stati
1a20: 63 20 69 6e 74 09 09 09 2f 2a 20 6e 65 78 74 20 c int.../* next
1a30: 6e 75 6d 62 65 72 20 2a 2f 0a 2a 2a 2a 2a 2a 2a number */.******
1a40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 6e 75 6d 73 74 28 ********* numst(
1a50: 0a 2a 2a 2a 20 31 38 31 31 2c 31 38 31 37 20 2a .*** 1811,1817 *
1a60: 2a 2a 2a 0a 20 20 20 20 20 20 61 73 73 65 72 74 ***. assert
1a70: 28 74 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 0a (t != NULL);. .
1a80: 20 20 20 20 20 20 69 20 3d 20 73 74 61 72 74 3b i = start;
1a90: 0a 21 20 20 20 20 20 74 2d 3e 72 65 74 72 79 20 .! t->retry
1aa0: 3d 20 28 73 68 6f 72 74 29 20 69 2b 2b 3b 0a 20 = (short) i++;.
1ab0: 20 20 20 20 20 69 66 20 28 74 2d 3e 6c 65 66 74 if (t->left
1ac0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 09 69 != NULL) {. .i
1ad0: 20 3d 20 6e 75 6d 73 74 28 74 2d 3e 6c 65 66 74 = numst(t->left
1ae0: 2c 20 69 29 3b 0a 20 20 20 20 20 20 7d 0a 2d 2d , i);. }.--
1af0: 2d 20 31 38 32 34 2c 31 38 33 30 20 2d 2d 2d 2d - 1824,1830 ----
1b00: 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 74 20 . assert(t
1b10: 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 0a 20 20 20 != NULL);. .
1b20: 20 20 20 69 20 3d 20 73 74 61 72 74 3b 0a 21 20 i = start;.!
1b30: 20 20 20 20 74 2d 3e 69 64 20 3d 20 28 73 68 6f t->id = (sho
1b40: 72 74 29 20 69 2b 2b 3b 0a 20 20 20 20 20 20 69 rt) i++;. i
1b50: 66 20 28 74 2d 3e 6c 65 66 74 20 21 3d 20 4e 55 f (t->left != NU
1b60: 4c 4c 29 20 7b 0a 20 20 09 69 20 3d 20 6e 75 6d LL) {. .i = num
1b70: 73 74 28 74 2d 3e 6c 65 66 74 2c 20 69 29 3b 0a st(t->left, i);.
1b80: 20 20 20 20 20 20 7d 0a 2a 2a 2a 2a 2a 2a 2a 2a }.********
1b90: 2a 2a 2a 2a 2a 2a 2a 20 73 74 69 64 28 0a 2a 2a ******* stid(.**
1ba0: 2a 20 32 31 34 36 2c 32 31 35 39 20 2a 2a 2a 2a * 2146,2159 ****
1bb0: 0a 20 20 20 20 20 20 73 69 7a 65 5f 74 20 62 75 . size_t bu
1bc0: 66 73 69 7a 65 29 0a 20 20 7b 0a 20 20 20 20 20 fsize). {.
1bd0: 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 42 69 67 /*.! * Big
1be0: 20 65 6e 6f 75 67 68 20 66 6f 72 20 68 65 78 20 enough for hex
1bf0: 69 6e 74 20 6f 72 20 64 65 63 69 6d 61 6c 20 74 int or decimal t
1c00: 2d 3e 72 65 74 72 79 3f 0a 20 20 20 20 20 20 20 ->retry?.
1c10: 2a 2f 0a 20 20 0a 21 20 20 20 20 20 69 66 20 28 */. .! if (
1c20: 62 75 66 73 69 7a 65 20 3c 20 73 69 7a 65 6f 66 bufsize < sizeof
1c30: 28 76 6f 69 64 2a 29 2a 32 20 2b 20 33 20 7c 7c (void*)*2 + 3 ||
1c40: 20 62 75 66 73 69 7a 65 20 3c 20 73 69 7a 65 6f bufsize < sizeo
1c50: 66 28 74 2d 3e 72 65 74 72 79 29 2a 33 20 2b 20 f(t->retry)*3 +
1c60: 31 29 20 7b 0a 20 20 09 72 65 74 75 72 6e 20 22 1) {. .return "
1c70: 75 6e 61 62 6c 65 22 3b 0a 20 20 20 20 20 20 7d unable";. }
1c80: 0a 21 20 20 20 20 20 69 66 20 28 74 2d 3e 72 65 .! if (t->re
1c90: 74 72 79 20 21 3d 20 30 29 20 7b 0a 21 20 09 73 try != 0) {.! .s
1ca0: 70 72 69 6e 74 66 28 62 75 66 2c 20 22 25 64 22 printf(buf, "%d"
1cb0: 2c 20 74 2d 3e 72 65 74 72 79 29 3b 0a 20 20 20 , t->retry);.
1cc0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 09 73 } else {. .s
1cd0: 70 72 69 6e 74 66 28 62 75 66 2c 20 22 25 70 22 printf(buf, "%p"
1ce0: 2c 20 74 29 3b 0a 20 20 20 20 20 20 7d 0a 2d 2d , t);. }.--
1cf0: 2d 20 32 31 35 39 2c 32 31 37 32 20 2d 2d 2d 2d - 2159,2172 ----
1d00: 0a 20 20 20 20 20 20 73 69 7a 65 5f 74 20 62 75 . size_t bu
1d10: 66 73 69 7a 65 29 0a 20 20 7b 0a 20 20 20 20 20 fsize). {.
1d20: 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 42 69 67 /*.! * Big
1d30: 20 65 6e 6f 75 67 68 20 66 6f 72 20 68 65 78 20 enough for hex
1d40: 69 6e 74 20 6f 72 20 64 65 63 69 6d 61 6c 20 74 int or decimal t
1d50: 2d 3e 69 64 3f 0a 20 20 20 20 20 20 20 2a 2f 0a ->id?. */.
1d60: 20 20 0a 21 20 20 20 20 20 69 66 20 28 62 75 66 .! if (buf
1d70: 73 69 7a 65 20 3c 20 73 69 7a 65 6f 66 28 76 6f size < sizeof(vo
1d80: 69 64 2a 29 2a 32 20 2b 20 33 20 7c 7c 20 62 75 id*)*2 + 3 || bu
1d90: 66 73 69 7a 65 20 3c 20 73 69 7a 65 6f 66 28 74 fsize < sizeof(t
1da0: 2d 3e 69 64 29 2a 33 20 2b 20 31 29 20 7b 0a 20 ->id)*3 + 1) {.
1db0: 20 09 72 65 74 75 72 6e 20 22 75 6e 61 62 6c 65 .return "unable
1dc0: 22 3b 0a 20 20 20 20 20 20 7d 0a 21 20 20 20 20 ";. }.!
1dd0: 20 69 66 20 28 74 2d 3e 69 64 20 21 3d 20 30 29 if (t->id != 0)
1de0: 20 7b 0a 21 20 09 73 70 72 69 6e 74 66 28 62 75 {.! .sprintf(bu
1df0: 66 2c 20 22 25 64 22 2c 20 74 2d 3e 69 64 29 3b f, "%d", t->id);
1e00: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a . } else {.
1e10: 20 20 09 73 70 72 69 6e 74 66 28 62 75 66 2c 20 .sprintf(buf,
1e20: 22 25 70 22 2c 20 74 29 3b 0a 20 20 20 20 20 20 "%p", t);.
1e30: 7d 0a 64 69 66 66 20 2d 70 63 64 72 20 74 63 6c }.diff -pcdr tcl
1e40: 38 2e 36 2e 34 2e 6f 72 69 67 2f 67 65 6e 65 72 8.6.4.orig/gener
1e50: 69 63 2f 72 65 67 65 78 65 63 2e 63 20 74 63 6c ic/regexec.c tcl
1e60: 38 2e 36 2e 34 2f 67 65 6e 65 72 69 63 2f 72 65 8.6.4/generic/re
1e70: 67 65 78 65 63 2e 63 0a 2a 2a 2a 20 74 63 6c 38 gexec.c.*** tcl8
1e80: 2e 36 2e 34 2e 6f 72 69 67 2f 67 65 6e 65 72 69 .6.4.orig/generi
1e90: 63 2f 72 65 67 65 78 65 63 2e 63 09 54 68 75 20 c/regexec.c.Thu
1ea0: 46 65 62 20 32 36 20 31 31 3a 35 37 3a 32 38 20 Feb 26 11:57:28
1eb0: 32 30 31 35 0a 2d 2d 2d 20 74 63 6c 38 2e 36 2e 2015.--- tcl8.6.
1ec0: 34 2f 67 65 6e 65 72 69 63 2f 72 65 67 65 78 65 4/generic/regexe
1ed0: 63 2e 63 09 46 72 69 20 53 65 70 20 31 38 20 31 c.c.Fri Sep 18 1
1ee0: 32 3a 32 34 3a 31 34 20 32 30 31 35 0a 2a 2a 2a 2:24:14 2015.***
1ef0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 73 74 72 ************ str
1f00: 75 63 74 20 76 61 72 73 20 7b 0a 2a 2a 2a 20 31 uct vars {.*** 1
1f10: 30 37 2c 31 31 33 20 2a 2a 2a 2a 0a 20 20 20 20 07,113 ****.
1f20: 20 20 63 68 72 20 2a 73 74 61 72 74 3b 09 09 09 chr *start;...
1f30: 2f 2a 20 73 74 61 72 74 20 6f 66 20 73 74 72 69 /* start of stri
1f40: 6e 67 20 2a 2f 0a 20 20 20 20 20 20 63 68 72 20 ng */. chr
1f50: 2a 73 74 6f 70 3b 09 09 09 2f 2a 20 6a 75 73 74 *stop;.../* just
1f60: 20 70 61 73 74 20 65 6e 64 20 6f 66 20 73 74 72 past end of str
1f70: 69 6e 67 20 2a 2f 0a 20 20 20 20 20 20 69 6e 74 ing */. int
1f80: 20 65 72 72 3b 09 09 09 2f 2a 20 65 72 72 6f 72 err;.../* error
1f90: 20 63 6f 64 65 20 69 66 20 61 6e 79 20 28 30 20 code if any (0
1fa0: 6e 6f 6e 65 29 20 2a 2f 0a 2d 20 20 20 20 20 72 none) */.- r
1fb0: 65 67 6f 66 66 5f 74 20 2a 6d 65 6d 3b 09 09 2f egoff_t *mem;../
1fc0: 2a 20 6d 65 6d 6f 72 79 20 76 65 63 74 6f 72 20 * memory vector
1fd0: 66 6f 72 20 62 61 63 6b 74 72 61 63 6b 69 6e 67 for backtracking
1fe0: 20 2a 2f 0a 20 20 20 20 20 20 73 74 72 75 63 74 */. struct
1ff0: 20 73 6d 61 6c 6c 64 66 61 20 64 66 61 31 3b 0a smalldfa dfa1;.
2000: 20 20 20 20 20 20 73 74 72 75 63 74 20 73 6d 61 struct sma
2010: 6c 6c 64 66 61 20 64 66 61 32 3b 0a 20 20 7d 3b lldfa dfa2;. };
2020: 0a 2d 2d 2d 20 31 30 37 2c 31 31 32 20 2d 2d 2d .--- 107,112 ---
2030: 2d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a -.**************
2040: 2a 20 69 6e 74 20 65 78 65 63 28 72 65 67 65 78 * int exec(regex
2050: 5f 74 20 2a 2c 20 63 6f 6e 73 74 20 63 68 72 20 _t *, const chr
2060: 2a 2c 20 73 69 7a 65 5f 74 2c 0a 2a 2a 2a 20 31 *, size_t,.*** 1
2070: 32 39 2c 31 34 36 20 2a 2a 2a 2a 0a 20 20 73 74 29,146 ****. st
2080: 61 74 69 63 20 69 6e 74 20 73 69 6d 70 6c 65 46 atic int simpleF
2090: 69 6e 64 28 73 74 72 75 63 74 20 76 61 72 73 20 ind(struct vars
20a0: 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 63 *const, struct c
20b0: 6e 66 61 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 nfa *const, stru
20c0: 63 74 20 63 6f 6c 6f 72 6d 61 70 20 2a 63 6f 6e ct colormap *con
20d0: 73 74 29 3b 0a 20 20 73 74 61 74 69 63 20 69 6e st);. static in
20e0: 74 20 63 6f 6d 70 6c 69 63 61 74 65 64 46 69 6e t complicatedFin
20f0: 64 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 d(struct vars *c
2100: 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 63 6e 66 onst, struct cnf
2110: 61 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 a *const, struct
2120: 20 63 6f 6c 6f 72 6d 61 70 20 2a 63 6f 6e 73 74 colormap *const
2130: 29 3b 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 );. static int
2140: 63 6f 6d 70 6c 69 63 61 74 65 64 46 69 6e 64 4c complicatedFindL
2150: 6f 6f 70 28 73 74 72 75 63 74 20 76 61 72 73 20 oop(struct vars
2160: 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 63 *const, struct c
2170: 6e 66 61 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 nfa *const, stru
2180: 63 74 20 63 6f 6c 6f 72 6d 61 70 20 2a 63 6f 6e ct colormap *con
2190: 73 74 2c 20 73 74 72 75 63 74 20 64 66 61 20 2a st, struct dfa *
21a0: 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 64 66 const, struct df
21b0: 61 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 2a a *const, chr **
21c0: 63 6f 6e 73 74 29 3b 0a 21 20 73 74 61 74 69 63 const);.! static
21d0: 20 76 6f 69 64 20 7a 61 70 53 75 62 65 78 70 72 void zapSubexpr
21e0: 65 73 73 69 6f 6e 73 28 72 65 67 6d 61 74 63 68 essions(regmatch
21f0: 5f 74 20 2a 63 6f 6e 73 74 2c 20 63 6f 6e 73 74 _t *const, const
2200: 20 73 69 7a 65 5f 74 29 3b 0a 21 20 73 74 61 74 size_t);.! stat
2210: 69 63 20 76 6f 69 64 20 7a 61 70 53 75 62 74 72 ic void zapSubtr
2220: 65 65 28 73 74 72 75 63 74 20 76 61 72 73 20 2a ee(struct vars *
2230: 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 73 75 const, struct su
2240: 62 72 65 20 2a 63 6f 6e 73 74 29 3b 0a 20 20 73 bre *const);. s
2250: 74 61 74 69 63 20 76 6f 69 64 20 73 75 62 73 65 tatic void subse
2260: 74 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 t(struct vars *c
2270: 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 73 75 62 onst, struct sub
2280: 72 65 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a re *const, chr *
2290: 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f 6e 73 const, chr *cons
22a0: 74 29 3b 0a 21 20 73 74 61 74 69 63 20 69 6e 74 t);.! static int
22b0: 20 64 69 73 73 65 63 74 28 73 74 72 75 63 74 20 dissect(struct
22c0: 76 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 vars *const, str
22d0: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
22e0: 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f *const, chr *co
22f0: 6e 73 74 29 3b 0a 21 20 73 74 61 74 69 63 20 69 nst);.! static i
2300: 6e 74 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e nt concatenation
2310: 44 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 Dissect(struct v
2320: 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 ars *const, stru
2330: 63 74 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 2c ct subre *const,
2340: 20 63 68 72 20 2a 63 6f 6e 73 74 2c 20 63 68 72 chr *const, chr
2350: 20 2a 63 6f 6e 73 74 29 3b 0a 21 20 73 74 61 74 *const);.! stat
2360: 69 63 20 69 6e 74 20 61 6c 74 65 72 6e 61 74 69 ic int alternati
2370: 6f 6e 44 69 73 73 65 63 74 28 73 74 72 75 63 74 onDissect(struct
2380: 20 76 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 vars *const, st
2390: 72 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 ruct subre *, ch
23a0: 72 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 r *const, chr *c
23b0: 6f 6e 73 74 29 3b 0a 21 20 73 74 61 74 69 63 20 onst);.! static
23c0: 69 6e 6c 69 6e 65 20 69 6e 74 20 63 6f 6d 70 6c inline int compl
23d0: 69 63 61 74 65 64 44 69 73 73 65 63 74 28 73 74 icatedDissect(st
23e0: 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 ruct vars *const
23f0: 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 20 2a , struct subre *
2400: 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f 6e 73 const, chr *cons
2410: 74 2c 20 63 68 72 20 2a 63 6f 6e 73 74 29 3b 0a t, chr *const);.
2420: 21 20 73 74 61 74 69 63 20 69 6e 74 20 63 6f 6d ! static int com
2430: 70 6c 69 63 61 74 65 64 43 61 70 74 75 72 69 6e plicatedCapturin
2440: 67 44 69 73 73 65 63 74 28 73 74 72 75 63 74 20 gDissect(struct
2450: 76 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 vars *const, str
2460: 75 63 74 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 uct subre *const
2470: 2c 20 63 68 72 20 2a 63 6f 6e 73 74 2c 20 63 68 , chr *const, ch
2480: 72 20 2a 63 6f 6e 73 74 29 3b 0a 21 20 73 74 61 r *const);.! sta
2490: 74 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 63 61 tic int complica
24a0: 74 65 64 43 6f 6e 63 61 74 65 6e 61 74 69 6f 6e tedConcatenation
24b0: 44 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 Dissect(struct v
24c0: 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 ars *const, stru
24d0: 63 74 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 2c ct subre *const,
24e0: 20 63 68 72 20 2a 63 6f 6e 73 74 2c 20 63 68 72 chr *const, chr
24f0: 20 2a 63 6f 6e 73 74 29 3b 0a 21 20 73 74 61 74 *const);.! stat
2500: 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 63 61 74 ic int complicat
2510: 65 64 52 65 76 65 72 73 65 64 44 69 73 73 65 63 edReversedDissec
2520: 74 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 t(struct vars *c
2530: 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 73 75 62 onst, struct sub
2540: 72 65 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a re *const, chr *
2550: 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f 6e 73 const, chr *cons
2560: 74 29 3b 0a 21 20 73 74 61 74 69 63 20 69 6e 74 t);.! static int
2570: 20 63 6f 6d 70 6c 69 63 61 74 65 64 42 61 63 6b complicatedBack
2580: 72 65 66 44 69 73 73 65 63 74 28 73 74 72 75 63 refDissect(struc
2590: 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 t vars *const, s
25a0: 74 72 75 63 74 20 73 75 62 72 65 20 2a 63 6f 6e truct subre *con
25b0: 73 74 2c 20 63 68 72 20 2a 63 6f 6e 73 74 2c 20 st, chr *const,
25c0: 63 68 72 20 2a 63 6f 6e 73 74 29 3b 0a 21 20 73 chr *const);.! s
25d0: 74 61 74 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 tatic int compli
25e0: 63 61 74 65 64 41 6c 74 65 72 6e 61 74 69 6f 6e catedAlternation
25f0: 44 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 Dissect(struct v
2600: 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 ars *const, stru
2610: 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 20 ct subre *, chr
2620: 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f 6e *const, chr *con
2630: 73 74 29 3b 0a 20 20 2f 2a 20 3d 3d 3d 20 72 65 st);. /* === re
2640: 67 65 5f 64 66 61 2e 63 20 3d 3d 3d 20 2a 2f 0a ge_dfa.c === */.
2650: 20 20 73 74 61 74 69 63 20 63 68 72 20 2a 6c 6f static chr *lo
2660: 6e 67 65 73 74 28 73 74 72 75 63 74 20 76 61 72 ngest(struct var
2670: 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 s *const, struct
2680: 20 64 66 61 20 2a 63 6f 6e 73 74 2c 20 63 68 72 dfa *const, chr
2690: 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f *const, chr *co
26a0: 6e 73 74 2c 20 69 6e 74 20 2a 63 6f 6e 73 74 29 nst, int *const)
26b0: 3b 0a 20 20 73 74 61 74 69 63 20 63 68 72 20 2a ;. static chr *
26c0: 73 68 6f 72 74 65 73 74 28 73 74 72 75 63 74 20 shortest(struct
26d0: 76 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 vars *const, str
26e0: 75 63 74 20 64 66 61 20 2a 63 6f 6e 73 74 2c 20 uct dfa *const,
26f0: 63 68 72 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 chr *const, chr
2700: 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f 6e *const, chr *con
2710: 73 74 2c 20 63 68 72 20 2a 2a 63 6f 6e 73 74 2c st, chr **const,
2720: 20 69 6e 74 20 2a 63 6f 6e 73 74 29 3b 0a 2d 2d int *const);.--
2730: 2d 20 31 32 38 2c 31 34 33 20 2d 2d 2d 2d 0a 20 - 128,143 ----.
2740: 20 73 74 61 74 69 63 20 69 6e 74 20 73 69 6d 70 static int simp
2750: 6c 65 46 69 6e 64 28 73 74 72 75 63 74 20 76 61 leFind(struct va
2760: 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 rs *const, struc
2770: 74 20 63 6e 66 61 20 2a 63 6f 6e 73 74 2c 20 73 t cnfa *const, s
2780: 74 72 75 63 74 20 63 6f 6c 6f 72 6d 61 70 20 2a truct colormap *
2790: 63 6f 6e 73 74 29 3b 0a 20 20 73 74 61 74 69 63 const);. static
27a0: 20 69 6e 74 20 63 6f 6d 70 6c 69 63 61 74 65 64 int complicated
27b0: 46 69 6e 64 28 73 74 72 75 63 74 20 76 61 72 73 Find(struct vars
27c0: 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 *const, struct
27d0: 63 6e 66 61 20 2a 63 6f 6e 73 74 2c 20 73 74 72 cnfa *const, str
27e0: 75 63 74 20 63 6f 6c 6f 72 6d 61 70 20 2a 63 6f uct colormap *co
27f0: 6e 73 74 29 3b 0a 20 20 73 74 61 74 69 63 20 69 nst);. static i
2800: 6e 74 20 63 6f 6d 70 6c 69 63 61 74 65 64 46 69 nt complicatedFi
2810: 6e 64 4c 6f 6f 70 28 73 74 72 75 63 74 20 76 61 ndLoop(struct va
2820: 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 rs *const, struc
2830: 74 20 63 6e 66 61 20 2a 63 6f 6e 73 74 2c 20 73 t cnfa *const, s
2840: 74 72 75 63 74 20 63 6f 6c 6f 72 6d 61 70 20 2a truct colormap *
2850: 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 20 64 66 const, struct df
2860: 61 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 74 a *const, struct
2870: 20 64 66 61 20 2a 63 6f 6e 73 74 2c 20 63 68 72 dfa *const, chr
2880: 20 2a 2a 63 6f 6e 73 74 29 3b 0a 21 20 73 74 61 **const);.! sta
2890: 74 69 63 20 76 6f 69 64 20 7a 61 70 61 6c 6c 73 tic void zapalls
28a0: 75 62 73 28 72 65 67 6d 61 74 63 68 5f 74 20 2a ubs(regmatch_t *
28b0: 63 6f 6e 73 74 2c 20 63 6f 6e 73 74 20 73 69 7a const, const siz
28c0: 65 5f 74 29 3b 0a 21 20 73 74 61 74 69 63 20 76 e_t);.! static v
28d0: 6f 69 64 20 7a 61 70 74 72 65 65 73 75 62 73 28 oid zaptreesubs(
28e0: 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e struct vars *con
28f0: 73 74 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 st, struct subre
2900: 20 2a 63 6f 6e 73 74 29 3b 0a 20 20 73 74 61 74 *const);. stat
2910: 69 63 20 76 6f 69 64 20 73 75 62 73 65 74 28 73 ic void subset(s
2920: 74 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e 73 truct vars *cons
2930: 74 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 20 t, struct subre
2940: 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f 6e *const, chr *con
2950: 73 74 2c 20 63 68 72 20 2a 63 6f 6e 73 74 29 3b st, chr *const);
2960: 0a 21 20 73 74 61 74 69 63 20 69 6e 74 20 63 64 .! static int cd
2970: 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 61 issect(struct va
2980: 72 73 20 2a 2c 20 73 74 72 75 63 74 20 73 75 62 rs *, struct sub
2990: 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 72 re *, chr *, chr
29a0: 20 2a 29 3b 0a 21 20 73 74 61 74 69 63 20 69 6e *);.! static in
29b0: 74 20 63 63 6f 6e 64 69 73 73 65 63 74 28 73 74 t ccondissect(st
29c0: 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 ruct vars *, str
29d0: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
29e0: 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 21 20 73 74 *, chr *);.! st
29f0: 61 74 69 63 20 69 6e 74 20 63 72 65 76 63 6f 6e atic int crevcon
2a00: 64 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 dissect(struct v
2a10: 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 73 75 ars *, struct su
2a20: 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 bre *, chr *, ch
2a30: 72 20 2a 29 3b 0a 21 20 73 74 61 74 69 63 20 69 r *);.! static i
2a40: 6e 74 20 63 62 72 64 69 73 73 65 63 74 28 73 74 nt cbrdissect(st
2a50: 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 ruct vars *, str
2a60: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
2a70: 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 21 20 73 74 *, chr *);.! st
2a80: 61 74 69 63 20 69 6e 74 20 63 61 6c 74 64 69 73 atic int caltdis
2a90: 73 65 63 74 28 73 74 72 75 63 74 20 76 61 72 73 sect(struct vars
2aa0: 20 2a 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 *, struct subre
2ab0: 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 72 20 2a *, chr *, chr *
2ac0: 29 3b 0a 21 20 73 74 61 74 69 63 20 69 6e 74 20 );.! static int
2ad0: 63 69 74 65 72 64 69 73 73 65 63 74 28 73 74 72 citerdissect(str
2ae0: 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 75 uct vars *, stru
2af0: 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 20 ct subre *, chr
2b00: 2a 2c 20 63 68 72 20 2a 29 3b 0a 21 20 73 74 61 *, chr *);.! sta
2b10: 74 69 63 20 69 6e 74 20 63 72 65 76 69 74 65 72 tic int creviter
2b20: 64 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 dissect(struct v
2b30: 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 73 75 ars *, struct su
2b40: 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 bre *, chr *, ch
2b50: 72 20 2a 29 3b 0a 20 20 2f 2a 20 3d 3d 3d 20 72 r *);. /* === r
2b60: 65 67 65 5f 64 66 61 2e 63 20 3d 3d 3d 20 2a 2f ege_dfa.c === */
2b70: 0a 20 20 73 74 61 74 69 63 20 63 68 72 20 2a 6c . static chr *l
2b80: 6f 6e 67 65 73 74 28 73 74 72 75 63 74 20 76 61 ongest(struct va
2b90: 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 72 75 63 rs *const, struc
2ba0: 74 20 64 66 61 20 2a 63 6f 6e 73 74 2c 20 63 68 t dfa *const, ch
2bb0: 72 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 r *const, chr *c
2bc0: 6f 6e 73 74 2c 20 69 6e 74 20 2a 63 6f 6e 73 74 onst, int *const
2bd0: 29 3b 0a 20 20 73 74 61 74 69 63 20 63 68 72 20 );. static chr
2be0: 2a 73 68 6f 72 74 65 73 74 28 73 74 72 75 63 74 *shortest(struct
2bf0: 20 76 61 72 73 20 2a 63 6f 6e 73 74 2c 20 73 74 vars *const, st
2c00: 72 75 63 74 20 64 66 61 20 2a 63 6f 6e 73 74 2c ruct dfa *const,
2c10: 20 63 68 72 20 2a 63 6f 6e 73 74 2c 20 63 68 72 chr *const, chr
2c20: 20 2a 63 6f 6e 73 74 2c 20 63 68 72 20 2a 63 6f *const, chr *co
2c30: 6e 73 74 2c 20 63 68 72 20 2a 2a 63 6f 6e 73 74 nst, chr **const
2c40: 2c 20 69 6e 74 20 2a 63 6f 6e 73 74 29 3b 0a 2a , int *const);.*
2c50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 65 ************** e
2c60: 78 65 63 28 0a 2a 2a 2a 20 31 37 36 2c 31 38 33 xec(.*** 176,183
2c70: 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 73 69 7a 65 ****. size
2c80: 5f 74 20 6e 3b 0a 20 20 23 64 65 66 69 6e 65 09 _t n;. #define.
2c90: 4c 4f 43 41 4c 4d 41 54 09 32 30 0a 20 20 20 20 LOCALMAT.20.
2ca0: 20 20 72 65 67 6d 61 74 63 68 5f 74 20 6d 61 74 regmatch_t mat
2cb0: 5b 4c 4f 43 41 4c 4d 41 54 5d 3b 0a 2d 20 23 64 [LOCALMAT];.- #d
2cc0: 65 66 69 6e 65 09 4c 4f 43 41 4c 4d 45 4d 09 34 efine.LOCALMEM.4
2cd0: 30 0a 2d 20 20 20 20 20 72 65 67 6f 66 66 5f 74 0.- regoff_t
2ce0: 20 6d 65 6d 5b 4c 4f 43 41 4c 4d 45 4d 5d 3b 0a mem[LOCALMEM];.
2cf0: 20 20 0a 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 . /*.
2d00: 20 20 20 2a 20 53 61 6e 69 74 79 20 63 68 65 63 * Sanity chec
2d10: 6b 73 2e 0a 2d 2d 2d 20 31 37 33 2c 31 37 38 20 ks..--- 173,178
2d20: 2d 2d 2d 2d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ----.***********
2d30: 2a 2a 2a 2a 20 65 78 65 63 28 0a 2a 2a 2a 20 32 **** exec(.*** 2
2d40: 33 35 2c 32 36 32 20 2a 2a 2a 2a 0a 20 20 20 20 35,262 ****.
2d50: 20 20 76 2d 3e 73 74 61 72 74 20 3d 20 28 63 68 v->start = (ch
2d60: 72 20 2a 29 73 74 72 69 6e 67 3b 0a 20 20 20 20 r *)string;.
2d70: 20 20 76 2d 3e 73 74 6f 70 20 3d 20 28 63 68 72 v->stop = (chr
2d80: 20 2a 29 73 74 72 69 6e 67 20 2b 20 6c 65 6e 3b *)string + len;
2d90: 0a 20 20 20 20 20 20 76 2d 3e 65 72 72 20 3d 20 . v->err =
2da0: 30 3b 0a 2d 20 20 20 20 20 69 66 20 28 62 61 63 0;.- if (bac
2db0: 6b 72 65 66 29 20 7b 0a 2d 20 09 2f 2a 0a 2d 20 kref) {.- ./*.-
2dc0: 09 20 2a 20 4e 65 65 64 20 72 65 74 72 79 20 6d . * Need retry m
2dd0: 65 6d 6f 72 79 2e 0a 2d 20 09 20 2a 2f 0a 2d 20 emory..- . */.-
2de0: 0a 2d 20 09 61 73 73 65 72 74 28 76 2d 3e 67 2d .- .assert(v->g-
2df0: 3e 6e 74 72 65 65 20 3e 3d 20 30 29 3b 0a 2d 20 >ntree >= 0);.-
2e00: 09 6e 20 3d 20 28 73 69 7a 65 5f 74 29 76 2d 3e .n = (size_t)v->
2e10: 67 2d 3e 6e 74 72 65 65 3b 0a 2d 20 09 69 66 20 g->ntree;.- .if
2e20: 28 6e 20 3c 3d 20 4c 4f 43 41 4c 4d 45 4d 29 20 (n <= LOCALMEM)
2e30: 7b 0a 2d 20 09 20 20 20 20 76 2d 3e 6d 65 6d 20 {.- . v->mem
2e40: 3d 20 6d 65 6d 3b 0a 2d 20 09 7d 20 65 6c 73 65 = mem;.- .} else
2e50: 20 7b 0a 2d 20 09 20 20 20 20 76 2d 3e 6d 65 6d {.- . v->mem
2e60: 20 3d 20 28 72 65 67 6f 66 66 5f 74 20 2a 29 20 = (regoff_t *)
2e70: 4d 41 4c 4c 4f 43 28 6e 2a 73 69 7a 65 6f 66 28 MALLOC(n*sizeof(
2e80: 72 65 67 6f 66 66 5f 74 29 29 3b 0a 2d 20 09 7d regoff_t));.- .}
2e90: 0a 2d 20 09 69 66 20 28 76 2d 3e 6d 65 6d 20 3d .- .if (v->mem =
2ea0: 3d 20 4e 55 4c 4c 29 20 7b 0a 2d 20 09 20 20 20 = NULL) {.- .
2eb0: 20 69 66 20 28 76 2d 3e 70 6d 61 74 63 68 20 21 if (v->pmatch !
2ec0: 3d 20 70 6d 61 74 63 68 20 26 26 20 76 2d 3e 70 = pmatch && v->p
2ed0: 6d 61 74 63 68 20 21 3d 20 6d 61 74 29 20 7b 0a match != mat) {.
2ee0: 2d 20 09 09 46 52 45 45 28 76 2d 3e 70 6d 61 74 - ..FREE(v->pmat
2ef0: 63 68 29 3b 0a 2d 20 09 20 20 20 20 7d 0a 2d 20 ch);.- . }.-
2f00: 09 20 20 20 20 46 72 65 65 56 61 72 73 28 76 29 . FreeVars(v)
2f10: 3b 0a 2d 20 09 20 20 20 20 72 65 74 75 72 6e 20 ;.- . return
2f20: 52 45 47 5f 45 53 50 41 43 45 3b 0a 2d 20 09 7d REG_ESPACE;.- .}
2f30: 0a 2d 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a .- } else {.
2f40: 2d 20 09 76 2d 3e 6d 65 6d 20 3d 20 4e 55 4c 4c - .v->mem = NULL
2f50: 3b 0a 2d 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 ;.- }. .
2f60: 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 2a 20 44 /*. * D
2f70: 6f 20 69 74 2e 0a 2d 2d 2d 20 32 33 30 2c 32 33 o it..--- 230,23
2f80: 35 20 2d 2d 2d 2d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 5 ----.*********
2f90: 2a 2a 2a 2a 2a 2a 20 65 78 65 63 28 0a 2a 2a 2a ****** exec(.***
2fa0: 20 32 37 34 2c 32 38 30 20 2a 2a 2a 2a 0a 20 20 274,280 ****.
2fb0: 20 20 20 20 20 2a 2f 0a 20 20 0a 20 20 20 20 20 */. .
2fc0: 20 69 66 20 28 73 74 20 3d 3d 20 52 45 47 5f 4f if (st == REG_O
2fd0: 4b 41 59 20 26 26 20 76 2d 3e 70 6d 61 74 63 68 KAY && v->pmatch
2fe0: 20 21 3d 20 70 6d 61 74 63 68 20 26 26 20 6e 6d != pmatch && nm
2ff0: 61 74 63 68 20 3e 20 30 29 20 7b 0a 21 20 09 7a atch > 0) {.! .z
3000: 61 70 53 75 62 65 78 70 72 65 73 73 69 6f 6e 73 apSubexpressions
3010: 28 70 6d 61 74 63 68 2c 20 6e 6d 61 74 63 68 29 (pmatch, nmatch)
3020: 3b 0a 20 20 09 6e 20 3d 20 28 6e 6d 61 74 63 68 ;. .n = (nmatch
3030: 20 3c 20 76 2d 3e 6e 6d 61 74 63 68 29 20 3f 20 < v->nmatch) ?
3040: 6e 6d 61 74 63 68 20 3a 20 76 2d 3e 6e 6d 61 74 nmatch : v->nmat
3050: 63 68 3b 0a 20 20 09 6d 65 6d 63 70 79 28 56 53 ch;. .memcpy(VS
3060: 28 70 6d 61 74 63 68 29 2c 20 56 53 28 76 2d 3e (pmatch), VS(v->
3070: 70 6d 61 74 63 68 29 2c 20 6e 2a 73 69 7a 65 6f pmatch), n*sizeo
3080: 66 28 72 65 67 6d 61 74 63 68 5f 74 29 29 3b 0a f(regmatch_t));.
3090: 20 20 20 20 20 20 7d 0a 2d 2d 2d 20 32 34 37 2c }.--- 247,
30a0: 32 35 33 20 2d 2d 2d 2d 0a 20 20 20 20 20 20 20 253 ----.
30b0: 2a 2f 0a 20 20 0a 20 20 20 20 20 20 69 66 20 28 */. . if (
30c0: 73 74 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 20 26 st == REG_OKAY &
30d0: 26 20 76 2d 3e 70 6d 61 74 63 68 20 21 3d 20 70 & v->pmatch != p
30e0: 6d 61 74 63 68 20 26 26 20 6e 6d 61 74 63 68 20 match && nmatch
30f0: 3e 20 30 29 20 7b 0a 21 20 09 7a 61 70 61 6c 6c > 0) {.! .zapall
3100: 73 75 62 73 28 70 6d 61 74 63 68 2c 20 6e 6d 61 subs(pmatch, nma
3110: 74 63 68 29 3b 0a 20 20 09 6e 20 3d 20 28 6e 6d tch);. .n = (nm
3120: 61 74 63 68 20 3c 20 76 2d 3e 6e 6d 61 74 63 68 atch < v->nmatch
3130: 29 20 3f 20 6e 6d 61 74 63 68 20 3a 20 76 2d 3e ) ? nmatch : v->
3140: 6e 6d 61 74 63 68 3b 0a 20 20 09 6d 65 6d 63 70 nmatch;. .memcp
3150: 79 28 56 53 28 70 6d 61 74 63 68 29 2c 20 56 53 y(VS(pmatch), VS
3160: 28 76 2d 3e 70 6d 61 74 63 68 29 2c 20 6e 2a 73 (v->pmatch), n*s
3170: 69 7a 65 6f 66 28 72 65 67 6d 61 74 63 68 5f 74 izeof(regmatch_t
3180: 29 29 3b 0a 20 20 20 20 20 20 7d 0a 2a 2a 2a 2a ));. }.****
3190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 65 78 65 63 *********** exec
31a0: 28 0a 2a 2a 2a 20 32 38 36 2c 32 39 34 20 2a 2a (.*** 286,294 **
31b0: 2a 2a 0a 20 20 20 20 20 20 69 66 20 28 76 2d 3e **. if (v->
31c0: 70 6d 61 74 63 68 20 21 3d 20 70 6d 61 74 63 68 pmatch != pmatch
31d0: 20 26 26 20 76 2d 3e 70 6d 61 74 63 68 20 21 3d && v->pmatch !=
31e0: 20 6d 61 74 29 20 7b 0a 20 20 09 46 52 45 45 28 mat) {. .FREE(
31f0: 76 2d 3e 70 6d 61 74 63 68 29 3b 0a 20 20 20 20 v->pmatch);.
3200: 20 20 7d 0a 2d 20 20 20 20 20 69 66 20 28 76 2d }.- if (v-
3210: 3e 6d 65 6d 20 21 3d 20 4e 55 4c 4c 20 26 26 20 >mem != NULL &&
3220: 76 2d 3e 6d 65 6d 20 21 3d 20 6d 65 6d 29 20 7b v->mem != mem) {
3230: 0a 2d 20 09 46 52 45 45 28 76 2d 3e 6d 65 6d 29 .- .FREE(v->mem)
3240: 3b 0a 2d 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;.- }.
3250: 46 72 65 65 56 61 72 73 28 76 29 3b 0a 20 20 20 FreeVars(v);.
3260: 20 20 20 72 65 74 75 72 6e 20 73 74 3b 0a 20 20 return st;.
3270: 7d 0a 2d 2d 2d 20 32 35 39 2c 32 36 34 20 2d 2d }.--- 259,264 --
3280: 2d 2d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a --.*************
3290: 2a 2a 20 73 69 6d 70 6c 65 46 69 6e 64 28 0a 2a ** simpleFind(.*
32a0: 2a 2a 20 33 38 38 2c 33 39 38 20 2a 2a 2a 2a 0a ** 388,398 ****.
32b0: 20 20 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 20 }. .
32c0: 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 53 75 62 /*.! * Sub
32d0: 6d 61 74 63 68 65 73 2e 0a 20 20 20 20 20 20 20 matches..
32e0: 2a 2f 0a 20 20 0a 21 20 20 20 20 20 7a 61 70 53 */. .! zapS
32f0: 75 62 65 78 70 72 65 73 73 69 6f 6e 73 28 76 2d ubexpressions(v-
3300: 3e 70 6d 61 74 63 68 2c 20 76 2d 3e 6e 6d 61 74 >pmatch, v->nmat
3310: 63 68 29 3b 0a 21 20 20 20 20 20 72 65 74 75 72 ch);.! retur
3320: 6e 20 64 69 73 73 65 63 74 28 76 2c 20 76 2d 3e n dissect(v, v->
3330: 67 2d 3e 74 72 65 65 2c 20 62 65 67 69 6e 2c 20 g->tree, begin,
3340: 65 6e 64 29 3b 0a 20 20 7d 0a 20 20 0c 0a 20 20 end);. }. ..
3350: 2f 2a 0a 2d 2d 2d 20 33 35 38 2c 33 36 38 20 2d /*.--- 358,368 -
3360: 2d 2d 2d 0a 20 20 20 20 20 20 7d 0a 20 20 0a 20 ---. }. .
3370: 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a /*.! *
3380: 20 46 69 6e 64 20 73 75 62 6d 61 74 63 68 65 73 Find submatches
3390: 2e 0a 20 20 20 20 20 20 20 2a 2f 0a 20 20 0a 21 .. */. .!
33a0: 20 20 20 20 20 7a 61 70 61 6c 6c 73 75 62 73 28 zapallsubs(
33b0: 76 2d 3e 70 6d 61 74 63 68 2c 20 76 2d 3e 6e 6d v->pmatch, v->nm
33c0: 61 74 63 68 29 3b 0a 21 20 20 20 20 20 72 65 74 atch);.! ret
33d0: 75 72 6e 20 63 64 69 73 73 65 63 74 28 76 2c 20 urn cdissect(v,
33e0: 76 2d 3e 67 2d 3e 74 72 65 65 2c 20 62 65 67 69 v->g->tree, begi
33f0: 6e 2c 20 65 6e 64 29 3b 0a 20 20 7d 0a 20 20 0c n, end);. }. .
3400: 0a 20 20 2f 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a . /*.**********
3410: 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c 69 63 61 74 65 ***** complicate
3420: 64 46 69 6e 64 4c 6f 6f 70 28 0a 2a 2a 2a 20 34 dFindLoop(.*** 4
3430: 38 38 2c 34 39 36 20 2a 2a 2a 2a 0a 20 20 09 09 88,496 ****. ..
3440: 7d 0a 20 20 0a 20 20 09 09 4d 44 45 42 55 47 28 }. . ..MDEBUG(
3450: 28 22 74 65 6e 74 61 74 69 76 65 20 65 6e 64 20 ("tentative end
3460: 25 6c 64 5c 6e 22 2c 20 4c 4f 46 46 28 65 6e 64 %ld\n", LOFF(end
3470: 29 29 29 3b 0a 21 20 09 09 7a 61 70 53 75 62 65 )));.! ..zapSube
3480: 78 70 72 65 73 73 69 6f 6e 73 28 76 2d 3e 70 6d xpressions(v->pm
3490: 61 74 63 68 2c 20 76 2d 3e 6e 6d 61 74 63 68 29 atch, v->nmatch)
34a0: 3b 0a 21 20 09 09 7a 61 70 53 75 62 74 72 65 65 ;.! ..zapSubtree
34b0: 28 76 2c 20 76 2d 3e 67 2d 3e 74 72 65 65 29 3b (v, v->g->tree);
34c0: 0a 21 20 09 09 65 72 20 3d 20 63 6f 6d 70 6c 69 .! ..er = compli
34d0: 63 61 74 65 64 44 69 73 73 65 63 74 28 76 2c 20 catedDissect(v,
34e0: 76 2d 3e 67 2d 3e 74 72 65 65 2c 20 62 65 67 69 v->g->tree, begi
34f0: 6e 2c 20 65 6e 64 29 3b 0a 20 20 09 09 69 66 20 n, end);. ..if
3500: 28 65 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 (er == REG_OKAY)
3510: 20 7b 0a 20 20 09 09 20 20 20 20 69 66 20 28 76 {. .. if (v
3520: 2d 3e 6e 6d 61 74 63 68 20 3e 20 30 29 20 7b 0a ->nmatch > 0) {.
3530: 20 20 09 09 09 76 2d 3e 70 6d 61 74 63 68 5b 30 ...v->pmatch[0
3540: 5d 2e 72 6d 5f 73 6f 20 3d 20 4f 46 46 28 62 65 ].rm_so = OFF(be
3550: 67 69 6e 29 3b 0a 2d 2d 2d 20 34 35 38 2c 34 36 gin);.--- 458,46
3560: 35 20 2d 2d 2d 2d 0a 20 20 09 09 7d 0a 20 20 0a 5 ----. ..}. .
3570: 20 20 09 09 4d 44 45 42 55 47 28 28 22 74 65 6e ..MDEBUG(("ten
3580: 74 61 74 69 76 65 20 65 6e 64 20 25 6c 64 5c 6e tative end %ld\n
3590: 22 2c 20 4c 4f 46 46 28 65 6e 64 29 29 29 3b 0a ", LOFF(end)));.
35a0: 21 20 09 09 7a 61 70 61 6c 6c 73 75 62 73 28 76 ! ..zapallsubs(v
35b0: 2d 3e 70 6d 61 74 63 68 2c 20 76 2d 3e 6e 6d 61 ->pmatch, v->nma
35c0: 74 63 68 29 3b 0a 21 20 09 09 65 72 20 3d 20 63 tch);.! ..er = c
35d0: 64 69 73 73 65 63 74 28 76 2c 20 76 2d 3e 67 2d dissect(v, v->g-
35e0: 3e 74 72 65 65 2c 20 62 65 67 69 6e 2c 20 65 6e >tree, begin, en
35f0: 64 29 3b 0a 20 20 09 09 69 66 20 28 65 72 20 3d d);. ..if (er =
3600: 3d 20 52 45 47 5f 4f 4b 41 59 29 20 7b 0a 20 20 = REG_OKAY) {.
3610: 09 09 20 20 20 20 69 66 20 28 76 2d 3e 6e 6d 61 .. if (v->nma
3620: 74 63 68 20 3e 20 30 29 20 7b 0a 20 20 09 09 09 tch > 0) {. ...
3630: 76 2d 3e 70 6d 61 74 63 68 5b 30 5d 2e 72 6d 5f v->pmatch[0].rm_
3640: 73 6f 20 3d 20 4f 46 46 28 62 65 67 69 6e 29 3b so = OFF(begin);
3650: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
3660: 20 63 6f 6d 70 6c 69 63 61 74 65 64 46 69 6e 64 complicatedFind
3670: 4c 6f 6f 70 28 0a 2a 2a 2a 20 35 32 35 2c 35 33 Loop(.*** 525,53
3680: 35 20 2a 2a 2a 2a 0a 20 20 7d 0a 20 20 0c 0a 20 5 ****. }. ..
3690: 20 2f 2a 0a 21 20 20 2d 20 7a 61 70 53 75 62 65 /*.! - zapSube
36a0: 78 70 72 65 73 73 69 6f 6e 73 20 2d 20 69 6e 69 xpressions - ini
36b0: 74 69 61 6c 69 7a 65 20 74 68 65 20 73 75 62 65 tialize the sube
36c0: 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 65 xpression matche
36d0: 73 20 74 6f 20 22 6e 6f 20 6d 61 74 63 68 22 0a s to "no match".
36e0: 21 20 20 5e 20 73 74 61 74 69 63 20 76 6f 69 64 ! ^ static void
36f0: 20 7a 61 70 53 75 62 65 78 70 72 65 73 73 69 6f zapSubexpressio
3700: 6e 73 28 72 65 67 6d 61 74 63 68 5f 74 20 2a 2c ns(regmatch_t *,
3710: 20 73 69 7a 65 5f 74 29 3b 0a 20 20 20 2a 2f 0a size_t);. */.
3720: 20 20 73 74 61 74 69 63 20 76 6f 69 64 0a 21 20 static void.!
3730: 7a 61 70 53 75 62 65 78 70 72 65 73 73 69 6f 6e zapSubexpression
3740: 73 28 0a 20 20 20 20 20 20 72 65 67 6d 61 74 63 s(. regmatc
3750: 68 5f 74 20 2a 63 6f 6e 73 74 20 70 2c 0a 20 20 h_t *const p,.
3760: 20 20 20 20 63 6f 6e 73 74 20 73 69 7a 65 5f 74 const size_t
3770: 20 6e 29 0a 20 20 7b 0a 2d 2d 2d 20 34 39 34 2c n). {.--- 494,
3780: 35 30 34 20 2d 2d 2d 2d 0a 20 20 7d 0a 20 20 0c 504 ----. }. .
3790: 0a 20 20 2f 2a 0a 21 20 20 2d 20 7a 61 70 61 6c . /*.! - zapal
37a0: 6c 73 75 62 73 20 2d 20 69 6e 69 74 69 61 6c 69 lsubs - initiali
37b0: 7a 65 20 61 6c 6c 20 73 75 62 65 78 70 72 65 73 ze all subexpres
37c0: 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 74 6f 20 sion matches to
37d0: 22 6e 6f 20 6d 61 74 63 68 22 0a 21 20 20 5e 20 "no match".! ^
37e0: 73 74 61 74 69 63 20 76 6f 69 64 20 7a 61 70 61 static void zapa
37f0: 6c 6c 73 75 62 73 28 72 65 67 6d 61 74 63 68 5f llsubs(regmatch_
3800: 74 20 2a 2c 20 73 69 7a 65 5f 74 29 3b 0a 20 20 t *, size_t);.
3810: 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 76 6f 69 */. static voi
3820: 64 0a 21 20 7a 61 70 61 6c 6c 73 75 62 73 28 0a d.! zapallsubs(.
3830: 20 20 20 20 20 20 72 65 67 6d 61 74 63 68 5f 74 regmatch_t
3840: 20 2a 63 6f 6e 73 74 20 70 2c 0a 20 20 20 20 20 *const p,.
3850: 20 63 6f 6e 73 74 20 73 69 7a 65 5f 74 20 6e 29 const size_t n)
3860: 0a 20 20 7b 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a . {.***********
3870: 2a 2a 2a 2a 20 7a 61 70 53 75 62 65 78 70 72 65 **** zapSubexpre
3880: 73 73 69 6f 6e 73 28 0a 2a 2a 2a 20 35 34 32 2c ssions(.*** 542,
3890: 35 37 37 20 2a 2a 2a 2a 0a 20 20 7d 0a 20 20 0c 577 ****. }. .
38a0: 0a 20 20 2f 2a 0a 21 20 20 2d 20 7a 61 70 53 75 . /*.! - zapSu
38b0: 62 74 72 65 65 20 2d 20 69 6e 69 74 69 61 6c 69 btree - initiali
38c0: 7a 65 20 74 68 65 20 72 65 74 72 79 20 6d 65 6d ze the retry mem
38d0: 6f 72 79 20 6f 66 20 61 20 73 75 62 74 72 65 65 ory of a subtree
38e0: 20 74 6f 20 7a 65 72 6f 73 0a 21 20 20 5e 20 73 to zeros.! ^ s
38f0: 74 61 74 69 63 20 76 6f 69 64 20 7a 61 70 53 75 tatic void zapSu
3900: 62 74 72 65 65 28 73 74 72 75 63 74 20 76 61 72 btree(struct var
3910: 73 20 2a 2c 20 73 74 72 75 63 74 20 73 75 62 72 s *, struct subr
3920: 65 20 2a 29 3b 0a 20 20 20 2a 2f 0a 20 20 73 74 e *);. */. st
3930: 61 74 69 63 20 76 6f 69 64 0a 21 20 7a 61 70 53 atic void.! zapS
3940: 75 62 74 72 65 65 28 0a 20 20 20 20 20 20 73 74 ubtree(. st
3950: 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 ruct vars *const
3960: 20 76 2c 0a 20 20 20 20 20 20 73 74 72 75 63 74 v,. struct
3970: 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 20 74 29 subre *const t)
3980: 0a 20 20 7b 0a 2d 20 20 20 20 20 69 66 20 28 74 . {.- if (t
3990: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 2d 20 09 72 == NULL) {.- .r
39a0: 65 74 75 72 6e 3b 0a 2d 20 20 20 20 20 7d 0a 2d eturn;.- }.-
39b0: 20 0a 2d 20 20 20 20 20 61 73 73 65 72 74 28 76 .- assert(v
39c0: 2d 3e 6d 65 6d 20 21 3d 20 4e 55 4c 4c 29 3b 0a ->mem != NULL);.
39d0: 2d 20 20 20 20 20 76 2d 3e 6d 65 6d 5b 74 2d 3e - v->mem[t->
39e0: 72 65 74 72 79 5d 20 3d 20 30 3b 0a 20 20 20 20 retry] = 0;.
39f0: 20 20 69 66 20 28 74 2d 3e 6f 70 20 3d 3d 20 27 if (t->op == '
3a00: 28 27 29 20 7b 0a 21 20 09 61 73 73 65 72 74 28 (') {.! .assert(
3a10: 74 2d 3e 73 75 62 6e 6f 20 3e 20 30 29 3b 0a 21 t->subno > 0);.!
3a20: 20 09 76 2d 3e 70 6d 61 74 63 68 5b 74 2d 3e 73 .v->pmatch[t->s
3a30: 75 62 6e 6f 5d 2e 72 6d 5f 73 6f 20 3d 20 2d 31 ubno].rm_so = -1
3a40: 3b 0a 21 20 09 76 2d 3e 70 6d 61 74 63 68 5b 74 ;.! .v->pmatch[t
3a50: 2d 3e 73 75 62 6e 6f 5d 2e 72 6d 5f 65 6f 20 3d ->subno].rm_eo =
3a60: 20 2d 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 0a -1;. }. .
3a70: 20 20 20 20 20 20 69 66 20 28 74 2d 3e 6c 65 66 if (t->lef
3a80: 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 09 t != NULL) {.! .
3a90: 7a 61 70 53 75 62 74 72 65 65 28 76 2c 20 74 2d zapSubtree(v, t-
3aa0: 3e 6c 65 66 74 29 3b 0a 20 20 20 20 20 20 7d 0a >left);. }.
3ab0: 20 20 20 20 20 20 69 66 20 28 74 2d 3e 72 69 67 if (t->rig
3ac0: 68 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 ht != NULL) {.!
3ad0: 09 7a 61 70 53 75 62 74 72 65 65 28 76 2c 20 74 .zapSubtree(v, t
3ae0: 2d 3e 72 69 67 68 74 29 3b 0a 20 20 20 20 20 20 ->right);.
3af0: 7d 0a 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a 0a 21 }. }. .. /*.!
3b00: 20 20 2d 20 73 75 62 73 65 74 20 2d 20 73 65 74 - subset - set
3b10: 20 61 6e 79 20 73 75 62 65 78 70 72 65 73 73 69 any subexpressi
3b20: 6f 6e 20 72 65 6c 65 76 61 6e 74 20 74 6f 20 61 on relevant to a
3b30: 20 73 75 63 63 65 73 73 66 75 6c 20 73 75 62 72 successful subr
3b40: 65 0a 20 20 20 5e 20 73 74 61 74 69 63 20 76 6f e. ^ static vo
3b50: 69 64 20 73 75 62 73 65 74 28 73 74 72 75 63 74 id subset(struct
3b60: 20 76 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 vars *, struct
3b70: 73 75 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 subre *, chr *,
3b80: 63 68 72 20 2a 29 3b 0a 20 20 20 2a 2f 0a 20 20 chr *);. */.
3b90: 73 74 61 74 69 63 20 76 6f 69 64 0a 2d 2d 2d 20 static void.---
3ba0: 35 31 31 2c 35 34 33 20 2d 2d 2d 2d 0a 20 20 7d 511,543 ----. }
3bb0: 0a 20 20 0c 0a 20 20 2f 2a 0a 21 20 20 2d 20 7a . .. /*.! - z
3bc0: 61 70 74 72 65 65 73 75 62 73 20 2d 20 69 6e 69 aptreesubs - ini
3bd0: 74 69 61 6c 69 7a 65 20 73 75 62 65 78 70 72 65 tialize subexpre
3be0: 73 73 69 6f 6e 73 20 77 69 74 68 69 6e 20 73 75 ssions within su
3bf0: 62 74 72 65 65 20 74 6f 20 22 6e 6f 20 6d 61 74 btree to "no mat
3c00: 63 68 22 0a 21 20 20 5e 20 73 74 61 74 69 63 20 ch".! ^ static
3c10: 76 6f 69 64 20 7a 61 70 74 72 65 65 73 75 62 73 void zaptreesubs
3c20: 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 2c 20 (struct vars *,
3c30: 73 74 72 75 63 74 20 73 75 62 72 65 20 2a 29 3b struct subre *);
3c40: 0a 20 20 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 . */. static
3c50: 76 6f 69 64 0a 21 20 7a 61 70 74 72 65 65 73 75 void.! zaptreesu
3c60: 62 73 28 0a 20 20 20 20 20 20 73 74 72 75 63 74 bs(. struct
3c70: 20 76 61 72 73 20 2a 63 6f 6e 73 74 20 76 2c 0a vars *const v,.
3c80: 20 20 20 20 20 20 73 74 72 75 63 74 20 73 75 62 struct sub
3c90: 72 65 20 2a 63 6f 6e 73 74 20 74 29 0a 20 20 7b re *const t). {
3ca0: 0a 20 20 20 20 20 20 69 66 20 28 74 2d 3e 6f 70 . if (t->op
3cb0: 20 3d 3d 20 27 28 27 29 20 7b 0a 21 20 09 69 6e == '(') {.! .in
3cc0: 74 20 6e 20 3d 20 74 2d 3e 73 75 62 6e 6f 3b 0a t n = t->subno;.
3cd0: 21 20 09 61 73 73 65 72 74 28 6e 20 3e 20 30 29 ! .assert(n > 0)
3ce0: 3b 0a 21 20 09 69 66 20 28 28 73 69 7a 65 5f 74 ;.! .if ((size_t
3cf0: 29 20 6e 20 3c 20 76 2d 3e 6e 6d 61 74 63 68 29 ) n < v->nmatch)
3d00: 20 7b 0a 21 20 09 20 20 20 20 76 2d 3e 70 6d 61 {.! . v->pma
3d10: 74 63 68 5b 6e 5d 2e 72 6d 5f 73 6f 20 3d 20 2d tch[n].rm_so = -
3d20: 31 3b 0a 21 20 09 20 20 20 20 76 2d 3e 70 6d 61 1;.! . v->pma
3d30: 74 63 68 5b 6e 5d 2e 72 6d 5f 65 6f 20 3d 20 2d tch[n].rm_eo = -
3d40: 31 3b 0a 21 20 09 7d 0a 20 20 20 20 20 20 7d 0a 1;.! .}. }.
3d50: 20 20 0a 20 20 20 20 20 20 69 66 20 28 74 2d 3e . if (t->
3d60: 6c 65 66 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a left != NULL) {.
3d70: 21 20 09 7a 61 70 74 72 65 65 73 75 62 73 28 76 ! .zaptreesubs(v
3d80: 2c 20 74 2d 3e 6c 65 66 74 29 3b 0a 20 20 20 20 , t->left);.
3d90: 20 20 7d 0a 20 20 20 20 20 20 69 66 20 28 74 2d }. if (t-
3da0: 3e 72 69 67 68 74 20 21 3d 20 4e 55 4c 4c 29 20 >right != NULL)
3db0: 7b 0a 21 20 09 7a 61 70 74 72 65 65 73 75 62 73 {.! .zaptreesubs
3dc0: 28 76 2c 20 74 2d 3e 72 69 67 68 74 29 3b 0a 20 (v, t->right);.
3dd0: 20 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0c 0a 20 }. }. ..
3de0: 20 2f 2a 0a 21 20 20 2d 20 73 75 62 73 65 74 20 /*.! - subset
3df0: 2d 20 73 65 74 20 73 75 62 65 78 70 72 65 73 73 - set subexpress
3e00: 69 6f 6e 20 6d 61 74 63 68 20 64 61 74 61 20 66 ion match data f
3e10: 6f 72 20 61 20 73 75 63 63 65 73 73 66 75 6c 20 or a successful
3e20: 73 75 62 72 65 0a 20 20 20 5e 20 73 74 61 74 69 subre. ^ stati
3e30: 63 20 76 6f 69 64 20 73 75 62 73 65 74 28 73 74 c void subset(st
3e40: 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 ruct vars *, str
3e50: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
3e60: 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 20 20 20 2a *, chr *);. *
3e70: 2f 0a 20 20 73 74 61 74 69 63 20 76 6f 69 64 0a /. static void.
3e80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ***************
3e90: 73 75 62 73 65 74 28 0a 2a 2a 2a 20 35 39 34 2c subset(.*** 594,
3ea0: 38 33 36 20 2a 2a 2a 2a 0a 20 20 7d 0a 20 20 0c 836 ****. }. .
3eb0: 0a 20 20 2f 2a 0a 21 20 20 2d 20 64 69 73 73 65 . /*.! - disse
3ec0: 63 74 20 2d 20 64 65 74 65 72 6d 69 6e 65 20 73 ct - determine s
3ed0: 75 62 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 ubexpression mat
3ee0: 63 68 65 73 20 28 75 6e 63 6f 6d 70 6c 69 63 61 ches (uncomplica
3ef0: 74 65 64 20 63 61 73 65 29 0a 21 20 20 5e 20 73 ted case).! ^ s
3f00: 74 61 74 69 63 20 69 6e 74 20 64 69 73 73 65 63 tatic int dissec
3f10: 74 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 2c t(struct vars *,
3f20: 20 73 74 72 75 63 74 20 73 75 62 72 65 20 2a 2c struct subre *,
3f30: 20 63 68 72 20 2a 2c 20 63 68 72 20 2a 29 3b 0a chr *, chr *);.
3f40: 21 20 20 2a 2f 0a 21 20 73 74 61 74 69 63 20 69 ! */.! static i
3f50: 6e 74 09 09 09 2f 2a 20 72 65 67 65 78 65 63 20 nt.../* regexec
3f60: 72 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 return code */.!
3f70: 20 64 69 73 73 65 63 74 28 0a 21 20 20 20 20 20 dissect(.!
3f80: 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e struct vars *con
3f90: 73 74 20 76 2c 0a 21 20 20 20 20 20 73 74 72 75 st v,.! stru
3fa0: 63 74 20 73 75 62 72 65 20 2a 74 2c 0a 21 20 20 ct subre *t,.!
3fb0: 20 20 20 63 68 72 20 2a 63 6f 6e 73 74 20 62 65 chr *const be
3fc0: 67 69 6e 2c 09 09 2f 2a 20 62 65 67 69 6e 6e 69 gin,../* beginni
3fd0: 6e 67 20 6f 66 20 72 65 6c 65 76 61 6e 74 20 73 ng of relevant s
3fe0: 75 62 73 74 72 69 6e 67 20 2a 2f 0a 21 20 20 20 ubstring */.!
3ff0: 20 20 63 68 72 20 2a 63 6f 6e 73 74 20 65 6e 64 chr *const end
4000: 29 09 09 2f 2a 20 65 6e 64 20 6f 66 20 73 61 6d )../* end of sam
4010: 65 20 2a 2f 0a 21 20 7b 0a 21 20 23 69 66 6e 64 e */.! {.! #ifnd
4020: 65 66 20 43 4f 4d 50 49 4c 45 52 5f 44 4f 45 53 ef COMPILER_DOES
4030: 5f 54 41 49 4c 43 41 4c 4c 5f 4f 50 54 49 4d 49 _TAILCALL_OPTIMI
4040: 5a 41 54 49 4f 4e 0a 21 20 20 20 72 65 73 74 61 ZATION.! resta
4050: 72 74 3a 0a 21 20 23 65 6e 64 69 66 0a 21 20 20 rt:.! #endif.!
4060: 20 20 20 61 73 73 65 72 74 28 74 20 21 3d 20 4e assert(t != N
4070: 55 4c 4c 29 3b 0a 21 20 20 20 20 20 4d 44 45 42 ULL);.! MDEB
4080: 55 47 28 28 22 64 69 73 73 65 63 74 20 25 6c 64 UG(("dissect %ld
4090: 2d 25 6c 64 5c 6e 22 2c 20 4c 4f 46 46 28 62 65 -%ld\n", LOFF(be
40a0: 67 69 6e 29 2c 20 4c 4f 46 46 28 65 6e 64 29 29 gin), LOFF(end))
40b0: 29 3b 0a 21 20 0a 21 20 20 20 20 20 73 77 69 74 );.! .! swit
40c0: 63 68 20 28 74 2d 3e 6f 70 29 20 7b 0a 21 20 20 ch (t->op) {.!
40d0: 20 20 20 63 61 73 65 20 27 3d 27 3a 09 09 09 2f case '=':.../
40e0: 2a 20 74 65 72 6d 69 6e 61 6c 20 6e 6f 64 65 20 * terminal node
40f0: 2a 2f 0a 21 20 09 61 73 73 65 72 74 28 74 2d 3e */.! .assert(t->
4100: 6c 65 66 74 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 left == NULL &&
4110: 74 2d 3e 72 69 67 68 74 20 3d 3d 20 4e 55 4c 4c t->right == NULL
4120: 29 3b 0a 21 20 09 72 65 74 75 72 6e 20 52 45 47 );.! .return REG
4130: 5f 4f 4b 41 59 3b 09 2f 2a 20 6e 6f 20 61 63 74 _OKAY;./* no act
4140: 69 6f 6e 2c 20 70 61 72 65 6e 74 20 64 69 64 20 ion, parent did
4150: 74 68 65 20 77 6f 72 6b 20 2a 2f 0a 21 20 20 20 the work */.!
4160: 20 20 63 61 73 65 20 27 7c 27 3a 09 09 09 2f 2a case '|':.../*
4170: 20 61 6c 74 65 72 6e 61 74 69 6f 6e 20 2a 2f 0a alternation */.
4180: 21 20 09 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 ! .assert(t->lef
4190: 74 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 72 t != NULL);.! .r
41a0: 65 74 75 72 6e 20 61 6c 74 65 72 6e 61 74 69 6f eturn alternatio
41b0: 6e 44 69 73 73 65 63 74 28 76 2c 20 74 2c 20 62 nDissect(v, t, b
41c0: 65 67 69 6e 2c 20 65 6e 64 29 3b 0a 21 20 20 20 egin, end);.!
41d0: 20 20 63 61 73 65 20 27 62 27 3a 09 09 09 2f 2a case 'b':.../*
41e0: 20 62 61 63 6b 20 72 65 66 20 2d 2d 20 73 68 6f back ref -- sho
41f0: 75 6c 64 6e 27 74 20 62 65 20 63 61 6c 6c 69 6e uldn't be callin
4200: 67 20 75 73 21 20 2a 2f 0a 21 20 09 72 65 74 75 g us! */.! .retu
4210: 72 6e 20 52 45 47 5f 41 53 53 45 52 54 3b 0a 21 rn REG_ASSERT;.!
4220: 20 20 20 20 20 63 61 73 65 20 27 2e 27 3a 09 09 case '.':..
4230: 09 2f 2a 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f ./* concatenatio
4240: 6e 20 2a 2f 0a 21 20 09 61 73 73 65 72 74 28 74 n */.! .assert(t
4250: 2d 3e 6c 65 66 74 20 21 3d 20 4e 55 4c 4c 20 26 ->left != NULL &
4260: 26 20 74 2d 3e 72 69 67 68 74 20 21 3d 20 4e 55 & t->right != NU
4270: 4c 4c 29 3b 0a 21 20 09 72 65 74 75 72 6e 20 63 LL);.! .return c
4280: 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 44 69 73 73 oncatenationDiss
4290: 65 63 74 28 76 2c 20 74 2c 20 62 65 67 69 6e 2c ect(v, t, begin,
42a0: 20 65 6e 64 29 3b 0a 21 20 20 20 20 20 63 61 73 end);.! cas
42b0: 65 20 27 28 27 3a 09 09 09 2f 2a 20 63 61 70 74 e '(':.../* capt
42c0: 75 72 69 6e 67 20 2a 2f 0a 21 20 09 61 73 73 65 uring */.! .asse
42d0: 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d 20 4e 55 rt(t->left != NU
42e0: 4c 4c 20 26 26 20 74 2d 3e 72 69 67 68 74 20 3d LL && t->right =
42f0: 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 61 73 73 65 = NULL);.! .asse
4300: 72 74 28 74 2d 3e 73 75 62 6e 6f 20 3e 20 30 29 rt(t->subno > 0)
4310: 3b 0a 21 20 09 73 75 62 73 65 74 28 76 2c 20 74 ;.! .subset(v, t
4320: 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 3b 0a 21 , begin, end);.!
4330: 20 23 69 66 6e 64 65 66 20 43 4f 4d 50 49 4c 45 #ifndef COMPILE
4340: 52 5f 44 4f 45 53 5f 54 41 49 4c 43 41 4c 4c 5f R_DOES_TAILCALL_
4350: 4f 50 54 49 4d 49 5a 41 54 49 4f 4e 0a 21 20 09 OPTIMIZATION.! .
4360: 74 20 3d 20 74 2d 3e 6c 65 66 74 3b 0a 21 20 09 t = t->left;.! .
4370: 67 6f 74 6f 20 72 65 73 74 61 72 74 3b 0a 21 20 goto restart;.!
4380: 23 65 6c 73 65 0a 21 20 09 72 65 74 75 72 6e 20 #else.! .return
4390: 64 69 73 73 65 63 74 28 76 2c 20 74 2d 3e 6c 65 dissect(v, t->le
43a0: 66 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 3b ft, begin, end);
43b0: 0a 21 20 23 65 6e 64 69 66 0a 21 20 20 20 20 20 .! #endif.!
43c0: 64 65 66 61 75 6c 74 3a 0a 21 20 09 72 65 74 75 default:.! .retu
43d0: 72 6e 20 52 45 47 5f 41 53 53 45 52 54 3b 0a 21 rn REG_ASSERT;.!
43e0: 20 20 20 20 20 7d 0a 21 20 7d 0a 21 20 0c 0a 21 }.! }.! ..!
43f0: 20 2f 2a 0a 21 20 20 2d 20 63 6f 6e 63 61 74 65 /*.! - concate
4400: 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 20 2d 20 nationDissect -
4410: 64 65 74 65 72 6d 69 6e 65 20 63 6f 6e 63 61 74 determine concat
4420: 65 6e 61 74 69 6f 6e 20 73 75 62 65 78 70 72 65 enation subexpre
4430: 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 0a 21 20 ssion matches.!
4440: 20 2d 20 28 75 6e 63 6f 6d 70 6c 69 63 61 74 65 - (uncomplicate
4450: 64 29 0a 21 20 20 5e 20 73 74 61 74 69 63 20 69 d).! ^ static i
4460: 6e 74 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e nt concatenation
4470: 44 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 Dissect(struct v
4480: 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 73 75 ars *, struct su
4490: 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 bre *, chr *, ch
44a0: 72 20 2a 29 3b 0a 20 20 20 2a 2f 0a 20 20 73 74 r *);. */. st
44b0: 61 74 69 63 20 69 6e 74 09 09 09 2f 2a 20 72 65 atic int.../* re
44c0: 67 65 78 65 63 20 72 65 74 75 72 6e 20 63 6f 64 gexec return cod
44d0: 65 20 2a 2f 0a 21 20 63 6f 6e 63 61 74 65 6e 61 e */.! concatena
44e0: 74 69 6f 6e 44 69 73 73 65 63 74 28 0a 20 20 20 tionDissect(.
44f0: 20 20 20 73 74 72 75 63 74 20 76 61 72 73 20 2a struct vars *
4500: 63 6f 6e 73 74 20 76 2c 0a 20 20 20 20 20 20 73 const v,. s
4510: 74 72 75 63 74 20 73 75 62 72 65 20 2a 63 6f 6e truct subre *con
4520: 73 74 20 74 2c 0a 20 20 20 20 20 20 63 68 72 20 st t,. chr
4530: 2a 63 6f 6e 73 74 20 62 65 67 69 6e 2c 09 09 2f *const begin,../
4540: 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 72 * beginning of r
4550: 65 6c 65 76 61 6e 74 20 73 75 62 73 74 72 69 6e elevant substrin
4560: 67 20 2a 2f 0a 20 20 20 20 20 20 63 68 72 20 2a g */. chr *
4570: 63 6f 6e 73 74 20 65 6e 64 29 09 09 2f 2a 20 65 const end)../* e
4580: 6e 64 20 6f 66 20 73 61 6d 65 20 2a 2f 0a 20 20 nd of same */.
4590: 7b 0a 21 20 20 20 20 20 73 74 72 75 63 74 20 64 {.! struct d
45a0: 66 61 20 2a 64 2c 20 2a 64 32 3b 0a 21 20 20 20 fa *d, *d2;.!
45b0: 20 20 63 68 72 20 2a 6d 69 64 3b 0a 21 20 20 20 chr *mid;.!
45c0: 20 20 69 6e 74 20 69 3b 0a 21 20 20 20 20 20 69 int i;.! i
45d0: 6e 74 20 73 68 6f 72 74 65 72 20 3d 20 28 74 2d nt shorter = (t-
45e0: 3e 6c 65 66 74 2d 3e 66 6c 61 67 73 26 53 48 4f >left->flags&SHO
45f0: 52 54 45 52 29 20 3f 20 31 20 3a 20 30 3b 0a 21 RTER) ? 1 : 0;.!
4600: 20 20 20 20 20 63 68 72 20 2a 73 74 6f 70 20 3d chr *stop =
4610: 20 28 73 68 6f 72 74 65 72 29 20 3f 20 65 6e 64 (shorter) ? end
4620: 20 3a 20 62 65 67 69 6e 3b 0a 21 20 0a 21 20 20 : begin;.! .!
4630: 20 20 20 61 73 73 65 72 74 28 74 2d 3e 6f 70 20 assert(t->op
4640: 3d 3d 20 27 2e 27 29 3b 0a 21 20 20 20 20 20 61 == '.');.! a
4650: 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d ssert(t->left !=
4660: 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 6c 65 66 74 NULL && t->left
4670: 2d 3e 63 6e 66 61 2e 6e 73 74 61 74 65 73 20 3e ->cnfa.nstates >
4680: 20 30 29 3b 0a 21 20 20 20 20 20 61 73 73 65 72 0);.! asser
4690: 74 28 74 2d 3e 72 69 67 68 74 20 21 3d 20 4e 55 t(t->right != NU
46a0: 4c 4c 20 26 26 20 74 2d 3e 72 69 67 68 74 2d 3e LL && t->right->
46b0: 63 6e 66 61 2e 6e 73 74 61 74 65 73 20 3e 20 30 cnfa.nstates > 0
46c0: 29 3b 0a 21 20 0a 21 20 20 20 20 20 64 20 3d 20 );.! .! d =
46d0: 6e 65 77 44 46 41 28 76 2c 20 26 74 2d 3e 6c 65 newDFA(v, &t->le
46e0: 66 74 2d 3e 63 6e 66 61 2c 20 26 76 2d 3e 67 2d ft->cnfa, &v->g-
46f0: 3e 63 6d 61 70 2c 20 26 76 2d 3e 64 66 61 31 29 >cmap, &v->dfa1)
4700: 3b 0a 21 20 20 20 20 20 4e 4f 45 52 52 28 29 3b ;.! NOERR();
4710: 0a 21 20 20 20 20 20 64 32 20 3d 20 6e 65 77 44 .! d2 = newD
4720: 46 41 28 76 2c 20 26 74 2d 3e 72 69 67 68 74 2d FA(v, &t->right-
4730: 3e 63 6e 66 61 2c 20 26 76 2d 3e 67 2d 3e 63 6d >cnfa, &v->g->cm
4740: 61 70 2c 20 26 76 2d 3e 64 66 61 32 29 3b 0a 21 ap, &v->dfa2);.!
4750: 20 20 20 20 20 69 66 20 28 49 53 45 52 52 28 29 if (ISERR()
4760: 29 20 7b 0a 21 20 09 61 73 73 65 72 74 28 64 32 ) {.! .assert(d2
4770: 20 3d 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 66 72 == NULL);.! .fr
4780: 65 65 44 46 41 28 64 29 3b 0a 21 20 09 72 65 74 eeDFA(d);.! .ret
4790: 75 72 6e 20 76 2d 3e 65 72 72 3b 0a 21 20 20 20 urn v->err;.!
47a0: 20 20 7d 0a 21 20 0a 21 20 20 20 20 20 2f 2a 0a }.! .! /*.
47b0: 21 20 20 20 20 20 20 2a 20 50 69 63 6b 20 61 20 ! * Pick a
47c0: 74 65 6e 74 61 74 69 76 65 20 6d 69 64 70 6f 69 tentative midpoi
47d0: 6e 74 2e 0a 21 20 20 20 20 20 20 2a 2f 0a 21 20 nt..! */.!
47e0: 0a 21 20 20 20 20 20 69 66 20 28 73 68 6f 72 74 .! if (short
47f0: 65 72 29 20 7b 0a 21 20 09 6d 69 64 20 3d 20 73 er) {.! .mid = s
4800: 68 6f 72 74 65 73 74 28 76 2c 20 64 2c 20 62 65 hortest(v, d, be
4810: 67 69 6e 2c 20 62 65 67 69 6e 2c 20 65 6e 64 2c gin, begin, end,
4820: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 21 20 NULL, NULL);.!
4830: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 21 20 09 } else {.! .
4840: 6d 69 64 20 3d 20 6c 6f 6e 67 65 73 74 28 76 2c mid = longest(v,
4850: 20 64 2c 20 62 65 67 69 6e 2c 20 65 6e 64 2c 20 d, begin, end,
4860: 4e 55 4c 4c 29 3b 0a 21 20 20 20 20 20 7d 0a 21 NULL);.! }.!
4870: 20 20 20 20 20 69 66 20 28 6d 69 64 20 3d 3d 20 if (mid ==
4880: 4e 55 4c 4c 29 20 7b 0a 21 20 09 66 72 65 65 44 NULL) {.! .freeD
4890: 46 41 28 64 29 3b 0a 21 20 09 66 72 65 65 44 46 FA(d);.! .freeDF
48a0: 41 28 64 32 29 3b 0a 21 20 09 72 65 74 75 72 6e A(d2);.! .return
48b0: 20 52 45 47 5f 41 53 53 45 52 54 3b 0a 21 20 20 REG_ASSERT;.!
48c0: 20 20 20 7d 0a 21 20 20 20 20 20 4d 44 45 42 55 }.! MDEBU
48d0: 47 28 28 22 74 65 6e 74 61 74 69 76 65 20 6d 69 G(("tentative mi
48e0: 64 70 6f 69 6e 74 20 25 6c 64 5c 6e 22 2c 20 4c dpoint %ld\n", L
48f0: 4f 46 46 28 6d 69 64 29 29 29 3b 0a 21 20 0a 21 OFF(mid)));.! .!
4900: 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a /*.! *
4910: 20 49 74 65 72 61 74 65 20 75 6e 74 69 6c 20 73 Iterate until s
4920: 61 74 69 73 66 61 63 74 69 6f 6e 20 6f 72 20 66 atisfaction or f
4930: 61 69 6c 75 72 65 2e 0a 21 20 20 20 20 20 20 2a ailure..! *
4940: 2f 0a 21 20 0a 21 20 20 20 20 20 77 68 69 6c 65 /.! .! while
4950: 20 28 6c 6f 6e 67 65 73 74 28 76 2c 20 64 32 2c (longest(v, d2,
4960: 20 6d 69 64 2c 20 65 6e 64 2c 20 4e 55 4c 4c 29 mid, end, NULL)
4970: 20 21 3d 20 65 6e 64 29 20 7b 0a 21 20 09 2f 2a != end) {.! ./*
4980: 0a 21 20 09 20 2a 20 54 68 61 74 20 6d 69 64 70 .! . * That midp
4990: 6f 69 6e 74 20 64 69 64 6e 27 74 20 77 6f 72 6b oint didn't work
49a0: 2c 20 66 69 6e 64 20 61 20 6e 65 77 20 6f 6e 65 , find a new one
49b0: 2e 0a 21 20 09 20 2a 2f 0a 21 20 0a 21 20 09 69 ..! . */.! .! .i
49c0: 66 20 28 6d 69 64 20 3d 3d 20 73 74 6f 70 29 20 f (mid == stop)
49d0: 7b 0a 21 20 09 20 20 20 20 2f 2a 0a 21 20 09 20 {.! . /*.! .
49e0: 20 20 20 20 2a 20 41 6c 6c 20 70 6f 73 73 69 62 * All possib
49f0: 69 6c 69 74 69 65 73 20 65 78 68 61 75 73 74 65 ilities exhauste
4a00: 64 21 0a 21 20 09 20 20 20 20 20 2a 2f 0a 21 20 d!.! . */.!
4a10: 0a 21 20 09 20 20 20 20 4d 44 45 42 55 47 28 28 .! . MDEBUG((
4a20: 22 6e 6f 20 6d 69 64 70 6f 69 6e 74 21 5c 6e 22 "no midpoint!\n"
4a30: 29 29 3b 0a 21 20 09 20 20 20 20 66 72 65 65 44 ));.! . freeD
4a40: 46 41 28 64 29 3b 0a 21 20 09 20 20 20 20 66 72 FA(d);.! . fr
4a50: 65 65 44 46 41 28 64 32 29 3b 0a 21 20 09 20 20 eeDFA(d2);.! .
4a60: 20 20 72 65 74 75 72 6e 20 52 45 47 5f 41 53 53 return REG_ASS
4a70: 45 52 54 3b 0a 21 20 09 7d 0a 21 20 09 69 66 20 ERT;.! .}.! .if
4a80: 28 73 68 6f 72 74 65 72 29 20 7b 0a 21 20 09 20 (shorter) {.! .
4a90: 20 20 20 6d 69 64 20 3d 20 73 68 6f 72 74 65 73 mid = shortes
4aa0: 74 28 76 2c 20 64 2c 20 62 65 67 69 6e 2c 20 6d t(v, d, begin, m
4ab0: 69 64 2b 31 2c 20 65 6e 64 2c 20 4e 55 4c 4c 2c id+1, end, NULL,
4ac0: 20 4e 55 4c 4c 29 3b 0a 21 20 09 7d 20 65 6c 73 NULL);.! .} els
4ad0: 65 20 7b 0a 21 20 09 20 20 20 20 6d 69 64 20 3d e {.! . mid =
4ae0: 20 6c 6f 6e 67 65 73 74 28 76 2c 20 64 2c 20 62 longest(v, d, b
4af0: 65 67 69 6e 2c 20 6d 69 64 2d 31 2c 20 4e 55 4c egin, mid-1, NUL
4b00: 4c 29 3b 0a 21 20 09 7d 0a 21 20 09 69 66 20 28 L);.! .}.! .if (
4b10: 6d 69 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 21 mid == NULL) {.!
4b20: 20 09 20 20 20 20 2f 2a 0a 21 20 09 20 20 20 20 . /*.! .
4b30: 20 2a 20 46 61 69 6c 65 64 20 74 6f 20 66 69 6e * Failed to fin
4b40: 64 20 61 20 6e 65 77 20 6f 6e 65 21 0a 21 20 09 d a new one!.! .
4b50: 20 20 20 20 20 2a 2f 0a 21 20 0a 21 20 09 20 20 */.! .! .
4b60: 20 20 4d 44 45 42 55 47 28 28 22 66 61 69 6c 65 MDEBUG(("faile
4b70: 64 20 6d 69 64 70 6f 69 6e 74 21 5c 6e 22 29 29 d midpoint!\n"))
4b80: 3b 0a 21 20 09 20 20 20 20 66 72 65 65 44 46 41 ;.! . freeDFA
4b90: 28 64 29 3b 0a 21 20 09 20 20 20 20 66 72 65 65 (d);.! . free
4ba0: 44 46 41 28 64 32 29 3b 0a 21 20 09 20 20 20 20 DFA(d2);.! .
4bb0: 72 65 74 75 72 6e 20 52 45 47 5f 41 53 53 45 52 return REG_ASSER
4bc0: 54 3b 0a 21 20 09 7d 0a 21 20 09 4d 44 45 42 55 T;.! .}.! .MDEBU
4bd0: 47 28 28 22 6e 65 77 20 6d 69 64 70 6f 69 6e 74 G(("new midpoint
4be0: 20 25 6c 64 5c 6e 22 2c 20 4c 4f 46 46 28 6d 69 %ld\n", LOFF(mi
4bf0: 64 29 29 29 3b 0a 21 20 20 20 20 20 7d 0a 21 20 d)));.! }.!
4c00: 0a 21 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 .! /*.!
4c10: 20 2a 20 53 61 74 69 73 66 61 63 74 69 6f 6e 2e * Satisfaction.
4c20: 0a 21 20 20 20 20 20 20 2a 2f 0a 21 20 0a 21 20 .! */.! .!
4c30: 20 20 20 20 4d 44 45 42 55 47 28 28 22 73 75 63 MDEBUG(("suc
4c40: 63 65 73 73 66 75 6c 5c 6e 22 29 29 3b 0a 21 20 cessful\n"));.!
4c50: 20 20 20 20 66 72 65 65 44 46 41 28 64 29 3b 0a freeDFA(d);.
4c60: 21 20 20 20 20 20 66 72 65 65 44 46 41 28 64 32 ! freeDFA(d2
4c70: 29 3b 0a 21 20 20 20 20 20 69 20 3d 20 64 69 73 );.! i = dis
4c80: 73 65 63 74 28 76 2c 20 74 2d 3e 6c 65 66 74 2c sect(v, t->left,
4c90: 20 62 65 67 69 6e 2c 20 6d 69 64 29 3b 0a 21 20 begin, mid);.!
4ca0: 20 20 20 20 69 66 20 28 69 20 21 3d 20 52 45 47 if (i != REG
4cb0: 5f 4f 4b 41 59 29 20 7b 0a 21 20 09 72 65 74 75 _OKAY) {.! .retu
4cc0: 72 6e 20 69 3b 0a 21 20 20 20 20 20 7d 0a 21 20 rn i;.! }.!
4cd0: 20 20 20 20 72 65 74 75 72 6e 20 64 69 73 73 65 return disse
4ce0: 63 74 28 76 2c 20 74 2d 3e 72 69 67 68 74 2c 20 ct(v, t->right,
4cf0: 6d 69 64 2c 20 65 6e 64 29 3b 0a 21 20 7d 0a 21 mid, end);.! }.!
4d00: 20 0c 0a 21 20 2f 2a 0a 21 20 20 2d 20 61 6c 74 ..! /*.! - alt
4d10: 65 72 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 20 ernationDissect
4d20: 2d 20 64 65 74 65 72 6d 69 6e 65 20 61 6c 74 65 - determine alte
4d30: 72 6e 61 74 69 76 65 20 73 75 62 65 78 70 72 65 rnative subexpre
4d40: 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 28 75 ssion matches (u
4d50: 6e 63 6f 6d 70 6c 69 63 61 74 65 64 29 0a 21 20 ncomplicated).!
4d60: 20 5e 20 73 74 61 74 69 63 20 69 6e 74 20 61 6c ^ static int al
4d70: 74 65 72 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 ternationDissect
4d80: 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 2c 20 (struct vars *,
4d90: 73 74 72 75 63 74 20 73 75 62 72 65 20 2a 2c 20 struct subre *,
4da0: 63 68 72 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 21 chr *, chr *);.!
4db0: 20 20 2a 2f 0a 21 20 73 74 61 74 69 63 20 69 6e */.! static in
4dc0: 74 09 09 09 2f 2a 20 72 65 67 65 78 65 63 20 72 t.../* regexec r
4dd0: 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 20 eturn code */.!
4de0: 61 6c 74 65 72 6e 61 74 69 6f 6e 44 69 73 73 65 alternationDisse
4df0: 63 74 28 0a 21 20 20 20 20 20 73 74 72 75 63 74 ct(.! struct
4e00: 20 76 61 72 73 20 2a 63 6f 6e 73 74 20 76 2c 0a vars *const v,.
4e10: 21 20 20 20 20 20 73 74 72 75 63 74 20 73 75 62 ! struct sub
4e20: 72 65 20 2a 74 2c 0a 21 20 20 20 20 20 63 68 72 re *t,.! chr
4e30: 20 2a 63 6f 6e 73 74 20 62 65 67 69 6e 2c 09 09 *const begin,..
4e40: 2f 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 /* beginning of
4e50: 72 65 6c 65 76 61 6e 74 20 73 75 62 73 74 72 69 relevant substri
4e60: 6e 67 20 2a 2f 0a 21 20 20 20 20 20 63 68 72 20 ng */.! chr
4e70: 2a 63 6f 6e 73 74 20 65 6e 64 29 09 09 2f 2a 20 *const end)../*
4e80: 65 6e 64 20 6f 66 20 73 61 6d 65 20 2a 2f 0a 21 end of same */.!
4e90: 20 7b 0a 21 20 20 20 20 20 69 6e 74 20 69 3b 0a {.! int i;.
4ea0: 20 20 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 . assert(
4eb0: 74 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 20 20 t != NULL);.!
4ec0: 20 20 61 73 73 65 72 74 28 74 2d 3e 6f 70 20 3d assert(t->op =
4ed0: 3d 20 27 7c 27 29 3b 0a 21 20 0a 21 20 20 20 20 = '|');.! .!
4ee0: 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 74 20 21 for (i = 0; t !
4ef0: 3d 20 4e 55 4c 4c 3b 20 74 20 3d 20 74 2d 3e 72 = NULL; t = t->r
4f00: 69 67 68 74 2c 20 69 2b 2b 29 20 7b 0a 21 20 09 ight, i++) {.! .
4f10: 73 74 72 75 63 74 20 64 66 61 20 2a 64 3b 0a 21 struct dfa *d;.!
4f20: 20 0a 21 20 09 4d 44 45 42 55 47 28 28 22 74 72 .! .MDEBUG(("tr
4f30: 79 69 6e 67 20 25 64 74 68 5c 6e 22 2c 20 69 29 ying %dth\n", i)
4f40: 29 3b 0a 21 20 09 61 73 73 65 72 74 28 74 2d 3e );.! .assert(t->
4f50: 6c 65 66 74 20 21 3d 20 4e 55 4c 4c 20 26 26 20 left != NULL &&
4f60: 74 2d 3e 6c 65 66 74 2d 3e 63 6e 66 61 2e 6e 73 t->left->cnfa.ns
4f70: 74 61 74 65 73 20 3e 20 30 29 3b 0a 21 20 09 64 tates > 0);.! .d
4f80: 20 3d 20 6e 65 77 44 46 41 28 76 2c 20 26 74 2d = newDFA(v, &t-
4f90: 3e 6c 65 66 74 2d 3e 63 6e 66 61 2c 20 26 76 2d >left->cnfa, &v-
4fa0: 3e 67 2d 3e 63 6d 61 70 2c 20 26 76 2d 3e 64 66 >g->cmap, &v->df
4fb0: 61 31 29 3b 0a 21 20 09 69 66 20 28 49 53 45 52 a1);.! .if (ISER
4fc0: 52 28 29 29 20 7b 0a 21 20 09 20 20 20 20 72 65 R()) {.! . re
4fd0: 74 75 72 6e 20 76 2d 3e 65 72 72 3b 0a 21 20 09 turn v->err;.! .
4fe0: 7d 0a 21 20 09 69 66 20 28 6c 6f 6e 67 65 73 74 }.! .if (longest
4ff0: 28 76 2c 20 64 2c 20 62 65 67 69 6e 2c 20 65 6e (v, d, begin, en
5000: 64 2c 20 4e 55 4c 4c 29 20 3d 3d 20 65 6e 64 29 d, NULL) == end)
5010: 20 7b 0a 21 20 09 20 20 20 20 4d 44 45 42 55 47 {.! . MDEBUG
5020: 28 28 22 73 75 63 63 65 73 73 5c 6e 22 29 29 3b (("success\n"));
5030: 0a 21 20 09 20 20 20 20 66 72 65 65 44 46 41 28 .! . freeDFA(
5040: 64 29 3b 0a 21 20 09 20 20 20 20 72 65 74 75 72 d);.! . retur
5050: 6e 20 64 69 73 73 65 63 74 28 76 2c 20 74 2d 3e n dissect(v, t->
5060: 6c 65 66 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 left, begin, end
5070: 29 3b 0a 21 20 09 7d 0a 21 20 09 66 72 65 65 44 );.! .}.! .freeD
5080: 46 41 28 64 29 3b 0a 21 20 20 20 20 20 7d 0a 21 FA(d);.! }.!
5090: 20 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f return REG_
50a0: 41 53 53 45 52 54 3b 09 09 2f 2a 20 6e 6f 6e 65 ASSERT;../* none
50b0: 20 6f 66 20 74 68 65 6d 20 6d 61 74 63 68 65 64 of them matched
50c0: 3f 21 3f 20 2a 2f 0a 21 20 7d 0a 21 20 0c 0a 21 ?!? */.! }.! ..!
50d0: 20 2f 2a 0a 21 20 20 2d 20 63 6f 6d 70 6c 69 63 /*.! - complic
50e0: 61 74 65 64 44 69 73 73 65 63 74 20 2d 20 64 65 atedDissect - de
50f0: 74 65 72 6d 69 6e 65 20 73 75 62 65 78 70 72 65 termine subexpre
5100: 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 28 77 ssion matches (w
5110: 69 74 68 20 63 6f 6d 70 6c 69 63 61 74 69 6f 6e ith complication
5120: 73 29 0a 21 20 20 2a 20 54 68 65 20 72 65 74 72 s).! * The retr
5130: 79 20 6d 65 6d 6f 72 79 20 73 74 6f 72 65 73 20 y memory stores
5140: 74 68 65 20 6f 66 66 73 65 74 20 6f 66 20 74 68 the offset of th
5150: 65 20 74 72 69 61 6c 20 6d 69 64 70 6f 69 6e 74 e trial midpoint
5160: 20 66 72 6f 6d 20 62 65 67 69 6e 2c 20 70 6c 75 from begin, plu
5170: 73 20 31 0a 21 20 20 2a 20 73 6f 20 74 68 61 74 s 1.! * so that
5180: 20 30 20 75 6e 69 71 75 65 6c 79 20 6d 65 61 6e 0 uniquely mean
5190: 73 20 22 63 6c 65 61 6e 20 73 6c 61 74 65 22 2e s "clean slate".
51a0: 0a 21 20 20 5e 20 73 74 61 74 69 63 20 69 6e 74 .! ^ static int
51b0: 20 63 6f 6d 70 6c 69 63 61 74 65 64 44 69 73 73 complicatedDiss
51c0: 65 63 74 28 73 74 72 75 63 74 20 76 61 72 73 20 ect(struct vars
51d0: 2a 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 20 *, struct subre
51e0: 2a 2c 20 63 68 72 20 2a 2c 20 63 68 72 20 2a 29 *, chr *, chr *)
51f0: 3b 0a 21 20 20 2a 2f 0a 21 20 73 74 61 74 69 63 ;.! */.! static
5200: 20 69 6e 6c 69 6e 65 20 69 6e 74 09 09 2f 2a 20 inline int../*
5210: 72 65 67 65 78 65 63 20 72 65 74 75 72 6e 20 63 regexec return c
5220: 6f 64 65 20 2a 2f 0a 21 20 63 6f 6d 70 6c 69 63 ode */.! complic
5230: 61 74 65 64 44 69 73 73 65 63 74 28 0a 21 20 20 atedDissect(.!
5240: 20 20 20 73 74 72 75 63 74 20 76 61 72 73 20 2a struct vars *
5250: 63 6f 6e 73 74 20 76 2c 0a 21 20 20 20 20 20 73 const v,.! s
5260: 74 72 75 63 74 20 73 75 62 72 65 20 2a 63 6f 6e truct subre *con
5270: 73 74 20 74 2c 0a 21 20 20 20 20 20 63 68 72 20 st t,.! chr
5280: 2a 63 6f 6e 73 74 20 62 65 67 69 6e 2c 09 09 2f *const begin,../
5290: 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 72 * beginning of r
52a0: 65 6c 65 76 61 6e 74 20 73 75 62 73 74 72 69 6e elevant substrin
52b0: 67 20 2a 2f 0a 21 20 20 20 20 20 63 68 72 20 2a g */.! chr *
52c0: 63 6f 6e 73 74 20 65 6e 64 29 09 09 2f 2a 20 65 const end)../* e
52d0: 6e 64 20 6f 66 20 73 61 6d 65 20 2a 2f 0a 21 20 nd of same */.!
52e0: 7b 0a 21 20 20 20 20 20 61 73 73 65 72 74 28 74 {.! assert(t
52f0: 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 20 20 20 != NULL);.!
5300: 20 4d 44 45 42 55 47 28 28 22 63 6f 6d 70 6c 69 MDEBUG(("compli
5310: 63 61 74 65 64 44 69 73 73 65 63 74 20 25 6c 64 catedDissect %ld
5320: 2d 25 6c 64 20 25 63 5c 6e 22 2c 20 4c 4f 46 46 -%ld %c\n", LOFF
5330: 28 62 65 67 69 6e 29 2c 20 4c 4f 46 46 28 65 6e (begin), LOFF(en
5340: 64 29 2c 20 74 2d 3e 6f 70 29 29 3b 0a 20 20 0a d), t->op));. .
5350: 20 20 20 20 20 20 73 77 69 74 63 68 20 28 74 2d switch (t-
5360: 3e 6f 70 29 20 7b 0a 20 20 20 20 20 20 63 61 73 >op) {. cas
5370: 65 20 27 3d 27 3a 09 09 09 2f 2a 20 74 65 72 6d e '=':.../* term
5380: 69 6e 61 6c 20 6e 6f 64 65 20 2a 2f 0a 20 20 09 inal node */. .
5390: 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 3d assert(t->left =
53a0: 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 67 = NULL && t->rig
53b0: 68 74 20 3d 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 ht == NULL);.! .
53c0: 72 65 74 75 72 6e 20 52 45 47 5f 4f 4b 41 59 3b return REG_OKAY;
53d0: 09 2f 2a 20 6e 6f 20 61 63 74 69 6f 6e 2c 20 70 ./* no action, p
53e0: 61 72 65 6e 74 20 64 69 64 20 74 68 65 20 77 6f arent did the wo
53f0: 72 6b 20 2a 2f 0a 21 20 20 20 20 20 63 61 73 65 rk */.! case
5400: 20 27 7c 27 3a 09 09 09 2f 2a 20 61 6c 74 65 72 '|':.../* alter
5410: 6e 61 74 69 6f 6e 20 2a 2f 0a 21 20 09 61 73 73 nation */.! .ass
5420: 65 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d 20 4e ert(t->left != N
5430: 55 4c 4c 29 3b 0a 21 20 09 72 65 74 75 72 6e 20 ULL);.! .return
5440: 63 6f 6d 70 6c 69 63 61 74 65 64 41 6c 74 65 72 complicatedAlter
5450: 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 28 76 2c nationDissect(v,
5460: 20 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 3b t, begin, end);
5470: 0a 21 20 20 20 20 20 63 61 73 65 20 27 62 27 3a .! case 'b':
5480: 09 09 09 2f 2a 20 62 61 63 6b 20 72 65 66 20 2d .../* back ref -
5490: 2d 20 73 68 6f 75 6c 64 6e 27 74 20 62 65 20 63 - shouldn't be c
54a0: 61 6c 6c 69 6e 67 20 75 73 21 20 2a 2f 0a 20 20 alling us! */.
54b0: 09 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 .assert(t->left
54c0: 3d 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 == NULL && t->ri
54d0: 67 68 74 20 3d 3d 20 4e 55 4c 4c 29 3b 0a 21 20 ght == NULL);.!
54e0: 09 72 65 74 75 72 6e 20 63 6f 6d 70 6c 69 63 61 .return complica
54f0: 74 65 64 42 61 63 6b 72 65 66 44 69 73 73 65 63 tedBackrefDissec
5500: 74 28 76 2c 20 74 2c 20 62 65 67 69 6e 2c 20 65 t(v, t, begin, e
5510: 6e 64 29 3b 0a 20 20 20 20 20 20 63 61 73 65 20 nd);. case
5520: 27 2e 27 3a 09 09 09 2f 2a 20 63 6f 6e 63 61 74 '.':.../* concat
5530: 65 6e 61 74 69 6f 6e 20 2a 2f 0a 20 20 09 61 73 enation */. .as
5540: 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d 20 sert(t->left !=
5550: 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 67 68 74 NULL && t->right
5560: 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 72 65 != NULL);.! .re
5570: 74 75 72 6e 20 63 6f 6d 70 6c 69 63 61 74 65 64 turn complicated
5580: 43 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 44 69 73 ConcatenationDis
5590: 73 65 63 74 28 76 2c 20 74 2c 20 62 65 67 69 6e sect(v, t, begin
55a0: 2c 20 65 6e 64 29 3b 0a 20 20 20 20 20 20 63 61 , end);. ca
55b0: 73 65 20 27 28 27 3a 09 09 09 2f 2a 20 63 61 70 se '(':.../* cap
55c0: 74 75 72 69 6e 67 20 2a 2f 0a 20 20 09 61 73 73 turing */. .ass
55d0: 65 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d 20 4e ert(t->left != N
55e0: 55 4c 4c 20 26 26 20 74 2d 3e 72 69 67 68 74 20 ULL && t->right
55f0: 3d 3d 20 4e 55 4c 4c 29 3b 0a 20 20 09 61 73 73 == NULL);. .ass
5600: 65 72 74 28 74 2d 3e 73 75 62 6e 6f 20 3e 20 30 ert(t->subno > 0
5610: 29 3b 0a 21 20 09 72 65 74 75 72 6e 20 63 6f 6d );.! .return com
5620: 70 6c 69 63 61 74 65 64 43 61 70 74 75 72 69 6e plicatedCapturin
5630: 67 44 69 73 73 65 63 74 28 76 2c 20 74 2c 20 62 gDissect(v, t, b
5640: 65 67 69 6e 2c 20 65 6e 64 29 3b 0a 20 20 20 20 egin, end);.
5650: 20 20 64 65 66 61 75 6c 74 3a 0a 21 20 09 72 65 default:.! .re
5660: 74 75 72 6e 20 52 45 47 5f 41 53 53 45 52 54 3b turn REG_ASSERT;
5670: 0a 20 20 20 20 20 20 7d 0a 2d 20 7d 0a 20 20 0a . }.- }. .
5680: 21 20 73 74 61 74 69 63 20 69 6e 74 09 09 09 2f ! static int.../
5690: 2a 20 72 65 67 65 78 65 63 20 72 65 74 75 72 6e * regexec return
56a0: 20 63 6f 64 65 20 2a 2f 0a 21 20 63 6f 6d 70 6c code */.! compl
56b0: 69 63 61 74 65 64 43 61 70 74 75 72 69 6e 67 44 icatedCapturingD
56c0: 69 73 73 65 63 74 28 0a 21 20 20 20 20 20 73 74 issect(.! st
56d0: 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 ruct vars *const
56e0: 20 76 2c 0a 21 20 20 20 20 20 73 74 72 75 63 74 v,.! struct
56f0: 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 20 74 2c subre *const t,
5700: 0a 21 20 20 20 20 20 63 68 72 20 2a 63 6f 6e 73 .! chr *cons
5710: 74 20 62 65 67 69 6e 2c 09 09 2f 2a 20 62 65 67 t begin,../* beg
5720: 69 6e 6e 69 6e 67 20 6f 66 20 72 65 6c 65 76 61 inning of releva
5730: 6e 74 20 73 75 62 73 74 72 69 6e 67 20 2a 2f 0a nt substring */.
5740: 21 20 20 20 20 20 63 68 72 20 2a 63 6f 6e 73 74 ! chr *const
5750: 20 65 6e 64 29 09 09 2f 2a 20 65 6e 64 20 6f 66 end)../* end of
5760: 20 73 61 6d 65 20 2a 2f 0a 21 20 7b 0a 21 20 20 same */.! {.!
5770: 20 20 20 69 6e 74 20 65 72 20 3d 20 63 6f 6d 70 int er = comp
5780: 6c 69 63 61 74 65 64 44 69 73 73 65 63 74 28 76 licatedDissect(v
5790: 2c 20 74 2d 3e 6c 65 66 74 2c 20 62 65 67 69 6e , t->left, begin
57a0: 2c 20 65 6e 64 29 3b 0a 20 20 0a 2d 20 20 20 20 , end);. .-
57b0: 20 69 66 20 28 65 72 20 3d 3d 20 52 45 47 5f 4f if (er == REG_O
57c0: 4b 41 59 29 20 7b 0a 2d 20 09 73 75 62 73 65 74 KAY) {.- .subset
57d0: 28 76 2c 20 74 2c 20 62 65 67 69 6e 2c 20 65 6e (v, t, begin, en
57e0: 64 29 3b 0a 2d 20 20 20 20 20 7d 0a 20 20 20 20 d);.- }.
57f0: 20 20 72 65 74 75 72 6e 20 65 72 3b 0a 20 20 7d return er;. }
5800: 0a 20 20 0c 0a 20 20 2f 2a 0a 21 20 20 2d 20 63 . .. /*.! - c
5810: 6f 6d 70 6c 69 63 61 74 65 64 43 6f 6e 63 61 74 omplicatedConcat
5820: 65 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 20 2d enationDissect -
5830: 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 73 concatenation s
5840: 75 62 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 ubexpression mat
5850: 63 68 65 73 20 28 77 69 74 68 20 63 6f 6d 70 6c ches (with compl
5860: 69 63 61 74 69 6f 6e 73 29 0a 21 20 20 2a 20 54 ications).! * T
5870: 68 65 20 72 65 74 72 79 20 6d 65 6d 6f 72 79 20 he retry memory
5880: 73 74 6f 72 65 73 20 74 68 65 20 6f 66 66 73 65 stores the offse
5890: 74 20 6f 66 20 74 68 65 20 74 72 69 61 6c 20 6d t of the trial m
58a0: 69 64 70 6f 69 6e 74 20 66 72 6f 6d 20 62 65 67 idpoint from beg
58b0: 69 6e 2c 20 70 6c 75 73 20 31 0a 21 20 20 2a 20 in, plus 1.! *
58c0: 73 6f 20 74 68 61 74 20 30 20 75 6e 69 71 75 65 so that 0 unique
58d0: 6c 79 20 6d 65 61 6e 73 20 22 63 6c 65 61 6e 20 ly means "clean
58e0: 73 6c 61 74 65 22 2e 0a 21 20 20 5e 20 73 74 61 slate"..! ^ sta
58f0: 74 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 63 61 tic int complica
5900: 74 65 64 43 6f 6e 63 61 74 65 6e 61 74 69 6f 6e tedConcatenation
5910: 44 69 73 73 65 63 74 28 73 74 72 75 63 74 20 76 Dissect(struct v
5920: 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 73 75 ars *, struct su
5930: 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 bre *, chr *, ch
5940: 72 20 2a 29 3b 0a 20 20 20 2a 2f 0a 20 20 73 74 r *);. */. st
5950: 61 74 69 63 20 69 6e 74 09 09 09 2f 2a 20 72 65 atic int.../* re
5960: 67 65 78 65 63 20 72 65 74 75 72 6e 20 63 6f 64 gexec return cod
5970: 65 20 2a 2f 0a 21 20 63 6f 6d 70 6c 69 63 61 74 e */.! complicat
5980: 65 64 43 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 44 edConcatenationD
5990: 69 73 73 65 63 74 28 0a 20 20 20 20 20 20 73 74 issect(. st
59a0: 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 ruct vars *const
59b0: 20 76 2c 0a 20 20 20 20 20 20 73 74 72 75 63 74 v,. struct
59c0: 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 20 74 2c subre *const t,
59d0: 0a 20 20 20 20 20 20 63 68 72 20 2a 63 6f 6e 73 . chr *cons
59e0: 74 20 62 65 67 69 6e 2c 09 09 2f 2a 20 62 65 67 t begin,../* beg
59f0: 69 6e 6e 69 6e 67 20 6f 66 20 72 65 6c 65 76 61 inning of releva
5a00: 6e 74 20 73 75 62 73 74 72 69 6e 67 20 2a 2f 0a nt substring */.
5a10: 2d 2d 2d 20 35 36 30 2c 36 34 36 20 2d 2d 2d 2d --- 560,646 ----
5a20: 0a 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a 0a 21 20 . }. .. /*.!
5a30: 20 2d 20 63 64 69 73 73 65 63 74 20 2d 20 63 68 - cdissect - ch
5a40: 65 63 6b 20 62 61 63 6b 72 65 66 73 20 61 6e 64 eck backrefs and
5a50: 20 64 65 74 65 72 6d 69 6e 65 20 73 75 62 65 78 determine subex
5a60: 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 pression matches
5a70: 0a 21 20 20 2a 20 63 64 69 73 73 65 63 74 20 72 .! * cdissect r
5a80: 65 63 75 72 73 69 76 65 6c 79 20 70 72 6f 63 65 ecursively proce
5a90: 73 73 65 73 20 61 20 73 75 62 72 65 20 74 72 65 sses a subre tre
5aa0: 65 20 74 6f 20 63 68 65 63 6b 20 6d 61 74 63 68 e to check match
5ab0: 69 6e 67 20 6f 66 20 62 61 63 6b 72 65 66 73 0a ing of backrefs.
5ac0: 21 20 20 2a 20 61 6e 64 2f 6f 72 20 69 64 65 6e ! * and/or iden
5ad0: 74 69 66 79 20 73 75 62 6d 61 74 63 68 20 62 6f tify submatch bo
5ae0: 75 6e 64 61 72 69 65 73 20 66 6f 72 20 63 61 70 undaries for cap
5af0: 74 75 72 65 20 6e 6f 64 65 73 2e 20 20 54 68 65 ture nodes. The
5b00: 20 70 72 6f 70 6f 73 65 64 20 6d 61 74 63 68 0a proposed match.
5b10: 21 20 20 2a 20 72 75 6e 73 20 66 72 6f 6d 20 22 ! * runs from "
5b20: 62 65 67 69 6e 22 20 74 6f 20 22 65 6e 64 22 20 begin" to "end"
5b30: 28 6e 6f 74 20 69 6e 63 6c 75 64 69 6e 67 20 22 (not including "
5b40: 65 6e 64 22 29 2c 20 61 6e 64 20 77 65 20 61 72 end"), and we ar
5b50: 65 20 62 61 73 69 63 61 6c 6c 79 0a 21 20 20 2a e basically.! *
5b60: 20 22 64 69 73 73 65 63 74 69 6e 67 22 20 69 74 "dissecting" it
5b70: 20 74 6f 20 73 65 65 20 77 68 65 72 65 20 74 68 to see where th
5b80: 65 20 73 75 62 6d 61 74 63 68 65 73 20 61 72 65 e submatches are
5b90: 2e 0a 21 20 20 2a 20 42 65 66 6f 72 65 20 63 61 ..! * Before ca
5ba0: 6c 6c 69 6e 67 20 61 6e 79 20 6c 65 76 65 6c 20 lling any level
5bb0: 6f 66 20 63 64 69 73 73 65 63 74 2c 20 74 68 65 of cdissect, the
5bc0: 20 63 61 6c 6c 65 72 20 6d 75 73 74 20 68 61 76 caller must hav
5bd0: 65 20 72 75 6e 20 74 68 65 20 6e 6f 64 65 27 73 e run the node's
5be0: 0a 21 20 20 2a 20 44 46 41 20 61 6e 64 20 66 6f .! * DFA and fo
5bf0: 75 6e 64 20 74 68 61 74 20 74 68 65 20 70 72 6f und that the pro
5c00: 70 6f 73 65 64 20 73 75 62 73 74 72 69 6e 67 20 posed substring
5c10: 73 61 74 69 73 66 69 65 73 20 74 68 65 20 44 46 satisfies the DF
5c20: 41 2e 20 20 28 57 65 20 6d 61 6b 65 0a 21 20 20 A. (We make.!
5c30: 2a 20 74 68 65 20 63 61 6c 6c 65 72 20 64 6f 20 * the caller do
5c40: 74 68 61 74 20 62 65 63 61 75 73 65 20 69 6e 20 that because in
5c50: 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 61 6e concatenation an
5c60: 64 20 69 74 65 72 61 74 69 6f 6e 20 6e 6f 64 65 d iteration node
5c70: 73 2c 20 69 74 27 73 0a 21 20 20 2a 20 6d 75 63 s, it's.! * muc
5c80: 68 20 66 61 73 74 65 72 20 74 6f 20 63 68 65 63 h faster to chec
5c90: 6b 20 61 6c 6c 20 74 68 65 20 73 75 62 73 74 72 k all the substr
5ca0: 69 6e 67 73 20 61 67 61 69 6e 73 74 20 74 68 65 ings against the
5cb0: 20 63 68 69 6c 64 20 44 46 41 73 20 62 65 66 6f child DFAs befo
5cc0: 72 65 20 77 65 0a 21 20 20 2a 20 72 65 63 75 72 re we.! * recur
5cd0: 73 65 2e 29 20 20 41 6c 73 6f 2c 20 63 61 6c 6c se.) Also, call
5ce0: 65 72 20 6d 75 73 74 20 68 61 76 65 20 63 6c 65 er must have cle
5cf0: 61 72 65 64 20 73 75 62 65 78 70 72 65 73 73 69 ared subexpressi
5d00: 6f 6e 20 6d 61 74 63 68 20 64 61 74 61 20 76 69 on match data vi
5d10: 61 0a 21 20 20 2a 20 7a 61 70 74 72 65 65 73 75 a.! * zaptreesu
5d20: 62 73 20 28 6f 72 20 7a 61 70 61 6c 6c 73 75 62 bs (or zapallsub
5d30: 73 20 61 74 20 74 68 65 20 74 6f 70 20 6c 65 76 s at the top lev
5d40: 65 6c 29 2e 0a 21 20 20 5e 20 73 74 61 74 69 63 el)..! ^ static
5d50: 20 69 6e 74 20 63 64 69 73 73 65 63 74 28 73 74 int cdissect(st
5d60: 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 ruct vars *, str
5d70: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
5d80: 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 20 20 20 2a *, chr *);. *
5d90: 2f 0a 20 20 73 74 61 74 69 63 20 69 6e 74 09 09 /. static int..
5da0: 09 2f 2a 20 72 65 67 65 78 65 63 20 72 65 74 75 ./* regexec retu
5db0: 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 20 63 64 69 rn code */.! cdi
5dc0: 73 73 65 63 74 28 0a 20 20 20 20 20 20 73 74 72 ssect(. str
5dd0: 75 63 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 20 uct vars *const
5de0: 76 2c 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 v,. struct
5df0: 73 75 62 72 65 20 2a 63 6f 6e 73 74 20 74 2c 0a subre *const t,.
5e00: 20 20 20 20 20 20 63 68 72 20 2a 63 6f 6e 73 74 chr *const
5e10: 20 62 65 67 69 6e 2c 09 09 2f 2a 20 62 65 67 69 begin,../* begi
5e20: 6e 6e 69 6e 67 20 6f 66 20 72 65 6c 65 76 61 6e nning of relevan
5e30: 74 20 73 75 62 73 74 72 69 6e 67 20 2a 2f 0a 20 t substring */.
5e40: 20 20 20 20 20 63 68 72 20 2a 63 6f 6e 73 74 20 chr *const
5e50: 65 6e 64 29 09 09 2f 2a 20 65 6e 64 20 6f 66 20 end)../* end of
5e60: 73 61 6d 65 20 2a 2f 0a 20 20 7b 0a 21 20 20 20 same */. {.!
5e70: 20 20 69 6e 74 20 65 72 3b 0a 20 20 0a 20 20 20 int er;. .
5e80: 20 20 20 61 73 73 65 72 74 28 74 20 21 3d 20 4e assert(t != N
5e90: 55 4c 4c 29 3b 0a 21 20 20 20 20 20 4d 44 45 42 ULL);.! MDEB
5ea0: 55 47 28 28 22 63 64 69 73 73 65 63 74 20 25 6c UG(("cdissect %l
5eb0: 64 2d 25 6c 64 20 25 63 5c 6e 22 2c 20 4c 4f 46 d-%ld %c\n", LOF
5ec0: 46 28 62 65 67 69 6e 29 2c 20 4c 4f 46 46 28 65 F(begin), LOFF(e
5ed0: 6e 64 29 2c 20 74 2d 3e 6f 70 29 29 3b 0a 20 20 nd), t->op));.
5ee0: 0a 20 20 20 20 20 20 73 77 69 74 63 68 20 28 74 . switch (t
5ef0: 2d 3e 6f 70 29 20 7b 0a 20 20 20 20 20 20 63 61 ->op) {. ca
5f00: 73 65 20 27 3d 27 3a 09 09 09 2f 2a 20 74 65 72 se '=':.../* ter
5f10: 6d 69 6e 61 6c 20 6e 6f 64 65 20 2a 2f 0a 20 20 minal node */.
5f20: 09 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 .assert(t->left
5f30: 3d 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 == NULL && t->ri
5f40: 67 68 74 20 3d 3d 20 4e 55 4c 4c 29 3b 0a 21 20 ght == NULL);.!
5f50: 09 65 72 20 3d 20 52 45 47 5f 4f 4b 41 59 3b 09 .er = REG_OKAY;.
5f60: 09 2f 2a 20 6e 6f 20 61 63 74 69 6f 6e 2c 20 70 ./* no action, p
5f70: 61 72 65 6e 74 20 64 69 64 20 74 68 65 20 77 6f arent did the wo
5f80: 72 6b 20 2a 2f 0a 21 20 09 62 72 65 61 6b 3b 0a rk */.! .break;.
5f90: 21 20 20 20 20 20 63 61 73 65 20 27 62 27 3a 09 ! case 'b':.
5fa0: 09 09 2f 2a 20 62 61 63 6b 20 72 65 66 65 72 65 ../* back refere
5fb0: 6e 63 65 20 2a 2f 0a 20 20 09 61 73 73 65 72 74 nce */. .assert
5fc0: 28 74 2d 3e 6c 65 66 74 20 3d 3d 20 4e 55 4c 4c (t->left == NULL
5fd0: 20 26 26 20 74 2d 3e 72 69 67 68 74 20 3d 3d 20 && t->right ==
5fe0: 4e 55 4c 4c 29 3b 0a 21 20 09 65 72 20 3d 20 63 NULL);.! .er = c
5ff0: 62 72 64 69 73 73 65 63 74 28 76 2c 20 74 2c 20 brdissect(v, t,
6000: 62 65 67 69 6e 2c 20 65 6e 64 29 3b 0a 21 20 09 begin, end);.! .
6010: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 break;. cas
6020: 65 20 27 2e 27 3a 09 09 09 2f 2a 20 63 6f 6e 63 e '.':.../* conc
6030: 61 74 65 6e 61 74 69 6f 6e 20 2a 2f 0a 20 20 09 atenation */. .
6040: 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 21 assert(t->left !
6050: 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 67 = NULL && t->rig
6060: 68 74 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 ht != NULL);.! .
6070: 69 66 20 28 74 2d 3e 6c 65 66 74 2d 3e 66 6c 61 if (t->left->fla
6080: 67 73 20 26 20 53 48 4f 52 54 45 52 29 20 2f 2a gs & SHORTER) /*
6090: 20 72 65 76 65 72 73 65 20 73 63 61 6e 20 2a 2f reverse scan */
60a0: 0a 21 20 09 20 20 20 20 65 72 20 3d 20 63 72 65 .! . er = cre
60b0: 76 63 6f 6e 64 69 73 73 65 63 74 28 76 2c 20 74 vcondissect(v, t
60c0: 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 3b 0a 21 , begin, end);.!
60d0: 20 09 65 6c 73 65 0a 21 20 09 20 20 20 20 65 72 .else.! . er
60e0: 20 3d 20 63 63 6f 6e 64 69 73 73 65 63 74 28 76 = ccondissect(v
60f0: 2c 20 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 , t, begin, end)
6100: 3b 0a 21 20 09 62 72 65 61 6b 3b 0a 21 20 20 20 ;.! .break;.!
6110: 20 20 63 61 73 65 20 27 7c 27 3a 09 09 09 2f 2a case '|':.../*
6120: 20 61 6c 74 65 72 6e 61 74 69 6f 6e 20 2a 2f 0a alternation */.
6130: 21 20 09 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 ! .assert(t->lef
6140: 74 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 65 t != NULL);.! .e
6150: 72 20 3d 20 63 61 6c 74 64 69 73 73 65 63 74 28 r = caltdissect(
6160: 76 2c 20 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 v, t, begin, end
6170: 29 3b 0a 21 20 09 62 72 65 61 6b 3b 0a 21 20 20 );.! .break;.!
6180: 20 20 20 63 61 73 65 20 27 2a 27 3a 09 09 09 2f case '*':.../
6190: 2a 20 69 74 65 72 61 74 69 6f 6e 20 2a 2f 0a 21 * iteration */.!
61a0: 20 09 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 .assert(t->left
61b0: 20 21 3d 20 4e 55 4c 4c 29 3b 0a 21 20 09 69 66 != NULL);.! .if
61c0: 20 28 74 2d 3e 6c 65 66 74 2d 3e 66 6c 61 67 73 (t->left->flags
61d0: 20 26 20 53 48 4f 52 54 45 52 29 20 2f 2a 20 72 & SHORTER) /* r
61e0: 65 76 65 72 73 65 20 73 63 61 6e 20 2a 2f 0a 21 everse scan */.!
61f0: 20 09 20 20 20 20 65 72 20 3d 20 63 72 65 76 69 . er = crevi
6200: 74 65 72 64 69 73 73 65 63 74 28 76 2c 20 74 2c terdissect(v, t,
6210: 20 62 65 67 69 6e 2c 20 65 6e 64 29 3b 0a 21 20 begin, end);.!
6220: 09 65 6c 73 65 0a 21 20 09 20 20 20 20 65 72 20 .else.! . er
6230: 3d 20 63 69 74 65 72 64 69 73 73 65 63 74 28 76 = citerdissect(v
6240: 2c 20 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 , t, begin, end)
6250: 3b 0a 21 20 09 62 72 65 61 6b 3b 0a 20 20 20 20 ;.! .break;.
6260: 20 20 63 61 73 65 20 27 28 27 3a 09 09 09 2f 2a case '(':.../*
6270: 20 63 61 70 74 75 72 69 6e 67 20 2a 2f 0a 20 20 capturing */.
6280: 09 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 .assert(t->left
6290: 21 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 != NULL && t->ri
62a0: 67 68 74 20 3d 3d 20 4e 55 4c 4c 29 3b 0a 20 20 ght == NULL);.
62b0: 09 61 73 73 65 72 74 28 74 2d 3e 73 75 62 6e 6f .assert(t->subno
62c0: 20 3e 20 30 29 3b 0a 21 20 09 65 72 20 3d 20 63 > 0);.! .er = c
62d0: 64 69 73 73 65 63 74 28 76 2c 20 74 2d 3e 6c 65 dissect(v, t->le
62e0: 66 74 2c 20 62 65 67 69 6e 2c 20 65 6e 64 29 3b ft, begin, end);
62f0: 0a 21 20 09 69 66 20 28 65 72 20 3d 3d 20 52 45 .! .if (er == RE
6300: 47 5f 4f 4b 41 59 29 20 7b 0a 21 20 09 20 20 20 G_OKAY) {.! .
6310: 20 73 75 62 73 65 74 28 76 2c 20 74 2c 20 62 65 subset(v, t, be
6320: 67 69 6e 2c 20 65 6e 64 29 3b 0a 21 20 09 7d 0a gin, end);.! .}.
6330: 21 20 09 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 ! .break;.
6340: 64 65 66 61 75 6c 74 3a 0a 21 20 09 65 72 20 3d default:.! .er =
6350: 20 52 45 47 5f 41 53 53 45 52 54 3b 0a 21 20 09 REG_ASSERT;.! .
6360: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
6370: 20 0a 21 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 .! /*.!
6380: 20 20 2a 20 57 65 20 73 68 6f 75 6c 64 20 6e 65 * We should ne
6390: 76 65 72 20 68 61 76 65 20 61 20 6d 61 74 63 68 ver have a match
63a0: 20 66 61 69 6c 75 72 65 20 75 6e 6c 65 73 73 20 failure unless
63b0: 62 61 63 6b 72 65 66 73 20 6c 75 72 6b 20 62 65 backrefs lurk be
63c0: 6c 6f 77 3b 0a 21 20 20 20 20 20 20 2a 20 6f 74 low;.! * ot
63d0: 68 65 72 77 69 73 65 2c 20 65 69 74 68 65 72 20 herwise, either
63e0: 63 61 6c 6c 65 72 20 66 61 69 6c 65 64 20 74 6f caller failed to
63f0: 20 63 68 65 63 6b 20 74 68 65 20 44 46 41 2c 20 check the DFA,
6400: 6f 72 20 74 68 65 72 65 27 73 20 73 6f 6d 65 0a or there's some.
6410: 21 20 20 20 20 20 20 2a 20 69 6e 63 6f 6e 73 69 ! * inconsi
6420: 73 74 65 6e 63 79 20 62 65 74 77 65 65 6e 20 74 stency between t
6430: 68 65 20 44 46 41 20 61 6e 64 20 74 68 65 20 6e he DFA and the n
6440: 6f 64 65 27 73 20 69 6e 6e 61 72 64 73 2e 0a 21 ode's innards..!
6450: 20 20 20 20 20 20 2a 2f 0a 21 20 20 20 20 20 61 */.! a
6460: 73 73 65 72 74 28 65 72 20 21 3d 20 52 45 47 5f ssert(er != REG_
6470: 4e 4f 4d 41 54 43 48 20 7c 7c 20 28 74 2d 3e 66 NOMATCH || (t->f
6480: 6c 61 67 73 20 26 20 42 41 43 4b 52 29 29 3b 0a lags & BACKR));.
6490: 20 20 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
64a0: 65 72 3b 0a 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a er;. }. .. /*
64b0: 0a 21 20 20 2d 20 63 63 6f 6e 64 69 73 73 65 63 .! - ccondissec
64c0: 74 20 2d 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f t - concatenatio
64d0: 6e 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 20 n subexpression
64e0: 6d 61 74 63 68 65 73 20 28 77 69 74 68 20 63 6f matches (with co
64f0: 6d 70 6c 69 63 61 74 69 6f 6e 73 29 0a 21 20 20 mplications).!
6500: 5e 20 73 74 61 74 69 63 20 69 6e 74 20 63 63 6f ^ static int cco
6510: 6e 64 69 73 73 65 63 74 28 73 74 72 75 63 74 20 ndissect(struct
6520: 76 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 73 vars *, struct s
6530: 75 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 63 ubre *, chr *, c
6540: 68 72 20 2a 29 3b 0a 20 20 20 2a 2f 0a 20 20 73 hr *);. */. s
6550: 74 61 74 69 63 20 69 6e 74 09 09 09 2f 2a 20 72 tatic int.../* r
6560: 65 67 65 78 65 63 20 72 65 74 75 72 6e 20 63 6f egexec return co
6570: 64 65 20 2a 2f 0a 21 20 63 63 6f 6e 64 69 73 73 de */.! ccondiss
6580: 65 63 74 28 0a 20 20 20 20 20 20 73 74 72 75 63 ect(. struc
6590: 74 20 76 61 72 73 20 2a 63 6f 6e 73 74 20 76 2c t vars *const v,
65a0: 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 73 75 . struct su
65b0: 62 72 65 20 2a 63 6f 6e 73 74 20 74 2c 0a 20 20 bre *const t,.
65c0: 20 20 20 20 63 68 72 20 2a 63 6f 6e 73 74 20 62 chr *const b
65d0: 65 67 69 6e 2c 09 09 2f 2a 20 62 65 67 69 6e 6e egin,../* beginn
65e0: 69 6e 67 20 6f 66 20 72 65 6c 65 76 61 6e 74 20 ing of relevant
65f0: 73 75 62 73 74 72 69 6e 67 20 2a 2f 0a 2a 2a 2a substring */.***
6600: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d ************ com
6610: 70 6c 69 63 61 74 65 64 43 6f 6e 63 61 74 65 6e plicatedConcaten
6620: 61 74 69 6f 6e 44 69 73 73 65 63 74 28 0a 2a 2a ationDissect(.**
6630: 2a 20 38 34 32 2c 38 35 31 20 2a 2a 2a 2a 0a 20 * 842,851 ****.
6640: 20 20 20 20 20 61 73 73 65 72 74 28 74 2d 3e 6f assert(t->o
6650: 70 20 3d 3d 20 27 2e 27 29 3b 0a 20 20 20 20 20 p == '.');.
6660: 20 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 assert(t->left
6670: 21 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e 6c 65 != NULL && t->le
6680: 66 74 2d 3e 63 6e 66 61 2e 6e 73 74 61 74 65 73 ft->cnfa.nstates
6690: 20 3e 20 30 29 3b 0a 20 20 20 20 20 20 61 73 73 > 0);. ass
66a0: 65 72 74 28 74 2d 3e 72 69 67 68 74 20 21 3d 20 ert(t->right !=
66b0: 4e 55 4c 4c 20 26 26 20 74 2d 3e 72 69 67 68 74 NULL && t->right
66c0: 2d 3e 63 6e 66 61 2e 6e 73 74 61 74 65 73 20 3e ->cnfa.nstates >
66d0: 20 30 29 3b 0a 21 20 0a 21 20 20 20 20 20 69 66 0);.! .! if
66e0: 20 28 74 2d 3e 6c 65 66 74 2d 3e 66 6c 61 67 73 (t->left->flags
66f0: 26 53 48 4f 52 54 45 52 29 20 7b 20 2f 2a 20 72 &SHORTER) { /* r
6700: 65 76 65 72 73 65 20 73 63 61 6e 20 2a 2f 0a 21 everse scan */.!
6710: 20 09 72 65 74 75 72 6e 20 63 6f 6d 70 6c 69 63 .return complic
6720: 61 74 65 64 52 65 76 65 72 73 65 64 44 69 73 73 atedReversedDiss
6730: 65 63 74 28 76 2c 20 74 2c 20 62 65 67 69 6e 2c ect(v, t, begin,
6740: 20 65 6e 64 29 3b 0a 21 20 20 20 20 20 7d 0a 20 end);.! }.
6750: 20 0a 20 20 20 20 20 20 64 20 3d 20 6e 65 77 44 . d = newD
6760: 46 41 28 76 2c 20 26 74 2d 3e 6c 65 66 74 2d 3e FA(v, &t->left->
6770: 63 6e 66 61 2c 20 26 76 2d 3e 67 2d 3e 63 6d 61 cnfa, &v->g->cma
6780: 70 2c 20 44 4f 4d 41 4c 4c 4f 43 29 3b 0a 20 20 p, DOMALLOC);.
6790: 20 20 20 20 69 66 20 28 49 53 45 52 52 28 29 29 if (ISERR())
67a0: 20 7b 0a 2d 2d 2d 20 36 35 32 2c 36 35 38 20 2d {.--- 652,658 -
67b0: 2d 2d 2d 0a 20 20 20 20 20 20 61 73 73 65 72 74 ---. assert
67c0: 28 74 2d 3e 6f 70 20 3d 3d 20 27 2e 27 29 3b 0a (t->op == '.');.
67d0: 20 20 20 20 20 20 61 73 73 65 72 74 28 74 2d 3e assert(t->
67e0: 6c 65 66 74 20 21 3d 20 4e 55 4c 4c 20 26 26 20 left != NULL &&
67f0: 74 2d 3e 6c 65 66 74 2d 3e 63 6e 66 61 2e 6e 73 t->left->cnfa.ns
6800: 74 61 74 65 73 20 3e 20 30 29 3b 0a 20 20 20 20 tates > 0);.
6810: 20 20 61 73 73 65 72 74 28 74 2d 3e 72 69 67 68 assert(t->righ
6820: 74 20 21 3d 20 4e 55 4c 4c 20 26 26 20 74 2d 3e t != NULL && t->
6830: 72 69 67 68 74 2d 3e 63 6e 66 61 2e 6e 73 74 61 right->cnfa.nsta
6840: 74 65 73 20 3e 20 30 29 3b 0a 21 20 20 20 20 20 tes > 0);.!
6850: 61 73 73 65 72 74 28 21 28 74 2d 3e 6c 65 66 74 assert(!(t->left
6860: 2d 3e 66 6c 61 67 73 20 26 20 53 48 4f 52 54 45 ->flags & SHORTE
6870: 52 29 29 3b 0a 20 20 0a 20 20 20 20 20 20 64 20 R));. . d
6880: 3d 20 6e 65 77 44 46 41 28 76 2c 20 26 74 2d 3e = newDFA(v, &t->
6890: 6c 65 66 74 2d 3e 63 6e 66 61 2c 20 26 76 2d 3e left->cnfa, &v->
68a0: 67 2d 3e 63 6d 61 70 2c 20 44 4f 4d 41 4c 4c 4f g->cmap, DOMALLO
68b0: 43 29 3b 0a 20 20 20 20 20 20 69 66 20 28 49 53 C);. if (IS
68c0: 45 52 52 28 29 29 20 7b 0a 2a 2a 2a 2a 2a 2a 2a ERR()) {.*******
68d0: 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c 69 63 ******** complic
68e0: 61 74 65 64 43 6f 6e 63 61 74 65 6e 61 74 69 6f atedConcatenatio
68f0: 6e 44 69 73 73 65 63 74 28 0a 2a 2a 2a 20 38 35 nDissect(.*** 85
6900: 36 2c 38 38 30 20 2a 2a 2a 2a 0a 20 20 09 66 72 6,880 ****. .fr
6910: 65 65 44 46 41 28 64 29 3b 0a 20 20 09 72 65 74 eeDFA(d);. .ret
6920: 75 72 6e 20 76 2d 3e 65 72 72 3b 0a 20 20 20 20 urn v->err;.
6930: 20 20 7d 0a 21 20 20 20 20 20 4d 44 45 42 55 47 }.! MDEBUG
6940: 28 28 22 63 43 6f 6e 63 61 74 20 25 64 5c 6e 22 (("cConcat %d\n"
6950: 2c 20 74 2d 3e 72 65 74 72 79 29 29 3b 0a 20 20 , t->retry));.
6960: 0a 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 . /*.
6970: 20 2a 20 50 69 63 6b 20 61 20 74 65 6e 74 61 74 * Pick a tentat
6980: 69 76 65 20 6d 69 64 70 6f 69 6e 74 2e 0a 20 20 ive midpoint..
6990: 20 20 20 20 20 2a 2f 0a 21 20 0a 21 20 20 20 20 */.! .!
69a0: 20 69 66 20 28 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 if (v->mem[t->r
69b0: 65 74 72 79 5d 20 3d 3d 20 30 29 20 7b 0a 21 20 etry] == 0) {.!
69c0: 09 6d 69 64 20 3d 20 6c 6f 6e 67 65 73 74 28 76 .mid = longest(v
69d0: 2c 20 64 2c 20 62 65 67 69 6e 2c 20 65 6e 64 2c , d, begin, end,
69e0: 20 4e 55 4c 4c 29 3b 0a 21 20 09 69 66 20 28 6d NULL);.! .if (m
69f0: 69 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 id == NULL) {.!
6a00: 09 20 20 20 20 66 72 65 65 44 46 41 28 64 29 3b . freeDFA(d);
6a10: 0a 21 20 09 20 20 20 20 66 72 65 65 44 46 41 28 .! . freeDFA(
6a20: 64 32 29 3b 0a 21 20 09 20 20 20 20 72 65 74 75 d2);.! . retu
6a30: 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a rn REG_NOMATCH;.
6a40: 21 20 09 7d 0a 21 20 09 4d 44 45 42 55 47 28 28 ! .}.! .MDEBUG((
6a50: 22 74 65 6e 74 61 74 69 76 65 20 6d 69 64 70 6f "tentative midpo
6a60: 69 6e 74 20 25 6c 64 5c 6e 22 2c 20 4c 4f 46 46 int %ld\n", LOFF
6a70: 28 6d 69 64 29 29 29 3b 0a 21 20 09 76 2d 3e 6d (mid)));.! .v->m
6a80: 65 6d 5b 74 2d 3e 72 65 74 72 79 5d 20 3d 20 28 em[t->retry] = (
6a90: 6d 69 64 20 2d 20 62 65 67 69 6e 29 20 2b 20 31 mid - begin) + 1
6aa0: 3b 0a 21 20 20 20 20 20 7d 20 65 6c 73 65 20 7b ;.! } else {
6ab0: 0a 21 20 09 6d 69 64 20 3d 20 62 65 67 69 6e 20 .! .mid = begin
6ac0: 2b 20 28 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 65 74 + (v->mem[t->ret
6ad0: 72 79 5d 20 2d 20 31 29 3b 0a 21 20 09 4d 44 45 ry] - 1);.! .MDE
6ae0: 42 55 47 28 28 22 77 6f 72 6b 69 6e 67 20 6d 69 BUG(("working mi
6af0: 64 70 6f 69 6e 74 20 25 6c 64 5c 6e 22 2c 20 4c dpoint %ld\n", L
6b00: 4f 46 46 28 6d 69 64 29 29 29 3b 0a 20 20 20 20 OFF(mid)));.
6b10: 20 20 7d 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a }. . /*.
6b20: 20 20 20 20 20 20 20 2a 20 49 74 65 72 61 74 65 * Iterate
6b30: 20 75 6e 74 69 6c 20 73 61 74 69 73 66 61 63 74 until satisfact
6b40: 69 6f 6e 20 6f 72 20 66 61 69 6c 75 72 65 2e 0a ion or failure..
6b50: 2d 2d 2d 20 36 36 33 2c 36 38 30 20 2d 2d 2d 2d --- 663,680 ----
6b60: 0a 20 20 09 66 72 65 65 44 46 41 28 64 29 3b 0a . .freeDFA(d);.
6b70: 20 20 09 72 65 74 75 72 6e 20 76 2d 3e 65 72 72 .return v->err
6b80: 3b 0a 20 20 20 20 20 20 7d 0a 21 20 20 20 20 20 ;. }.!
6b90: 4d 44 45 42 55 47 28 28 22 63 43 6f 6e 63 61 74 MDEBUG(("cConcat
6ba0: 20 25 64 5c 6e 22 2c 20 74 2d 3e 69 64 29 29 3b %d\n", t->id));
6bb0: 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a 20 20 20 . . /*.
6bc0: 20 20 20 20 2a 20 50 69 63 6b 20 61 20 74 65 6e * Pick a ten
6bd0: 74 61 74 69 76 65 20 6d 69 64 70 6f 69 6e 74 2e tative midpoint.
6be0: 0a 20 20 20 20 20 20 20 2a 2f 0a 21 20 20 20 20 . */.!
6bf0: 20 6d 69 64 20 3d 20 6c 6f 6e 67 65 73 74 28 76 mid = longest(v
6c00: 2c 20 64 2c 20 62 65 67 69 6e 2c 20 65 6e 64 2c , d, begin, end,
6c10: 20 28 69 6e 74 20 2a 29 20 4e 55 4c 4c 29 3b 0a (int *) NULL);.
6c20: 21 20 20 20 20 20 69 66 20 28 6d 69 64 20 3d 3d ! if (mid ==
6c30: 20 4e 55 4c 4c 29 20 7b 0a 21 20 09 66 72 65 65 NULL) {.! .free
6c40: 44 46 41 28 64 29 3b 0a 21 20 09 66 72 65 65 44 DFA(d);.! .freeD
6c50: 46 41 28 64 32 29 3b 0a 21 20 09 72 65 74 75 72 FA(d2);.! .retur
6c60: 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a 20 n REG_NOMATCH;.
6c70: 20 20 20 20 20 7d 0a 2b 20 20 20 20 20 4d 44 45 }.+ MDE
6c80: 42 55 47 28 28 22 74 65 6e 74 61 74 69 76 65 20 BUG(("tentative
6c90: 6d 69 64 70 6f 69 6e 74 20 25 6c 64 5c 6e 22 2c midpoint %ld\n",
6ca0: 20 4c 4f 46 46 28 6d 69 64 29 29 29 3b 0a 20 20 LOFF(mid)));.
6cb0: 0a 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 . /*.
6cc0: 20 2a 20 49 74 65 72 61 74 65 20 75 6e 74 69 6c * Iterate until
6cd0: 20 73 61 74 69 73 66 61 63 74 69 6f 6e 20 6f 72 satisfaction or
6ce0: 20 66 61 69 6c 75 72 65 2e 0a 2a 2a 2a 2a 2a 2a failure..******
6cf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c 69 ********* compli
6d00: 63 61 74 65 64 43 6f 6e 63 61 74 65 6e 61 74 69 catedConcatenati
6d10: 6f 6e 44 69 73 73 65 63 74 28 0a 2a 2a 2a 20 38 onDissect(.*** 8
6d20: 38 36 2c 38 39 35 20 2a 2a 2a 2a 0a 20 20 09 20 86,895 ****. .
6d30: 2a 2f 0a 20 20 0a 20 20 09 69 66 20 28 6c 6f 6e */. . .if (lon
6d40: 67 65 73 74 28 76 2c 20 64 32 2c 20 6d 69 64 2c gest(v, d2, mid,
6d50: 20 65 6e 64 2c 20 4e 55 4c 4c 29 20 3d 3d 20 65 end, NULL) == e
6d60: 6e 64 29 20 7b 0a 21 20 09 20 20 20 20 69 6e 74 nd) {.! . int
6d70: 20 65 72 20 3d 20 63 6f 6d 70 6c 69 63 61 74 65 er = complicate
6d80: 64 44 69 73 73 65 63 74 28 76 2c 20 74 2d 3e 6c dDissect(v, t->l
6d90: 65 66 74 2c 20 62 65 67 69 6e 2c 20 6d 69 64 29 eft, begin, mid)
6da0: 3b 0a 20 20 0a 20 20 09 20 20 20 20 69 66 20 28 ;. . . if (
6db0: 65 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 er == REG_OKAY)
6dc0: 7b 0a 21 20 09 09 65 72 20 3d 20 63 6f 6d 70 6c {.! ..er = compl
6dd0: 69 63 61 74 65 64 44 69 73 73 65 63 74 28 76 2c icatedDissect(v,
6de0: 20 74 2d 3e 72 69 67 68 74 2c 20 6d 69 64 2c 20 t->right, mid,
6df0: 65 6e 64 29 3b 0a 20 20 09 09 69 66 20 28 65 72 end);. ..if (er
6e00: 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 7b 0a == REG_OKAY) {.
6e10: 20 20 09 09 20 20 20 20 2f 2a 0a 20 20 09 09 20 .. /*. ..
6e20: 20 20 20 20 2a 20 53 61 74 69 73 66 61 63 74 69 * Satisfacti
6e30: 6f 6e 2e 0a 2d 2d 2d 20 36 38 36 2c 36 39 35 20 on..--- 686,695
6e40: 2d 2d 2d 2d 0a 20 20 09 20 2a 2f 0a 20 20 0a 20 ----. . */. .
6e50: 20 09 69 66 20 28 6c 6f 6e 67 65 73 74 28 76 2c .if (longest(v,
6e60: 20 64 32 2c 20 6d 69 64 2c 20 65 6e 64 2c 20 4e d2, mid, end, N
6e70: 55 4c 4c 29 20 3d 3d 20 65 6e 64 29 20 7b 0a 21 ULL) == end) {.!
6e80: 20 09 20 20 20 20 69 6e 74 20 65 72 20 3d 20 63 . int er = c
6e90: 64 69 73 73 65 63 74 28 76 2c 20 74 2d 3e 6c 65 dissect(v, t->le
6ea0: 66 74 2c 20 62 65 67 69 6e 2c 20 6d 69 64 29 3b ft, begin, mid);
6eb0: 0a 20 20 0a 20 20 09 20 20 20 20 69 66 20 28 65 . . . if (e
6ec0: 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 7b r == REG_OKAY) {
6ed0: 0a 21 20 09 09 65 72 20 3d 20 63 64 69 73 73 65 .! ..er = cdisse
6ee0: 63 74 28 76 2c 20 74 2d 3e 72 69 67 68 74 2c 20 ct(v, t->right,
6ef0: 6d 69 64 2c 20 65 6e 64 29 3b 0a 20 20 09 09 69 mid, end);. ..i
6f00: 66 20 28 65 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 f (er == REG_OKA
6f10: 59 29 20 7b 0a 20 20 09 09 20 20 20 20 2f 2a 0a Y) {. .. /*.
6f20: 20 20 09 09 20 20 20 20 20 2a 20 53 61 74 69 73 .. * Satis
6f30: 66 61 63 74 69 6f 6e 2e 0a 2a 2a 2a 2a 2a 2a 2a faction..*******
6f40: 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c 69 63 ******** complic
6f50: 61 74 65 64 43 6f 6e 63 61 74 65 6e 61 74 69 6f atedConcatenatio
6f60: 6e 44 69 73 73 65 63 74 28 0a 2a 2a 2a 20 39 30 nDissect(.*** 90
6f70: 31 2c 39 30 37 20 2a 2a 2a 2a 0a 20 20 09 09 20 1,907 ****. ..
6f80: 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f 4f 4b return REG_OK
6f90: 41 59 3b 0a 20 20 09 09 7d 0a 20 20 09 20 20 20 AY;. ..}. .
6fa0: 20 7d 0a 21 20 09 20 20 20 20 69 66 20 28 28 65 }.! . if ((e
6fb0: 72 20 21 3d 20 52 45 47 5f 4f 4b 41 59 29 20 26 r != REG_OKAY) &
6fc0: 26 20 28 65 72 20 21 3d 20 52 45 47 5f 4e 4f 4d & (er != REG_NOM
6fd0: 41 54 43 48 29 29 20 7b 0a 20 20 09 09 66 72 65 ATCH)) {. ..fre
6fe0: 65 44 46 41 28 64 29 3b 0a 20 20 09 09 66 72 65 eDFA(d);. ..fre
6ff0: 65 44 46 41 28 64 32 29 3b 0a 20 20 09 09 72 65 eDFA(d2);. ..re
7000: 74 75 72 6e 20 65 72 3b 0a 2d 2d 2d 20 37 30 31 turn er;.--- 701
7010: 2c 37 30 37 20 2d 2d 2d 2d 0a 20 20 09 09 20 20 ,707 ----. ..
7020: 20 20 72 65 74 75 72 6e 20 52 45 47 5f 4f 4b 41 return REG_OKA
7030: 59 3b 0a 20 20 09 09 7d 0a 20 20 09 20 20 20 20 Y;. ..}. .
7040: 7d 0a 21 20 09 20 20 20 20 69 66 20 28 65 72 20 }.! . if (er
7050: 21 3d 20 52 45 47 5f 4e 4f 4d 41 54 43 48 29 20 != REG_NOMATCH)
7060: 7b 0a 20 20 09 09 66 72 65 65 44 46 41 28 64 29 {. ..freeDFA(d)
7070: 3b 0a 20 20 09 09 66 72 65 65 44 46 41 28 64 32 ;. ..freeDFA(d2
7080: 29 3b 0a 20 20 09 09 72 65 74 75 72 6e 20 65 72 );. ..return er
7090: 3b 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.**************
70a0: 2a 20 63 6f 6d 70 6c 69 63 61 74 65 64 43 6f 6e * complicatedCon
70b0: 63 61 74 65 6e 61 74 69 6f 6e 44 69 73 73 65 63 catenationDissec
70c0: 74 28 0a 2a 2a 2a 20 39 31 37 2c 39 32 33 20 2a t(.*** 917,923 *
70d0: 2a 2a 2a 0a 20 20 09 20 20 20 20 20 2a 20 41 6c ***. . * Al
70e0: 6c 20 70 6f 73 73 69 62 69 6c 69 74 69 65 73 20 l possibilities
70f0: 65 78 68 61 75 73 74 65 64 2e 0a 20 20 09 20 20 exhausted.. .
7100: 20 20 20 2a 2f 0a 20 20 0a 21 20 09 20 20 20 20 */. .! .
7110: 4d 44 45 42 55 47 28 28 22 25 64 20 6e 6f 20 6d MDEBUG(("%d no m
7120: 69 64 70 6f 69 6e 74 5c 6e 22 2c 20 74 2d 3e 72 idpoint\n", t->r
7130: 65 74 72 79 29 29 3b 0a 20 20 09 20 20 20 20 66 etry));. . f
7140: 72 65 65 44 46 41 28 64 29 3b 0a 20 20 09 20 20 reeDFA(d);. .
7150: 20 20 66 72 65 65 44 46 41 28 64 32 29 3b 0a 20 freeDFA(d2);.
7160: 20 09 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 . return REG
7170: 5f 4e 4f 4d 41 54 43 48 3b 0a 2d 2d 2d 20 37 31 _NOMATCH;.--- 71
7180: 37 2c 37 32 33 20 2d 2d 2d 2d 0a 20 20 09 20 20 7,723 ----. .
7190: 20 20 20 2a 20 41 6c 6c 20 70 6f 73 73 69 62 69 * All possibi
71a0: 6c 69 74 69 65 73 20 65 78 68 61 75 73 74 65 64 lities exhausted
71b0: 2e 0a 20 20 09 20 20 20 20 20 2a 2f 0a 20 20 0a .. . */. .
71c0: 21 20 09 20 20 20 20 4d 44 45 42 55 47 28 28 22 ! . MDEBUG(("
71d0: 25 64 20 6e 6f 20 6d 69 64 70 6f 69 6e 74 5c 6e %d no midpoint\n
71e0: 22 2c 20 74 2d 3e 69 64 29 29 3b 0a 20 20 09 20 ", t->id));. .
71f0: 20 20 20 66 72 65 65 44 46 41 28 64 29 3b 0a 20 freeDFA(d);.
7200: 20 09 20 20 20 20 66 72 65 65 44 46 41 28 64 32 . freeDFA(d2
7210: 29 3b 0a 20 20 09 20 20 20 20 72 65 74 75 72 6e );. . return
7220: 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a 2a 2a REG_NOMATCH;.**
7230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f ************* co
7240: 6d 70 6c 69 63 61 74 65 64 43 6f 6e 63 61 74 65 mplicatedConcate
7250: 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 28 0a 2a nationDissect(.*
7260: 2a 2a 20 39 32 38 2c 39 35 34 20 2a 2a 2a 2a 0a ** 928,954 ****.
7270: 20 20 09 20 20 20 20 20 2a 20 46 61 69 6c 65 64 . * Failed
7280: 20 74 6f 20 66 69 6e 64 20 61 20 6e 65 77 20 6f to find a new o
7290: 6e 65 2e 0a 20 20 09 20 20 20 20 20 2a 2f 0a 20 ne.. . */.
72a0: 20 0a 21 20 09 20 20 20 20 4d 44 45 42 55 47 28 .! . MDEBUG(
72b0: 28 22 25 64 20 66 61 69 6c 65 64 20 6d 69 64 70 ("%d failed midp
72c0: 6f 69 6e 74 5c 6e 22 2c 20 74 2d 3e 72 65 74 72 oint\n", t->retr
72d0: 79 29 29 3b 0a 20 20 09 20 20 20 20 66 72 65 65 y));. . free
72e0: 44 46 41 28 64 29 3b 0a 20 20 09 20 20 20 20 66 DFA(d);. . f
72f0: 72 65 65 44 46 41 28 64 32 29 3b 0a 20 20 09 20 reeDFA(d2);. .
7300: 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f 4e 4f return REG_NO
7310: 4d 41 54 43 48 3b 0a 20 20 09 7d 0a 21 20 09 4d MATCH;. .}.! .M
7320: 44 45 42 55 47 28 28 22 25 64 3a 20 6e 65 77 20 DEBUG(("%d: new
7330: 6d 69 64 70 6f 69 6e 74 20 25 6c 64 5c 6e 22 2c midpoint %ld\n",
7340: 20 74 2d 3e 72 65 74 72 79 2c 20 4c 4f 46 46 28 t->retry, LOFF(
7350: 6d 69 64 29 29 29 3b 0a 21 20 09 76 2d 3e 6d 65 mid)));.! .v->me
7360: 6d 5b 74 2d 3e 72 65 74 72 79 5d 20 3d 20 28 6d m[t->retry] = (m
7370: 69 64 20 2d 20 62 65 67 69 6e 29 20 2b 20 31 3b id - begin) + 1;
7380: 0a 21 20 09 7a 61 70 53 75 62 74 72 65 65 28 76 .! .zapSubtree(v
7390: 2c 20 74 2d 3e 6c 65 66 74 29 3b 0a 21 20 09 7a , t->left);.! .z
73a0: 61 70 53 75 62 74 72 65 65 28 76 2c 20 74 2d 3e apSubtree(v, t->
73b0: 72 69 67 68 74 29 3b 0a 20 20 20 20 20 20 7d 0a right);. }.
73c0: 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a 0a 21 20 20 }. .. /*.!
73d0: 2d 20 63 6f 6d 70 6c 69 63 61 74 65 64 52 65 76 - complicatedRev
73e0: 65 72 73 65 64 44 69 73 73 65 63 74 20 2d 20 64 ersedDissect - d
73f0: 65 74 65 72 6d 69 6e 65 20 62 61 63 6b 72 65 66 etermine backref
7400: 20 73 68 6f 72 74 65 73 74 2d 66 69 72 73 74 20 shortest-first
7410: 73 75 62 65 78 70 72 65 73 73 69 6f 6e 0a 21 20 subexpression.!
7420: 20 2d 20 6d 61 74 63 68 65 73 0a 21 20 20 2a 20 - matches.! *
7430: 54 68 65 20 72 65 74 72 79 20 6d 65 6d 6f 72 79 The retry memory
7440: 20 73 74 6f 72 65 73 20 74 68 65 20 6f 66 66 73 stores the offs
7450: 65 74 20 6f 66 20 74 68 65 20 74 72 69 61 6c 20 et of the trial
7460: 6d 69 64 70 6f 69 6e 74 20 66 72 6f 6d 20 62 65 midpoint from be
7470: 67 69 6e 2c 20 70 6c 75 73 20 31 0a 21 20 20 2a gin, plus 1.! *
7480: 20 73 6f 20 74 68 61 74 20 30 20 75 6e 69 71 75 so that 0 uniqu
7490: 65 6c 79 20 6d 65 61 6e 73 20 22 63 6c 65 61 6e ely means "clean
74a0: 20 73 6c 61 74 65 22 2e 0a 21 20 20 5e 20 73 74 slate"..! ^ st
74b0: 61 74 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 63 atic int complic
74c0: 61 74 65 64 52 65 76 65 72 73 65 64 44 69 73 73 atedReversedDiss
74d0: 65 63 74 28 73 74 72 75 63 74 20 76 61 72 73 20 ect(struct vars
74e0: 2a 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 20 *, struct subre
74f0: 2a 2c 20 63 68 72 20 2a 2c 20 63 68 72 20 2a 29 *, chr *, chr *)
7500: 3b 0a 20 20 20 2a 2f 0a 20 20 73 74 61 74 69 63 ;. */. static
7510: 20 69 6e 74 09 09 09 2f 2a 20 72 65 67 65 78 65 int.../* regexe
7520: 63 20 72 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f c return code */
7530: 0a 21 20 63 6f 6d 70 6c 69 63 61 74 65 64 52 65 .! complicatedRe
7540: 76 65 72 73 65 64 44 69 73 73 65 63 74 28 0a 20 versedDissect(.
7550: 20 20 20 20 20 73 74 72 75 63 74 20 76 61 72 73 struct vars
7560: 20 2a 63 6f 6e 73 74 20 76 2c 0a 20 20 20 20 20 *const v,.
7570: 20 73 74 72 75 63 74 20 73 75 62 72 65 20 2a 63 struct subre *c
7580: 6f 6e 73 74 20 74 2c 0a 20 20 20 20 20 20 63 68 onst t,. ch
7590: 72 20 2a 63 6f 6e 73 74 20 62 65 67 69 6e 2c 09 r *const begin,.
75a0: 09 2f 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 ./* beginning of
75b0: 20 72 65 6c 65 76 61 6e 74 20 73 75 62 73 74 72 relevant substr
75c0: 69 6e 67 20 2a 2f 0a 2d 2d 2d 20 37 32 38 2c 37 ing */.--- 728,7
75d0: 35 30 20 2d 2d 2d 2d 0a 20 20 09 20 20 20 20 20 50 ----. .
75e0: 2a 20 46 61 69 6c 65 64 20 74 6f 20 66 69 6e 64 * Failed to find
75f0: 20 61 20 6e 65 77 20 6f 6e 65 2e 0a 20 20 09 20 a new one.. .
7600: 20 20 20 20 2a 2f 0a 20 20 0a 21 20 09 20 20 20 */. .! .
7610: 20 4d 44 45 42 55 47 28 28 22 25 64 20 66 61 69 MDEBUG(("%d fai
7620: 6c 65 64 20 6d 69 64 70 6f 69 6e 74 5c 6e 22 2c led midpoint\n",
7630: 20 74 2d 3e 69 64 29 29 3b 0a 20 20 09 20 20 20 t->id));. .
7640: 20 66 72 65 65 44 46 41 28 64 29 3b 0a 20 20 09 freeDFA(d);. .
7650: 20 20 20 20 66 72 65 65 44 46 41 28 64 32 29 3b freeDFA(d2);
7660: 0a 20 20 09 20 20 20 20 72 65 74 75 72 6e 20 52 . . return R
7670: 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a 20 20 09 7d EG_NOMATCH;. .}
7680: 0a 21 20 09 4d 44 45 42 55 47 28 28 22 25 64 3a .! .MDEBUG(("%d:
7690: 20 6e 65 77 20 6d 69 64 70 6f 69 6e 74 20 25 6c new midpoint %l
76a0: 64 5c 6e 22 2c 20 74 2d 3e 69 64 2c 20 4c 4f 46 d\n", t->id, LOF
76b0: 46 28 6d 69 64 29 29 29 3b 0a 21 20 09 7a 61 70 F(mid)));.! .zap
76c0: 74 72 65 65 73 75 62 73 28 76 2c 20 74 2d 3e 6c treesubs(v, t->l
76d0: 65 66 74 29 3b 0a 21 20 09 7a 61 70 74 72 65 65 eft);.! .zaptree
76e0: 73 75 62 73 28 76 2c 20 74 2d 3e 72 69 67 68 74 subs(v, t->right
76f0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 7d 0a 20 );. }. }.
7700: 20 0c 0a 20 20 2f 2a 0a 21 20 20 2d 20 63 72 65 .. /*.! - cre
7710: 76 63 6f 6e 64 69 73 73 65 63 74 20 2d 20 64 69 vcondissect - di
7720: 73 73 65 63 74 20 6d 61 74 63 68 20 66 6f 72 20 ssect match for
7730: 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6e 6f concatenation no
7740: 64 65 2c 20 73 68 6f 72 74 65 73 74 2d 66 69 72 de, shortest-fir
7750: 73 74 0a 21 20 20 5e 20 73 74 61 74 69 63 20 69 st.! ^ static i
7760: 6e 74 20 63 72 65 76 63 6f 6e 64 69 73 73 65 63 nt crevcondissec
7770: 74 28 73 74 72 75 63 74 20 76 61 72 73 20 2a 2c t(struct vars *,
7780: 20 73 74 72 75 63 74 20 73 75 62 72 65 20 2a 2c struct subre *,
7790: 20 63 68 72 20 2a 2c 20 63 68 72 20 2a 29 3b 0a chr *, chr *);.
77a0: 20 20 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 69 */. static i
77b0: 6e 74 09 09 09 2f 2a 20 72 65 67 65 78 65 63 20 nt.../* regexec
77c0: 72 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 return code */.!
77d0: 20 63 72 65 76 63 6f 6e 64 69 73 73 65 63 74 28 crevcondissect(
77e0: 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 76 61 . struct va
77f0: 72 73 20 2a 63 6f 6e 73 74 20 76 2c 0a 20 20 20 rs *const v,.
7800: 20 20 20 73 74 72 75 63 74 20 73 75 62 72 65 20 struct subre
7810: 2a 63 6f 6e 73 74 20 74 2c 0a 20 20 20 20 20 20 *const t,.
7820: 63 68 72 20 2a 63 6f 6e 73 74 20 62 65 67 69 6e chr *const begin
7830: 2c 09 09 2f 2a 20 62 65 67 69 6e 6e 69 6e 67 20 ,../* beginning
7840: 6f 66 20 72 65 6c 65 76 61 6e 74 20 73 75 62 73 of relevant subs
7850: 74 72 69 6e 67 20 2a 2f 0a 2a 2a 2a 2a 2a 2a 2a tring */.*******
7860: 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c 69 63 ******** complic
7870: 61 74 65 64 52 65 76 65 72 73 65 64 44 69 73 73 atedReversedDiss
7880: 65 63 74 28 0a 2a 2a 2a 20 39 36 32 2c 39 37 31 ect(.*** 962,971
7890: 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 61 73 73 65 ****. asse
78a0: 72 74 28 74 2d 3e 72 69 67 68 74 20 21 3d 20 4e rt(t->right != N
78b0: 55 4c 4c 20 26 26 20 74 2d 3e 72 69 67 68 74 2d ULL && t->right-
78c0: 3e 63 6e 66 61 2e 6e 73 74 61 74 65 73 20 3e 20 >cnfa.nstates >
78d0: 30 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 0);. assert
78e0: 28 74 2d 3e 6c 65 66 74 2d 3e 66 6c 61 67 73 26 (t->left->flags&
78f0: 53 48 4f 52 54 45 52 29 3b 0a 20 20 0a 2d 20 20 SHORTER);. .-
7900: 20 20 20 2f 2a 0a 2d 20 20 20 20 20 20 2a 20 43 /*.- * C
7910: 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 2d 2d 20 oncatenation --
7920: 6e 65 65 64 20 74 6f 20 73 70 6c 69 74 20 74 68 need to split th
7930: 65 20 73 75 62 73 74 72 69 6e 67 20 62 65 74 77 e substring betw
7940: 65 65 6e 20 70 61 72 74 73 2e 0a 2d 20 20 20 20 een parts..-
7950: 20 20 2a 2f 0a 2d 20 0a 20 20 20 20 20 20 64 20 */.- . d
7960: 3d 20 6e 65 77 44 46 41 28 76 2c 20 26 74 2d 3e = newDFA(v, &t->
7970: 6c 65 66 74 2d 3e 63 6e 66 61 2c 20 26 76 2d 3e left->cnfa, &v->
7980: 67 2d 3e 63 6d 61 70 2c 20 44 4f 4d 41 4c 4c 4f g->cmap, DOMALLO
7990: 43 29 3b 0a 20 20 20 20 20 20 69 66 20 28 49 53 C);. if (IS
79a0: 45 52 52 28 29 29 20 7b 0a 20 20 09 72 65 74 75 ERR()) {. .retu
79b0: 72 6e 20 76 2d 3e 65 72 72 3b 0a 2d 2d 2d 20 37 rn v->err;.--- 7
79c0: 35 38 2c 37 36 33 20 2d 2d 2d 2d 0a 2a 2a 2a 2a 58,763 ----.****
79d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 *********** comp
79e0: 6c 69 63 61 74 65 64 52 65 76 65 72 73 65 64 44 licatedReversedD
79f0: 69 73 73 65 63 74 28 0a 2a 2a 2a 20 39 37 35 2c issect(.*** 975,
7a00: 39 39 39 20 2a 2a 2a 2a 0a 20 20 09 66 72 65 65 999 ****. .free
7a10: 44 46 41 28 64 29 3b 0a 20 20 09 72 65 74 75 72 DFA(d);. .retur
7a20: 6e 20 76 2d 3e 65 72 72 3b 0a 20 20 20 20 20 20 n v->err;.
7a30: 7d 0a 21 20 20 20 20 20 4d 44 45 42 55 47 28 28 }.! MDEBUG((
7a40: 22 63 52 65 76 20 25 64 5c 6e 22 2c 20 74 2d 3e "cRev %d\n", t->
7a50: 72 65 74 72 79 29 29 3b 0a 20 20 0a 20 20 20 20 retry));. .
7a60: 20 20 2f 2a 0a 20 20 20 20 20 20 20 2a 20 50 69 /*. * Pi
7a70: 63 6b 20 61 20 74 65 6e 74 61 74 69 76 65 20 6d ck a tentative m
7a80: 69 64 70 6f 69 6e 74 2e 0a 20 20 20 20 20 20 20 idpoint..
7a90: 2a 2f 0a 20 20 0a 21 20 20 20 20 20 69 66 20 28 */. .! if (
7aa0: 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 65 74 72 79 5d v->mem[t->retry]
7ab0: 20 3d 3d 20 30 29 20 7b 0a 21 20 09 6d 69 64 20 == 0) {.! .mid
7ac0: 3d 20 73 68 6f 72 74 65 73 74 28 76 2c 20 64 2c = shortest(v, d,
7ad0: 20 62 65 67 69 6e 2c 20 62 65 67 69 6e 2c 20 65 begin, begin, e
7ae0: 6e 64 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b nd, NULL, NULL);
7af0: 0a 21 20 09 69 66 20 28 6d 69 64 20 3d 3d 20 4e .! .if (mid == N
7b00: 55 4c 4c 29 20 7b 0a 21 20 09 20 20 20 20 66 72 ULL) {.! . fr
7b10: 65 65 44 46 41 28 64 29 3b 0a 21 20 09 20 20 20 eeDFA(d);.! .
7b20: 20 66 72 65 65 44 46 41 28 64 32 29 3b 0a 21 20 freeDFA(d2);.!
7b30: 09 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f . return REG_
7b40: 4e 4f 4d 41 54 43 48 3b 0a 21 20 09 7d 0a 21 20 NOMATCH;.! .}.!
7b50: 09 4d 44 45 42 55 47 28 28 22 74 65 6e 74 61 74 .MDEBUG(("tentat
7b60: 69 76 65 20 6d 69 64 70 6f 69 6e 74 20 25 6c 64 ive midpoint %ld
7b70: 5c 6e 22 2c 20 4c 4f 46 46 28 6d 69 64 29 29 29 \n", LOFF(mid)))
7b80: 3b 0a 21 20 09 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 ;.! .v->mem[t->r
7b90: 65 74 72 79 5d 20 3d 20 28 6d 69 64 20 2d 20 62 etry] = (mid - b
7ba0: 65 67 69 6e 29 20 2b 20 31 3b 0a 21 20 20 20 20 egin) + 1;.!
7bb0: 20 7d 20 65 6c 73 65 20 7b 0a 21 20 09 6d 69 64 } else {.! .mid
7bc0: 20 3d 20 62 65 67 69 6e 20 2b 20 28 76 2d 3e 6d = begin + (v->m
7bd0: 65 6d 5b 74 2d 3e 72 65 74 72 79 5d 20 2d 20 31 em[t->retry] - 1
7be0: 29 3b 0a 21 20 09 4d 44 45 42 55 47 28 28 22 77 );.! .MDEBUG(("w
7bf0: 6f 72 6b 69 6e 67 20 6d 69 64 70 6f 69 6e 74 20 orking midpoint
7c00: 25 6c 64 5c 6e 22 2c 20 4c 4f 46 46 28 6d 69 64 %ld\n", LOFF(mid
7c10: 29 29 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 0a )));. }. .
7c20: 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 /*.
7c30: 2a 20 49 74 65 72 61 74 65 20 75 6e 74 69 6c 20 * Iterate until
7c40: 73 61 74 69 73 66 61 63 74 69 6f 6e 20 6f 72 20 satisfaction or
7c50: 66 61 69 6c 75 72 65 2e 0a 2d 2d 2d 20 37 36 37 failure..--- 767
7c60: 2c 37 38 35 20 2d 2d 2d 2d 0a 20 20 09 66 72 65 ,785 ----. .fre
7c70: 65 44 46 41 28 64 29 3b 0a 20 20 09 72 65 74 75 eDFA(d);. .retu
7c80: 72 6e 20 76 2d 3e 65 72 72 3b 0a 20 20 20 20 20 rn v->err;.
7c90: 20 7d 0a 21 20 20 20 20 20 4d 44 45 42 55 47 28 }.! MDEBUG(
7ca0: 28 22 63 72 65 76 63 6f 6e 20 25 64 5c 6e 22 2c ("crevcon %d\n",
7cb0: 20 74 2d 3e 69 64 29 29 3b 0a 20 20 0a 20 20 20 t->id));. .
7cc0: 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 2a 20 50 /*. * P
7cd0: 69 63 6b 20 61 20 74 65 6e 74 61 74 69 76 65 20 ick a tentative
7ce0: 6d 69 64 70 6f 69 6e 74 2e 0a 20 20 20 20 20 20 midpoint..
7cf0: 20 2a 2f 0a 20 20 0a 21 20 20 20 20 20 6d 69 64 */. .! mid
7d00: 20 3d 20 73 68 6f 72 74 65 73 74 28 76 2c 20 64 = shortest(v, d
7d10: 2c 20 62 65 67 69 6e 2c 20 62 65 67 69 6e 2c 20 , begin, begin,
7d20: 65 6e 64 2c 20 28 63 68 72 20 2a 2a 29 20 4e 55 end, (chr **) NU
7d30: 4c 4c 2c 20 28 69 6e 74 20 2a 29 20 4e 55 4c 4c LL, (int *) NULL
7d40: 29 3b 0a 21 20 20 20 20 20 69 66 20 28 6d 69 64 );.! if (mid
7d50: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 09 66 == NULL) {.! .f
7d60: 72 65 65 44 46 41 28 64 29 3b 0a 21 20 09 66 72 reeDFA(d);.! .fr
7d70: 65 65 44 46 41 28 64 32 29 3b 0a 21 20 09 72 65 eeDFA(d2);.! .re
7d80: 74 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 turn REG_NOMATCH
7d90: 3b 0a 20 20 20 20 20 20 7d 0a 2b 20 20 20 20 20 ;. }.+
7da0: 4d 44 45 42 55 47 28 28 22 74 65 6e 74 61 74 69 MDEBUG(("tentati
7db0: 76 65 20 6d 69 64 70 6f 69 6e 74 20 25 6c 64 5c ve midpoint %ld\
7dc0: 6e 22 2c 20 4c 4f 46 46 28 6d 69 64 29 29 29 3b n", LOFF(mid)));
7dd0: 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a 20 20 20 . . /*.
7de0: 20 20 20 20 2a 20 49 74 65 72 61 74 65 20 75 6e * Iterate un
7df0: 74 69 6c 20 73 61 74 69 73 66 61 63 74 69 6f 6e til satisfaction
7e00: 20 6f 72 20 66 61 69 6c 75 72 65 2e 0a 2a 2a 2a or failure..***
7e10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d ************ com
7e20: 70 6c 69 63 61 74 65 64 52 65 76 65 72 73 65 64 plicatedReversed
7e30: 44 69 73 73 65 63 74 28 0a 2a 2a 2a 20 31 30 30 Dissect(.*** 100
7e40: 35 2c 31 30 31 34 20 2a 2a 2a 2a 0a 20 20 09 20 5,1014 ****. .
7e50: 2a 2f 0a 20 20 0a 20 20 09 69 66 20 28 6c 6f 6e */. . .if (lon
7e60: 67 65 73 74 28 76 2c 20 64 32 2c 20 6d 69 64 2c gest(v, d2, mid,
7e70: 20 65 6e 64 2c 20 4e 55 4c 4c 29 20 3d 3d 20 65 end, NULL) == e
7e80: 6e 64 29 20 7b 0a 21 20 09 20 20 20 20 69 6e 74 nd) {.! . int
7e90: 20 65 72 20 3d 20 63 6f 6d 70 6c 69 63 61 74 65 er = complicate
7ea0: 64 44 69 73 73 65 63 74 28 76 2c 20 74 2d 3e 6c dDissect(v, t->l
7eb0: 65 66 74 2c 20 62 65 67 69 6e 2c 20 6d 69 64 29 eft, begin, mid)
7ec0: 3b 0a 20 20 0a 20 20 09 20 20 20 20 69 66 20 28 ;. . . if (
7ed0: 65 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 er == REG_OKAY)
7ee0: 7b 0a 21 20 09 09 65 72 20 3d 20 63 6f 6d 70 6c {.! ..er = compl
7ef0: 69 63 61 74 65 64 44 69 73 73 65 63 74 28 76 2c icatedDissect(v,
7f00: 20 74 2d 3e 72 69 67 68 74 2c 20 6d 69 64 2c 20 t->right, mid,
7f10: 65 6e 64 29 3b 0a 20 20 09 09 69 66 20 28 65 72 end);. ..if (er
7f20: 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 7b 0a == REG_OKAY) {.
7f30: 20 20 09 09 20 20 20 20 2f 2a 0a 20 20 09 09 20 .. /*. ..
7f40: 20 20 20 20 2a 20 53 61 74 69 73 66 61 63 74 69 * Satisfacti
7f50: 6f 6e 2e 0a 2d 2d 2d 20 37 39 31 2c 38 30 30 20 on..--- 791,800
7f60: 2d 2d 2d 2d 0a 20 20 09 20 2a 2f 0a 20 20 0a 20 ----. . */. .
7f70: 20 09 69 66 20 28 6c 6f 6e 67 65 73 74 28 76 2c .if (longest(v,
7f80: 20 64 32 2c 20 6d 69 64 2c 20 65 6e 64 2c 20 4e d2, mid, end, N
7f90: 55 4c 4c 29 20 3d 3d 20 65 6e 64 29 20 7b 0a 21 ULL) == end) {.!
7fa0: 20 09 20 20 20 20 69 6e 74 20 65 72 20 3d 20 63 . int er = c
7fb0: 64 69 73 73 65 63 74 28 76 2c 20 74 2d 3e 6c 65 dissect(v, t->le
7fc0: 66 74 2c 20 62 65 67 69 6e 2c 20 6d 69 64 29 3b ft, begin, mid);
7fd0: 0a 20 20 0a 20 20 09 20 20 20 20 69 66 20 28 65 . . . if (e
7fe0: 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 7b r == REG_OKAY) {
7ff0: 0a 21 20 09 09 65 72 20 3d 20 63 64 69 73 73 65 .! ..er = cdisse
8000: 63 74 28 76 2c 20 74 2d 3e 72 69 67 68 74 2c 20 ct(v, t->right,
8010: 6d 69 64 2c 20 65 6e 64 29 3b 0a 20 20 09 09 69 mid, end);. ..i
8020: 66 20 28 65 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 f (er == REG_OKA
8030: 59 29 20 7b 0a 20 20 09 09 20 20 20 20 2f 2a 0a Y) {. .. /*.
8040: 20 20 09 09 20 20 20 20 20 2a 20 53 61 74 69 73 .. * Satis
8050: 66 61 63 74 69 6f 6e 2e 0a 2a 2a 2a 2a 2a 2a 2a faction..*******
8060: 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c 69 63 ******** complic
8070: 61 74 65 64 52 65 76 65 72 73 65 64 44 69 73 73 atedReversedDiss
8080: 65 63 74 28 0a 2a 2a 2a 20 31 30 32 30 2c 31 30 ect(.*** 1020,10
8090: 32 36 20 2a 2a 2a 2a 0a 20 20 09 09 20 20 20 20 26 ****. ..
80a0: 72 65 74 75 72 6e 20 52 45 47 5f 4f 4b 41 59 3b return REG_OKAY;
80b0: 0a 20 20 09 09 7d 0a 20 20 09 20 20 20 20 7d 0a . ..}. . }.
80c0: 21 20 09 20 20 20 20 69 66 20 28 65 72 20 21 3d ! . if (er !=
80d0: 20 52 45 47 5f 4f 4b 41 59 20 26 26 20 65 72 20 REG_OKAY && er
80e0: 21 3d 20 52 45 47 5f 4e 4f 4d 41 54 43 48 29 20 != REG_NOMATCH)
80f0: 7b 0a 20 20 09 09 66 72 65 65 44 46 41 28 64 29 {. ..freeDFA(d)
8100: 3b 0a 20 20 09 09 66 72 65 65 44 46 41 28 64 32 ;. ..freeDFA(d2
8110: 29 3b 0a 20 20 09 09 72 65 74 75 72 6e 20 65 72 );. ..return er
8120: 3b 0a 2d 2d 2d 20 38 30 36 2c 38 31 32 20 2d 2d ;.--- 806,812 --
8130: 2d 2d 0a 20 20 09 09 20 20 20 20 72 65 74 75 72 --. .. retur
8140: 6e 20 52 45 47 5f 4f 4b 41 59 3b 0a 20 20 09 09 n REG_OKAY;. ..
8150: 7d 0a 20 20 09 20 20 20 20 7d 0a 21 20 09 20 20 }. . }.! .
8160: 20 20 69 66 20 28 65 72 20 21 3d 20 52 45 47 5f if (er != REG_
8170: 4e 4f 4d 41 54 43 48 29 20 7b 0a 20 20 09 09 66 NOMATCH) {. ..f
8180: 72 65 65 44 46 41 28 64 29 3b 0a 20 20 09 09 66 reeDFA(d);. ..f
8190: 72 65 65 44 46 41 28 64 32 29 3b 0a 20 20 09 09 reeDFA(d2);. ..
81a0: 72 65 74 75 72 6e 20 65 72 3b 0a 2a 2a 2a 2a 2a return er;.*****
81b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 63 6f 6d 70 6c ********** compl
81c0: 69 63 61 74 65 64 52 65 76 65 72 73 65 64 44 69 icatedReversedDi
81d0: 73 73 65 63 74 28 0a 2a 2a 2a 20 31 30 33 36 2c ssect(.*** 1036,
81e0: 31 30 34 32 20 2a 2a 2a 2a 0a 20 20 09 20 20 20 1042 ****. .
81f0: 20 20 2a 20 41 6c 6c 20 70 6f 73 73 69 62 69 6c * All possibil
8200: 69 74 69 65 73 20 65 78 68 61 75 73 74 65 64 2e ities exhausted.
8210: 0a 20 20 09 20 20 20 20 20 2a 2f 0a 20 20 0a 21 . . */. .!
8220: 20 09 20 20 20 20 4d 44 45 42 55 47 28 28 22 25 . MDEBUG(("%
8230: 64 20 6e 6f 20 6d 69 64 70 6f 69 6e 74 5c 6e 22 d no midpoint\n"
8240: 2c 20 74 2d 3e 72 65 74 72 79 29 29 3b 0a 20 20 , t->retry));.
8250: 09 20 20 20 20 66 72 65 65 44 46 41 28 64 29 3b . freeDFA(d);
8260: 0a 20 20 09 20 20 20 20 66 72 65 65 44 46 41 28 . . freeDFA(
8270: 64 32 29 3b 0a 20 20 09 20 20 20 20 72 65 74 75 d2);. . retu
8280: 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a rn REG_NOMATCH;.
8290: 2d 2d 2d 20 38 32 32 2c 38 32 38 20 2d 2d 2d 2d --- 822,828 ----
82a0: 0a 20 20 09 20 20 20 20 20 2a 20 41 6c 6c 20 70 . . * All p
82b0: 6f 73 73 69 62 69 6c 69 74 69 65 73 20 65 78 68 ossibilities exh
82c0: 61 75 73 74 65 64 2e 0a 20 20 09 20 20 20 20 20 austed.. .
82d0: 2a 2f 0a 20 20 0a 21 20 09 20 20 20 20 4d 44 45 */. .! . MDE
82e0: 42 55 47 28 28 22 25 64 20 6e 6f 20 6d 69 64 70 BUG(("%d no midp
82f0: 6f 69 6e 74 5c 6e 22 2c 20 74 2d 3e 69 64 29 29 oint\n", t->id))
8300: 3b 0a 20 20 09 20 20 20 20 66 72 65 65 44 46 41 ;. . freeDFA
8310: 28 64 29 3b 0a 20 20 09 20 20 20 20 66 72 65 65 (d);. . free
8320: 44 46 41 28 64 32 29 3b 0a 20 20 09 20 20 20 20 DFA(d2);. .
8330: 72 65 74 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 return REG_NOMAT
8340: 43 48 3b 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a CH;.************
8350: 2a 2a 2a 20 63 6f 6d 70 6c 69 63 61 74 65 64 52 *** complicatedR
8360: 65 76 65 72 73 65 64 44 69 73 73 65 63 74 28 0a eversedDissect(.
8370: 2a 2a 2a 20 31 30 34 37 2c 31 32 31 30 20 2a 2a *** 1047,1210 **
8380: 2a 2a 0a 20 20 09 20 20 20 20 20 2a 20 46 61 69 **. . * Fai
8390: 6c 65 64 20 74 6f 20 66 69 6e 64 20 61 20 6e 65 led to find a ne
83a0: 77 20 6f 6e 65 2e 0a 20 20 09 20 20 20 20 20 2a w one.. . *
83b0: 2f 0a 20 20 0a 21 20 09 20 20 20 20 4d 44 45 42 /. .! . MDEB
83c0: 55 47 28 28 22 25 64 20 66 61 69 6c 65 64 20 6d UG(("%d failed m
83d0: 69 64 70 6f 69 6e 74 5c 6e 22 2c 20 74 2d 3e 72 idpoint\n", t->r
83e0: 65 74 72 79 29 29 3b 0a 20 20 09 20 20 20 20 66 etry));. . f
83f0: 72 65 65 44 46 41 28 64 29 3b 0a 20 20 09 20 20 reeDFA(d);. .
8400: 20 20 66 72 65 65 44 46 41 28 64 32 29 3b 0a 20 freeDFA(d2);.
8410: 20 09 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 . return REG
8420: 5f 4e 4f 4d 41 54 43 48 3b 0a 20 20 09 7d 0a 21 _NOMATCH;. .}.!
8430: 20 09 4d 44 45 42 55 47 28 28 22 25 64 3a 20 6e .MDEBUG(("%d: n
8440: 65 77 20 6d 69 64 70 6f 69 6e 74 20 25 6c 64 5c ew midpoint %ld\
8450: 6e 22 2c 20 74 2d 3e 72 65 74 72 79 2c 20 4c 4f n", t->retry, LO
8460: 46 46 28 6d 69 64 29 29 29 3b 0a 21 20 09 76 2d FF(mid)));.! .v-
8470: 3e 6d 65 6d 5b 74 2d 3e 72 65 74 72 79 5d 20 3d >mem[t->retry] =
8480: 20 28 6d 69 64 20 2d 20 62 65 67 69 6e 29 20 2b (mid - begin) +
8490: 20 31 3b 0a 21 20 09 7a 61 70 53 75 62 74 72 65 1;.! .zapSubtre
84a0: 65 28 76 2c 20 74 2d 3e 6c 65 66 74 29 3b 0a 21 e(v, t->left);.!
84b0: 20 09 7a 61 70 53 75 62 74 72 65 65 28 76 2c 20 .zapSubtree(v,
84c0: 74 2d 3e 72 69 67 68 74 29 3b 0a 20 20 20 20 20 t->right);.
84d0: 20 7d 0a 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a 0a }. }. .. /*.
84e0: 21 20 20 2d 20 63 6f 6d 70 6c 69 63 61 74 65 64 ! - complicated
84f0: 42 61 63 6b 72 65 66 44 69 73 73 65 63 74 20 2d BackrefDissect -
8500: 20 64 65 74 65 72 6d 69 6e 65 20 62 61 63 6b 72 determine backr
8510: 65 66 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e ef subexpression
8520: 20 6d 61 74 63 68 65 73 0a 21 20 20 5e 20 73 74 matches.! ^ st
8530: 61 74 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 63 atic int complic
8540: 61 74 65 64 42 61 63 6b 72 65 66 44 69 73 73 65 atedBackrefDisse
8550: 63 74 28 73 74 72 75 63 74 20 76 61 72 73 20 2a ct(struct vars *
8560: 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 20 2a , struct subre *
8570: 2c 20 63 68 72 20 2a 2c 20 63 68 72 20 2a 29 3b , chr *, chr *);
8580: 0a 20 20 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 . */. static
8590: 69 6e 74 09 09 09 2f 2a 20 72 65 67 65 78 65 63 int.../* regexec
85a0: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a return code */.
85b0: 21 20 63 6f 6d 70 6c 69 63 61 74 65 64 42 61 63 ! complicatedBac
85c0: 6b 72 65 66 44 69 73 73 65 63 74 28 0a 20 20 20 krefDissect(.
85d0: 20 20 20 73 74 72 75 63 74 20 76 61 72 73 20 2a struct vars *
85e0: 63 6f 6e 73 74 20 76 2c 0a 20 20 20 20 20 20 73 const v,. s
85f0: 74 72 75 63 74 20 73 75 62 72 65 20 2a 63 6f 6e truct subre *con
8600: 73 74 20 74 2c 0a 20 20 20 20 20 20 63 68 72 20 st t,. chr
8610: 2a 63 6f 6e 73 74 20 62 65 67 69 6e 2c 09 09 2f *const begin,../
8620: 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 72 * beginning of r
8630: 65 6c 65 76 61 6e 74 20 73 75 62 73 74 72 69 6e elevant substrin
8640: 67 20 2a 2f 0a 20 20 20 20 20 20 63 68 72 20 2a g */. chr *
8650: 63 6f 6e 73 74 20 65 6e 64 29 09 09 2f 2a 20 65 const end)../* e
8660: 6e 64 20 6f 66 20 73 61 6d 65 20 2a 2f 0a 20 20 nd of same */.
8670: 7b 0a 21 20 20 20 20 20 69 6e 74 20 69 2c 20 6e {.! int i, n
8680: 20 3d 20 74 2d 3e 73 75 62 6e 6f 2c 20 6d 69 6e = t->subno, min
8690: 20 3d 20 74 2d 3e 6d 69 6e 2c 20 6d 61 78 20 3d = t->min, max =
86a0: 20 74 2d 3e 6d 61 78 3b 0a 21 20 20 20 20 20 63 t->max;.! c
86b0: 68 72 20 2a 70 61 72 65 6e 2c 20 2a 70 2c 20 2a hr *paren, *p, *
86c0: 73 74 6f 70 3b 0a 21 20 20 20 20 20 73 69 7a 65 stop;.! size
86d0: 5f 74 20 6c 65 6e 3b 0a 20 20 0a 20 20 20 20 20 _t len;. .
86e0: 20 61 73 73 65 72 74 28 74 20 21 3d 20 4e 55 4c assert(t != NUL
86f0: 4c 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 L);. assert
8700: 28 74 2d 3e 6f 70 20 3d 3d 20 27 62 27 29 3b 0a (t->op == 'b');.
8710: 20 20 20 20 20 20 61 73 73 65 72 74 28 6e 20 3e assert(n >
8720: 3d 20 30 29 3b 0a 20 20 20 20 20 20 61 73 73 65 = 0);. asse
8730: 72 74 28 28 73 69 7a 65 5f 74 29 6e 20 3c 20 76 rt((size_t)n < v
8740: 2d 3e 6e 6d 61 74 63 68 29 3b 0a 20 20 0a 21 20 ->nmatch);. .!
8750: 20 20 20 20 4d 44 45 42 55 47 28 28 22 63 62 61 MDEBUG(("cba
8760: 63 6b 72 65 66 20 6e 25 64 20 25 64 7b 25 64 2d ckref n%d %d{%d-
8770: 25 64 7d 5c 6e 22 2c 20 74 2d 3e 72 65 74 72 79 %d}\n", t->retry
8780: 2c 20 6e 2c 20 6d 69 6e 2c 20 6d 61 78 29 29 3b , n, min, max));
8790: 0a 20 20 0a 20 20 20 20 20 20 69 66 20 28 76 2d . . if (v-
87a0: 3e 70 6d 61 74 63 68 5b 6e 5d 2e 72 6d 5f 73 6f >pmatch[n].rm_so
87b0: 20 3d 3d 20 2d 31 29 20 7b 0a 20 20 09 72 65 74 == -1) {. .ret
87c0: 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b urn REG_NOMATCH;
87d0: 0a 20 20 20 20 20 20 7d 0a 21 20 20 20 20 20 70 . }.! p
87e0: 61 72 65 6e 20 3d 20 76 2d 3e 73 74 61 72 74 20 aren = v->start
87f0: 2b 20 76 2d 3e 70 6d 61 74 63 68 5b 6e 5d 2e 72 + v->pmatch[n].r
8800: 6d 5f 73 6f 3b 0a 21 20 20 20 20 20 6c 65 6e 20 m_so;.! len
8810: 3d 20 76 2d 3e 70 6d 61 74 63 68 5b 6e 5d 2e 72 = v->pmatch[n].r
8820: 6d 5f 65 6f 20 2d 20 76 2d 3e 70 6d 61 74 63 68 m_eo - v->pmatch
8830: 5b 6e 5d 2e 72 6d 5f 73 6f 3b 0a 20 20 0a 20 20 [n].rm_so;. .
8840: 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 /*.! *
8850: 4e 6f 20 72 6f 6f 6d 20 74 6f 20 6d 61 6e 65 75 No room to maneu
8860: 76 65 72 20 2d 2d 20 72 65 74 72 69 65 73 20 61 ver -- retries a
8870: 72 65 20 70 6f 69 6e 74 6c 65 73 73 2e 0a 20 20 re pointless..
8880: 20 20 20 20 20 2a 2f 0a 20 20 0a 21 20 20 20 20 */. .!
8890: 20 69 66 20 28 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 if (v->mem[t->r
88a0: 65 74 72 79 5d 29 20 7b 0a 20 20 09 72 65 74 75 etry]) {. .retu
88b0: 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a rn REG_NOMATCH;.
88c0: 20 20 20 20 20 20 7d 0a 2d 20 20 20 20 20 76 2d }.- v-
88d0: 3e 6d 65 6d 5b 74 2d 3e 72 65 74 72 79 5d 20 3d >mem[t->retry] =
88e0: 20 31 3b 0a 20 20 0a 21 20 20 20 20 20 2f 2a 0a 1;. .! /*.
88f0: 21 20 20 20 20 20 20 2a 20 53 70 65 63 69 61 6c ! * Special
8900: 2d 63 61 73 65 20 7a 65 72 6f 2d 6c 65 6e 67 74 -case zero-lengt
8910: 68 20 73 74 72 69 6e 67 2e 0a 21 20 20 20 20 20 h string..!
8920: 20 2a 2f 0a 20 20 0a 21 20 20 20 20 20 69 66 20 */. .! if
8930: 28 6c 65 6e 20 3d 3d 20 30 29 20 7b 0a 21 20 09 (len == 0) {.! .
8940: 69 66 20 28 62 65 67 69 6e 20 3d 3d 20 65 6e 64 if (begin == end
8950: 29 20 7b 0a 21 20 09 20 20 20 20 72 65 74 75 72 ) {.! . retur
8960: 6e 20 52 45 47 5f 4f 4b 41 59 3b 0a 20 20 09 7d n REG_OKAY;. .}
8970: 0a 21 20 09 72 65 74 75 72 6e 20 52 45 47 5f 4e .! .return REG_N
8980: 4f 4d 41 54 43 48 3b 0a 20 20 20 20 20 20 7d 0a OMATCH;. }.
8990: 20 20 0a 20 20 20 20 20 20 2f 2a 0a 21 20 20 20 . /*.!
89a0: 20 20 20 2a 20 41 6e 64 20 74 6f 6f 2d 73 68 6f * And too-sho
89b0: 72 74 20 73 74 72 69 6e 67 2e 0a 20 20 20 20 20 rt string..
89c0: 20 20 2a 2f 0a 21 20 0a 21 20 20 20 20 20 61 73 */.! .! as
89d0: 73 65 72 74 28 65 6e 64 20 3e 3d 20 62 65 67 69 sert(end >= begi
89e0: 6e 29 3b 0a 21 20 20 20 20 20 69 66 20 28 28 73 n);.! if ((s
89f0: 69 7a 65 5f 74 29 28 65 6e 64 20 2d 20 62 65 67 ize_t)(end - beg
8a00: 69 6e 29 20 3c 20 6c 65 6e 29 20 7b 0a 21 20 09 in) < len) {.! .
8a10: 72 65 74 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 return REG_NOMAT
8a20: 43 48 3b 0a 20 20 20 20 20 20 7d 0a 2d 20 20 20 CH;. }.-
8a30: 20 20 73 74 6f 70 20 3d 20 65 6e 64 20 2d 20 6c stop = end - l
8a40: 65 6e 3b 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a en;. . /*.
8a50: 21 20 20 20 20 20 20 2a 20 43 6f 75 6e 74 20 6f ! * Count o
8a60: 63 63 75 72 72 65 6e 63 65 73 2e 0a 20 20 20 20 ccurrences..
8a70: 20 20 20 2a 2f 0a 20 20 0a 21 20 20 20 20 20 69 */. .! i
8a80: 20 3d 20 30 3b 0a 21 20 20 20 20 20 66 6f 72 20 = 0;.! for
8a90: 28 70 20 3d 20 62 65 67 69 6e 3b 20 70 20 3c 3d (p = begin; p <=
8aa0: 20 73 74 6f 70 20 26 26 20 28 69 20 3c 20 6d 61 stop && (i < ma
8ab0: 78 20 7c 7c 20 6d 61 78 20 3d 3d 20 44 55 50 49 x || max == DUPI
8ac0: 4e 46 29 3b 20 70 20 2b 3d 20 6c 65 6e 29 20 7b NF); p += len) {
8ad0: 0a 21 20 09 69 66 20 28 76 2d 3e 67 2d 3e 63 6f .! .if (v->g->co
8ae0: 6d 70 61 72 65 28 70 61 72 65 6e 2c 20 70 2c 20 mpare(paren, p,
8af0: 6c 65 6e 29 20 21 3d 20 30 29 20 7b 0a 21 20 09 len) != 0) {.! .
8b00: 20 20 20 20 62 72 65 61 6b 3b 0a 21 20 09 7d 0a break;.! .}.
8b10: 21 20 09 69 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a ! .i++;. }.
8b20: 21 20 20 20 20 20 4d 44 45 42 55 47 28 28 22 63 ! MDEBUG(("c
8b30: 62 61 63 6b 72 65 66 20 66 6f 75 6e 64 20 25 64 backref found %d
8b40: 5c 6e 22 2c 20 69 29 29 3b 0a 20 20 0a 20 20 20 \n", i));. .
8b50: 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 41 /*.! * A
8b60: 6e 64 20 73 6f 72 74 20 69 74 20 6f 75 74 2e 0a nd sort it out..
8b70: 20 20 20 20 20 20 20 2a 2f 0a 20 20 0a 21 20 20 */. .!
8b80: 20 20 20 69 66 20 28 70 20 21 3d 20 65 6e 64 29 if (p != end)
8b90: 20 7b 09 09 2f 2a 20 64 69 64 6e 27 74 20 63 6f {../* didn't co
8ba0: 6e 73 75 6d 65 20 61 6c 6c 20 6f 66 20 69 74 20 nsume all of it
8bb0: 2a 2f 0a 21 20 09 72 65 74 75 72 6e 20 52 45 47 */.! .return REG
8bc0: 5f 4e 4f 4d 41 54 43 48 3b 0a 21 20 20 20 20 20 _NOMATCH;.!
8bd0: 7d 0a 21 20 20 20 20 20 69 66 20 28 6d 69 6e 20 }.! if (min
8be0: 3c 3d 20 69 20 26 26 20 28 69 20 3c 3d 20 6d 61 <= i && (i <= ma
8bf0: 78 20 7c 7c 20 6d 61 78 20 3d 3d 20 44 55 50 49 x || max == DUPI
8c00: 4e 46 29 29 20 7b 0a 21 20 09 72 65 74 75 72 6e NF)) {.! .return
8c10: 20 52 45 47 5f 4f 4b 41 59 3b 0a 20 20 20 20 20 REG_OKAY;.
8c20: 20 7d 0a 21 20 20 20 20 20 72 65 74 75 72 6e 20 }.! return
8c30: 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 09 09 2f 2a REG_NOMATCH;../*
8c40: 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 2a 2f out of range */
8c50: 0a 20 20 7d 0a 20 20 0c 0a 20 20 2f 2a 0a 21 20 . }. .. /*.!
8c60: 20 2d 20 63 6f 6d 70 6c 69 63 61 74 65 64 41 6c - complicatedAl
8c70: 74 65 72 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 ternationDissect
8c80: 20 2d 20 64 65 74 65 72 6d 69 6e 65 20 61 6c 74 - determine alt
8c90: 65 72 6e 61 74 69 76 65 20 73 75 62 65 78 70 72 ernative subexpr
8ca0: 65 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 28 ession matches (
8cb0: 77 2e 0a 21 20 20 2d 20 63 6f 6d 70 6c 69 63 61 w..! - complica
8cc0: 74 69 6f 6e 73 29 0a 21 20 20 5e 20 73 74 61 74 tions).! ^ stat
8cd0: 69 63 20 69 6e 74 20 63 6f 6d 70 6c 69 63 61 74 ic int complicat
8ce0: 65 64 41 6c 74 65 72 6e 61 74 69 6f 6e 44 69 73 edAlternationDis
8cf0: 73 65 63 74 28 73 74 72 75 63 74 20 76 61 72 73 sect(struct vars
8d00: 20 2a 2c 20 73 74 72 75 63 74 20 73 75 62 72 65 *, struct subre
8d10: 20 2a 2c 20 63 68 72 20 2a 2c 20 63 68 72 20 2a *, chr *, chr *
8d20: 29 3b 0a 20 20 20 2a 2f 0a 20 20 73 74 61 74 69 );. */. stati
8d30: 63 20 69 6e 74 09 09 09 2f 2a 20 72 65 67 65 78 c int.../* regex
8d40: 65 63 20 72 65 74 75 72 6e 20 63 6f 64 65 20 2a ec return code *
8d50: 2f 0a 21 20 63 6f 6d 70 6c 69 63 61 74 65 64 41 /.! complicatedA
8d60: 6c 74 65 72 6e 61 74 69 6f 6e 44 69 73 73 65 63 lternationDissec
8d70: 74 28 0a 21 20 20 20 20 20 73 74 72 75 63 74 20 t(.! struct
8d80: 76 61 72 73 20 2a 63 6f 6e 73 74 20 76 2c 0a 21 vars *const v,.!
8d90: 20 20 20 20 20 73 74 72 75 63 74 20 73 75 62 72 struct subr
8da0: 65 20 2a 74 2c 0a 21 20 20 20 20 20 63 68 72 20 e *t,.! chr
8db0: 2a 63 6f 6e 73 74 20 62 65 67 69 6e 2c 09 09 2f *const begin,../
8dc0: 2a 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 72 * beginning of r
8dd0: 65 6c 65 76 61 6e 74 20 73 75 62 73 74 72 69 6e elevant substrin
8de0: 67 20 2a 2f 0a 21 20 20 20 20 20 63 68 72 20 2a g */.! chr *
8df0: 63 6f 6e 73 74 20 65 6e 64 29 09 09 2f 2a 20 65 const end)../* e
8e00: 6e 64 20 6f 66 20 73 61 6d 65 20 2a 2f 0a 20 20 nd of same */.
8e10: 7b 0a 21 20 20 20 20 20 69 6e 74 20 65 72 3b 0a {.! int er;.
8e20: 21 20 23 64 65 66 69 6e 65 09 55 4e 54 52 49 45 ! #define.UNTRIE
8e30: 44 09 30 09 09 2f 2a 20 6e 6f 74 20 79 65 74 20 D.0../* not yet
8e40: 74 72 69 65 64 20 61 74 20 61 6c 6c 20 2a 2f 0a tried at all */.
8e50: 21 20 23 64 65 66 69 6e 65 09 54 52 59 49 4e 47 ! #define.TRYING
8e60: 09 31 09 09 2f 2a 20 74 6f 70 20 6d 61 74 63 68 .1../* top match
8e70: 65 64 2c 20 74 72 79 69 6e 67 20 73 75 62 6d 61 ed, trying subma
8e80: 74 63 68 65 73 20 2a 2f 0a 21 20 23 64 65 66 69 tches */.! #defi
8e90: 6e 65 09 54 52 49 45 44 09 32 09 09 2f 2a 20 74 ne.TRIED.2../* t
8ea0: 6f 70 20 64 69 64 6e 27 74 20 6d 61 74 63 68 20 op didn't match
8eb0: 6f 72 20 73 75 62 6d 61 74 63 68 65 73 20 65 78 or submatches ex
8ec0: 68 61 75 73 74 65 64 20 2a 2f 0a 20 20 0a 21 20 hausted */. .!
8ed0: 23 69 66 6e 64 65 66 20 43 4f 4d 50 49 4c 45 52 #ifndef COMPILER
8ee0: 5f 44 4f 45 53 5f 54 41 49 4c 43 41 4c 4c 5f 4f _DOES_TAILCALL_O
8ef0: 50 54 49 4d 49 5a 41 54 49 4f 4e 0a 21 20 20 20 PTIMIZATION.!
8f00: 20 20 69 66 20 28 30 29 20 7b 0a 21 20 20 20 20 if (0) {.!
8f10: 20 64 6f 52 69 67 68 74 3a 0a 21 20 09 74 20 3d doRight:.! .t =
8f20: 20 74 2d 3e 72 69 67 68 74 3b 0a 21 20 20 20 20 t->right;.!
8f30: 20 7d 0a 21 20 23 65 6e 64 69 66 0a 21 20 20 20 }.! #endif.!
8f40: 20 20 69 66 20 28 74 20 3d 3d 20 4e 55 4c 4c 29 if (t == NULL)
8f50: 20 7b 0a 21 20 09 72 65 74 75 72 6e 20 52 45 47 {.! .return REG
8f60: 5f 4e 4f 4d 41 54 43 48 3b 0a 20 20 20 20 20 20 _NOMATCH;.
8f70: 7d 0a 21 20 20 20 20 20 61 73 73 65 72 74 28 74 }.! assert(t
8f80: 2d 3e 6f 70 20 3d 3d 20 27 7c 27 29 3b 0a 21 20 ->op == '|');.!
8f90: 20 20 20 20 69 66 20 28 76 2d 3e 6d 65 6d 5b 74 if (v->mem[t
8fa0: 2d 3e 72 65 74 72 79 5d 20 3d 3d 20 54 52 49 45 ->retry] == TRIE
8fb0: 44 29 20 7b 0a 21 20 09 67 6f 74 6f 20 64 6f 52 D) {.! .goto doR
8fc0: 69 67 68 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 ight;. }.
8fd0: 0a 21 20 20 20 20 20 4d 44 45 42 55 47 28 28 22 .! MDEBUG(("
8fe0: 63 41 6c 74 20 6e 25 64 5c 6e 22 2c 20 74 2d 3e cAlt n%d\n", t->
8ff0: 72 65 74 72 79 29 29 3b 0a 21 20 20 20 20 20 61 retry));.! a
9000: 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d ssert(t->left !=
9010: 20 4e 55 4c 4c 29 3b 0a 20 20 0a 21 20 20 20 20 NULL);. .!
9020: 20 69 66 20 28 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 if (v->mem[t->r
9030: 65 74 72 79 5d 20 3d 3d 20 55 4e 54 52 49 45 44 etry] == UNTRIED
9040: 29 20 7b 0a 21 20 09 73 74 72 75 63 74 20 64 66 ) {.! .struct df
9050: 61 20 2a 64 20 3d 20 6e 65 77 44 46 41 28 76 2c a *d = newDFA(v,
9060: 20 26 74 2d 3e 6c 65 66 74 2d 3e 63 6e 66 61 2c &t->left->cnfa,
9070: 20 26 76 2d 3e 67 2d 3e 63 6d 61 70 2c 20 44 4f &v->g->cmap, DO
9080: 4d 41 4c 4c 4f 43 29 3b 0a 20 20 0a 21 20 09 69 MALLOC);. .! .i
9090: 66 20 28 49 53 45 52 52 28 29 29 20 7b 0a 21 20 f (ISERR()) {.!
90a0: 09 20 20 20 20 72 65 74 75 72 6e 20 76 2d 3e 65 . return v->e
90b0: 72 72 3b 0a 20 20 09 7d 0a 21 20 09 69 66 20 28 rr;. .}.! .if (
90c0: 6c 6f 6e 67 65 73 74 28 76 2c 20 64 2c 20 62 65 longest(v, d, be
90d0: 67 69 6e 2c 20 65 6e 64 2c 20 4e 55 4c 4c 29 20 gin, end, NULL)
90e0: 21 3d 20 65 6e 64 29 20 7b 0a 20 20 09 20 20 20 != end) {. .
90f0: 20 66 72 65 65 44 46 41 28 64 29 3b 0a 21 20 09 freeDFA(d);.! .
9100: 20 20 20 20 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 65 v->mem[t->re
9110: 74 72 79 5d 20 3d 20 54 52 49 45 44 3b 0a 21 20 try] = TRIED;.!
9120: 09 20 20 20 20 67 6f 74 6f 20 64 6f 52 69 67 68 . goto doRigh
9130: 74 3b 0a 20 20 09 7d 0a 2d 20 09 66 72 65 65 44 t;. .}.- .freeD
9140: 46 41 28 64 29 3b 0a 2d 20 09 4d 44 45 42 55 47 FA(d);.- .MDEBUG
9150: 28 28 22 63 41 6c 74 20 6d 61 74 63 68 65 64 5c (("cAlt matched\
9160: 6e 22 29 29 3b 0a 2d 20 09 76 2d 3e 6d 65 6d 5b n"));.- .v->mem[
9170: 74 2d 3e 72 65 74 72 79 5d 20 3d 20 54 52 59 49 t->retry] = TRYI
9180: 4e 47 3b 0a 2d 20 20 20 20 20 7d 0a 20 20 0a 21 NG;.- }. .!
9190: 20 20 20 20 20 65 72 20 3d 20 63 6f 6d 70 6c 69 er = compli
91a0: 63 61 74 65 64 44 69 73 73 65 63 74 28 76 2c 20 catedDissect(v,
91b0: 74 2d 3e 6c 65 66 74 2c 20 62 65 67 69 6e 2c 20 t->left, begin,
91c0: 65 6e 64 29 3b 0a 21 20 20 20 20 20 69 66 20 28 end);.! if (
91d0: 65 72 20 21 3d 20 52 45 47 5f 4e 4f 4d 41 54 43 er != REG_NOMATC
91e0: 48 29 20 7b 0a 21 20 09 72 65 74 75 72 6e 20 65 H) {.! .return e
91f0: 72 3b 0a 20 20 20 20 20 20 7d 0a 20 20 0a 21 20 r;. }. .!
9200: 20 20 20 20 76 2d 3e 6d 65 6d 5b 74 2d 3e 72 65 v->mem[t->re
9210: 74 72 79 5d 20 3d 20 54 52 49 45 44 3b 0a 21 20 try] = TRIED;.!
9220: 23 69 66 6e 64 65 66 20 43 4f 4d 50 49 4c 45 52 #ifndef COMPILER
9230: 5f 44 4f 45 53 5f 54 41 49 4c 43 41 4c 4c 5f 4f _DOES_TAILCALL_O
9240: 50 54 49 4d 49 5a 41 54 49 4f 4e 0a 21 20 20 20 PTIMIZATION.!
9250: 20 20 67 6f 74 6f 20 64 6f 52 69 67 68 74 3b 0a goto doRight;.
9260: 21 20 23 65 6c 73 65 0a 21 20 20 20 64 6f 52 69 ! #else.! doRi
9270: 67 68 74 3a 0a 21 20 20 20 20 20 72 65 74 75 72 ght:.! retur
9280: 6e 20 63 6f 6d 70 6c 69 63 61 74 65 64 41 6c 74 n complicatedAlt
9290: 65 72 6e 61 74 69 6f 6e 44 69 73 73 65 63 74 28 ernationDissect(
92a0: 76 2c 20 74 2d 3e 72 69 67 68 74 2c 20 62 65 67 v, t->right, beg
92b0: 69 6e 2c 20 65 6e 64 29 3b 0a 21 20 23 65 6e 64 in, end);.! #end
92c0: 69 66 0a 20 20 7d 0a 20 20 0a 20 20 23 69 6e 63 if. }. . #inc
92d0: 6c 75 64 65 20 22 72 65 67 65 5f 64 66 61 2e 63 lude "rege_dfa.c
92e0: 22 0a 2d 2d 2d 20 38 33 33 2c 31 33 31 36 20 2d ".--- 833,1316 -
92f0: 2d 2d 2d 0a 20 20 09 20 20 20 20 20 2a 20 46 61 ---. . * Fa
9300: 69 6c 65 64 20 74 6f 20 66 69 6e 64 20 61 20 6e iled to find a n
9310: 65 77 20 6f 6e 65 2e 0a 20 20 09 20 20 20 20 20 ew one.. .
9320: 2a 2f 0a 20 20 0a 21 20 09 20 20 20 20 4d 44 45 */. .! . MDE
9330: 42 55 47 28 28 22 25 64 20 66 61 69 6c 65 64 20 BUG(("%d failed
9340: 6d 69 64 70 6f 69 6e 74 5c 6e 22 2c 20 74 2d 3e midpoint\n", t->
9350: 69 64 29 29 3b 0a 20 20 09 20 20 20 20 66 72 65 id));. . fre
9360: 65 44 46 41 28 64 29 3b 0a 20 20 09 20 20 20 20 eDFA(d);. .
9370: 66 72 65 65 44 46 41 28 64 32 29 3b 0a 20 20 09 freeDFA(d2);. .
9380: 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f 4e return REG_N
9390: 4f 4d 41 54 43 48 3b 0a 20 20 09 7d 0a 21 20 09 OMATCH;. .}.! .
93a0: 4d 44 45 42 55 47 28 28 22 25 64 3a 20 6e 65 77 MDEBUG(("%d: new
93b0: 20 6d 69 64 70 6f 69 6e 74 20 25 6c 64 5c 6e 22 midpoint %ld\n"
93c0: 2c 20 74 2d 3e 69 64 2c 20 4c 4f 46 46 28 6d 69 , t->id, LOFF(mi
93d0: 64 29 29 29 3b 0a 21 20 09 7a 61 70 74 72 65 65 d)));.! .zaptree
93e0: 73 75 62 73 28 76 2c 20 74 2d 3e 6c 65 66 74 29 subs(v, t->left)
93f0: 3b 0a 21 20 09 7a 61 70 74 72 65 65 73 75 62 73 ;.! .zaptreesubs
9400: 28 76 2c 20 74 2d 3e 72 69 67 68 74 29 3b 0a 20 (v, t->right);.
9410: 20 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0c 0a 20 }. }. ..
9420: 20 2f 2a 0a 21 20 20 2d 20 63 62 72 64 69 73 73 /*.! - cbrdiss
9430: 65 63 74 20 2d 20 64 69 73 73 65 63 74 20 6d 61 ect - dissect ma
9440: 74 63 68 20 66 6f 72 20 62 61 63 6b 72 65 66 20 tch for backref
9450: 6e 6f 64 65 0a 21 20 20 5e 20 73 74 61 74 69 63 node.! ^ static
9460: 20 69 6e 74 20 63 62 72 64 69 73 73 65 63 74 28 int cbrdissect(
9470: 73 74 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 struct vars *, s
9480: 74 72 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 truct subre *, c
9490: 68 72 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 20 20 hr *, chr *);.
94a0: 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 69 6e 74 */. static int
94b0: 09 09 09 2f 2a 20 72 65 67 65 78 65 63 20 72 65 .../* regexec re
94c0: 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 20 63 turn code */.! c
94d0: 62 72 64 69 73 73 65 63 74 28 0a 20 20 20 20 20 brdissect(.
94e0: 20 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 6f struct vars *co
94f0: 6e 73 74 20 76 2c 0a 20 20 20 20 20 20 73 74 72 nst v,. str
9500: 75 63 74 20 73 75 62 72 65 20 2a 63 6f 6e 73 74 uct subre *const
9510: 20 74 2c 0a 20 20 20 20 20 20 63 68 72 20 2a 63 t,. chr *c
9520: 6f 6e 73 74 20 62 65 67 69 6e 2c 09 09 2f 2a 20 onst begin,../*
9530: 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 72 65 6c beginning of rel
9540: 65 76 61 6e 74 20 73 75 62 73 74 72 69 6e 67 20 evant substring
9550: 2a 2f 0a 20 20 20 20 20 20 63 68 72 20 2a 63 6f */. chr *co
9560: 6e 73 74 20 65 6e 64 29 09 09 2f 2a 20 65 6e 64 nst end)../* end
9570: 20 6f 66 20 73 61 6d 65 20 2a 2f 0a 20 20 7b 0a of same */. {.
9580: 21 20 20 20 20 20 69 6e 74 20 6e 20 3d 20 74 2d ! int n = t-
9590: 3e 73 75 62 6e 6f 2c 20 6d 69 6e 20 3d 20 74 2d >subno, min = t-
95a0: 3e 6d 69 6e 2c 20 6d 61 78 20 3d 20 74 2d 3e 6d >min, max = t->m
95b0: 61 78 3b 0a 21 20 20 20 20 20 73 69 7a 65 5f 74 ax;.! size_t
95c0: 20 6e 75 6d 72 65 70 73 3b 0a 21 20 20 20 20 20 numreps;.!
95d0: 73 69 7a 65 5f 74 20 74 6c 65 6e 3b 0a 21 20 20 size_t tlen;.!
95e0: 20 20 20 73 69 7a 65 5f 74 20 62 72 6c 65 6e 3b size_t brlen;
95f0: 0a 21 20 20 20 20 20 63 68 72 20 2a 62 72 73 74 .! chr *brst
9600: 72 69 6e 67 3b 0a 21 20 20 20 20 20 63 68 72 20 ring;.! chr
9610: 2a 70 3b 0a 20 20 0a 20 20 20 20 20 20 61 73 73 *p;. . ass
9620: 65 72 74 28 74 20 21 3d 20 4e 55 4c 4c 29 3b 0a ert(t != NULL);.
9630: 20 20 20 20 20 20 61 73 73 65 72 74 28 74 2d 3e assert(t->
9640: 6f 70 20 3d 3d 20 27 62 27 29 3b 0a 20 20 20 20 op == 'b');.
9650: 20 20 61 73 73 65 72 74 28 6e 20 3e 3d 20 30 29 assert(n >= 0)
9660: 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28 28 ;. assert((
9670: 73 69 7a 65 5f 74 29 6e 20 3c 20 76 2d 3e 6e 6d size_t)n < v->nm
9680: 61 74 63 68 29 3b 0a 20 20 0a 21 20 20 20 20 20 atch);. .!
9690: 4d 44 45 42 55 47 28 28 22 63 62 61 63 6b 72 65 MDEBUG(("cbackre
96a0: 66 20 6e 25 64 20 25 64 7b 25 64 2d 25 64 7d 5c f n%d %d{%d-%d}\
96b0: 6e 22 2c 20 74 2d 3e 69 64 2c 20 6e 2c 20 6d 69 n", t->id, n, mi
96c0: 6e 2c 20 6d 61 78 29 29 3b 0a 20 20 0a 2b 20 20 n, max));. .+
96d0: 20 20 20 2f 2a 20 67 65 74 20 74 68 65 20 62 61 /* get the ba
96e0: 63 6b 72 65 66 65 72 65 6e 63 65 64 20 73 74 72 ckreferenced str
96f0: 69 6e 67 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 ing */. if
9700: 28 76 2d 3e 70 6d 61 74 63 68 5b 6e 5d 2e 72 6d (v->pmatch[n].rm
9710: 5f 73 6f 20 3d 3d 20 2d 31 29 20 7b 0a 20 20 09 _so == -1) {. .
9720: 72 65 74 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 return REG_NOMAT
9730: 43 48 3b 0a 20 20 20 20 20 20 7d 0a 21 20 20 20 CH;. }.!
9740: 20 20 62 72 73 74 72 69 6e 67 20 3d 20 76 2d 3e brstring = v->
9750: 73 74 61 72 74 20 2b 20 76 2d 3e 70 6d 61 74 63 start + v->pmatc
9760: 68 5b 6e 5d 2e 72 6d 5f 73 6f 3b 0a 21 20 20 20 h[n].rm_so;.!
9770: 20 20 62 72 6c 65 6e 20 3d 20 76 2d 3e 70 6d 61 brlen = v->pma
9780: 74 63 68 5b 6e 5d 2e 72 6d 5f 65 6f 20 2d 20 76 tch[n].rm_eo - v
9790: 2d 3e 70 6d 61 74 63 68 5b 6e 5d 2e 72 6d 5f 73 ->pmatch[n].rm_s
97a0: 6f 3b 0a 21 20 0a 21 20 20 20 20 20 2f 2a 20 73 o;.! .! /* s
97b0: 70 65 63 69 61 6c 20 63 61 73 65 73 20 66 6f 72 pecial cases for
97c0: 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 74 72 zero-length str
97d0: 69 6e 67 73 20 2a 2f 0a 21 20 20 20 20 20 69 66 ings */.! if
97e0: 20 28 62 72 6c 65 6e 20 3d 3d 20 30 29 20 7b 0a (brlen == 0) {.
97f0: 21 20 09 2f 2a 0a 21 20 09 20 2a 20 6d 61 74 63 ! ./*.! . * matc
9800: 68 65 73 20 6f 6e 6c 79 20 69 66 20 74 61 72 67 hes only if targ
9810: 65 74 20 69 73 20 7a 65 72 6f 20 6c 65 6e 67 74 et is zero lengt
9820: 68 2c 20 62 75 74 20 61 6e 79 20 6e 75 6d 62 65 h, but any numbe
9830: 72 20 6f 66 0a 21 20 09 20 2a 20 72 65 70 65 74 r of.! . * repet
9840: 69 74 69 6f 6e 73 20 63 61 6e 20 62 65 20 63 6f itions can be co
9850: 6e 73 69 64 65 72 65 64 20 74 6f 20 62 65 20 70 nsidered to be p
9860: 72 65 73 65 6e 74 0a 21 20 09 20 2a 2f 0a 21 20 resent.! . */.!
9870: 09 69 66 20 28 62 65 67 69 6e 20 3d 3d 20 65 6e .if (begin == en
9880: 64 20 26 26 20 6d 69 6e 20 3c 3d 20 6d 61 78 29 d && min <= max)
9890: 20 7b 0a 21 20 09 20 20 20 20 4d 44 45 42 55 47 {.! . MDEBUG
98a0: 28 28 22 63 62 61 63 6b 72 65 66 20 6d 61 74 63 (("cbackref matc
98b0: 68 65 64 20 74 72 69 76 69 61 6c 6c 79 5c 6e 22 hed trivially\n"
98c0: 29 29 3b 0a 21 20 09 20 20 20 20 72 65 74 75 72 ));.! . retur
98d0: 6e 20 52 45 47 5f 4f 4b 41 59 3b 0a 21 20 09 7d n REG_OKAY;.! .}
98e0: 0a 21 20 09 72 65 74 75 72 6e 20 52 45 47 5f 4e .! .return REG_N
98f0: 4f 4d 41 54 43 48 3b 0a 21 20 20 20 20 20 7d 0a OMATCH;.! }.
9900: 21 20 20 20 20 20 69 66 20 28 62 65 67 69 6e 20 ! if (begin
9910: 3d 3d 20 65 6e 64 29 20 7b 0a 21 20 09 2f 2a 20 == end) {.! ./*
9920: 6d 61 74 63 68 65 73 20 6f 6e 6c 79 20 69 66 20 matches only if
9930: 7a 65 72 6f 20 72 65 70 65 74 69 74 69 6f 6e 73 zero repetitions
9940: 20 61 72 65 20 6f 6b 61 79 20 2a 2f 0a 21 20 09 are okay */.! .
9950: 69 66 20 28 6d 69 6e 20 3d 3d 20 30 29 20 7b 0a if (min == 0) {.
9960: 21 20 09 20 20 20 20 4d 44 45 42 55 47 28 28 22 ! . MDEBUG(("
9970: 63 62 61 63 6b 72 65 66 20 6d 61 74 63 68 65 64 cbackref matched
9980: 20 74 72 69 76 69 61 6c 6c 79 5c 6e 22 29 29 3b trivially\n"));
9990: 0a 21 20 09 20 20 20 20 72 65 74 75 72 6e 20 52 .! . return R
99a0: 45 47 5f 4f 4b 41 59 3b 0a 21 20 09 7d 0a 21 20 EG_OKAY;.! .}.!
99b0: 09 72 65 74 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 .return REG_NOMA
99c0: 54 43 48 3b 0a 21 20 20 20 20 20 7d 0a 20 20 0a TCH;.! }. .
99d0: 20 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 /*.!
99e0: 2a 20 63 68 65 63 6b 20 74 61 72 67 65 74 20 6c * check target l
99f0: 65 6e 67 74 68 20 74 6f 20 73 65 65 20 69 66 20 ength to see if
9a00: 69 74 20 63 6f 75 6c 64 20 70 6f 73 73 69 62 6c it could possibl
9a10: 79 20 62 65 20 61 6e 20 61 6c 6c 6f 77 65 64 20 y be an allowed
9a20: 6e 75 6d 62 65 72 20 6f 66 0a 21 20 20 20 20 20 number of.!
9a30: 20 2a 20 72 65 70 65 74 69 74 69 6f 6e 73 20 6f * repetitions o
9a40: 66 20 62 72 73 74 72 69 6e 67 0a 20 20 20 20 20 f brstring.
9a50: 20 20 2a 2f 0a 20 20 0a 21 20 20 20 20 20 61 73 */. .! as
9a60: 73 65 72 74 28 65 6e 64 20 3e 20 62 65 67 69 6e sert(end > begin
9a70: 29 3b 0a 21 20 20 20 20 20 74 6c 65 6e 20 3d 20 );.! tlen =
9a80: 65 6e 64 20 2d 20 62 65 67 69 6e 3b 0a 21 20 20 end - begin;.!
9a90: 20 20 20 69 66 20 28 74 6c 65 6e 20 25 20 62 72 if (tlen % br
9aa0: 6c 65 6e 20 21 3d 20 30 29 0a 21 20 09 72 65 74 len != 0).! .ret
9ab0: 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b urn REG_NOMATCH;
9ac0: 0a 21 20 20 20 20 20 6e 75 6d 72 65 70 73 20 3d .! numreps =
9ad0: 20 74 6c 65 6e 20 2f 20 62 72 6c 65 6e 3b 0a 21 tlen / brlen;.!
9ae0: 20 20 20 20 20 69 66 20 28 6e 75 6d 72 65 70 73 if (numreps
9af0: 20 3c 20 6d 69 6e 20 7c 7c 20 28 6e 75 6d 72 65 < min || (numre
9b00: 70 73 20 3e 20 6d 61 78 20 26 26 20 6d 61 78 20 ps > max && max
9b10: 21 3d 20 44 55 50 49 4e 46 29 29 0a 20 20 09 72 != DUPINF)). .r
9b20: 65 74 75 72 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 eturn REG_NOMATC
9b30: 48 3b 0a 2b 20 0a 2b 20 20 20 20 20 2f 2a 20 6f H;.+ .+ /* o
9b40: 6b 61 79 2c 20 63 6f 6d 70 61 72 65 20 74 68 65 kay, compare the
9b50: 20 61 63 74 75 61 6c 20 73 74 72 69 6e 67 20 63 actual string c
9b60: 6f 6e 74 65 6e 74 73 20 2a 2f 0a 2b 20 20 20 20 ontents */.+
9b70: 20 70 20 3d 20 62 65 67 69 6e 3b 0a 2b 20 20 20 p = begin;.+
9b80: 20 20 77 68 69 6c 65 20 28 6e 75 6d 72 65 70 73 while (numreps
9b90: 2d 2d 20 3e 20 30 29 20 7b 0a 2b 20 09 69 66 20 -- > 0) {.+ .if
9ba0: 28 28 2a 76 2d 3e 67 2d 3e 63 6f 6d 70 61 72 65 ((*v->g->compare
9bb0: 29 20 28 62 72 73 74 72 69 6e 67 2c 20 70 2c 20 ) (brstring, p,
9bc0: 62 72 6c 65 6e 29 20 21 3d 20 30 29 0a 2b 20 09 brlen) != 0).+ .
9bd0: 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f 4e return REG_N
9be0: 4f 4d 41 54 43 48 3b 0a 2b 20 09 70 20 2b 3d 20 OMATCH;.+ .p +=
9bf0: 62 72 6c 65 6e 3b 0a 20 20 20 20 20 20 7d 0a 20 brlen;. }.
9c00: 20 0a 21 20 20 20 20 20 4d 44 45 42 55 47 28 28 .! MDEBUG((
9c10: 22 63 62 61 63 6b 72 65 66 20 6d 61 74 63 68 65 "cbackref matche
9c20: 64 5c 6e 22 29 29 3b 0a 21 20 20 20 20 20 72 65 d\n"));.! re
9c30: 74 75 72 6e 20 52 45 47 5f 4f 4b 41 59 3b 0a 21 turn REG_OKAY;.!
9c40: 20 7d 0a 21 20 0c 0a 21 20 2f 2a 0a 21 20 20 2d }.! ..! /*.! -
9c50: 20 63 61 6c 74 64 69 73 73 65 63 74 20 2d 20 64 caltdissect - d
9c60: 69 73 73 65 63 74 20 6d 61 74 63 68 20 66 6f 72 issect match for
9c70: 20 61 6c 74 65 72 6e 61 74 69 6f 6e 20 6e 6f 64 alternation nod
9c80: 65 0a 21 20 20 5e 20 73 74 61 74 69 63 20 69 6e e.! ^ static in
9c90: 74 20 63 61 6c 74 64 69 73 73 65 63 74 28 73 74 t caltdissect(st
9ca0: 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 ruct vars *, str
9cb0: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
9cc0: 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 21 20 20 2a *, chr *);.! *
9cd0: 2f 0a 21 20 73 74 61 74 69 63 20 69 6e 74 09 09 /.! static int..
9ce0: 09 2f 2a 20 72 65 67 65 78 65 63 20 72 65 74 75 ./* regexec retu
9cf0: 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 20 63 61 6c rn code */.! cal
9d00: 74 64 69 73 73 65 63 74 28 0a 21 20 20 20 20 20 tdissect(.!
9d10: 73 74 72 75 63 74 20 76 61 72 73 20 2a 63 6f 6e struct vars *con
9d20: 73 74 20 76 2c 0a 21 20 20 20 20 20 73 74 72 75 st v,.! stru
9d30: 63 74 20 73 75 62 72 65 20 2a 74 2c 0a 21 20 20 ct subre *t,.!
9d40: 20 20 20 63 68 72 20 2a 63 6f 6e 73 74 20 62 65 chr *const be
9d50: 67 69 6e 2c 09 09 2f 2a 20 62 65 67 69 6e 6e 69 gin,../* beginni
9d60: 6e 67 20 6f 66 20 72 65 6c 65 76 61 6e 74 20 73 ng of relevant s
9d70: 75 62 73 74 72 69 6e 67 20 2a 2f 0a 21 20 20 20 ubstring */.!
9d80: 20 20 63 68 72 20 2a 63 6f 6e 73 74 20 65 6e 64 chr *const end
9d90: 29 09 09 2f 2a 20 65 6e 64 20 6f 66 20 73 61 6d )../* end of sam
9da0: 65 20 2a 2f 0a 21 20 7b 0a 21 20 20 20 20 20 73 e */.! {.! s
9db0: 74 72 75 63 74 20 64 66 61 20 2a 64 3b 0a 21 20 truct dfa *d;.!
9dc0: 20 20 20 20 69 6e 74 20 65 72 3b 0a 20 20 0a 21 int er;. .!
9dd0: 20 20 20 20 20 2f 2a 20 57 65 20 6c 6f 6f 70 2c /* We loop,
9de0: 20 72 61 74 68 65 72 20 74 68 61 6e 20 74 61 69 rather than tai
9df0: 6c 2d 72 65 63 75 72 73 65 2c 20 74 6f 20 68 61 l-recurse, to ha
9e00: 6e 64 6c 65 20 61 20 63 68 61 69 6e 20 6f 66 20 ndle a chain of
9e10: 61 6c 74 65 72 6e 61 74 69 76 65 73 20 2a 2f 0a alternatives */.
9e20: 21 20 20 20 20 20 77 68 69 6c 65 20 28 74 20 21 ! while (t !
9e30: 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 09 61 73 73 = NULL) {.! .ass
9e40: 65 72 74 28 74 2d 3e 6f 70 20 3d 3d 20 27 7c 27 ert(t->op == '|'
9e50: 29 3b 0a 21 20 09 61 73 73 65 72 74 28 74 2d 3e );.! .assert(t->
9e60: 6c 65 66 74 20 21 3d 20 4e 55 4c 4c 20 26 26 20 left != NULL &&
9e70: 74 2d 3e 6c 65 66 74 2d 3e 63 6e 66 61 2e 6e 73 t->left->cnfa.ns
9e80: 74 61 74 65 73 20 3e 20 30 29 3b 0a 21 20 0a 21 tates > 0);.! .!
9e90: 20 09 4d 44 45 42 55 47 28 28 22 63 61 6c 74 20 .MDEBUG(("calt
9ea0: 6e 25 64 5c 6e 22 2c 20 74 2d 3e 69 64 29 29 3b n%d\n", t->id));
9eb0: 0a 21 20 0a 21 20 09 64 20 3d 20 6e 65 77 44 46 .! .! .d = newDF
9ec0: 41 28 76 2c 20 26 74 2d 3e 6c 65 66 74 2d 3e 63 A(v, &t->left->c
9ed0: 6e 66 61 2c 20 26 76 2d 3e 67 2d 3e 63 6d 61 70 nfa, &v->g->cmap
9ee0: 2c 20 44 4f 4d 41 4c 4c 4f 43 29 3b 0a 21 20 09 , DOMALLOC);.! .
9ef0: 4e 4f 45 52 52 28 29 3b 0a 21 20 09 69 66 20 28 NOERR();.! .if (
9f00: 6c 6f 6e 67 65 73 74 28 76 2c 20 64 2c 20 62 65 longest(v, d, be
9f10: 67 69 6e 2c 20 65 6e 64 2c 20 28 69 6e 74 20 2a gin, end, (int *
9f20: 29 20 4e 55 4c 4c 29 20 3d 3d 20 65 6e 64 29 20 ) NULL) == end)
9f30: 7b 0a 21 20 09 20 20 20 20 66 72 65 65 44 46 41 {.! . freeDFA
9f40: 28 64 29 3b 0a 21 20 09 20 20 20 20 4d 44 45 42 (d);.! . MDEB
9f50: 55 47 28 28 22 63 61 6c 74 20 6d 61 74 63 68 65 UG(("calt matche
9f60: 64 5c 6e 22 29 29 3b 0a 21 20 09 20 20 20 20 65 d\n"));.! . e
9f70: 72 20 3d 20 63 64 69 73 73 65 63 74 28 76 2c 20 r = cdissect(v,
9f80: 74 2d 3e 6c 65 66 74 2c 20 62 65 67 69 6e 2c 20 t->left, begin,
9f90: 65 6e 64 29 3b 0a 21 20 09 20 20 20 20 69 66 20 end);.! . if
9fa0: 28 65 72 20 21 3d 20 52 45 47 5f 4e 4f 4d 41 54 (er != REG_NOMAT
9fb0: 43 48 29 20 7b 0a 21 20 09 09 72 65 74 75 72 6e CH) {.! ..return
9fc0: 20 65 72 3b 0a 21 20 09 20 20 20 20 7d 0a 20 20 er;.! . }.
9fd0: 09 7d 0a 21 20 09 66 72 65 65 44 46 41 28 64 29 .}.! .freeDFA(d)
9fe0: 3b 0a 21 20 0a 21 20 09 74 20 3d 20 74 2d 3e 72 ;.! .! .t = t->r
9ff0: 69 67 68 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 ight;. }.
a000: 0a 2b 20 20 20 20 20 72 65 74 75 72 6e 20 52 45 .+ return RE
a010: 47 5f 4e 4f 4d 41 54 43 48 3b 0a 2b 20 7d 0a 2b G_NOMATCH;.+ }.+
a020: 20 0c 0a 2b 20 2f 2a 0a 2b 20 20 2d 20 63 69 74 ..+ /*.+ - cit
a030: 65 72 64 69 73 73 65 63 74 20 2d 20 64 69 73 73 erdissect - diss
a040: 65 63 74 20 6d 61 74 63 68 20 66 6f 72 20 69 74 ect match for it
a050: 65 72 61 74 69 6f 6e 20 6e 6f 64 65 0a 2b 20 20 eration node.+
a060: 5e 20 73 74 61 74 69 63 20 69 6e 74 20 63 69 74 ^ static int cit
a070: 65 72 64 69 73 73 65 63 74 28 73 74 72 75 63 74 erdissect(struct
a080: 20 76 61 72 73 20 2a 2c 20 73 74 72 75 63 74 20 vars *, struct
a090: 73 75 62 72 65 20 2a 2c 20 63 68 72 20 2a 2c 20 subre *, chr *,
a0a0: 63 68 72 20 2a 29 3b 0a 2b 20 20 2a 2f 0a 2b 20 chr *);.+ */.+
a0b0: 73 74 61 74 69 63 20 69 6e 74 09 09 09 2f 2a 20 static int.../*
a0c0: 72 65 67 65 78 65 63 20 72 65 74 75 72 6e 20 63 regexec return c
a0d0: 6f 64 65 20 2a 2f 0a 2b 20 63 69 74 65 72 64 69 ode */.+ citerdi
a0e0: 73 73 65 63 74 28 73 74 72 75 63 74 20 76 61 72 ssect(struct var
a0f0: 73 20 2a 20 76 2c 0a 2b 20 09 20 20 20 20 20 73 s * v,.+ . s
a100: 74 72 75 63 74 20 73 75 62 72 65 20 2a 20 74 2c truct subre * t,
a110: 0a 2b 20 09 20 20 20 20 20 63 68 72 20 2a 62 65 .+ . chr *be
a120: 67 69 6e 2c 09 2f 2a 20 62 65 67 69 6e 6e 69 6e gin,./* beginnin
a130: 67 20 6f 66 20 72 65 6c 65 76 61 6e 74 20 73 75 g of relevant su
a140: 62 73 74 72 69 6e 67 20 2a 2f 0a 2b 20 09 20 20 bstring */.+ .
a150: 20 20 20 63 68 72 20 2a 65 6e 64 29 09 09 2f 2a chr *end)../*
a160: 20 65 6e 64 20 6f 66 20 73 61 6d 65 20 2a 2f 0a end of same */.
a170: 2b 20 7b 0a 2b 20 20 20 20 20 73 74 72 75 63 74 + {.+ struct
a180: 20 64 66 61 20 2a 64 3b 0a 2b 20 20 20 20 20 63 dfa *d;.+ c
a190: 68 72 09 20 20 2a 2a 65 6e 64 70 74 73 3b 0a 2b hr. **endpts;.+
a1a0: 20 20 20 20 20 63 68 72 09 20 20 20 2a 6c 69 6d chr. *lim
a1b0: 69 74 3b 0a 2b 20 20 20 20 20 69 6e 74 09 09 6d it;.+ int..m
a1c0: 69 6e 5f 6d 61 74 63 68 65 73 3b 0a 2b 20 20 20 in_matches;.+
a1d0: 20 20 73 69 7a 65 5f 74 09 6d 61 78 5f 6d 61 74 size_t.max_mat
a1e0: 63 68 65 73 3b 0a 2b 20 20 20 20 20 69 6e 74 09 ches;.+ int.
a1f0: 09 6e 76 65 72 69 66 69 65 64 3b 0a 2b 20 20 20 .nverified;.+
a200: 20 20 69 6e 74 09 09 6b 3b 0a 2b 20 20 20 20 20 int..k;.+
a210: 69 6e 74 09 09 69 3b 0a 2b 20 20 20 20 20 69 6e int..i;.+ in
a220: 74 09 09 65 72 3b 0a 2b 20 0a 2b 20 20 20 20 20 t..er;.+ .+
a230: 61 73 73 65 72 74 28 74 2d 3e 6f 70 20 3d 3d 20 assert(t->op ==
a240: 27 2a 27 29 3b 0a 2b 20 20 20 20 20 61 73 73 65 '*');.+ asse
a250: 72 74 28 74 2d 3e 6c 65 66 74 20 21 3d 20 4e 55 rt(t->left != NU
a260: 4c 4c 20 26 26 20 74 2d 3e 6c 65 66 74 2d 3e 63 LL && t->left->c
a270: 6e 66 61 2e 6e 73 74 61 74 65 73 20 3e 20 30 29 nfa.nstates > 0)
a280: 3b 0a 2b 20 20 20 20 20 61 73 73 65 72 74 28 21 ;.+ assert(!
a290: 28 74 2d 3e 6c 65 66 74 2d 3e 66 6c 61 67 73 20 (t->left->flags
a2a0: 26 20 53 48 4f 52 54 45 52 29 29 3b 0a 2b 20 20 & SHORTER));.+
a2b0: 20 20 20 61 73 73 65 72 74 28 62 65 67 69 6e 20 assert(begin
a2c0: 3c 3d 20 65 6e 64 29 3b 0a 2b 20 0a 20 20 20 20 <= end);.+ .
a2d0: 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a 20 49 66 /*.! * If
a2e0: 20 7a 65 72 6f 20 6d 61 74 63 68 65 73 20 61 72 zero matches ar
a2f0: 65 20 61 6c 6c 6f 77 65 64 2c 20 61 6e 64 20 74 e allowed, and t
a300: 61 72 67 65 74 20 73 74 72 69 6e 67 20 69 73 20 arget string is
a310: 65 6d 70 74 79 2c 20 6a 75 73 74 20 64 65 63 6c empty, just decl
a320: 61 72 65 0a 21 20 20 20 20 20 20 2a 20 76 69 63 are.! * vic
a330: 74 6f 72 79 2e 20 20 4f 54 4f 48 2c 20 69 66 20 tory. OTOH, if
a340: 74 61 72 67 65 74 20 73 74 72 69 6e 67 20 69 73 target string is
a350: 6e 27 74 20 65 6d 70 74 79 2c 20 7a 65 72 6f 20 n't empty, zero
a360: 6d 61 74 63 68 65 73 20 63 61 6e 27 74 20 77 6f matches can't wo
a370: 72 6b 0a 21 20 20 20 20 20 20 2a 20 73 6f 20 77 rk.! * so w
a380: 65 20 70 72 65 74 65 6e 64 20 74 68 65 20 6d 69 e pretend the mi
a390: 6e 20 69 73 20 31 2e 0a 20 20 20 20 20 20 20 2a n is 1.. *
a3a0: 2f 0a 21 20 20 20 20 20 6d 69 6e 5f 6d 61 74 63 /.! min_matc
a3b0: 68 65 73 20 3d 20 74 2d 3e 6d 69 6e 3b 0a 21 20 hes = t->min;.!
a3c0: 20 20 20 20 69 66 20 28 6d 69 6e 5f 6d 61 74 63 if (min_matc
a3d0: 68 65 73 20 3c 3d 20 30 29 20 7b 0a 21 20 09 69 hes <= 0) {.! .i
a3e0: 66 20 28 62 65 67 69 6e 20 3d 3d 20 65 6e 64 29 f (begin == end)
a3f0: 0a 21 20 09 20 20 20 20 72 65 74 75 72 6e 20 52 .! . return R
a400: 45 47 5f 4f 4b 41 59 3b 0a 21 20 09 6d 69 6e 5f EG_OKAY;.! .min_
a410: 6d 61 74 63 68 65 73 20 3d 20 31 3b 0a 20 20 20 matches = 1;.
a420: 20 20 20 7d 0a 20 20 0a 20 20 20 20 20 20 2f 2a }. . /*
a430: 0a 21 20 20 20 20 20 20 2a 20 57 65 20 6e 65 65 .! * We nee
a440: 64 20 77 6f 72 6b 73 70 61 63 65 20 74 6f 20 74 d workspace to t
a450: 72 61 63 6b 20 74 68 65 20 65 6e 64 70 6f 69 6e rack the endpoin
a460: 74 73 20 6f 66 20 65 61 63 68 20 73 75 62 2d 6d ts of each sub-m
a470: 61 74 63 68 2e 20 20 4e 6f 72 6d 61 6c 6c 79 0a atch. Normally.
a480: 21 20 20 20 20 20 20 2a 20 77 65 20 63 6f 6e 73 ! * we cons
a490: 69 64 65 72 20 6f 6e 6c 79 20 6e 6f 6e 7a 65 72 ider only nonzer
a4a0: 6f 2d 6c 65 6e 67 74 68 20 73 75 62 2d 6d 61 74 o-length sub-mat
a4b0: 63 68 65 73 2c 20 73 6f 20 74 68 65 72 65 20 63 ches, so there c
a4c0: 61 6e 20 62 65 20 61 74 20 6d 6f 73 74 0a 21 20 an be at most.!
a4d0: 20 20 20 20 20 2a 20 65 6e 64 2d 62 65 67 69 6e * end-begin
a4e0: 20 6f 66 20 74 68 65 6d 2e 20 20 48 6f 77 65 76 of them. Howev
a4f0: 65 72 2c 20 69 66 20 6d 69 6e 20 69 73 20 6c 61 er, if min is la
a500: 72 67 65 72 20 74 68 61 6e 20 74 68 61 74 2c 20 rger than that,
a510: 77 65 20 77 69 6c 6c 20 61 6c 73 6f 0a 21 20 20 we will also.!
a520: 20 20 20 20 2a 20 63 6f 6e 73 69 64 65 72 20 7a * consider z
a530: 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 2d 6d ero-length sub-m
a540: 61 74 63 68 65 73 20 69 6e 20 6f 72 64 65 72 20 atches in order
a550: 74 6f 20 66 69 6e 64 20 65 6e 6f 75 67 68 20 6d to find enough m
a560: 61 74 63 68 65 73 2e 0a 21 20 20 20 20 20 20 2a atches..! *
a570: 0a 21 20 20 20 20 20 20 2a 20 46 6f 72 20 63 6f .! * For co
a580: 6e 76 65 6e 69 65 6e 63 65 2c 20 65 6e 64 70 74 nvenience, endpt
a590: 73 5b 30 5d 20 63 6f 6e 74 61 69 6e 73 20 74 68 s[0] contains th
a5a0: 65 20 22 62 65 67 69 6e 22 20 70 6f 69 6e 74 65 e "begin" pointe
a5b0: 72 20 61 6e 64 20 77 65 20 73 74 6f 72 65 0a 21 r and we store.!
a5c0: 20 20 20 20 20 20 2a 20 73 75 62 2d 6d 61 74 63 * sub-matc
a5d0: 68 20 65 6e 64 70 6f 69 6e 74 73 20 69 6e 20 65 h endpoints in e
a5e0: 6e 64 70 74 73 5b 31 2e 2e 6d 61 78 5f 6d 61 74 ndpts[1..max_mat
a5f0: 63 68 65 73 5d 2e 0a 20 20 20 20 20 20 20 2a 2f ches].. */
a600: 0a 2b 20 20 20 20 20 6d 61 78 5f 6d 61 74 63 68 .+ max_match
a610: 65 73 20 3d 20 65 6e 64 20 2d 20 62 65 67 69 6e es = end - begin
a620: 3b 0a 2b 20 20 20 20 20 69 66 20 28 6d 61 78 5f ;.+ if (max_
a630: 6d 61 74 63 68 65 73 20 3e 20 74 2d 3e 6d 61 78 matches > t->max
a640: 20 26 26 20 74 2d 3e 6d 61 78 20 21 3d 20 44 55 && t->max != DU
a650: 50 49 4e 46 29 0a 2b 20 09 6d 61 78 5f 6d 61 74 PINF).+ .max_mat
a660: 63 68 65 73 20 3d 20 74 2d 3e 6d 61 78 3b 0a 2b ches = t->max;.+
a670: 20 20 20 20 20 69 66 20 28 6d 61 78 5f 6d 61 74 if (max_mat
a680: 63 68 65 73 20 3c 20 6d 69 6e 5f 6d 61 74 63 68 ches < min_match
a690: 65 73 29 0a 2b 20 09 6d 61 78 5f 6d 61 74 63 68 es).+ .max_match
a6a0: 65 73 20 3d 20 6d 69 6e 5f 6d 61 74 63 68 65 73 es = min_matches
a6b0: 3b 0a 2b 20 20 20 20 20 65 6e 64 70 74 73 20 3d ;.+ endpts =
a6c0: 20 28 63 68 72 20 2a 2a 29 20 4d 41 4c 4c 4f 43 (chr **) MALLOC
a6d0: 28 28 6d 61 78 5f 6d 61 74 63 68 65 73 20 2b 20 ((max_matches +
a6e0: 31 29 20 2a 20 73 69 7a 65 6f 66 28 63 68 72 20 1) * sizeof(chr
a6f0: 2a 29 29 3b 0a 2b 20 20 20 20 20 69 66 20 28 65 *));.+ if (e
a700: 6e 64 70 74 73 20 3d 3d 20 4e 55 4c 4c 29 0a 2b ndpts == NULL).+
a710: 20 09 72 65 74 75 72 6e 20 52 45 47 5f 45 53 50 .return REG_ESP
a720: 41 43 45 3b 0a 2b 20 20 20 20 20 65 6e 64 70 74 ACE;.+ endpt
a730: 73 5b 30 5d 20 3d 20 62 65 67 69 6e 3b 0a 20 20 s[0] = begin;.
a740: 0a 21 20 20 20 20 20 64 20 3d 20 6e 65 77 44 46 .! d = newDF
a750: 41 28 76 2c 20 26 74 2d 3e 6c 65 66 74 2d 3e 63 A(v, &t->left->c
a760: 6e 66 61 2c 20 26 76 2d 3e 67 2d 3e 63 6d 61 70 nfa, &v->g->cmap
a770: 2c 20 44 4f 4d 41 4c 4c 4f 43 29 3b 0a 21 20 20 , DOMALLOC);.!
a780: 20 20 20 69 66 20 28 49 53 45 52 52 28 29 29 20 if (ISERR())
a790: 7b 0a 21 20 09 46 52 45 45 28 65 6e 64 70 74 73 {.! .FREE(endpts
a7a0: 29 3b 0a 21 20 09 72 65 74 75 72 6e 20 76 2d 3e );.! .return v->
a7b0: 65 72 72 3b 0a 20 20 20 20 20 20 7d 0a 21 20 20 err;. }.!
a7c0: 20 20 20 4d 44 45 42 55 47 28 28 22 63 69 74 65 MDEBUG(("cite
a7d0: 72 20 25 64 5c 6e 22 2c 20 74 2d 3e 69 64 29 29 r %d\n", t->id))
a7e0: 3b 0a 20 20 0a 20 20 20 20 20 20 2f 2a 0a 21 20 ;. . /*.!
a7f0: 20 20 20 20 20 2a 20 4f 75 72 20 73 74 72 61 74 * Our strat
a800: 65 67 79 20 69 73 20 74 6f 20 66 69 72 73 74 20 egy is to first
a810: 66 69 6e 64 20 61 20 73 65 74 20 6f 66 20 73 75 find a set of su
a820: 62 2d 6d 61 74 63 68 20 65 6e 64 70 6f 69 6e 74 b-match endpoint
a830: 73 20 74 68 61 74 20 61 72 65 0a 21 20 20 20 20 s that are.!
a840: 20 20 2a 20 76 61 6c 69 64 20 61 63 63 6f 72 64 * valid accord
a850: 69 6e 67 20 74 6f 20 74 68 65 20 63 68 69 6c 64 ing to the child
a860: 20 6e 6f 64 65 27 73 20 44 46 41 2c 20 61 6e 64 node's DFA, and
a870: 20 74 68 65 6e 20 72 65 63 75 72 73 69 76 65 6c then recursivel
a880: 79 20 64 69 73 73 65 63 74 0a 21 20 20 20 20 20 y dissect.!
a890: 20 2a 20 65 61 63 68 20 73 75 62 2d 6d 61 74 63 * each sub-matc
a8a0: 68 20 74 6f 20 63 6f 6e 66 69 72 6d 20 76 61 6c h to confirm val
a8b0: 69 64 69 74 79 2e 20 20 49 66 20 61 6e 79 20 76 idity. If any v
a8c0: 61 6c 69 64 69 74 79 20 63 68 65 63 6b 20 66 61 alidity check fa
a8d0: 69 6c 73 2c 0a 21 20 20 20 20 20 20 2a 20 62 61 ils,.! * ba
a8e0: 63 6b 74 72 61 63 6b 20 74 68 65 20 6c 61 73 74 cktrack the last
a8f0: 20 73 75 62 2d 6d 61 74 63 68 20 61 6e 64 20 74 sub-match and t
a900: 72 79 20 61 67 61 69 6e 2e 20 20 41 6e 64 2c 20 ry again. And,
a910: 77 68 65 6e 20 77 65 20 6e 65 78 74 20 74 72 79 when we next try
a920: 20 66 6f 72 0a 21 20 20 20 20 20 20 2a 20 61 20 for.! * a
a930: 76 61 6c 69 64 69 74 79 20 63 68 65 63 6b 2c 20 validity check,
a940: 77 65 20 6e 65 65 64 20 6e 6f 74 20 72 65 63 68 we need not rech
a950: 65 63 6b 20 61 6e 79 20 73 75 63 63 65 73 73 66 eck any successf
a960: 75 6c 6c 79 20 76 65 72 69 66 69 65 64 0a 21 20 ully verified.!
a970: 20 20 20 20 20 2a 20 73 75 62 2d 6d 61 74 63 68 * sub-match
a980: 65 73 20 74 68 61 74 20 77 65 20 64 69 64 6e 27 es that we didn'
a990: 74 20 6d 6f 76 65 20 74 68 65 20 65 6e 64 70 6f t move the endpo
a9a0: 69 6e 74 73 20 6f 66 2e 20 20 6e 76 65 72 69 66 ints of. nverif
a9b0: 69 65 64 20 72 65 6d 65 6d 62 65 72 73 0a 21 20 ied remembers.!
a9c0: 20 20 20 20 20 2a 20 68 6f 77 20 6d 61 6e 79 20 * how many
a9d0: 73 75 62 2d 6d 61 74 63 68 65 73 20 61 72 65 20 sub-matches are
a9e0: 63 75 72 72 65 6e 74 6c 79 20 6b 6e 6f 77 6e 20 currently known
a9f0: 6f 6b 61 79 2e 0a 20 20 20 20 20 20 20 2a 2f 0a okay.. */.
aa00: 20 20 0a 21 20 20 20 20 20 2f 2a 20 69 6e 69 74 .! /* init
aa10: 69 61 6c 69 7a 65 20 74 6f 20 63 6f 6e 73 69 64 ialize to consid
aa20: 65 72 20 66 69 72 73 74 20 73 75 62 2d 6d 61 74 er first sub-mat
aa30: 63 68 20 2a 2f 0a 21 20 20 20 20 20 6e 76 65 72 ch */.! nver
aa40: 69 66 69 65 64 20 3d 20 30 3b 0a 21 20 20 20 20 ified = 0;.!
aa50: 20 6b 20 3d 20 31 3b 0a 21 20 20 20 20 20 6c 69 k = 1;.! li
aa60: 6d 69 74 20 3d 20 65 6e 64 3b 0a 21 20 0a 21 20 mit = end;.! .!
aa70: 20 20 20 20 2f 2a 20 69 74 65 72 61 74 65 20 75 /* iterate u
aa80: 6e 74 69 6c 20 73 61 74 69 73 66 61 63 74 69 6f ntil satisfactio
aa90: 6e 20 6f 72 20 66 61 69 6c 75 72 65 20 2a 2f 0a n or failure */.
aaa0: 21 20 20 20 20 20 77 68 69 6c 65 20 28 6b 20 3e ! while (k >
aab0: 20 30 29 20 7b 0a 21 20 09 2f 2a 20 74 72 79 20 0) {.! ./* try
aac0: 74 6f 20 66 69 6e 64 20 61 6e 20 65 6e 64 70 6f to find an endpo
aad0: 69 6e 74 20 66 6f 72 20 74 68 65 20 6b 27 74 68 int for the k'th
aae0: 20 73 75 62 2d 6d 61 74 63 68 20 2a 2f 0a 21 20 sub-match */.!
aaf0: 09 65 6e 64 70 74 73 5b 6b 5d 20 3d 20 6c 6f 6e .endpts[k] = lon
ab00: 67 65 73 74 28 76 2c 20 64 2c 20 65 6e 64 70 74 gest(v, d, endpt
ab10: 73 5b 6b 20 2d 20 31 5d 2c 20 6c 69 6d 69 74 2c s[k - 1], limit,
ab20: 20 28 69 6e 74 20 2a 29 20 4e 55 4c 4c 29 3b 0a (int *) NULL);.
ab30: 21 20 09 69 66 20 28 65 6e 64 70 74 73 5b 6b 5d ! .if (endpts[k]
ab40: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 09 20 == NULL) {.! .
ab50: 20 20 20 2f 2a 20 6e 6f 20 6d 61 74 63 68 20 70 /* no match p
ab60: 6f 73 73 69 62 6c 65 2c 20 73 6f 20 73 65 65 20 ossible, so see
ab70: 69 66 20 77 65 20 63 61 6e 20 73 68 6f 72 74 65 if we can shorte
ab80: 6e 20 70 72 65 76 69 6f 75 73 20 6f 6e 65 20 2a n previous one *
ab90: 2f 0a 21 20 09 20 20 20 20 6b 2d 2d 3b 0a 21 20 /.! . k--;.!
aba0: 09 20 20 20 20 67 6f 74 6f 20 62 61 63 6b 74 72 . goto backtr
abb0: 61 63 6b 3b 0a 21 20 09 7d 0a 21 20 09 4d 44 45 ack;.! .}.! .MDE
abc0: 42 55 47 28 28 22 25 64 3a 20 77 6f 72 6b 69 6e BUG(("%d: workin
abd0: 67 20 65 6e 64 70 6f 69 6e 74 20 25 64 3a 20 25 g endpoint %d: %
abe0: 6c 64 5c 6e 22 2c 0a 21 20 09 09 74 2d 3e 69 64 ld\n",.! ..t->id
abf0: 2c 20 6b 2c 20 4c 4f 46 46 28 65 6e 64 70 74 73 , k, LOFF(endpts
ac00: 5b 6b 5d 29 29 29 3b 0a 21 20 0a 21 20 09 2f 2a [k])));.! .! ./*
ac10: 20 6b 27 74 68 20 73 75 62 2d 6d 61 74 63 68 20 k'th sub-match
ac20: 63 61 6e 20 6e 6f 20 6c 6f 6e 67 65 72 20 62 65 can no longer be
ac30: 20 63 6f 6e 73 69 64 65 72 65 64 20 76 65 72 69 considered veri
ac40: 66 69 65 64 20 2a 2f 0a 21 20 09 69 66 20 28 6e fied */.! .if (n
ac50: 76 65 72 69 66 69 65 64 20 3e 3d 20 6b 29 0a 21 verified >= k).!
ac60: 20 09 20 20 20 20 6e 76 65 72 69 66 69 65 64 20 . nverified
ac70: 3d 20 6b 20 2d 20 31 3b 0a 21 20 0a 21 20 09 69 = k - 1;.! .! .i
ac80: 66 20 28 65 6e 64 70 74 73 5b 6b 5d 20 21 3d 20 f (endpts[k] !=
ac90: 65 6e 64 29 20 7b 0a 21 20 09 20 20 20 20 2f 2a end) {.! . /*
aca0: 20 68 61 76 65 6e 27 74 20 72 65 61 63 68 65 64 haven't reached
acb0: 20 65 6e 64 20 79 65 74 2c 20 74 72 79 20 61 6e end yet, try an
acc0: 6f 74 68 65 72 20 69 74 65 72 61 74 69 6f 6e 20 other iteration
acd0: 69 66 20 61 6c 6c 6f 77 65 64 20 2a 2f 0a 21 20 if allowed */.!
ace0: 09 20 20 20 20 69 66 20 28 6b 20 3e 3d 20 6d 61 . if (k >= ma
acf0: 78 5f 6d 61 74 63 68 65 73 29 20 7b 0a 21 20 09 x_matches) {.! .
ad00: 09 2f 2a 20 6d 75 73 74 20 74 72 79 20 74 6f 20 ./* must try to
ad10: 73 68 6f 72 74 65 6e 20 73 6f 6d 65 20 70 72 65 shorten some pre
ad20: 76 69 6f 75 73 20 6d 61 74 63 68 20 2a 2f 0a 21 vious match */.!
ad30: 20 09 09 6b 2d 2d 3b 0a 21 20 09 09 67 6f 74 6f ..k--;.! ..goto
ad40: 20 62 61 63 6b 74 72 61 63 6b 3b 0a 21 20 09 20 backtrack;.! .
ad50: 20 20 20 7d 0a 21 20 0a 21 20 09 20 20 20 20 2f }.! .! . /
ad60: 2a 20 72 65 6a 65 63 74 20 7a 65 72 6f 2d 6c 65 * reject zero-le
ad70: 6e 67 74 68 20 6d 61 74 63 68 20 75 6e 6c 65 73 ngth match unles
ad80: 73 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 61 s necessary to a
ad90: 63 68 69 65 76 65 20 6d 69 6e 20 2a 2f 0a 21 20 chieve min */.!
ada0: 09 20 20 20 20 69 66 20 28 65 6e 64 70 74 73 5b . if (endpts[
adb0: 6b 5d 20 3d 3d 20 65 6e 64 70 74 73 5b 6b 20 2d k] == endpts[k -
adc0: 20 31 5d 20 26 26 0a 21 20 09 09 28 6b 20 3e 3d 1] &&.! ..(k >=
add0: 20 6d 69 6e 5f 6d 61 74 63 68 65 73 20 7c 7c 20 min_matches ||
ade0: 6d 69 6e 5f 6d 61 74 63 68 65 73 20 2d 20 6b 20 min_matches - k
adf0: 3c 20 65 6e 64 20 2d 20 65 6e 64 70 74 73 5b 6b < end - endpts[k
ae00: 5d 29 29 0a 21 20 09 09 67 6f 74 6f 20 62 61 63 ])).! ..goto bac
ae10: 6b 74 72 61 63 6b 3b 0a 21 20 0a 21 20 09 20 20 ktrack;.! .! .
ae20: 20 20 6b 2b 2b 3b 0a 21 20 09 20 20 20 20 6c 69 k++;.! . li
ae30: 6d 69 74 20 3d 20 65 6e 64 3b 0a 21 20 09 20 20 mit = end;.! .
ae40: 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 21 20 09 7d continue;.! .}
ae50: 0a 21 20 0a 21 20 09 2f 2a 0a 21 20 09 20 2a 20 .! .! ./*.! . *
ae60: 57 65 27 76 65 20 69 64 65 6e 74 69 66 69 65 64 We've identified
ae70: 20 61 20 77 61 79 20 74 6f 20 64 69 76 69 64 65 a way to divide
ae80: 20 74 68 65 20 73 74 72 69 6e 67 20 69 6e 74 6f the string into
ae90: 20 6b 20 73 75 62 2d 6d 61 74 63 68 65 73 0a 21 k sub-matches.!
aea0: 20 09 20 2a 20 74 68 61 74 20 77 6f 72 6b 73 20 . * that works
aeb0: 73 6f 20 66 61 72 20 61 73 20 74 68 65 20 63 68 so far as the ch
aec0: 69 6c 64 20 44 46 41 20 63 61 6e 20 74 65 6c 6c ild DFA can tell
aed0: 2e 20 20 49 66 20 6b 20 69 73 20 61 6e 20 61 6c . If k is an al
aee0: 6c 6f 77 65 64 0a 21 20 09 20 2a 20 6e 75 6d 62 lowed.! . * numb
aef0: 65 72 20 6f 66 20 6d 61 74 63 68 65 73 2c 20 73 er of matches, s
af00: 74 61 72 74 20 74 68 65 20 73 6c 6f 77 20 70 61 tart the slow pa
af10: 72 74 3a 20 72 65 63 75 72 73 65 20 74 6f 20 76 rt: recurse to v
af20: 65 72 69 66 79 20 65 61 63 68 0a 21 20 09 20 2a erify each.! . *
af30: 20 73 75 62 2d 6d 61 74 63 68 2e 20 20 57 65 20 sub-match. We
af40: 61 6c 77 61 79 73 20 68 61 76 65 20 6b 20 3c 3d always have k <=
af50: 20 6d 61 78 5f 6d 61 74 63 68 65 73 2c 20 6e 65 max_matches, ne
af60: 65 64 6e 27 74 20 63 68 65 63 6b 20 74 68 61 74 edn't check that
af70: 2e 0a 21 20 09 20 2a 2f 0a 21 20 09 69 66 20 28 ..! . */.! .if (
af80: 6b 20 3c 20 6d 69 6e 5f 6d 61 74 63 68 65 73 29 k < min_matches)
af90: 0a 21 20 09 20 20 20 20 67 6f 74 6f 20 62 61 63 .! . goto bac
afa0: 6b 74 72 61 63 6b 3b 0a 21 20 0a 21 20 09 4d 44 ktrack;.! .! .MD
afb0: 45 42 55 47 28 28 22 25 64 3a 20 76 65 72 69 66 EBUG(("%d: verif
afc0: 79 69 6e 67 20 25 64 2e 2e 25 64 5c 6e 22 2c 20 ying %d..%d\n",
afd0: 74 2d 3e 69 64 2c 20 6e 76 65 72 69 66 69 65 64 t->id, nverified
afe0: 20 2b 20 31 2c 20 6b 29 29 3b 0a 21 20 0a 21 20 + 1, k));.! .!
aff0: 09 66 6f 72 20 28 69 20 3d 20 6e 76 65 72 69 66 .for (i = nverif
b000: 69 65 64 20 2b 20 31 3b 20 69 20 3c 3d 20 6b 3b ied + 1; i <= k;
b010: 20 69 2b 2b 29 20 7b 0a 21 20 09 20 20 20 20 7a i++) {.! . z
b020: 61 70 74 72 65 65 73 75 62 73 28 76 2c 20 74 2d aptreesubs(v, t-
b030: 3e 6c 65 66 74 29 3b 0a 21 20 09 20 20 20 20 65 >left);.! . e
b040: 72 20 3d 20 63 64 69 73 73 65 63 74 28 76 2c 20 r = cdissect(v,
b050: 74 2d 3e 6c 65 66 74 2c 20 65 6e 64 70 74 73 5b t->left, endpts[
b060: 69 20 2d 20 31 5d 2c 20 65 6e 64 70 74 73 5b 69 i - 1], endpts[i
b070: 5d 29 3b 0a 21 20 09 20 20 20 20 69 66 20 28 65 ]);.! . if (e
b080: 72 20 3d 3d 20 52 45 47 5f 4f 4b 41 59 29 20 7b r == REG_OKAY) {
b090: 0a 21 20 09 09 6e 76 65 72 69 66 69 65 64 20 3d .! ..nverified =
b0a0: 20 69 3b 0a 21 20 09 09 63 6f 6e 74 69 6e 75 65 i;.! ..continue
b0b0: 3b 0a 21 20 09 20 20 20 20 7d 0a 21 20 09 20 20 ;.! . }.! .
b0c0: 20 20 69 66 20 28 65 72 20 3d 3d 20 52 45 47 5f if (er == REG_
b0d0: 4e 4f 4d 41 54 43 48 29 0a 21 20 09 09 62 72 65 NOMATCH).! ..bre
b0e0: 61 6b 3b 0a 21 20 09 20 20 20 20 2f 2a 20 6f 6f ak;.! . /* oo
b0f0: 70 73 2c 20 73 6f 6d 65 74 68 69 6e 67 20 66 61 ps, something fa
b100: 69 6c 65 64 20 2a 2f 0a 21 20 09 20 20 20 20 66 iled */.! . f
b110: 72 65 65 44 46 41 28 64 29 3b 0a 21 20 09 20 20 reeDFA(d);.! .
b120: 20 20 46 52 45 45 28 65 6e 64 70 74 73 29 3b 0a FREE(endpts);.
b130: 21 20 09 20 20 20 20 72 65 74 75 72 6e 20 65 72 ! . return er
b140: 3b 0a 21 20 09 7d 0a 21 20 0a 21 20 09 69 66 20 ;.! .}.! .! .if
b150: 28 69 20 3e 20 6b 29 20 7b 0a 21 20 09 20 20 20 (i > k) {.! .
b160: 20 2f 2a 20 73 61 74 69 73 66 61 63 74 69 6f 6e /* satisfaction
b170: 20 2a 2f 0a 21 20 09 20 20 20 20 4d 44 45 42 55 */.! . MDEBU
b180: 47 28 28 22 25 64 20 73 75 63 63 65 73 73 66 75 G(("%d successfu
b190: 6c 5c 6e 22 2c 20 74 2d 3e 69 64 29 29 3b 0a 21 l\n", t->id));.!
b1a0: 20 09 20 20 20 20 66 72 65 65 44 46 41 28 64 29 . freeDFA(d)
b1b0: 3b 0a 21 20 09 20 20 20 20 46 52 45 45 28 65 6e ;.! . FREE(en
b1c0: 64 70 74 73 29 3b 0a 21 20 09 20 20 20 20 72 65 dpts);.! . re
b1d0: 74 75 72 6e 20 52 45 47 5f 4f 4b 41 59 3b 0a 21 turn REG_OKAY;.!
b1e0: 20 09 7d 0a 21 20 0a 21 20 09 2f 2a 20 6d 61 74 .}.! .! ./* mat
b1f0: 63 68 20 66 61 69 6c 65 64 20 74 6f 20 76 65 72 ch failed to ver
b200: 69 66 79 2c 20 73 6f 20 62 61 63 6b 74 72 61 63 ify, so backtrac
b210: 6b 20 2a 2f 0a 21 20 0a 21 20 20 20 20 20 62 61 k */.! .! ba
b220: 63 6b 74 72 61 63 6b 3a 0a 21 20 09 2f 2a 0a 21 cktrack:.! ./*.!
b230: 20 09 20 2a 20 4d 75 73 74 20 63 6f 6e 73 69 64 . * Must consid
b240: 65 72 20 73 68 6f 72 74 65 72 20 76 65 72 73 69 er shorter versi
b250: 6f 6e 73 20 6f 66 20 74 68 65 20 63 75 72 72 65 ons of the curre
b260: 6e 74 20 73 75 62 2d 6d 61 74 63 68 2e 20 20 48 nt sub-match. H
b270: 6f 77 65 76 65 72 2c 0a 21 20 09 20 2a 20 77 65 owever,.! . * we
b280: 27 6c 6c 20 6f 6e 6c 79 20 61 73 6b 20 66 6f 72 'll only ask for
b290: 20 61 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 6d a zero-length m
b2a0: 61 74 63 68 20 69 66 20 6e 65 63 65 73 73 61 72 atch if necessar
b2b0: 79 2e 0a 21 20 09 20 2a 2f 0a 21 20 09 77 68 69 y..! . */.! .whi
b2c0: 6c 65 20 28 6b 20 3e 20 30 29 20 7b 0a 21 20 09 le (k > 0) {.! .
b2d0: 20 20 20 20 63 68 72 09 20 20 20 2a 70 72 65 76 chr. *prev
b2e0: 5f 65 6e 64 20 3d 20 65 6e 64 70 74 73 5b 6b 20 _end = endpts[k
b2f0: 2d 20 31 5d 3b 0a 21 20 0a 21 20 09 20 20 20 20 - 1];.! .! .
b300: 69 66 20 28 65 6e 64 70 74 73 5b 6b 5d 20 3e 20 if (endpts[k] >
b310: 70 72 65 76 5f 65 6e 64 29 20 7b 0a 21 20 09 09 prev_end) {.! ..
b320: 6c 69 6d 69 74 20 3d 20 65 6e 64 70 74 73 5b 6b limit = endpts[k
b330: 5d 20 2d 20 31 3b 0a 21 20 09 09 69 66 20 28 6c ] - 1;.! ..if (l
b340: 69 6d 69 74 20 3e 20 70 72 65 76 5f 65 6e 64 20 imit > prev_end
b350: 7c 7c 0a 21 20 09 09 20 20 20 20 28 6b 20 3c 20 ||.! .. (k <
b360: 6d 69 6e 5f 6d 61 74 63 68 65 73 20 26 26 20 6d min_matches && m
b370: 69 6e 5f 6d 61 74 63 68 65 73 20 2d 20 6b 20 3e in_matches - k >
b380: 3d 20 65 6e 64 20 2d 20 70 72 65 76 5f 65 6e 64 = end - prev_end
b390: 29 29 20 7b 0a 21 20 09 09 20 20 20 20 2f 2a 20 )) {.! .. /*
b3a0: 62 72 65 61 6b 20 6f 75 74 20 6f 66 20 62 61 63 break out of bac
b3b0: 6b 74 72 61 63 6b 20 6c 6f 6f 70 2c 20 63 6f 6e ktrack loop, con
b3c0: 74 69 6e 75 65 20 74 68 65 20 6f 75 74 65 72 20 tinue the outer
b3d0: 6f 6e 65 20 2a 2f 0a 21 20 09 09 20 20 20 20 62 one */.! .. b
b3e0: 72 65 61 6b 3b 0a 21 20 09 09 7d 0a 21 20 09 20 reak;.! ..}.! .
b3f0: 20 20 20 7d 0a 21 20 09 20 20 20 20 2f 2a 20 63 }.! . /* c
b400: 61 6e 27 74 20 73 68 6f 72 74 65 6e 20 6b 27 74 an't shorten k't
b410: 68 20 73 75 62 2d 6d 61 74 63 68 20 61 6e 79 20 h sub-match any
b420: 6d 6f 72 65 2c 20 63 6f 6e 73 69 64 65 72 20 70 more, consider p
b430: 72 65 76 69 6f 75 73 20 6f 6e 65 20 2a 2f 0a 21 revious one */.!
b440: 20 09 20 20 20 20 6b 2d 2d 3b 0a 21 20 09 7d 0a . k--;.! .}.
b450: 20 20 20 20 20 20 7d 0a 21 20 0a 21 20 20 20 20 }.! .!
b460: 20 2f 2a 20 61 6c 6c 20 70 6f 73 73 69 62 69 6c /* all possibil
b470: 69 74 69 65 73 20 65 78 68 61 75 73 74 65 64 20 ities exhausted
b480: 2a 2f 0a 21 20 20 20 20 20 4d 44 45 42 55 47 28 */.! MDEBUG(
b490: 28 22 25 64 20 66 61 69 6c 65 64 5c 6e 22 2c 20 ("%d failed\n",
b4a0: 74 2d 3e 69 64 29 29 3b 0a 21 20 20 20 20 20 66 t->id));.! f
b4b0: 72 65 65 44 46 41 28 64 29 3b 0a 21 20 20 20 20 reeDFA(d);.!
b4c0: 20 46 52 45 45 28 65 6e 64 70 74 73 29 3b 0a 21 FREE(endpts);.!
b4d0: 20 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 5f return REG_
b4e0: 4e 4f 4d 41 54 43 48 3b 0a 20 20 7d 0a 20 20 0c NOMATCH;. }. .
b4f0: 0a 20 20 2f 2a 0a 21 20 20 2d 20 63 72 65 76 69 . /*.! - crevi
b500: 74 65 72 64 69 73 73 65 63 74 20 2d 20 64 69 73 terdissect - dis
b510: 73 65 63 74 20 6d 61 74 63 68 20 66 6f 72 20 69 sect match for i
b520: 74 65 72 61 74 69 6f 6e 20 6e 6f 64 65 2c 20 73 teration node, s
b530: 68 6f 72 74 65 73 74 2d 66 69 72 73 74 0a 21 20 hortest-first.!
b540: 20 5e 20 73 74 61 74 69 63 20 69 6e 74 20 63 72 ^ static int cr
b550: 65 76 69 74 65 72 64 69 73 73 65 63 74 28 73 74 eviterdissect(st
b560: 72 75 63 74 20 76 61 72 73 20 2a 2c 20 73 74 72 ruct vars *, str
b570: 75 63 74 20 73 75 62 72 65 20 2a 2c 20 63 68 72 uct subre *, chr
b580: 20 2a 2c 20 63 68 72 20 2a 29 3b 0a 20 20 20 2a *, chr *);. *
b590: 2f 0a 20 20 73 74 61 74 69 63 20 69 6e 74 09 09 /. static int..
b5a0: 09 2f 2a 20 72 65 67 65 78 65 63 20 72 65 74 75 ./* regexec retu
b5b0: 72 6e 20 63 6f 64 65 20 2a 2f 0a 21 20 63 72 65 rn code */.! cre
b5c0: 76 69 74 65 72 64 69 73 73 65 63 74 28 73 74 72 viterdissect(str
b5d0: 75 63 74 20 76 61 72 73 20 2a 20 76 2c 0a 21 20 uct vars * v,.!
b5e0: 09 09 73 74 72 75 63 74 20 73 75 62 72 65 20 2a ..struct subre *
b5f0: 20 74 2c 0a 21 20 09 09 63 68 72 20 2a 62 65 67 t,.! ..chr *beg
b600: 69 6e 2c 09 2f 2a 20 62 65 67 69 6e 6e 69 6e 67 in,./* beginning
b610: 20 6f 66 20 72 65 6c 65 76 61 6e 74 20 73 75 62 of relevant sub
b620: 73 74 72 69 6e 67 20 2a 2f 0a 21 20 09 09 63 68 string */.! ..ch
b630: 72 20 2a 65 6e 64 29 09 2f 2a 20 65 6e 64 20 6f r *end)./* end o
b640: 66 20 73 61 6d 65 20 2a 2f 0a 20 20 7b 0a 21 20 f same */. {.!
b650: 20 20 20 20 73 74 72 75 63 74 20 64 66 61 20 2a struct dfa *
b660: 64 3b 0a 21 20 20 20 20 20 63 68 72 09 20 20 2a d;.! chr. *
b670: 2a 65 6e 64 70 74 73 3b 0a 21 20 20 20 20 20 63 *endpts;.! c
b680: 68 72 09 20 20 20 2a 6c 69 6d 69 74 3b 0a 21 20 hr. *limit;.!
b690: 20 20 20 20 69 6e 74 09 09 6d 69 6e 5f 6d 61 74 int..min_mat
b6a0: 63 68 65 73 3b 0a 21 20 20 20 20 20 73 69 7a 65 ches;.! size
b6b0: 5f 74 09 6d 61 78 5f 6d 61 74 63 68 65 73 3b 0a _t.max_matches;.
b6c0: 21 20 20 20 20 20 69 6e 74 09 09 6e 76 65 72 69 ! int..nveri
b6d0: 66 69 65 64 3b 0a 21 20 20 20 20 20 69 6e 74 09 fied;.! int.
b6e0: 09 6b 3b 0a 21 20 20 20 20 20 69 6e 74 09 09 69 .k;.! int..i
b6f0: 3b 0a 21 20 20 20 20 20 69 6e 74 09 09 65 72 3b ;.! int..er;
b700: 0a 20 20 0a 21 20 20 20 20 20 61 73 73 65 72 74 . .! assert
b710: 28 74 2d 3e 6f 70 20 3d 3d 20 27 2a 27 29 3b 0a (t->op == '*');.
b720: 21 20 20 20 20 20 61 73 73 65 72 74 28 74 2d 3e ! assert(t->
b730: 6c 65 66 74 20 21 3d 20 4e 55 4c 4c 20 26 26 20 left != NULL &&
b740: 74 2d 3e 6c 65 66 74 2d 3e 63 6e 66 61 2e 6e 73 t->left->cnfa.ns
b750: 74 61 74 65 73 20 3e 20 30 29 3b 0a 21 20 20 20 tates > 0);.!
b760: 20 20 61 73 73 65 72 74 28 74 2d 3e 6c 65 66 74 assert(t->left
b770: 2d 3e 66 6c 61 67 73 20 26 20 53 48 4f 52 54 45 ->flags & SHORTE
b780: 52 29 3b 0a 21 20 20 20 20 20 61 73 73 65 72 74 R);.! assert
b790: 28 62 65 67 69 6e 20 3c 3d 20 65 6e 64 29 3b 0a (begin <= end);.
b7a0: 21 20 0a 21 20 20 20 20 20 2f 2a 0a 21 20 20 20 ! .! /*.!
b7b0: 20 20 20 2a 20 49 66 20 7a 65 72 6f 20 6d 61 74 * If zero mat
b7c0: 63 68 65 73 20 61 72 65 20 61 6c 6c 6f 77 65 64 ches are allowed
b7d0: 2c 20 61 6e 64 20 74 61 72 67 65 74 20 73 74 72 , and target str
b7e0: 69 6e 67 20 69 73 20 65 6d 70 74 79 2c 20 6a 75 ing is empty, ju
b7f0: 73 74 20 64 65 63 6c 61 72 65 0a 21 20 20 20 20 st declare.!
b800: 20 20 2a 20 76 69 63 74 6f 72 79 2e 20 20 4f 54 * victory. OT
b810: 4f 48 2c 20 69 66 20 74 61 72 67 65 74 20 73 74 OH, if target st
b820: 72 69 6e 67 20 69 73 6e 27 74 20 65 6d 70 74 79 ring isn't empty
b830: 2c 20 7a 65 72 6f 20 6d 61 74 63 68 65 73 20 63 , zero matches c
b840: 61 6e 27 74 20 77 6f 72 6b 0a 21 20 20 20 20 20 an't work.!
b850: 20 2a 20 73 6f 20 77 65 20 70 72 65 74 65 6e 64 * so we pretend
b860: 20 74 68 65 20 6d 69 6e 20 69 73 20 31 2e 0a 21 the min is 1..!
b870: 20 20 20 20 20 20 2a 2f 0a 21 20 20 20 20 20 6d */.! m
b880: 69 6e 5f 6d 61 74 63 68 65 73 20 3d 20 74 2d 3e in_matches = t->
b890: 6d 69 6e 3b 0a 21 20 20 20 20 20 69 66 20 28 6d min;.! if (m
b8a0: 69 6e 5f 6d 61 74 63 68 65 73 20 3c 3d 20 30 29 in_matches <= 0)
b8b0: 20 7b 0a 21 20 09 69 66 20 28 62 65 67 69 6e 20 {.! .if (begin
b8c0: 3d 3d 20 65 6e 64 29 0a 21 20 09 20 20 20 20 72 == end).! . r
b8d0: 65 74 75 72 6e 20 52 45 47 5f 4f 4b 41 59 3b 0a eturn REG_OKAY;.
b8e0: 21 20 09 6d 69 6e 5f 6d 61 74 63 68 65 73 20 3d ! .min_matches =
b8f0: 20 31 3b 0a 20 20 20 20 20 20 7d 0a 21 20 0a 21 1;. }.! .!
b900: 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a /*.! *
b910: 20 57 65 20 6e 65 65 64 20 77 6f 72 6b 73 70 61 We need workspa
b920: 63 65 20 74 6f 20 74 72 61 63 6b 20 74 68 65 20 ce to track the
b930: 65 6e 64 70 6f 69 6e 74 73 20 6f 66 20 65 61 63 endpoints of eac
b940: 68 20 73 75 62 2d 6d 61 74 63 68 2e 20 20 4e 6f h sub-match. No
b950: 72 6d 61 6c 6c 79 0a 21 20 20 20 20 20 20 2a 20 rmally.! *
b960: 77 65 20 63 6f 6e 73 69 64 65 72 20 6f 6e 6c 79 we consider only
b970: 20 6e 6f 6e 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 nonzero-length
b980: 73 75 62 2d 6d 61 74 63 68 65 73 2c 20 73 6f 20 sub-matches, so
b990: 74 68 65 72 65 20 63 61 6e 20 62 65 20 61 74 20 there can be at
b9a0: 6d 6f 73 74 0a 21 20 20 20 20 20 20 2a 20 65 6e most.! * en
b9b0: 64 2d 62 65 67 69 6e 20 6f 66 20 74 68 65 6d 2e d-begin of them.
b9c0: 20 20 48 6f 77 65 76 65 72 2c 20 69 66 20 6d 69 However, if mi
b9d0: 6e 20 69 73 20 6c 61 72 67 65 72 20 74 68 61 6e n is larger than
b9e0: 20 74 68 61 74 2c 20 77 65 20 77 69 6c 6c 20 61 that, we will a
b9f0: 6c 73 6f 0a 21 20 20 20 20 20 20 2a 20 63 6f 6e lso.! * con
ba00: 73 69 64 65 72 20 7a 65 72 6f 2d 6c 65 6e 67 74 sider zero-lengt
ba10: 68 20 73 75 62 2d 6d 61 74 63 68 65 73 20 69 6e h sub-matches in
ba20: 20 6f 72 64 65 72 20 74 6f 20 66 69 6e 64 20 65 order to find e
ba30: 6e 6f 75 67 68 20 6d 61 74 63 68 65 73 2e 0a 21 nough matches..!
ba40: 20 20 20 20 20 20 2a 0a 21 20 20 20 20 20 20 2a *.! *
ba50: 20 46 6f 72 20 63 6f 6e 76 65 6e 69 65 6e 63 65 For convenience
ba60: 2c 20 65 6e 64 70 74 73 5b 30 5d 20 63 6f 6e 74 , endpts[0] cont
ba70: 61 69 6e 73 20 74 68 65 20 22 62 65 67 69 6e 22 ains the "begin"
ba80: 20 70 6f 69 6e 74 65 72 20 61 6e 64 20 77 65 20 pointer and we
ba90: 73 74 6f 72 65 0a 21 20 20 20 20 20 20 2a 20 73 store.! * s
baa0: 75 62 2d 6d 61 74 63 68 20 65 6e 64 70 6f 69 6e ub-match endpoin
bab0: 74 73 20 69 6e 20 65 6e 64 70 74 73 5b 31 2e 2e ts in endpts[1..
bac0: 6d 61 78 5f 6d 61 74 63 68 65 73 5d 2e 0a 21 20 max_matches]..!
bad0: 20 20 20 20 20 2a 2f 0a 21 20 20 20 20 20 6d 61 */.! ma
bae0: 78 5f 6d 61 74 63 68 65 73 20 3d 20 65 6e 64 20 x_matches = end
baf0: 2d 20 62 65 67 69 6e 3b 0a 21 20 20 20 20 20 69 - begin;.! i
bb00: 66 20 28 6d 61 78 5f 6d 61 74 63 68 65 73 20 3e f (max_matches >
bb10: 20 74 2d 3e 6d 61 78 20 26 26 20 74 2d 3e 6d 61 t->max && t->ma
bb20: 78 20 21 3d 20 44 55 50 49 4e 46 29 0a 21 20 09 x != DUPINF).! .
bb30: 6d 61 78 5f 6d 61 74 63 68 65 73 20 3d 20 74 2d max_matches = t-
bb40: 3e 6d 61 78 3b 0a 21 20 20 20 20 20 69 66 20 28 >max;.! if (
bb50: 6d 61 78 5f 6d 61 74 63 68 65 73 20 3c 20 6d 69 max_matches < mi
bb60: 6e 5f 6d 61 74 63 68 65 73 29 0a 21 20 09 6d 61 n_matches).! .ma
bb70: 78 5f 6d 61 74 63 68 65 73 20 3d 20 6d 69 6e 5f x_matches = min_
bb80: 6d 61 74 63 68 65 73 3b 0a 21 20 20 20 20 20 65 matches;.! e
bb90: 6e 64 70 74 73 20 3d 20 28 63 68 72 20 2a 2a 29 ndpts = (chr **)
bba0: 20 4d 41 4c 4c 4f 43 28 28 6d 61 78 5f 6d 61 74 MALLOC((max_mat
bbb0: 63 68 65 73 20 2b 20 31 29 20 2a 20 73 69 7a 65 ches + 1) * size
bbc0: 6f 66 28 63 68 72 20 2a 29 29 3b 0a 21 20 20 20 of(chr *));.!
bbd0: 20 20 69 66 20 28 65 6e 64 70 74 73 20 3d 3d 20 if (endpts ==
bbe0: 4e 55 4c 4c 29 0a 21 20 09 72 65 74 75 72 6e 20 NULL).! .return
bbf0: 52 45 47 5f 45 53 50 41 43 45 3b 0a 21 20 20 20 REG_ESPACE;.!
bc00: 20 20 65 6e 64 70 74 73 5b 30 5d 20 3d 20 62 65 endpts[0] = be
bc10: 67 69 6e 3b 0a 21 20 0a 21 20 20 20 20 20 64 20 gin;.! .! d
bc20: 3d 20 6e 65 77 44 46 41 28 76 2c 20 26 74 2d 3e = newDFA(v, &t->
bc30: 6c 65 66 74 2d 3e 63 6e 66 61 2c 20 26 76 2d 3e left->cnfa, &v->
bc40: 67 2d 3e 63 6d 61 70 2c 20 44 4f 4d 41 4c 4c 4f g->cmap, DOMALLO
bc50: 43 29 3b 0a 21 20 20 20 20 20 69 66 20 28 49 53 C);.! if (IS
bc60: 45 52 52 28 29 29 20 7b 0a 21 20 09 46 52 45 45 ERR()) {.! .FREE
bc70: 28 65 6e 64 70 74 73 29 3b 0a 21 20 09 72 65 74 (endpts);.! .ret
bc80: 75 72 6e 20 76 2d 3e 65 72 72 3b 0a 20 20 20 20 urn v->err;.
bc90: 20 20 7d 0a 2b 20 20 20 20 20 4d 44 45 42 55 47 }.+ MDEBUG
bca0: 28 28 22 63 72 65 76 69 74 65 72 20 25 64 5c 6e (("creviter %d\n
bcb0: 22 2c 20 74 2d 3e 69 64 29 29 3b 0a 20 20 0a 21 ", t->id));. .!
bcc0: 20 20 20 20 20 2f 2a 0a 21 20 20 20 20 20 20 2a /*.! *
bcd0: 20 4f 75 72 20 73 74 72 61 74 65 67 79 20 69 73 Our strategy is
bce0: 20 74 6f 20 66 69 72 73 74 20 66 69 6e 64 20 61 to first find a
bcf0: 20 73 65 74 20 6f 66 20 73 75 62 2d 6d 61 74 63 set of sub-matc
bd00: 68 20 65 6e 64 70 6f 69 6e 74 73 20 74 68 61 74 h endpoints that
bd10: 20 61 72 65 0a 21 20 20 20 20 20 20 2a 20 76 61 are.! * va
bd20: 6c 69 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f lid according to
bd30: 20 74 68 65 20 63 68 69 6c 64 20 6e 6f 64 65 27 the child node'
bd40: 73 20 44 46 41 2c 20 61 6e 64 20 74 68 65 6e 20 s DFA, and then
bd50: 72 65 63 75 72 73 69 76 65 6c 79 20 64 69 73 73 recursively diss
bd60: 65 63 74 0a 21 20 20 20 20 20 20 2a 20 65 61 63 ect.! * eac
bd70: 68 20 73 75 62 2d 6d 61 74 63 68 20 74 6f 20 63 h sub-match to c
bd80: 6f 6e 66 69 72 6d 20 76 61 6c 69 64 69 74 79 2e onfirm validity.
bd90: 20 20 49 66 20 61 6e 79 20 76 61 6c 69 64 69 74 If any validit
bda0: 79 20 63 68 65 63 6b 20 66 61 69 6c 73 2c 0a 21 y check fails,.!
bdb0: 20 20 20 20 20 20 2a 20 62 61 63 6b 74 72 61 63 * backtrac
bdc0: 6b 20 74 68 65 20 6c 61 73 74 20 73 75 62 2d 6d k the last sub-m
bdd0: 61 74 63 68 20 61 6e 64 20 74 72 79 20 61 67 61 atch and try aga
bde0: 69 6e 2e 20 20 41 6e 64 2c 20 77 68 65 6e 20 77 in. And, when w
bdf0: 65 20 6e 65 78 74 20 74 72 79 20 66 6f 72 0a 21 e next try for.!
be00: 20 20 20 20 20 20 2a 20 61 20 76 61 6c 69 64 69 * a validi
be10: 74 79 20 63 68 65 63 6b 2c 20 77 65 20 6e 65 65 ty check, we nee
be20: 64 20 6e 6f 74 20 72 65 63 68 65 63 6b 20 61 6e d not recheck an
be30: 79 20 73 75 63 63 65 73 73 66 75 6c 6c 79 20 76 y successfully v
be40: 65 72 69 66 69 65 64 0a 21 20 20 20 20 20 20 2a erified.! *
be50: 20 73 75 62 2d 6d 61 74 63 68 65 73 20 74 68 61 sub-matches tha
be60: 74 20 77 65 20 64 69 64 6e 27 74 20 6d 6f 76 65 t we didn't move
be70: 20 74 68 65 20 65 6e 64 70 6f 69 6e 74 73 20 6f the endpoints o
be80: 66 2e 20 20 6e 76 65 72 69 66 69 65 64 20 72 65 f. nverified re
be90: 6d 65 6d 62 65 72 73 0a 21 20 20 20 20 20 20 2a members.! *
bea0: 20 68 6f 77 20 6d 61 6e 79 20 73 75 62 2d 6d 61 how many sub-ma
beb0: 74 63 68 65 73 20 61 72 65 20 63 75 72 72 65 6e tches are curren
bec0: 74 6c 79 20 6b 6e 6f 77 6e 20 6f 6b 61 79 2e 0a tly known okay..
bed0: 21 20 20 20 20 20 20 2a 2f 0a 20 20 0a 21 20 20 ! */. .!
bee0: 20 20 20 2f 2a 20 69 6e 69 74 69 61 6c 69 7a 65 /* initialize
bef0: 20 74 6f 20 63 6f 6e 73 69 64 65 72 20 66 69 72 to consider fir
bf00: 73 74 20 73 75 62 2d 6d 61 74 63 68 20 2a 2f 0a st sub-match */.
bf10: 21 20 20 20 20 20 6e 76 65 72 69 66 69 65 64 20 ! nverified
bf20: 3d 20 30 3b 0a 21 20 20 20 20 20 6b 20 3d 20 31 = 0;.! k = 1
bf30: 3b 0a 21 20 20 20 20 20 6c 69 6d 69 74 20 3d 20 ;.! limit =
bf40: 62 65 67 69 6e 3b 0a 20 20 0a 21 20 20 20 20 20 begin;. .!
bf50: 2f 2a 20 69 74 65 72 61 74 65 20 75 6e 74 69 6c /* iterate until
bf60: 20 73 61 74 69 73 66 61 63 74 69 6f 6e 20 6f 72 satisfaction or
bf70: 20 66 61 69 6c 75 72 65 20 2a 2f 0a 21 20 20 20 failure */.!
bf80: 20 20 77 68 69 6c 65 20 28 6b 20 3e 20 30 29 20 while (k > 0)
bf90: 7b 0a 21 20 09 2f 2a 20 64 69 73 61 6c 6c 6f 77 {.! ./* disallow
bfa0: 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 6d 61 74 zero-length mat
bfb0: 63 68 20 75 6e 6c 65 73 73 20 6e 65 63 65 73 73 ch unless necess
bfc0: 61 72 79 20 74 6f 20 61 63 68 69 65 76 65 20 6d ary to achieve m
bfd0: 69 6e 20 2a 2f 0a 21 20 09 69 66 20 28 6c 69 6d in */.! .if (lim
bfe0: 69 74 20 3d 3d 20 65 6e 64 70 74 73 5b 6b 20 2d it == endpts[k -
bff0: 20 31 5d 20 26 26 0a 21 20 09 20 20 20 20 6c 69 1] &&.! . li
c000: 6d 69 74 20 21 3d 20 65 6e 64 20 26 26 0a 21 20 mit != end &&.!
c010: 09 20 20 20 20 28 6b 20 3e 3d 20 6d 69 6e 5f 6d . (k >= min_m
c020: 61 74 63 68 65 73 20 7c 7c 20 6d 69 6e 5f 6d 61 atches || min_ma
c030: 74 63 68 65 73 20 2d 20 6b 20 3c 20 65 6e 64 20 tches - k < end
c040: 2d 20 6c 69 6d 69 74 29 29 0a 21 20 09 20 20 20 - limit)).! .
c050: 20 6c 69 6d 69 74 2b 2b 3b 0a 21 20 0a 21 20 09 limit++;.! .! .
c060: 2f 2a 20 69 66 20 74 68 69 73 20 69 73 20 74 68 /* if this is th
c070: 65 20 6c 61 73 74 20 61 6c 6c 6f 77 65 64 20 73 e last allowed s
c080: 75 62 2d 6d 61 74 63 68 2c 20 69 74 20 6d 75 73 ub-match, it mus
c090: 74 20 72 65 61 63 68 20 74 6f 20 74 68 65 20 65 t reach to the e
c0a0: 6e 64 20 2a 2f 0a 21 20 09 69 66 20 28 6b 20 3e nd */.! .if (k >
c0b0: 3d 20 6d 61 78 5f 6d 61 74 63 68 65 73 29 0a 21 = max_matches).!
c0c0: 20 09 20 20 20 20 6c 69 6d 69 74 20 3d 20 65 6e . limit = en
c0d0: 64 3b 0a 21 20 0a 21 20 09 2f 2a 20 74 72 79 20 d;.! .! ./* try
c0e0: 74 6f 20 66 69 6e 64 20 61 6e 20 65 6e 64 70 6f to find an endpo
c0f0: 69 6e 74 20 66 6f 72 20 74 68 65 20 6b 27 74 68 int for the k'th
c100: 20 73 75 62 2d 6d 61 74 63 68 20 2a 2f 0a 21 20 sub-match */.!
c110: 09 65 6e 64 70 74 73 5b 6b 5d 20 3d 20 73 68 6f .endpts[k] = sho
c120: 72 74 65 73 74 28 76 2c 20 64 2c 20 65 6e 64 70 rtest(v, d, endp
c130: 74 73 5b 6b 20 2d 20 31 5d 2c 20 6c 69 6d 69 74 ts[k - 1], limit
c140: 2c 20 65 6e 64 2c 0a 21 20 09 09 09 20 20 20 20 , end,.! ...
c150: 20 28 63 68 72 20 2a 2a 29 20 4e 55 4c 4c 2c 20 (chr **) NULL,
c160: 28 69 6e 74 20 2a 29 20 4e 55 4c 4c 29 3b 0a 21 (int *) NULL);.!
c170: 20 09 69 66 20 28 65 6e 64 70 74 73 5b 6b 5d 20 .if (endpts[k]
c180: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 21 20 09 20 20 == NULL) {.! .
c190: 20 20 2f 2a 20 6e 6f 20 6d 61 74 63 68 20 70 6f /* no match po
c1a0: 73 73 69 62 6c 65 2c 20 73 6f 20 73 65 65 20 69 ssible, so see i
c1b0: 66 20 77 65 20 63 61 6e 20 6c 65 6e 67 74 68 65 f we can lengthe
c1c0: 6e 20 70 72 65 76 69 6f 75 73 20 6f 6e 65 20 2a n previous one *
c1d0: 2f 0a 21 20 09 20 20 20 20 6b 2d 2d 3b 0a 21 20 /.! . k--;.!
c1e0: 09 20 20 20 20 67 6f 74 6f 20 62 61 63 6b 74 72 . goto backtr
c1f0: 61 63 6b 3b 0a 20 20 09 7d 0a 21 20 09 4d 44 45 ack;. .}.! .MDE
c200: 42 55 47 28 28 22 25 64 3a 20 77 6f 72 6b 69 6e BUG(("%d: workin
c210: 67 20 65 6e 64 70 6f 69 6e 74 20 25 64 3a 20 25 g endpoint %d: %
c220: 6c 64 5c 6e 22 2c 0a 21 20 09 09 74 2d 3e 69 64 ld\n",.! ..t->id
c230: 2c 20 6b 2c 20 4c 4f 46 46 28 65 6e 64 70 74 73 , k, LOFF(endpts
c240: 5b 6b 5d 29 29 29 3b 0a 21 20 0a 21 20 09 2f 2a [k])));.! .! ./*
c250: 20 6b 27 74 68 20 73 75 62 2d 6d 61 74 63 68 20 k'th sub-match
c260: 63 61 6e 20 6e 6f 20 6c 6f 6e 67 65 72 20 62 65 can no longer be
c270: 20 63 6f 6e 73 69 64 65 72 65 64 20 76 65 72 69 considered veri
c280: 66 69 65 64 20 2a 2f 0a 21 20 09 69 66 20 28 6e fied */.! .if (n
c290: 76 65 72 69 66 69 65 64 20 3e 3d 20 6b 29 0a 21 verified >= k).!
c2a0: 20 09 20 20 20 20 6e 76 65 72 69 66 69 65 64 20 . nverified
c2b0: 3d 20 6b 20 2d 20 31 3b 0a 21 20 0a 21 20 09 69 = k - 1;.! .! .i
c2c0: 66 20 28 65 6e 64 70 74 73 5b 6b 5d 20 21 3d 20 f (endpts[k] !=
c2d0: 65 6e 64 29 20 7b 0a 21 20 09 20 20 20 20 2f 2a end) {.! . /*
c2e0: 20 68 61 76 65 6e 27 74 20 72 65 61 63 68 65 64 haven't reached
c2f0: 20 65 6e 64 20 79 65 74 2c 20 74 72 79 20 61 6e end yet, try an
c300: 6f 74 68 65 72 20 69 74 65 72 61 74 69 6f 6e 20 other iteration
c310: 69 66 20 61 6c 6c 6f 77 65 64 20 2a 2f 0a 21 20 if allowed */.!
c320: 09 20 20 20 20 69 66 20 28 6b 20 3e 3d 20 6d 61 . if (k >= ma
c330: 78 5f 6d 61 74 63 68 65 73 29 20 7b 0a 21 20 09 x_matches) {.! .
c340: 09 2f 2a 20 6d 75 73 74 20 74 72 79 20 74 6f 20 ./* must try to
c350: 6c 65 6e 67 74 68 65 6e 20 73 6f 6d 65 20 70 72 lengthen some pr
c360: 65 76 69 6f 75 73 20 6d 61 74 63 68 20 2a 2f 0a evious match */.
c370: 21 20 09 09 6b 2d 2d 3b 0a 21 20 09 09 67 6f 74 ! ..k--;.! ..got
c380: 6f 20 62 61 63 6b 74 72 61 63 6b 3b 0a 21 20 09 o backtrack;.! .
c390: 20 20 20 20 7d 0a 21 20 0a 21 20 09 20 20 20 20 }.! .! .
c3a0: 6b 2b 2b 3b 0a 21 20 09 20 20 20 20 6c 69 6d 69 k++;.! . limi
c3b0: 74 20 3d 20 65 6e 64 70 74 73 5b 6b 20 2d 20 31 t = endpts[k - 1
c3c0: 5d 3b 0a 21 20 09 20 20 20 20 63 6f 6e 74 69 6e ];.! . contin
c3d0: 75 65 3b 0a 21 20 09 7d 0a 21 20 0a 21 20 09 2f ue;.! .}.! .! ./
c3e0: 2a 0a 21 20 09 20 2a 20 57 65 27 76 65 20 69 64 *.! . * We've id
c3f0: 65 6e 74 69 66 69 65 64 20 61 20 77 61 79 20 74 entified a way t
c400: 6f 20 64 69 76 69 64 65 20 74 68 65 20 73 74 72 o divide the str
c410: 69 6e 67 20 69 6e 74 6f 20 6b 20 73 75 62 2d 6d ing into k sub-m
c420: 61 74 63 68 65 73 0a 21 20 09 20 2a 20 74 68 61 atches.! . * tha
c430: 74 20 77 6f 72 6b 73 20 73 6f 20 66 61 72 20 61 t works so far a
c440: 73 20 74 68 65 20 63 68 69 6c 64 20 44 46 41 20 s the child DFA
c450: 63 61 6e 20 74 65 6c 6c 2e 20 20 49 66 20 6b 20 can tell. If k
c460: 69 73 20 61 6e 20 61 6c 6c 6f 77 65 64 0a 21 20 is an allowed.!
c470: 09 20 2a 20 6e 75 6d 62 65 72 20 6f 66 20 6d 61 . * number of ma
c480: 74 63 68 65 73 2c 20 73 74 61 72 74 20 74 68 65 tches, start the
c490: 20 73 6c 6f 77 20 70 61 72 74 3a 20 72 65 63 75 slow part: recu
c4a0: 72 73 65 20 74 6f 20 76 65 72 69 66 79 20 65 61 rse to verify ea
c4b0: 63 68 0a 21 20 09 20 2a 20 73 75 62 2d 6d 61 74 ch.! . * sub-mat
c4c0: 63 68 2e 20 20 57 65 20 61 6c 77 61 79 73 20 68 ch. We always h
c4d0: 61 76 65 20 6b 20 3c 3d 20 6d 61 78 5f 6d 61 74 ave k <= max_mat
c4e0: 63 68 65 73 2c 20 6e 65 65 64 6e 27 74 20 63 68 ches, needn't ch
c4f0: 65 63 6b 20 74 68 61 74 2e 0a 21 20 09 20 2a 2f eck that..! . */
c500: 0a 21 20 09 69 66 20 28 6b 20 3c 20 6d 69 6e 5f .! .if (k < min_
c510: 6d 61 74 63 68 65 73 29 0a 21 20 09 20 20 20 20 matches).! .
c520: 67 6f 74 6f 20 62 61 63 6b 74 72 61 63 6b 3b 0a goto backtrack;.
c530: 21 20 0a 21 20 09 4d 44 45 42 55 47 28 28 22 25 ! .! .MDEBUG(("%
c540: 64 3a 20 76 65 72 69 66 79 69 6e 67 20 25 64 2e d: verifying %d.
c550: 2e 25 64 5c 6e 22 2c 20 74 2d 3e 69 64 2c 20 6e .%d\n", t->id, n
c560: 76 65 72 69 66 69 65 64 20 2b 20 31 2c 20 6b 29 verified + 1, k)
c570: 29 3b 0a 21 20 0a 21 20 09 66 6f 72 20 28 69 20 );.! .! .for (i
c580: 3d 20 6e 76 65 72 69 66 69 65 64 20 2b 20 31 3b = nverified + 1;
c590: 20 69 20 3c 3d 20 6b 3b 20 69 2b 2b 29 20 7b 0a i <= k; i++) {.
c5a0: 21 20 09 20 20 20 20 7a 61 70 74 72 65 65 73 75 ! . zaptreesu
c5b0: 62 73 28 76 2c 20 74 2d 3e 6c 65 66 74 29 3b 0a bs(v, t->left);.
c5c0: 21 20 09 20 20 20 20 65 72 20 3d 20 63 64 69 73 ! . er = cdis
c5d0: 73 65 63 74 28 76 2c 20 74 2d 3e 6c 65 66 74 2c sect(v, t->left,
c5e0: 20 65 6e 64 70 74 73 5b 69 20 2d 20 31 5d 2c 20 endpts[i - 1],
c5f0: 65 6e 64 70 74 73 5b 69 5d 29 3b 0a 21 20 09 20 endpts[i]);.! .
c600: 20 20 20 69 66 20 28 65 72 20 3d 3d 20 52 45 47 if (er == REG
c610: 5f 4f 4b 41 59 29 20 7b 0a 21 20 09 09 6e 76 65 _OKAY) {.! ..nve
c620: 72 69 66 69 65 64 20 3d 20 69 3b 0a 21 20 09 09 rified = i;.! ..
c630: 63 6f 6e 74 69 6e 75 65 3b 0a 21 20 09 20 20 20 continue;.! .
c640: 20 7d 0a 21 20 09 20 20 20 20 69 66 20 28 65 72 }.! . if (er
c650: 20 3d 3d 20 52 45 47 5f 4e 4f 4d 41 54 43 48 29 == REG_NOMATCH)
c660: 0a 21 20 09 09 62 72 65 61 6b 3b 0a 21 20 09 20 .! ..break;.! .
c670: 20 20 20 2f 2a 20 6f 6f 70 73 2c 20 73 6f 6d 65 /* oops, some
c680: 74 68 69 6e 67 20 66 61 69 6c 65 64 20 2a 2f 0a thing failed */.
c690: 20 20 09 20 20 20 20 66 72 65 65 44 46 41 28 64 . freeDFA(d
c6a0: 29 3b 0a 21 20 09 20 20 20 20 46 52 45 45 28 65 );.! . FREE(e
c6b0: 6e 64 70 74 73 29 3b 0a 21 20 09 20 20 20 20 72 ndpts);.! . r
c6c0: 65 74 75 72 6e 20 65 72 3b 0a 20 20 09 7d 0a 20 eturn er;. .}.
c6d0: 20 0a 21 20 09 69 66 20 28 69 20 3e 20 6b 29 20 .! .if (i > k)
c6e0: 7b 0a 21 20 09 20 20 20 20 2f 2a 20 73 61 74 69 {.! . /* sati
c6f0: 73 66 61 63 74 69 6f 6e 20 2a 2f 0a 21 20 09 20 sfaction */.! .
c700: 20 20 20 4d 44 45 42 55 47 28 28 22 25 64 20 73 MDEBUG(("%d s
c710: 75 63 63 65 73 73 66 75 6c 5c 6e 22 2c 20 74 2d uccessful\n", t-
c720: 3e 69 64 29 29 3b 0a 21 20 09 20 20 20 20 66 72 >id));.! . fr
c730: 65 65 44 46 41 28 64 29 3b 0a 21 20 09 20 20 20 eeDFA(d);.! .
c740: 20 46 52 45 45 28 65 6e 64 70 74 73 29 3b 0a 21 FREE(endpts);.!
c750: 20 09 20 20 20 20 72 65 74 75 72 6e 20 52 45 47 . return REG
c760: 5f 4f 4b 41 59 3b 0a 21 20 09 7d 0a 21 20 0a 21 _OKAY;.! .}.! .!
c770: 20 09 2f 2a 20 6d 61 74 63 68 20 66 61 69 6c 65 ./* match faile
c780: 64 20 74 6f 20 76 65 72 69 66 79 2c 20 73 6f 20 d to verify, so
c790: 62 61 63 6b 74 72 61 63 6b 20 2a 2f 0a 21 20 0a backtrack */.! .
c7a0: 21 20 20 20 20 20 62 61 63 6b 74 72 61 63 6b 3a ! backtrack:
c7b0: 0a 21 20 09 2f 2a 0a 21 20 09 20 2a 20 4d 75 73 .! ./*.! . * Mus
c7c0: 74 20 63 6f 6e 73 69 64 65 72 20 6c 6f 6e 67 65 t consider longe
c7d0: 72 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 68 r versions of th
c7e0: 65 20 63 75 72 72 65 6e 74 20 73 75 62 2d 6d 61 e current sub-ma
c7f0: 74 63 68 2e 0a 21 20 09 20 2a 2f 0a 21 20 09 77 tch..! . */.! .w
c800: 68 69 6c 65 20 28 6b 20 3e 20 30 29 20 7b 0a 21 hile (k > 0) {.!
c810: 20 09 20 20 20 20 69 66 20 28 65 6e 64 70 74 73 . if (endpts
c820: 5b 6b 5d 20 3c 20 65 6e 64 29 20 7b 0a 21 20 09 [k] < end) {.! .
c830: 09 6c 69 6d 69 74 20 3d 20 65 6e 64 70 74 73 5b .limit = endpts[
c840: 6b 5d 20 2b 20 31 3b 0a 21 20 09 09 2f 2a 20 62 k] + 1;.! ../* b
c850: 72 65 61 6b 20 6f 75 74 20 6f 66 20 62 61 63 6b reak out of back
c860: 74 72 61 63 6b 20 6c 6f 6f 70 2c 20 63 6f 6e 74 track loop, cont
c870: 69 6e 75 65 20 74 68 65 20 6f 75 74 65 72 20 6f inue the outer o
c880: 6e 65 20 2a 2f 0a 21 20 09 09 62 72 65 61 6b 3b ne */.! ..break;
c890: 0a 21 20 09 20 20 20 20 7d 0a 21 20 09 20 20 20 .! . }.! .
c8a0: 20 2f 2a 20 63 61 6e 27 74 20 6c 65 6e 67 74 68 /* can't length
c8b0: 65 6e 20 6b 27 74 68 20 73 75 62 2d 6d 61 74 63 en k'th sub-matc
c8c0: 68 20 61 6e 79 20 6d 6f 72 65 2c 20 63 6f 6e 73 h any more, cons
c8d0: 69 64 65 72 20 70 72 65 76 69 6f 75 73 20 6f 6e ider previous on
c8e0: 65 20 2a 2f 0a 21 20 09 20 20 20 20 6b 2d 2d 3b e */.! . k--;
c8f0: 0a 21 20 09 7d 0a 20 20 20 20 20 20 7d 0a 20 20 .! .}. }.
c900: 0a 21 20 20 20 20 20 2f 2a 20 61 6c 6c 20 70 6f .! /* all po
c910: 73 73 69 62 69 6c 69 74 69 65 73 20 65 78 68 61 ssibilities exha
c920: 75 73 74 65 64 20 2a 2f 0a 21 20 20 20 20 20 4d usted */.! M
c930: 44 45 42 55 47 28 28 22 25 64 20 66 61 69 6c 65 DEBUG(("%d faile
c940: 64 5c 6e 22 2c 20 74 2d 3e 69 64 29 29 3b 0a 21 d\n", t->id));.!
c950: 20 20 20 20 20 66 72 65 65 44 46 41 28 64 29 3b freeDFA(d);
c960: 0a 21 20 20 20 20 20 46 52 45 45 28 65 6e 64 70 .! FREE(endp
c970: 74 73 29 3b 0a 21 20 20 20 20 20 72 65 74 75 72 ts);.! retur
c980: 6e 20 52 45 47 5f 4e 4f 4d 41 54 43 48 3b 0a 20 n REG_NOMATCH;.
c990: 20 7d 0a 20 20 0a 20 20 23 69 6e 63 6c 75 64 65 }. . #include
c9a0: 20 22 72 65 67 65 5f 64 66 61 2e 63 22 0a 64 69 "rege_dfa.c".di
c9b0: 66 66 20 2d 70 63 64 72 20 74 63 6c 38 2e 36 2e ff -pcdr tcl8.6.
c9c0: 34 2e 6f 72 69 67 2f 67 65 6e 65 72 69 63 2f 72 4.orig/generic/r
c9d0: 65 67 67 75 74 73 2e 68 20 74 63 6c 38 2e 36 2e egguts.h tcl8.6.
c9e0: 34 2f 67 65 6e 65 72 69 63 2f 72 65 67 67 75 74 4/generic/reggut
c9f0: 73 2e 68 0a 2a 2a 2a 20 74 63 6c 38 2e 36 2e 34 s.h.*** tcl8.6.4
ca00: 2e 6f 72 69 67 2f 67 65 6e 65 72 69 63 2f 72 65 .orig/generic/re
ca10: 67 67 75 74 73 2e 68 09 54 68 75 20 46 65 62 20 gguts.h.Thu Feb
ca20: 32 36 20 31 31 3a 35 37 3a 32 38 20 32 30 31 35 26 11:57:28 2015
ca30: 0a 2d 2d 2d 20 74 63 6c 38 2e 36 2e 34 2f 67 65 .--- tcl8.6.4/ge
ca40: 6e 65 72 69 63 2f 72 65 67 67 75 74 73 2e 68 09 neric/regguts.h.
ca50: 54 68 75 20 53 65 70 20 31 37 20 31 38 3a 35 32 Thu Sep 17 18:52
ca60: 3a 31 38 20 32 30 31 35 0a 2a 2a 2a 2a 2a 2a 2a :18 2015.*******
ca70: 2a 2a 2a 2a 2a 2a 2a 2a 20 73 74 72 75 63 74 20 ******** struct
ca80: 63 6e 66 61 20 7b 0a 2a 2a 2a 20 33 32 39 2c 33 cnfa {.*** 329,3
ca90: 33 39 20 2a 2a 2a 2a 0a 20 20 0a 20 20 2f 2a 0a 39 ****. . /*.
caa0: 20 20 20 2a 20 73 75 62 65 78 70 72 65 73 73 69 * subexpressi
cab0: 6f 6e 20 74 72 65 65 0a 20 20 20 2a 2f 0a 20 20 on tree. */.
cac0: 0a 20 20 73 74 72 75 63 74 20 73 75 62 72 65 20 . struct subre
cad0: 7b 0a 21 20 20 20 20 20 63 68 61 72 20 6f 70 3b {.! char op;
cae0: 09 09 09 2f 2a 20 27 7c 27 2c 20 27 2e 27 20 28 .../* '|', '.' (
caf0: 63 6f 6e 63 61 74 29 2c 20 27 62 27 20 28 62 61 concat), 'b' (ba
cb00: 63 6b 72 65 66 29 2c 20 27 28 27 2c 0a 21 20 09 ckref), '(',.! .
cb10: 09 09 09 20 2a 20 27 3d 27 20 2a 2f 0a 20 20 20 ... * '=' */.
cb20: 20 20 20 63 68 61 72 20 66 6c 61 67 73 3b 0a 20 char flags;.
cb30: 20 23 64 65 66 69 6e 65 09 4c 4f 4e 47 45 52 09 #define.LONGER.
cb40: 30 31 09 09 2f 2a 20 70 72 65 66 65 72 73 20 6c 01../* prefers l
cb50: 6f 6e 67 65 72 20 6d 61 74 63 68 20 2a 2f 0a 20 onger match */.
cb60: 20 23 64 65 66 69 6e 65 09 53 48 4f 52 54 45 52 #define.SHORTER
cb70: 09 30 32 09 09 2f 2a 20 70 72 65 66 65 72 73 20 .02../* prefers
cb80: 73 68 6f 72 74 65 72 20 6d 61 74 63 68 20 2a 2f shorter match */
cb90: 0a 2d 2d 2d 20 33 32 39 2c 33 35 36 20 2d 2d 2d .--- 329,356 ---
cba0: 2d 0a 20 20 0a 20 20 2f 2a 0a 20 20 20 2a 20 73 -. . /*. * s
cbb0: 75 62 65 78 70 72 65 73 73 69 6f 6e 20 74 72 65 ubexpression tre
cbc0: 65 0a 2b 20 20 2a 0a 2b 20 20 2a 20 22 6f 70 22 e.+ *.+ * "op"
cbd0: 20 69 73 20 6f 6e 65 20 6f 66 3a 0a 2b 20 20 2a is one of:.+ *
cbe0: 09 27 3d 27 20 20 70 6c 61 69 6e 20 72 65 67 65 .'=' plain rege
cbf0: 78 20 77 69 74 68 6f 75 74 20 69 6e 74 65 72 65 x without intere
cc00: 73 74 69 6e 67 20 73 75 62 73 74 72 75 63 74 75 sting substructu
cc10: 72 65 20 28 69 6d 70 6c 65 6d 65 6e 74 65 64 20 re (implemented
cc20: 61 73 20 44 46 41 29 0a 2b 20 20 2a 09 27 62 27 as DFA).+ *.'b'
cc30: 20 20 62 61 63 6b 2d 72 65 66 65 72 65 6e 63 65 back-reference
cc40: 20 28 68 61 73 20 6e 6f 20 73 75 62 73 74 72 75 (has no substru
cc50: 63 74 75 72 65 20 65 69 74 68 65 72 29 0a 2b 20 cture either).+
cc60: 20 2a 09 27 28 27 20 20 63 61 70 74 75 72 65 20 *.'(' capture
cc70: 6e 6f 64 65 3a 20 63 61 70 74 75 72 65 73 20 74 node: captures t
cc80: 68 65 20 6d 61 74 63 68 20 6f 66 20 69 74 73 20 he match of its
cc90: 73 69 6e 67 6c 65 20 63 68 69 6c 64 0a 2b 20 20 single child.+
cca0: 2a 09 27 2e 27 20 20 63 6f 6e 63 61 74 65 6e 61 *.'.' concatena
ccb0: 74 69 6f 6e 3a 20 6d 61 74 63 68 65 73 20 61 20 tion: matches a
ccc0: 6d 61 74 63 68 20 66 6f 72 20 6c 65 66 74 2c 20 match for left,
ccd0: 74 68 65 6e 20 61 20 6d 61 74 63 68 20 66 6f 72 then a match for
cce0: 20 72 69 67 68 74 0a 2b 20 20 2a 09 27 7c 27 20 right.+ *.'|'
ccf0: 20 61 6c 74 65 72 6e 61 74 69 6f 6e 3a 20 6d 61 alternation: ma
cd00: 74 63 68 65 73 20 61 20 6d 61 74 63 68 20 66 6f tches a match fo
cd10: 72 20 6c 65 66 74 20 6f 72 20 61 20 6d 61 74 63 r left or a matc
cd20: 68 20 66 6f 72 20 72 69 67 68 74 0a 2b 20 20 2a h for right.+ *
cd30: 09 27 2a 27 20 20 69 74 65 72 61 74 69 6f 6e 3a .'*' iteration:
cd40: 20 6d 61 74 63 68 65 73 20 73 6f 6d 65 20 6e 75 matches some nu
cd50: 6d 62 65 72 20 6f 66 20 6d 61 74 63 68 65 73 20 mber of matches
cd60: 6f 66 20 69 74 73 20 73 69 6e 67 6c 65 20 63 68 of its single ch
cd70: 69 6c 64 0a 2b 20 20 2a 0a 2b 20 20 2a 20 4e 6f ild.+ *.+ * No
cd80: 74 65 3a 20 74 68 65 20 72 69 67 68 74 20 63 68 te: the right ch
cd90: 69 6c 64 20 6f 66 20 61 6e 20 61 6c 74 65 72 6e ild of an altern
cda0: 61 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 61 6e ation must be an
cdb0: 6f 74 68 65 72 20 61 6c 74 65 72 6e 61 74 69 6f other alternatio
cdc0: 6e 20 6f 72 0a 2b 20 20 2a 20 4e 55 4c 4c 3b 20 n or.+ * NULL;
cdd0: 68 65 6e 63 65 2c 20 61 6e 20 4e 2d 77 61 79 20 hence, an N-way
cde0: 62 72 61 6e 63 68 20 72 65 71 75 69 72 65 73 20 branch requires
cdf0: 4e 20 61 6c 74 65 72 6e 61 74 69 6f 6e 20 6e 6f N alternation no
ce00: 64 65 73 2c 20 6e 6f 74 20 4e 2d 31 20 61 73 20 des, not N-1 as
ce10: 79 6f 75 0a 2b 20 20 2a 20 6d 69 67 68 74 20 65 you.+ * might e
ce20: 78 70 65 63 74 2e 20 20 54 68 69 73 20 63 6f 75 xpect. This cou
ce30: 6c 64 20 73 74 61 6e 64 20 74 6f 20 62 65 20 63 ld stand to be c
ce40: 68 61 6e 67 65 64 2e 20 20 41 63 74 75 61 6c 6c hanged. Actuall
ce50: 79 20 49 27 64 20 72 61 74 68 65 72 20 73 65 65 y I'd rather see
ce60: 0a 2b 20 20 2a 20 61 20 73 69 6e 67 6c 65 20 61 .+ * a single a
ce70: 6c 74 65 72 6e 61 74 69 6f 6e 20 6e 6f 64 65 20 lternation node
ce80: 77 69 74 68 20 4e 20 63 68 69 6c 64 72 65 6e 2c with N children,
ce90: 20 62 75 74 20 74 68 61 74 20 77 69 6c 6c 20 74 but that will t
cea0: 61 6b 65 20 72 65 76 69 73 69 6e 67 0a 2b 20 20 ake revising.+
ceb0: 2a 20 74 68 65 20 72 65 70 72 65 73 65 6e 74 61 * the representa
cec0: 74 69 6f 6e 20 6f 66 20 73 74 72 75 63 74 20 73 tion of struct s
ced0: 75 62 72 65 2e 0a 2b 20 20 2a 0a 2b 20 20 2a 20 ubre..+ *.+ *
cee0: 4e 6f 74 65 3a 20 77 68 65 6e 20 61 20 62 61 63 Note: when a bac
cef0: 6b 72 65 66 20 69 73 20 64 69 72 65 63 74 6c 79 kref is directly
cf00: 20 71 75 61 6e 74 69 66 69 65 64 2c 20 77 65 20 quantified, we
cf10: 73 74 69 63 6b 20 74 68 65 20 6d 69 6e 2f 6d 61 stick the min/ma
cf20: 78 20 63 6f 75 6e 74 73 0a 2b 20 20 2a 20 69 6e x counts.+ * in
cf30: 74 6f 20 74 68 65 20 62 61 63 6b 72 65 66 20 72 to the backref r
cf40: 61 74 68 65 72 20 74 68 61 6e 20 70 6c 61 73 74 ather than plast
cf50: 65 72 69 6e 67 20 61 6e 20 69 74 65 72 61 74 69 ering an iterati
cf60: 6f 6e 20 6e 6f 64 65 20 6f 6e 20 74 6f 70 2e 20 on node on top.
cf70: 20 54 68 69 73 20 69 73 0a 2b 20 20 2a 20 66 6f This is.+ * fo
cf80: 72 20 65 66 66 69 63 69 65 6e 63 79 3a 20 74 68 r efficiency: th
cf90: 65 72 65 20 69 73 20 6e 6f 20 6e 65 65 64 20 74 ere is no need t
cfa0: 6f 20 73 65 61 72 63 68 20 66 6f 72 20 70 6f 73 o search for pos
cfb0: 73 69 62 6c 65 20 64 69 76 69 73 69 6f 6e 20 70 sible division p
cfc0: 6f 69 6e 74 73 2e 0a 20 20 20 2a 2f 0a 20 20 0a oints.. */. .
cfd0: 20 20 73 74 72 75 63 74 20 73 75 62 72 65 20 7b struct subre {
cfe0: 0a 21 20 20 20 20 20 63 68 61 72 20 6f 70 3b 09 .! char op;.
cff0: 09 09 2f 2a 20 73 65 65 20 74 79 70 65 20 63 6f ../* see type co
d000: 64 65 73 20 61 62 6f 76 65 20 2a 2f 0a 20 20 20 des above */.
d010: 20 20 20 63 68 61 72 20 66 6c 61 67 73 3b 0a 20 char flags;.
d020: 20 23 64 65 66 69 6e 65 09 4c 4f 4e 47 45 52 09 #define.LONGER.
d030: 30 31 09 09 2f 2a 20 70 72 65 66 65 72 73 20 6c 01../* prefers l
d040: 6f 6e 67 65 72 20 6d 61 74 63 68 20 2a 2f 0a 20 onger match */.
d050: 20 23 64 65 66 69 6e 65 09 53 48 4f 52 54 45 52 #define.SHORTER
d060: 09 30 32 09 09 2f 2a 20 70 72 65 66 65 72 73 20 .02../* prefers
d070: 73 68 6f 72 74 65 72 20 6d 61 74 63 68 20 2a 2f shorter match */
d080: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
d090: 20 73 74 72 75 63 74 20 73 75 62 72 65 20 7b 0a struct subre {.
d0a0: 2a 2a 2a 20 33 34 39 2c 33 35 38 20 2a 2a 2a 2a *** 349,358 ****
d0b0: 0a 20 20 23 64 65 66 69 6e 65 09 50 52 45 46 28 . #define.PREF(
d0c0: 66 29 09 28 28 66 29 26 4e 4f 50 52 4f 50 29 0a f).((f)&NOPROP).
d0d0: 20 20 23 64 65 66 69 6e 65 09 50 52 45 46 32 28 #define.PREF2(
d0e0: 66 31 2c 20 66 32 29 09 28 28 50 52 45 46 28 66 f1, f2).((PREF(f
d0f0: 31 29 20 21 3d 20 30 29 20 3f 20 50 52 45 46 28 1) != 0) ? PREF(
d100: 66 31 29 20 3a 20 50 52 45 46 28 66 32 29 29 0a f1) : PREF(f2)).
d110: 20 20 23 64 65 66 69 6e 65 09 43 4f 4d 42 49 4e #define.COMBIN
d120: 45 28 66 31 2c 20 66 32 29 09 28 55 50 28 28 66 E(f1, f2).(UP((f
d130: 31 29 7c 28 66 32 29 29 20 7c 20 50 52 45 46 32 1)|(f2)) | PREF2
d140: 28 66 31 2c 20 66 32 29 29 0a 21 20 20 20 20 20 (f1, f2)).!
d150: 73 68 6f 72 74 20 72 65 74 72 79 3b 09 09 2f 2a short retry;../*
d160: 20 69 6e 64 65 78 20 69 6e 74 6f 20 72 65 74 72 index into retr
d170: 79 20 6d 65 6d 6f 72 79 20 2a 2f 0a 20 20 20 20 y memory */.
d180: 20 20 69 6e 74 20 73 75 62 6e 6f 3b 09 09 09 2f int subno;.../
d190: 2a 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 20 * subexpression
d1a0: 6e 75 6d 62 65 72 20 28 66 6f 72 20 27 62 27 20 number (for 'b'
d1b0: 61 6e 64 20 27 28 27 29 20 2a 2f 0a 21 20 20 20 and '(') */.!
d1c0: 20 20 73 68 6f 72 74 20 6d 69 6e 3b 09 09 09 2f short min;.../
d1d0: 2a 20 6d 69 6e 20 72 65 70 65 74 69 74 69 6f 6e * min repetition
d1e0: 73 2c 20 66 6f 72 20 62 61 63 6b 72 65 66 20 6f s, for backref o
d1f0: 6e 6c 79 20 2a 2f 0a 21 20 20 20 20 20 73 68 6f nly */.! sho
d200: 72 74 20 6d 61 78 3b 09 09 09 2f 2a 20 6d 61 78 rt max;.../* max
d210: 20 72 65 70 65 74 69 74 69 6f 6e 73 2c 20 66 6f repetitions, fo
d220: 72 20 62 61 63 6b 72 65 66 20 6f 6e 6c 79 20 2a r backref only *
d230: 2f 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 73 /. struct s
d240: 75 62 72 65 20 2a 6c 65 66 74 3b 09 09 2f 2a 20 ubre *left;../*
d250: 6c 65 66 74 20 63 68 69 6c 64 2c 20 69 66 20 61 left child, if a
d260: 6e 79 20 28 61 6c 73 6f 20 66 72 65 65 6c 69 73 ny (also freelis
d270: 74 20 63 68 61 69 6e 29 20 2a 2f 0a 20 20 20 20 t chain) */.
d280: 20 20 73 74 72 75 63 74 20 73 75 62 72 65 20 2a struct subre *
d290: 72 69 67 68 74 3b 09 2f 2a 20 72 69 67 68 74 20 right;./* right
d2a0: 63 68 69 6c 64 2c 20 69 66 20 61 6e 79 20 2a 2f child, if any */
d2b0: 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 73 74 . struct st
d2c0: 61 74 65 20 2a 62 65 67 69 6e 3b 09 2f 2a 20 6f ate *begin;./* o
d2d0: 75 74 61 72 63 73 20 66 72 6f 6d 20 68 65 72 65 utarcs from here
d2e0: 2e 2e 2e 20 2a 2f 0a 2d 2d 2d 20 33 36 36 2c 33 ... */.--- 366,3
d2f0: 37 35 20 2d 2d 2d 2d 0a 20 20 23 64 65 66 69 6e 75 ----. #defin
d300: 65 09 50 52 45 46 28 66 29 09 28 28 66 29 26 4e e.PREF(f).((f)&N
d310: 4f 50 52 4f 50 29 0a 20 20 23 64 65 66 69 6e 65 OPROP). #define
d320: 09 50 52 45 46 32 28 66 31 2c 20 66 32 29 09 28 .PREF2(f1, f2).(
d330: 28 50 52 45 46 28 66 31 29 20 21 3d 20 30 29 20 (PREF(f1) != 0)
d340: 3f 20 50 52 45 46 28 66 31 29 20 3a 20 50 52 45 ? PREF(f1) : PRE
d350: 46 28 66 32 29 29 0a 20 20 23 64 65 66 69 6e 65 F(f2)). #define
d360: 09 43 4f 4d 42 49 4e 45 28 66 31 2c 20 66 32 29 .COMBINE(f1, f2)
d370: 09 28 55 50 28 28 66 31 29 7c 28 66 32 29 29 20 .(UP((f1)|(f2))
d380: 7c 20 50 52 45 46 32 28 66 31 2c 20 66 32 29 29 | PREF2(f1, f2))
d390: 0a 21 20 20 20 20 20 73 68 6f 72 74 20 69 64 3b .! short id;
d3a0: 09 09 09 2f 2a 20 49 44 20 6f 66 20 73 75 62 72 .../* ID of subr
d3b0: 65 20 28 31 2e 2e 6e 74 72 65 65 29 20 2a 2f 0a e (1..ntree) */.
d3c0: 20 20 20 20 20 20 69 6e 74 20 73 75 62 6e 6f 3b int subno;
d3d0: 09 09 09 2f 2a 20 73 75 62 65 78 70 72 65 73 73 .../* subexpress
d3e0: 69 6f 6e 20 6e 75 6d 62 65 72 20 28 66 6f 72 20 ion number (for
d3f0: 27 62 27 20 61 6e 64 20 27 28 27 29 20 2a 2f 0a 'b' and '(') */.
d400: 21 20 20 20 20 20 73 68 6f 72 74 20 6d 69 6e 3b ! short min;
d410: 09 09 09 2f 2a 20 6d 69 6e 20 72 65 70 65 74 69 .../* min repeti
d420: 74 69 6f 6e 73 20 66 6f 72 20 69 74 65 72 61 74 tions for iterat
d430: 69 6f 6e 20 6f 72 20 62 61 63 6b 72 65 66 20 2a ion or backref *
d440: 2f 0a 21 20 20 20 20 20 73 68 6f 72 74 20 6d 61 /.! short ma
d450: 78 3b 09 09 09 2f 2a 20 6d 61 78 20 72 65 70 65 x;.../* max repe
d460: 74 69 74 69 6f 6e 73 20 66 6f 72 20 69 74 65 72 titions for iter
d470: 61 74 69 6f 6e 20 6f 72 20 62 61 63 6b 72 65 66 ation or backref
d480: 20 2a 2f 0a 20 20 20 20 20 20 73 74 72 75 63 74 */. struct
d490: 20 73 75 62 72 65 20 2a 6c 65 66 74 3b 09 09 2f subre *left;../
d4a0: 2a 20 6c 65 66 74 20 63 68 69 6c 64 2c 20 69 66 * left child, if
d4b0: 20 61 6e 79 20 28 61 6c 73 6f 20 66 72 65 65 6c any (also freel
d4c0: 69 73 74 20 63 68 61 69 6e 29 20 2a 2f 0a 20 20 ist chain) */.
d4d0: 20 20 20 20 73 74 72 75 63 74 20 73 75 62 72 65 struct subre
d4e0: 20 2a 72 69 67 68 74 3b 09 2f 2a 20 72 69 67 68 *right;./* righ
d4f0: 74 20 63 68 69 6c 64 2c 20 69 66 20 61 6e 79 20 t child, if any
d500: 2a 2f 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 */. struct
d510: 73 74 61 74 65 20 2a 62 65 67 69 6e 3b 09 2f 2a state *begin;./*
d520: 20 6f 75 74 61 72 63 73 20 66 72 6f 6d 20 68 65 outarcs from he
d530: 72 65 2e 2e 2e 20 2a 2f 0a 64 69 66 66 20 2d 70 re... */.diff -p
d540: 63 64 72 20 74 63 6c 38 2e 36 2e 34 2e 6f 72 69 cdr tcl8.6.4.ori
d550: 67 2f 74 65 73 74 73 2f 72 65 67 2e 74 65 73 74 g/tests/reg.test
d560: 20 74 63 6c 38 2e 36 2e 34 2f 74 65 73 74 73 2f tcl8.6.4/tests/
d570: 72 65 67 2e 74 65 73 74 0a 2a 2a 2a 20 74 63 6c reg.test.*** tcl
d580: 38 2e 36 2e 34 2e 6f 72 69 67 2f 74 65 73 74 73 8.6.4.orig/tests
d590: 2f 72 65 67 2e 74 65 73 74 09 54 68 75 20 46 65 /reg.test.Thu Fe
d5a0: 62 20 32 36 20 31 31 3a 35 37 3a 32 38 20 32 30 b 26 11:57:28 20
d5b0: 31 35 0a 2d 2d 2d 20 74 63 6c 38 2e 36 2e 34 2f 15.--- tcl8.6.4/
d5c0: 74 65 73 74 73 2f 72 65 67 2e 74 65 73 74 09 46 tests/reg.test.F
d5d0: 72 69 20 53 65 70 20 31 38 20 31 32 3a 32 36 3a ri Sep 18 12:26:
d5e0: 33 33 20 32 30 31 35 0a 2a 2a 2a 2a 2a 2a 2a 2a 33 2015.********
d5f0: 2a 2a 2a 2a 2a 2a 2a 20 65 78 70 65 63 74 45 72 ******* expectEr
d600: 72 6f 72 09 31 34 2e 31 39 20 2d 09 09 7b 61 28 ror.14.19 -..{a(
d610: 62 29 63 5c 32 7d 09 45 53 55 42 52 45 47 0a 2a b)c\2}.ESUBREG.*
d620: 2a 2a 20 36 36 39 2c 36 37 35 20 2a 2a 2a 2a 0a ** 669,675 ****.
d630: 20 20 65 78 70 65 63 74 4d 61 74 63 68 09 31 34 expectMatch.14
d640: 2e 32 30 20 62 52 09 7b 61 5c 28 62 2a 5c 29 63 .20 bR.{a\(b*\)c
d650: 5c 31 7d 09 61 62 62 63 62 62 09 61 62 62 63 62 \1}.abbcbb.abbcb
d660: 62 09 62 62 0a 20 20 65 78 70 65 63 74 4d 61 74 b.bb. expectMat
d670: 63 68 09 31 34 2e 32 31 20 52 50 09 7b 5e 28 5b ch.14.21 RP.{^([
d680: 62 63 5d 29 5c 31 2a 24 7d 09 62 62 62 09 62 62 bc])\1*$}.bbb.bb
d690: 62 09 62 0a 20 20 65 78 70 65 63 74 4d 61 74 63 b.b. expectMatc
d6a0: 68 09 31 34 2e 32 32 20 52 50 09 7b 5e 28 5b 62 h.14.22 RP.{^([b
d6b0: 63 5d 29 5c 31 2a 24 7d 09 63 63 63 09 63 63 63 c])\1*$}.ccc.ccc
d6c0: 09 63 0a 21 20 6b 6e 6f 77 6e 42 75 67 20 65 78 .c.! knownBug ex
d6d0: 70 65 63 74 4e 6f 6d 61 74 63 68 20 31 34 2e 32 pectNomatch 14.2
d6e0: 33 20 52 09 7b 5e 28 5b 62 63 5d 29 5c 31 2a 24 3 R.{^([bc])\1*$
d6f0: 7d 09 62 63 62 0a 20 20 0a 20 20 0a 20 20 64 6f }.bcb. . . do
d700: 69 6e 67 20 31 35 20 22 6f 63 74 61 6c 20 65 73 ing 15 "octal es
d710: 63 61 70 65 73 20 76 73 20 62 61 63 6b 20 72 65 capes vs back re
d720: 66 65 72 65 6e 63 65 73 22 0a 2d 2d 2d 20 36 36 ferences".--- 66
d730: 39 2c 36 38 31 20 2d 2d 2d 2d 0a 20 20 65 78 70 9,681 ----. exp
d740: 65 63 74 4d 61 74 63 68 09 31 34 2e 32 30 20 62 ectMatch.14.20 b
d750: 52 09 7b 61 5c 28 62 2a 5c 29 63 5c 31 7d 09 61 R.{a\(b*\)c\1}.a
d760: 62 62 63 62 62 09 61 62 62 63 62 62 09 62 62 0a bbcbb.abbcbb.bb.
d770: 20 20 65 78 70 65 63 74 4d 61 74 63 68 09 31 34 expectMatch.14
d780: 2e 32 31 20 52 50 09 7b 5e 28 5b 62 63 5d 29 5c .21 RP.{^([bc])\
d790: 31 2a 24 7d 09 62 62 62 09 62 62 62 09 62 0a 20 1*$}.bbb.bbb.b.
d7a0: 20 65 78 70 65 63 74 4d 61 74 63 68 09 31 34 2e expectMatch.14.
d7b0: 32 32 20 52 50 09 7b 5e 28 5b 62 63 5d 29 5c 31 22 RP.{^([bc])\1
d7c0: 2a 24 7d 09 63 63 63 09 63 63 63 09 63 0a 21 20 *$}.ccc.ccc.c.!
d7d0: 65 78 70 65 63 74 4e 6f 6d 61 74 63 68 09 31 34 expectNomatch.14
d7e0: 2e 32 33 20 52 50 09 7b 5e 28 5b 62 63 5d 29 5c .23 RP.{^([bc])\
d7f0: 31 2a 24 7d 09 62 63 62 0a 21 20 65 78 70 65 63 1*$}.bcb.! expec
d800: 74 4d 61 74 63 68 09 31 34 2e 32 34 20 4c 52 50 tMatch.14.24 LRP
d810: 09 7b 5e 28 5c 77 2b 29 28 20 5c 31 29 2b 24 7d .{^(\w+)( \1)+$}
d820: 09 7b 61 62 63 20 61 62 63 20 61 62 63 7d 20 7b .{abc abc abc} {
d830: 61 62 63 20 61 62 63 20 61 62 63 7d 20 61 62 63 abc abc abc} abc
d840: 20 7b 20 61 62 63 7d 0a 21 20 65 78 70 65 63 74 { abc}.! expect
d850: 4e 6f 6d 61 74 63 68 09 31 34 2e 32 35 20 4c 52 Nomatch.14.25 LR
d860: 50 09 7b 5e 28 5c 77 2b 29 28 20 5c 31 29 2b 24 P.{^(\w+)( \1)+$
d870: 7d 09 7b 61 62 63 20 61 62 64 20 61 62 63 7d 0a }.{abc abd abc}.
d880: 21 20 65 78 70 65 63 74 4e 6f 6d 61 74 63 68 09 ! expectNomatch.
d890: 31 34 2e 32 36 20 4c 52 50 09 7b 5e 28 5c 77 2b 14.26 LRP.{^(\w+
d8a0: 29 28 20 5c 31 29 2b 24 7d 09 7b 61 62 63 20 61 )( \1)+$}.{abc a
d8b0: 62 63 20 61 62 64 7d 0a 21 20 65 78 70 65 63 74 bc abd}.! expect
d8c0: 4d 61 74 63 68 09 31 34 2e 32 37 20 52 50 09 7b Match.14.27 RP.{
d8d0: 5e 28 2e 2b 29 28 20 5c 31 29 2b 24 7d 09 7b 61 ^(.+)( \1)+$}.{a
d8e0: 62 63 20 61 62 63 20 61 62 63 7d 20 7b 61 62 63 bc abc abc} {abc
d8f0: 20 61 62 63 20 61 62 63 7d 20 61 62 63 20 7b 20 abc abc} abc {
d900: 61 62 63 7d 0a 21 20 65 78 70 65 63 74 4e 6f 6d abc}.! expectNom
d910: 61 74 63 68 09 31 34 2e 32 38 20 52 50 09 7b 5e atch.14.28 RP.{^
d920: 28 2e 2b 29 28 20 5c 31 29 2b 24 7d 09 7b 61 62 (.+)( \1)+$}.{ab
d930: 63 20 61 62 64 20 61 62 63 7d 0a 21 20 65 78 70 c abd abc}.! exp
d940: 65 63 74 4e 6f 6d 61 74 63 68 09 31 34 2e 32 39 ectNomatch.14.29
d950: 20 52 50 09 7b 5e 28 2e 2b 29 28 20 5c 31 29 2b RP.{^(.+)( \1)+
d960: 24 7d 09 7b 61 62 63 20 61 62 63 20 61 62 64 7d $}.{abc abc abd}
d970: 0a 20 20 0a 20 20 0a 20 20 64 6f 69 6e 67 20 31 . . . doing 1
d980: 35 20 22 6f 63 74 61 6c 20 65 73 63 61 70 65 73 5 "octal escapes
d990: 20 76 73 20 62 61 63 6b 20 72 65 66 65 72 65 6e vs back referen
d9a0: 63 65 73 22 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ces".***********
d9b0: 2a 2a 2a 2a 20 65 78 70 65 63 74 4d 61 74 63 68 **** expectMatch
d9c0: 09 32 31 2e 33 31 20 4c 50 09 22 5c 5c 79 28 5c .21.31 LP."\\y(\
d9d0: 5c 77 2b 29 5c 5c 79 22 09 22 2d 2d 20 0a 2a 2a \w+)\\y"."-- .**
d9e0: 2a 20 37 39 36 2c 38 30 31 20 2a 2a 2a 2a 0a 2d * 796,801 ****.-
d9f0: 2d 2d 20 38 30 32 2c 38 30 38 20 2d 2d 2d 2d 0a -- 802,808 ----.
da00: 20 20 65 78 70 65 63 74 4d 61 74 63 68 09 32 31 expectMatch.21
da10: 2e 33 32 20 2d 09 09 61 28 28 62 7c 63 29 64 2b .32 -..a((b|c)d+
da20: 29 2b 09 61 62 61 63 64 62 64 09 61 63 64 62 64 )+.abacdbd.acdbd
da30: 09 62 64 09 62 0a 20 20 65 78 70 65 63 74 4d 61 .bd.b. expectMa
da40: 74 63 68 09 32 31 2e 33 33 20 4e 09 09 28 2e 2a tch.21.33 N..(.*
da50: 29 2e 2a 09 09 61 62 63 09 61 62 63 09 61 62 63 ).*..abc.abc.abc
da60: 0a 20 20 65 78 70 65 63 74 4d 61 74 63 68 09 32 . expectMatch.2
da70: 31 2e 33 34 20 4e 09 09 28 61 2a 29 2a 09 09 62 1.34 N..(a*)*..b
da80: 63 09 22 22 09 22 22 0a 2b 20 65 78 70 65 63 74 c.""."".+ expect
da90: 4d 61 74 63 68 09 32 31 2e 33 35 20 4d 09 09 7b Match.21.35 M..{
daa0: 20 54 4f 20 28 28 5b 61 2d 7a 30 2d 39 2e 5f 5d TO (([a-z0-9._]
dab0: 2b 7c 22 28 5b 5e 22 5d 2b 7c 22 22 29 2b 22 29 +|"([^"]+|"")+")
dac0: 2b 29 7d 09 7b 61 73 64 20 54 4f 20 66 6f 6f 7d +)}.{asd TO foo}
dad0: 09 7b 20 54 4f 20 66 6f 6f 7d 20 66 6f 6f 20 6f .{ TO foo} foo o
dae0: 20 7b 7d 0a 20 20 0a 20 20 0a 20 20 64 6f 69 6e {}. . . doin
daf0: 67 20 32 32 20 22 6d 75 6c 74 69 63 68 61 72 61 g 22 "multichara
db00: 63 74 65 72 20 63 6f 6c 6c 61 74 69 6e 67 20 65 cter collating e
db10: 6c 65 6d 65 6e 74 73 22 0a 2a 2a 2a 2a 2a 2a 2a lements".*******
db20: 2a 2a 2a 2a 2a 2a 2a 2a 20 65 78 70 65 63 74 4d ******** expectM
db30: 61 74 63 68 09 32 34 2e 39 20 20 2d 09 09 33 7a atch.24.9 -..3z
db40: 2a 09 09 31 32 33 7a 7a 7a 7a 34 35 36 09 33 7a *..123zzzz456.3z
db50: 7a 0a 2a 2a 2a 20 38 34 38 2c 38 35 33 20 2a 2a z.*** 848,853 **
db60: 2a 2a 0a 2d 2d 2d 20 38 35 35 2c 38 36 31 20 2d **.--- 855,861 -
db70: 2d 2d 2d 0a 20 20 65 78 70 65 63 74 4d 61 74 63 ---. expectMatc
db80: 68 09 32 34 2e 31 30 20 50 54 09 33 7a 2a 3f 09 h.24.10 PT.3z*?.
db90: 09 31 32 33 7a 7a 7a 7a 34 35 36 09 33 0a 20 20 .123zzzz456.3.
dba0: 65 78 70 65 63 74 4d 61 74 63 68 09 32 34 2e 31 expectMatch.24.1
dbb0: 31 20 2d 09 09 7a 2a 34 09 09 31 32 33 7a 7a 7a 1 -..z*4..123zzz
dbc0: 7a 34 35 36 09 7a 7a 7a 7a 34 0a 20 20 65 78 70 z456.zzzz4. exp
dbd0: 65 63 74 4d 61 74 63 68 09 32 34 2e 31 32 20 50 ectMatch.24.12 P
dbe0: 54 09 7a 2a 3f 34 09 09 31 32 33 7a 7a 7a 7a 34 T.z*?4..123zzzz4
dbf0: 35 36 09 7a 7a 7a 7a 34 0a 2b 20 65 78 70 65 63 56.zzzz4.+ expec
dc00: 74 4d 61 74 63 68 09 32 34 2e 31 33 20 50 54 09 tMatch.24.13 PT.
dc10: 7b 5e 28 5b 5e 2f 5d 2b 3f 29 28 3f 3a 2f 28 5b {^([^/]+?)(?:/([
dc20: 5e 2f 5d 2b 3f 29 29 28 3f 3a 2f 28 5b 5e 2f 5d ^/]+?))(?:/([^/]
dc30: 2b 3f 29 29 3f 24 7d 09 7b 66 6f 6f 2f 62 61 72 +?))?$}.{foo/bar
dc40: 2f 62 61 7a 7d 09 7b 66 6f 6f 2f 62 61 72 2f 62 /baz}.{foo/bar/b
dc50: 61 7a 7d 20 7b 66 6f 6f 7d 20 7b 62 61 72 7d 20 az} {foo} {bar}
dc60: 7b 62 61 7a 7d 0a 20 20 0a 20 20 0a 20 20 64 6f {baz}. . . do
dc70: 69 6e 67 20 32 35 20 22 6d 69 78 65 64 20 71 75 ing 25 "mixed qu
dc80: 61 6e 74 69 66 69 65 72 73 22 0a antifiers".
