/[pcre]/code/trunk/pcre_compile.c
ViewVC logotype

Diff of /code/trunk/pcre_compile.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 264 by ph10, Tue Nov 13 11:07:16 2007 UTC revision 272 by ph10, Sat Nov 17 16:53:53 2007 UTC
# Line 241  static const char error_texts[] = Line 241  static const char error_texts[] =
241    /* 10 */    /* 10 */
242    "operand of unlimited repeat could match the empty string\0"  /** DEAD **/    "operand of unlimited repeat could match the empty string\0"  /** DEAD **/
243    "internal error: unexpected repeat\0"    "internal error: unexpected repeat\0"
244    "unrecognized character after (?\0"    "unrecognized character after (? or (?-\0"
245    "POSIX named classes are supported only within a class\0"    "POSIX named classes are supported only within a class\0"
246    "missing )\0"    "missing )\0"
247    /* 15 */    /* 15 */
# Line 300  static const char error_texts[] = Line 300  static const char error_texts[] =
300    "(*VERB) with an argument is not supported\0"    "(*VERB) with an argument is not supported\0"
301    /* 60 */    /* 60 */
302    "(*VERB) not recognized\0"    "(*VERB) not recognized\0"
303    "number is too big";    "number is too big\0"
304      "subpattern name expected\0"
305      "digit expected after (?+";
306    
307    
308  /* Table to identify digits and hex digits. This is used when compiling  /* Table to identify digits and hex digits. This is used when compiling
# Line 2710  for (;; ptr++) Line 2712  for (;; ptr++)
2712          if (*ptr == '^')          if (*ptr == '^')
2713            {            {
2714            local_negate = TRUE;            local_negate = TRUE;
2715              should_flip_negation = TRUE;  /* Note negative special */
2716            ptr++;            ptr++;
2717            }            }
2718    
# Line 4245  we set the flag only if there is a liter Line 4248  we set the flag only if there is a liter
4248              *errorcodeptr = ERR58;              *errorcodeptr = ERR58;
4249              goto FAILED;              goto FAILED;
4250              }              }
4251            if (refsign == '-')            recno = (refsign == '-')?
4252                cd->bracount - recno + 1 : recno +cd->bracount;
4253              if (recno <= 0 || recno > cd->final_bracount)
4254              {              {
4255              recno = cd->bracount - recno + 1;              *errorcodeptr = ERR15;
4256              if (recno <= 0)              goto FAILED;
               {  
               *errorcodeptr = ERR15;  
               goto FAILED;  
               }  
4257              }              }
           else recno += cd->bracount;  
4258            PUT2(code, 2+LINK_SIZE, recno);            PUT2(code, 2+LINK_SIZE, recno);
4259            break;            break;
4260            }            }
# Line 4326  we set the flag only if there is a liter Line 4326  we set the flag only if there is a liter
4326            skipbytes = 1;            skipbytes = 1;
4327            }            }
4328    
4329          /* Check for the "name" actually being a subpattern number. */          /* Check for the "name" actually being a subpattern number. We are
4330            in the second pass here, so final_bracount is set. */
4331    
4332          else if (recno > 0)          else if (recno > 0 && recno <= cd->final_bracount)
4333            {            {
4334            PUT2(code, 2+LINK_SIZE, recno);            PUT2(code, 2+LINK_SIZE, recno);
4335            }            }
# Line 4522  we set the flag only if there is a liter Line 4523  we set the flag only if there is a liter
4523    
4524          /* We come here from the Python syntax above that handles both          /* We come here from the Python syntax above that handles both
4525          references (?P=name) and recursion (?P>name), as well as falling          references (?P=name) and recursion (?P>name), as well as falling
4526          through from the Perl recursion syntax (?&name). */          through from the Perl recursion syntax (?&name). We also come here from
4527            the Perl \k<name> or \k'name' back reference syntax and the \k{name}
4528            .NET syntax. */
4529    
4530          NAMED_REF_OR_RECURSE:          NAMED_REF_OR_RECURSE:
4531          name = ++ptr;          name = ++ptr;
# Line 4534  we set the flag only if there is a liter Line 4537  we set the flag only if there is a liter
4537    
4538          if (lengthptr != NULL)          if (lengthptr != NULL)
4539            {            {
4540              if (namelen == 0)
4541                {
4542                *errorcodeptr = ERR62;
4543                goto FAILED;
4544                }
4545            if (*ptr != terminator)            if (*ptr != terminator)
4546              {              {
4547              *errorcodeptr = ERR42;              *errorcodeptr = ERR42;
# Line 4547  we set the flag only if there is a liter Line 4555  we set the flag only if there is a liter
4555            recno = 0;            recno = 0;
4556            }            }
4557    
4558          /* In the real compile, seek the name in the table */          /* In the real compile, seek the name in the table. We check the name
4559            first, and then check that we have reached the end of the name in the
4560            table. That way, if the name that is longer than any in the table,
4561            the comparison will fail without reading beyond the table entry. */
4562    
4563          else          else
4564            {            {
4565            slot = cd->name_table;            slot = cd->name_table;
4566            for (i = 0; i < cd->names_found; i++)            for (i = 0; i < cd->names_found; i++)
4567              {              {
4568              if (strncmp((char *)name, (char *)slot+2, namelen) == 0) break;              if (strncmp((char *)name, (char *)slot+2, namelen) == 0 &&
4569                    slot[2+namelen] == 0)
4570                  break;
4571              slot += cd->name_entry_size;              slot += cd->name_entry_size;
4572              }              }
4573    
# Line 4591  we set the flag only if there is a liter Line 4604  we set the flag only if there is a liter
4604            {            {
4605            const uschar *called;            const uschar *called;
4606    
4607            if ((refsign = *ptr) == '+') ptr++;            if ((refsign = *ptr) == '+')
4608                {
4609                ptr++;
4610                if ((digitab[*ptr] & ctype_digit) == 0)
4611                  {
4612                  *errorcodeptr = ERR63;
4613                  goto FAILED;
4614                  }
4615                }
4616            else if (refsign == '-')            else if (refsign == '-')
4617              {              {
4618              if ((digitab[ptr[1]] & ctype_digit) == 0)              if ((digitab[ptr[1]] & ctype_digit) == 0)
# Line 5918  to compile parts of the pattern into; th Line 5939  to compile parts of the pattern into; th
5939  no longer needed, so hopefully this workspace will never overflow, though there  no longer needed, so hopefully this workspace will never overflow, though there
5940  is a test for its doing so. */  is a test for its doing so. */
5941    
5942  cd->bracount = 0;  cd->bracount = cd->final_bracount = 0;
5943  cd->names_found = 0;  cd->names_found = 0;
5944  cd->name_entry_size = 0;  cd->name_entry_size = 0;
5945  cd->name_table = NULL;  cd->name_table = NULL;
# Line 5995  field. Reset the bracket count and the n Line 6016  field. Reset the bracket count and the n
6016  field; this time it's used for remembering forward references to subpatterns.  field; this time it's used for remembering forward references to subpatterns.
6017  */  */
6018    
6019    cd->final_bracount = cd->bracount;  /* Save for checking forward references */
6020  cd->bracount = 0;  cd->bracount = 0;
6021  cd->names_found = 0;  cd->names_found = 0;
6022  cd->name_table = (uschar *)re + re->name_table_offset;  cd->name_table = (uschar *)re + re->name_table_offset;

Legend:
Removed from v.264  
changed lines
  Added in v.272

  ViewVC Help
Powered by ViewVC 1.1.5