Tcl Source Code

Hex Artifact Content
Login

Artifact 41a764bbf2fd726eb845371fc3f41f7dd444b64f:

Attachment "x" to ticket [1178541fff] added by wielemaker 2005-04-07 21:42:01.
0000: 3f 20 52 45 41 44 4d 45 0a 3f 20 74 65 73 74 0a  ? README.? test.
0010: 3f 20 74 65 73 74 2e 70 6c 0a 3f 20 78 0a 49 6e  ? test.pl.? x.In
0020: 64 65 78 3a 20 72 65 67 63 5f 6c 65 78 2e 63 0a  dex: regc_lex.c.
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0070: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 75  ===.RCS file: /u
0080: 73 72 2f 6c 6f 63 61 6c 2f 63 76 73 72 6f 6f 74  sr/local/cvsroot
0090: 2f 70 6c 2f 70 61 63 6b 61 67 65 73 2f 78 70 63  /pl/packages/xpc
00a0: 65 2f 73 72 63 2f 72 67 78 2f 72 65 67 63 5f 6c  e/src/rgx/regc_l
00b0: 65 78 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e  ex.c,v.retrievin
00c0: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 0a 64  g revision 1.1.d
00d0: 69 66 66 20 2d 75 20 2d 77 20 2d 72 31 2e 31 20  iff -u -w -r1.1 
00e0: 72 65 67 63 5f 6c 65 78 2e 63 0a 2d 2d 2d 20 72  regc_lex.c.--- r
00f0: 65 67 63 5f 6c 65 78 2e 63 09 34 20 41 70 72 20  egc_lex.c.4 Apr 
0100: 32 30 30 35 20 31 34 3a 35 30 3a 30 36 20 2d 30  2005 14:50:06 -0
0110: 30 30 30 09 31 2e 31 0a 2b 2b 2b 20 72 65 67 63  000.1.1.+++ regc
0120: 5f 6c 65 78 2e 63 09 37 20 41 70 72 20 32 30 30  _lex.c.7 Apr 200
0130: 35 20 31 34 3a 33 37 3a 31 32 20 2d 30 30 30 30  5 14:37:12 -0000
0140: 0a 40 40 20 2d 32 38 33 2c 31 31 20 2b 32 38 33  .@@ -283,11 +283
0150: 2c 31 33 20 40 40 0a 20 09 2f 2a 20 72 65 6d 65  ,13 @@. ./* reme
0160: 6d 62 65 72 20 66 6c 61 76 6f 72 20 6f 66 20 6c  mber flavor of l
0170: 61 73 74 20 74 6f 6b 65 6e 20 2a 2f 0a 20 09 76  ast token */. .v
0180: 2d 3e 6c 61 73 74 74 79 70 65 20 3d 20 76 2d 3e  ->lasttype = v->
0190: 6e 65 78 74 74 79 70 65 3b 0a 20 0a 2b 23 69 66  nexttype;. .+#if
01a0: 20 30 09 09 09 09 09 2f 2a 20 4a 57 3a 20 6d 6f   0...../* JW: mo
01b0: 76 65 64 20 74 6f 20 70 61 72 73 65 62 72 61 6e  ved to parsebran
01c0: 63 68 28 29 20 2a 2f 0a 20 09 2f 2a 20 52 45 47  ch() */. ./* REG
01d0: 5f 42 4f 53 4f 4e 4c 59 20 2a 2f 0a 20 09 69 66  _BOSONLY */. .if
01e0: 20 28 76 2d 3e 6e 65 78 74 74 79 70 65 20 3d 3d   (v->nexttype ==
01f0: 20 45 4d 50 54 59 20 26 26 20 28 76 2d 3e 63 66   EMPTY && (v->cf
0200: 6c 61 67 73 26 52 45 47 5f 42 4f 53 4f 4e 4c 59  lags&REG_BOSONLY
0210: 29 29 20 7b 0a 20 09 09 2f 2a 20 61 74 20 73 74  )) {. ../* at st
0220: 61 72 74 20 6f 66 20 61 20 52 45 47 5f 42 4f 53  art of a REG_BOS
0230: 4f 4e 4c 59 20 52 45 20 2a 2f 0a 20 09 09 52 45  ONLY RE */. ..RE
0240: 54 56 28 53 42 45 47 49 4e 2c 20 30 29 3b 09 09  TV(SBEGIN, 0);..
0250: 2f 2a 20 73 61 6d 65 20 61 73 20 5c 41 20 2a 2f  /* same as \A */
0260: 0a 20 09 7d 0a 2b 23 65 6e 64 69 66 0a 20 0a 20  . .}.+#endif. . 
0270: 09 2f 2a 20 69 66 20 77 65 27 72 65 20 6e 65 73  ./* if we're nes
0280: 74 65 64 20 61 6e 64 20 77 65 27 76 65 20 68 69  ted and we've hi
0290: 74 20 65 6e 64 2c 20 72 65 74 75 72 6e 20 74 6f  t end, return to
02a0: 20 6f 75 74 65 72 20 6c 65 76 65 6c 20 2a 2f 0a   outer level */.
02b0: 20 09 69 66 20 28 76 2d 3e 73 61 76 65 6e 6f 77   .if (v->savenow
02c0: 20 21 3d 20 4e 55 4c 4c 20 26 26 20 41 54 45 4f   != NULL && ATEO
02d0: 53 28 29 29 20 7b 0a 49 6e 64 65 78 3a 20 72 65  S()) {.Index: re
02e0: 67 63 6f 6d 70 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d  gcomp.c.========
02f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0300: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0310: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0320: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20  ===========.RCS 
0330: 66 69 6c 65 3a 20 2f 75 73 72 2f 6c 6f 63 61 6c  file: /usr/local
0340: 2f 63 76 73 72 6f 6f 74 2f 70 6c 2f 70 61 63 6b  /cvsroot/pl/pack
0350: 61 67 65 73 2f 78 70 63 65 2f 73 72 63 2f 72 67  ages/xpce/src/rg
0360: 78 2f 72 65 67 63 6f 6d 70 2e 63 2c 76 0a 72 65  x/regcomp.c,v.re
0370: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f  trieving revisio
0380: 6e 20 31 2e 32 0a 64 69 66 66 20 2d 75 20 2d 77  n 1.2.diff -u -w
0390: 20 2d 72 31 2e 32 20 72 65 67 63 6f 6d 70 2e 63   -r1.2 regcomp.c
03a0: 0a 2d 2d 2d 20 72 65 67 63 6f 6d 70 2e 63 09 37  .--- regcomp.c.7
03b0: 20 41 70 72 20 32 30 30 35 20 30 38 3a 31 35 3a   Apr 2005 08:15:
03c0: 31 33 20 2d 30 30 30 30 09 31 2e 32 0a 2b 2b 2b  13 -0000.1.2.+++
03d0: 20 72 65 67 63 6f 6d 70 2e 63 09 37 20 41 70 72   regcomp.c.7 Apr
03e0: 20 32 30 30 35 20 31 34 3a 33 37 3a 31 33 20 2d   2005 14:37:13 -
03f0: 30 30 30 30 0a 40 40 20 2d 36 37 38 2c 36 20 2b  0000.@@ -678,6 +
0400: 36 37 38 2c 31 34 20 40 40 0a 20 09 73 65 65 6e  678,14 @@. .seen
0410: 63 6f 6e 74 65 6e 74 20 3d 20 30 3b 0a 20 09 74  content = 0;. .t
0420: 20 3d 20 73 75 62 72 65 28 76 2c 20 27 3d 27 2c   = subre(v, '=',
0430: 20 30 2c 20 6c 65 66 74 2c 20 72 69 67 68 74 29   0, left, right)
0440: 3b 09 2f 2a 20 6f 70 20 27 3d 27 20 69 73 20 74  ;./* op '=' is t
0450: 65 6e 74 61 74 69 76 65 20 2a 2f 0a 20 09 4e 4f  entative */. .NO
0460: 45 52 52 4e 28 29 3b 0a 2b 0a 2b 09 09 09 09 2f  ERRN();.+.+..../
0470: 2a 20 49 6e 73 65 72 74 20 61 20 5c 41 20 28 53  * Insert a \A (S
0480: 42 45 47 49 4e 29 20 69 6e 20 65 61 63 68 20 74  BEGIN) in each t
0490: 6f 70 6c 65 76 65 6c 20 62 72 61 6e 63 68 20 2a  oplevel branch *
04a0: 2f 0a 2b 09 69 66 20 28 20 73 74 6f 70 70 65 72  /.+.if ( stopper
04b0: 20 3d 3d 20 45 4f 53 20 26 26 20 21 70 61 72 74   == EOS && !part
04c0: 69 61 6c 20 26 26 20 28 76 2d 3e 63 66 6c 61 67  ial && (v->cflag
04d0: 73 26 52 45 47 5f 42 4f 53 4f 4e 4c 59 29 29 20  s&REG_BOSONLY)) 
04e0: 7b 0a 2b 09 09 6e 65 77 61 72 63 28 76 2d 3e 6e  {.+..newarc(v->n
04f0: 66 61 2c 20 27 5e 27 2c 20 30 2c 20 6c 70 2c 20  fa, '^', 0, lp, 
0500: 72 69 67 68 74 29 3b 0a 2b 09 09 6e 65 77 61 72  right);.+..newar
0510: 63 28 76 2d 3e 6e 66 61 2c 20 27 5e 27 2c 20 31  c(v->nfa, '^', 1
0520: 2c 20 6c 70 2c 20 72 69 67 68 74 29 3b 0a 2b 09  , lp, right);.+.
0530: 09 73 65 65 6e 63 6f 6e 74 65 6e 74 20 3d 20 31  .seencontent = 1
0540: 3b 0a 2b 20 09 7d 0a 2b 0a 20 09 77 68 69 6c 65  ;.+ .}.+. .while
0550: 20 28 21 53 45 45 28 27 7c 27 29 20 26 26 20 21   (!SEE('|') && !
0560: 53 45 45 28 73 74 6f 70 70 65 72 29 20 26 26 20  SEE(stopper) && 
0570: 21 53 45 45 28 45 4f 53 29 29 20 7b 0a 20 09 09  !SEE(EOS)) {. ..
0580: 69 66 20 28 73 65 65 6e 63 6f 6e 74 65 6e 74 29  if (seencontent)
0590: 20 7b 09 2f 2a 20 69 6d 70 6c 69 63 69 74 20 63   {./* implicit c
05a0: 6f 6e 63 61 74 20 6f 70 65 72 61 74 6f 72 20 2a  oncat operator *
05b0: 2f 0a 20 09 09 09 6c 70 20 3d 20 6e 65 77 73 74  /. ...lp = newst
05c0: 61 74 65 28 76 2d 3e 6e 66 61 29 3b 0a           ate(v->nfa);.