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

Diff of /code/trunk/pcre_exec.c

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

revision 231 by ph10, Tue Sep 11 11:15:33 2007 UTC revision 336 by ph10, Sat Apr 12 15:59:03 2008 UTC
# Line 6  Line 6 
6  and semantics are as close as possible to those of the Perl 5 language.  and semantics are as close as possible to those of the Perl 5 language.
7    
8                         Written by Philip Hazel                         Written by Philip Hazel
9             Copyright (c) 1997-2007 University of Cambridge             Copyright (c) 1997-2008 University of Cambridge
10    
11  -----------------------------------------------------------------------------  -----------------------------------------------------------------------------
12  Redistribution and use in source and binary forms, with or without  Redistribution and use in source and binary forms, with or without
# Line 43  pattern matching using an NFA algorithm, Line 43  pattern matching using an NFA algorithm,
43  possible. There are also some static supporting functions. */  possible. There are also some static supporting functions. */
44    
45  #ifdef HAVE_CONFIG_H  #ifdef HAVE_CONFIG_H
46  #include <config.h>  #include "config.h"
47  #endif  #endif
48    
49  #define NLBLOCK md             /* Block containing newline information */  #define NLBLOCK md             /* Block containing newline information */
# Line 1148  for (;;) Line 1148  for (;;)
1148      do ecode += GET(ecode,1); while (*ecode == OP_ALT);      do ecode += GET(ecode,1); while (*ecode == OP_ALT);
1149      break;      break;
1150    
1151      /* BRAZERO and BRAMINZERO occur just before a bracket group, indicating      /* BRAZERO, BRAMINZERO and SKIPZERO occur just before a bracket group,
1152      that it may occur zero times. It may repeat infinitely, or not at all -      indicating that it may occur zero times. It may repeat infinitely, or not
1153      i.e. it could be ()* or ()? in the pattern. Brackets with fixed upper      at all - i.e. it could be ()* or ()? or even (){0} in the pattern. Brackets
1154      repeat limits are compiled as a number of copies, with the optional ones      with fixed upper repeat limits are compiled as a number of copies, with the
1155      preceded by BRAZERO or BRAMINZERO. */      optional ones preceded by BRAZERO or BRAMINZERO. */
1156    
1157      case OP_BRAZERO:      case OP_BRAZERO:
1158        {        {
# Line 1174  for (;;) Line 1174  for (;;)
1174        }        }
1175      break;      break;
1176    
1177        case OP_SKIPZERO:
1178          {
1179          next = ecode+1;
1180          do next += GET(next,1); while (*next == OP_ALT);
1181          ecode = next + 1 + LINK_SIZE;
1182          }
1183        break;
1184    
1185      /* End of a group, repeated or non-repeating. */      /* End of a group, repeated or non-repeating. */
1186    
1187      case OP_KET:      case OP_KET:
# Line 1723  for (;;) Line 1731  for (;;)
1731      case OP_REF:      case OP_REF:
1732        {        {
1733        offset = GET2(ecode, 1) << 1;               /* Doubled ref number */        offset = GET2(ecode, 1) << 1;               /* Doubled ref number */
1734        ecode += 3;                                 /* Advance past item */        ecode += 3;
1735    
1736        /* If the reference is unset, set the length to be longer than the amount        /* If the reference is unset, there are two possibilities:
1737        of subject left; this ensures that every attempt at a match fails. We  
1738        can't just fail here, because of the possibility of quantifiers with zero        (a) In the default, Perl-compatible state, set the length to be longer
1739        minima. */        than the amount of subject left; this ensures that every attempt at a
1740          match fails. We can't just fail here, because of the possibility of
1741        length = (offset >= offset_top || md->offset_vector[offset] < 0)?        quantifiers with zero minima.
1742          md->end_subject - eptr + 1 :  
1743          md->offset_vector[offset+1] - md->offset_vector[offset];        (b) If the JavaScript compatibility flag is set, set the length to zero
1744          so that the back reference matches an empty string.
1745    
1746          Otherwise, set the length to the length of what was matched by the
1747          referenced subpattern. */
1748    
1749          if (offset >= offset_top || md->offset_vector[offset] < 0)
1750            length = (md->jscript_compat)? 0 : md->end_subject - eptr + 1;
1751          else
1752            length = md->offset_vector[offset+1] - md->offset_vector[offset];
1753    
1754        /* Set up for repetition, or handle the non-repeated case */        /* Set up for repetition, or handle the non-repeated case */
1755    
# Line 4246  HEAP_RETURN: Line 4263  HEAP_RETURN:
4263  switch (frame->Xwhere)  switch (frame->Xwhere)
4264    {    {
4265    LBL( 1) LBL( 2) LBL( 3) LBL( 4) LBL( 5) LBL( 6) LBL( 7) LBL( 8)    LBL( 1) LBL( 2) LBL( 3) LBL( 4) LBL( 5) LBL( 6) LBL( 7) LBL( 8)
4266    LBL( 9) LBL(10) LBL(11) LBL(12) LBL(13) LBL(14) LBL(15) LBL(16)    LBL( 9) LBL(10) LBL(11) LBL(12) LBL(13) LBL(14) LBL(15) LBL(17)
4267    LBL(17) LBL(18) LBL(19) LBL(20) LBL(21) LBL(22) LBL(23) LBL(24)    LBL(19) LBL(24) LBL(25) LBL(26) LBL(27) LBL(29) LBL(31) LBL(33)
4268    LBL(25) LBL(26) LBL(27) LBL(28) LBL(29) LBL(30) LBL(31) LBL(32)    LBL(35) LBL(43) LBL(47) LBL(48) LBL(49) LBL(50) LBL(51) LBL(52)
4269    LBL(33) LBL(34) LBL(35) LBL(36) LBL(37) LBL(38) LBL(39) LBL(40)    LBL(53) LBL(54)
4270    LBL(41) LBL(42) LBL(43) LBL(44) LBL(45) LBL(46) LBL(47) LBL(48)  #ifdef SUPPORT_UTF8
4271    LBL(49) LBL(50) LBL(51) LBL(52) LBL(53) LBL(54)    LBL(16) LBL(18) LBL(20) LBL(21) LBL(22) LBL(23) LBL(28) LBL(30)
4272      LBL(32) LBL(34) LBL(42) LBL(46)
4273    #ifdef SUPPORT_UCP
4274      LBL(36) LBL(37) LBL(38) LBL(39) LBL(40) LBL(41) LBL(44) LBL(45)
4275    #endif  /* SUPPORT_UCP */
4276    #endif  /* SUPPORT_UTF8 */
4277    default:    default:
4278    DPRINTF(("jump error in pcre match: label %d non-existent\n", frame->Xwhere));    DPRINTF(("jump error in pcre match: label %d non-existent\n", frame->Xwhere));
4279    return PCRE_ERROR_INTERNAL;    return PCRE_ERROR_INTERNAL;
# Line 4445  end_subject = md->end_subject; Line 4467  end_subject = md->end_subject;
4467    
4468  md->endonly = (re->options & PCRE_DOLLAR_ENDONLY) != 0;  md->endonly = (re->options & PCRE_DOLLAR_ENDONLY) != 0;
4469  utf8 = md->utf8 = (re->options & PCRE_UTF8) != 0;  utf8 = md->utf8 = (re->options & PCRE_UTF8) != 0;
4470    md->jscript_compat = (re->options & PCRE_JAVASCRIPT_COMPAT) != 0;
4471    
4472  md->notbol = (options & PCRE_NOTBOL) != 0;  md->notbol = (options & PCRE_NOTBOL) != 0;
4473  md->noteol = (options & PCRE_NOTEOL) != 0;  md->noteol = (options & PCRE_NOTEOL) != 0;
# Line 4469  switch (options & (PCRE_BSR_ANYCRLF|PCRE Line 4492  switch (options & (PCRE_BSR_ANYCRLF|PCRE
4492    md->bsr_anycrlf = TRUE;    md->bsr_anycrlf = TRUE;
4493  #else  #else
4494    md->bsr_anycrlf = FALSE;    md->bsr_anycrlf = FALSE;
4495  #endif  #endif
4496    break;    break;
4497    
4498    case PCRE_BSR_ANYCRLF:    case PCRE_BSR_ANYCRLF:
# Line 4665  for(;;) Line 4688  for(;;)
4688      if (first_byte_caseless)      if (first_byte_caseless)
4689        while (start_match < end_subject &&        while (start_match < end_subject &&
4690               md->lcc[*start_match] != first_byte)               md->lcc[*start_match] != first_byte)
4691          start_match++;          { NEXTCHAR(start_match); }
4692      else      else
4693        while (start_match < end_subject && *start_match != first_byte)        while (start_match < end_subject && *start_match != first_byte)
4694          start_match++;          { NEXTCHAR(start_match); }
4695      }      }
4696    
4697    /* Or to just after a linebreak for a multiline match if possible */    /* Or to just after a linebreak for a multiline match if possible */
# Line 4678  for(;;) Line 4701  for(;;)
4701      if (start_match > md->start_subject + start_offset)      if (start_match > md->start_subject + start_offset)
4702        {        {
4703        while (start_match <= end_subject && !WAS_NEWLINE(start_match))        while (start_match <= end_subject && !WAS_NEWLINE(start_match))
4704          start_match++;          { NEXTCHAR(start_match); }
4705    
4706        /* If we have just passed a CR and the newline option is ANY or ANYCRLF,        /* If we have just passed a CR and the newline option is ANY or ANYCRLF,
4707        and we are now at a LF, advance the match position by one more character.        and we are now at a LF, advance the match position by one more character.
# Line 4699  for(;;) Line 4722  for(;;)
4722      while (start_match < end_subject)      while (start_match < end_subject)
4723        {        {
4724        register unsigned int c = *start_match;        register unsigned int c = *start_match;
4725        if ((start_bits[c/8] & (1 << (c&7))) == 0) start_match++; else break;        if ((start_bits[c/8] & (1 << (c&7))) == 0)
4726            { NEXTCHAR(start_match); }
4727          else break;
4728        }        }
4729      }      }
4730    

Legend:
Removed from v.231  
changed lines
  Added in v.336

  ViewVC Help
Powered by ViewVC 1.1.5