代理服务器原代码.rar syntax2.h

www.pudn.com > 代理服务器原代码.rar > syntax2.h
//+--------------------------------------------------------------------------- 
// 
//  Copyright ( C ) Microsoft Corporation, 1994 - 2002. 
// 
//  File:       syntax2.h 
// 
//  Contents:   syntax modules for regexpr 
// 
//  Classes:    perl_syntax, posix_syntax 
// 
//  Author:     Eric Niebler ( ericne@microsoft.com ) 
// 
//  History:    3-29-00   ericne   Created 
// 
//---------------------------------------------------------------------------- 
 
#ifndef SYNTAX_H 
#define SYNTAX_H 
 
#ifdef _MSC_VER 
#pragma warning( push ) 
// warning C4514: '' unreferenced inline function has been removed 
// warning C4786: identifier was truncated to '255' characters in the debug information 
#pragma warning( disable : 4514 4786 ) 
#endif 
 
#include  
#include  
#include  
#include  
#include  
#include  
#include  
#include  
 
#ifndef ARRAYSIZE 
# define ARRAYSIZE( a ) (sizeof(a)/sizeof((a)[0])) 
#endif 
 
#ifndef UCHAR_MAX 
# define UCHAR_MAX 0xff 
#endif 
 
#ifndef WCHAR_MAX 
# define WCHAR_MAX ( (wchar_t )-1 ) 
#endif 
 
#if defined(_MSC_VER) & _MSC_VER >= 1300 
# define REGEX_DEPRECATED  __declspec(deprecated) 
# define REGEX_NOINLINE    __declspec(noinline) 
# define REGEX_FORCEINLINE __forceinline 
# define REGEX_SELECTANY   __declspec(selectany) 
# define REGEX_CDECL       __cdecl 
#elif defined(_MSC_VER) & _MSC_VER < 1300 
# define REGEX_DEPRECATED 
# define REGEX_NOINLINE 
# define REGEX_FORCEINLINE __forceinline 
# define REGEX_SELECTANY   __declspec(selectany) 
# define REGEX_CDECL       __cdecl 
#else 
# define REGEX_DEPRECATED 
# define REGEX_NOINLINE 
# define REGEX_FORCEINLINE inline 
# define REGEX_SELECTANY 
# define REGEX_CDECL 
#endif 
 
#define REGEX_STRING(CH,sz) (::regex::detail::literal::string( sz, L##sz )) 
#define REGEX_CHAR(CH,ch) (static_cast(::regex::detail::literal::template character::value)) 
 
#ifdef _MSC_VER 
namespace std 
{ 
template<> 
struct iterator_traits< char * > 
{    // get traits from iterator _Iter 
    typedef random_access_iterator_tag iterator_category; 
    typedef char value_type; 
    typedef ptrdiff_t difference_type; 
    typedef difference_type distance_type;    // retained 
    typedef char * pointer; 
    typedef char & reference; 
}; 
template<> 
struct iterator_traits< char const * > 
{    // get traits from iterator _Iter 
    typedef random_access_iterator_tag iterator_category; 
    typedef char value_type; 
    typedef ptrdiff_t difference_type; 
    typedef difference_type distance_type;    // retained 
    typedef char * pointer; 
    typedef char & reference; 
}; 
 
template<> 
struct iterator_traits< wchar_t * > 
{    // get traits from iterator _Iter 
    typedef random_access_iterator_tag iterator_category; 
    typedef wchar_t value_type; 
    typedef ptrdiff_t difference_type; 
    typedef difference_type distance_type;    // retained 
    typedef wchar_t * pointer; 
    typedef wchar_t & reference; 
}; 
template<> 
struct iterator_traits< wchar_t const * > 
{    // get traits from iterator _Iter 
    typedef random_access_iterator_tag iterator_category; 
    typedef wchar_t value_type; 
    typedef ptrdiff_t difference_type; 
    typedef difference_type distance_type;    // retained 
    typedef wchar_t * pointer; 
    typedef wchar_t & reference; 
}; 
 
#if _MSC_VER < 1300 & ( !defined(_CPPLIB_VER) | _CPPLIB_VER < 308 ) 
#pragma warning( push ) 
#pragma warning( disable : 4601 ) 
#pragma push_macro("max") 
#pragma push_macro("min") 
#undef max 
#undef min 
 
template< typename T > 
T const & max( T const & l, T const & r ) 
{ 
    return _cpp_max( l, r ); 
} 
template< typename T > 
T const & min( T const & l, T const & r ) 
{ 
    return _cpp_min( l, r ); 
} 
 
#pragma pop_macro("min") 
#pragma pop_macro("max") 
#pragma warning( pop ) 
#endif 
 
} 
#endif 
 
namespace regex 
{ 
 
class bad_regexpr : public std::invalid_argument 
{ 
public: 
    explicit bad_regexpr( std::string const & s ) 
        : std::invalid_argument( s ) {} 
    virtual ~bad_regexpr() throw() {} 
}; 
 
// 
// Flags to control how matching occurs 
// 
enum REGEX_FLAGS 
{ 
    NOFLAGS       = 0x0000, 
    NOCASE        = 0x0001, // ignore case 
    GLOBAL        = 0x0002, // match everywhere in the string 
    MULTILINE     = 0x0004, // ^ and $ can match internal line breaks 
    SINGLELINE    = 0x0008, // . can match newline character 
    RIGHTMOST     = 0x0010, // start matching at the right of the string 
    NOBACKREFS    = 0x0020, // only meaningful when used with GLOBAL and substitute 
    FIRSTBACKREFS = 0x0040, // only meaningful when used with GLOBAL 
    ALLBACKREFS   = 0x0080, // only meaningful when used with GLOBAL 
    NORMALIZE     = 0x0100, // Preprocess patterns: "\\n" => "\n", etc. 
    EXTENDED      = 0x0200, // ignore whitespace in pattern 
}; 
 
// For backwards compatibility 
REGEX_FLAGS const noflags = NOFLAGS; 
 
// helper functions to make it easier to combine 
// the regex flags. 
inline REGEX_FLAGS operator|( REGEX_FLAGS f1, REGEX_FLAGS f2 ) 
{ 
    return ( REGEX_FLAGS ) ( ( unsigned )f1 | ( unsigned )f2 ); 
} 
inline REGEX_FLAGS & operator|=( REGEX_FLAGS & f1, REGEX_FLAGS f2 ) 
{ 
    return f1 = ( f1 | f2 ); 
} 
inline REGEX_FLAGS operator&( REGEX_FLAGS f1, REGEX_FLAGS f2 ) 
{ 
    return ( REGEX_FLAGS ) ( ( unsigned )f1 & ( unsigned )f2 ); 
} 
inline REGEX_FLAGS & operator&=( REGEX_FLAGS & f1, REGEX_FLAGS f2 ) 
{ 
    return f1 = ( f1 & f2 ); 
} 
#if !defined(_MSC_VER) | _MSC_VER >= 1300 
inline REGEX_FLAGS operator~( REGEX_FLAGS f ) 
{ 
    return ( REGEX_FLAGS ) ~( unsigned )f; 
} 
#endif 
 
// 
// The following are the tokens that can be emitted by the syntax module. 
// Don't reorder this list!!! 
// 
enum TOKEN 
{ 
    NO_TOKEN = 0, 
 
    // REGULAR TOKENS 
    BEGIN_GROUP, 
    END_GROUP, 
    ALTERNATION, 
    BEGIN_LINE, 
    END_LINE, 
    BEGIN_CHARSET, 
    MATCH_ANY, 
    ESCAPE, 
 
    // QUANTIFICATION TOKENS 
    ONE_OR_MORE, 
    ZERO_OR_MORE, 
    ZERO_OR_ONE, 
    ONE_OR_MORE_MIN, 
    ZERO_OR_MORE_MIN, 
    ZERO_OR_ONE_MIN, 
    BEGIN_RANGE, 
    RANGE_SEPARATOR, 
    END_RANGE, 
    END_RANGE_MIN, 
 
    // ESCAPE SEQUENCES 
    ESC_DIGIT, 
    ESC_NOT_DIGIT, 
    ESC_SPACE, 
    ESC_NOT_SPACE, 
    ESC_WORD, 
    ESC_NOT_WORD, 
    ESC_BEGIN_STRING, 
    ESC_END_STRING, 
    ESC_END_STRING_z, 
    ESC_WORD_BOUNDARY, 
    ESC_NOT_WORD_BOUNDARY, 
    ESC_WORD_START, 
    ESC_WORD_STOP, 
    ESC_QUOTE_META_ON, 
    ESC_QUOTE_META_OFF, 
 
    // SUBSTITUTION TOKENS 
    SUBST_BACKREF, 
    SUBST_PREMATCH, 
    SUBST_POSTMATCH, 
    SUBST_MATCH, 
    SUBST_ESCAPE, 
    SUBST_QUOTE_META_ON, 
    SUBST_UPPER_ON, 
    SUBST_UPPER_NEXT, 
    SUBST_LOWER_ON, 
    SUBST_LOWER_NEXT, 
    SUBST_ALL_OFF, 
 
    // CHARSET TOKENS 
    CHARSET_NEGATE, 
    CHARSET_ESCAPE, 
    CHARSET_RANGE, 
    CHARSET_BACKSPACE, 
    CHARSET_END, 
    CHARSET_ALNUM, 
    CHARSET_NOT_ALNUM, 
    CHARSET_ALPHA, 
    CHARSET_NOT_ALPHA, 
    CHARSET_BLANK, 
    CHARSET_NOT_BLANK, 
    CHARSET_CNTRL, 
    CHARSET_NOT_CNTRL, 
    CHARSET_DIGIT, 
    CHARSET_NOT_DIGIT, 
    CHARSET_GRAPH, 
    CHARSET_NOT_GRAPH, 
    CHARSET_LOWER, 
    CHARSET_NOT_LOWER, 
    CHARSET_PRINT, 
    CHARSET_NOT_PRINT, 
    CHARSET_PUNCT, 
    CHARSET_NOT_PUNCT, 
    CHARSET_SPACE, 
    CHARSET_NOT_SPACE, 
    CHARSET_UPPER, 
    CHARSET_NOT_UPPER, 
    CHARSET_XDIGIT, 
    CHARSET_NOT_XDIGIT, 
 
    // EXTENSION TOKENS 
    EXT_NOBACKREF, 
    EXT_POS_LOOKAHEAD, 
    EXT_NEG_LOOKAHEAD, 
    EXT_POS_LOOKBEHIND, 
    EXT_NEG_LOOKBEHIND, 
    EXT_INDEPENDENT, 
    EXT_COMMENT, 
    EXT_CONDITION, 
    EXT_RECURSE, 
    EXT_UNKNOWN 
}; 
 
 
namespace detail 
{ 
 
template< typename CH > struct literal; 
 
template<> struct literal 
{ 
    static char const * string( char const * sz, wchar_t const * ) { return sz; } 
    template struct character { enum { value = ch }; }; 
}; 
 
template<> struct literal 
{ 
    static wchar_t const * string( char const *, wchar_t const * sz ) { return sz; } 
    template struct character { enum { value = ch }; }; 
}; 
 
struct posix_charset_type 
{ 
    char const * szcharset; 
    size_t       cchars; 
}; 
 
extern posix_charset_type const g_rgposix_charsets[]; 
extern size_t const g_cposix_charsets; 
 
template< typename CI > 
bool is_posix_charset( CI icur, CI iend, char const * szcharset ) 
{ 
    for( ; iend != icur && '\0' != *szcharset; ++icur, ++szcharset ) 
    { 
        if( *icur != *szcharset ) 
            return false; 
    } 
    return '\0' == *szcharset; 
} 
 
// Forward-declare the class that holds all the information 
// about the set of characters that can be matched by a charset 
struct charset; 
void free_charset( charset const * ); 
 
template< typename CH > 
struct charset_map_node 
{ 
    std::basic_string m_str; 
    charset const * m_rgcharsets[2]; // 0==case, 1==nocase 
 
    charset_map_node() 
    { 
        m_rgcharsets[0] = m_rgcharsets[1] = NULL; 
    } 
 
    charset_map_node( charset_map_node const & node ) 
    { 
        *this = node; 
    } 
 
    charset_map_node & operator=( charset_map_node const & node ) 
    { 
        m_str = node.m_str; 
        m_rgcharsets[0] = node.m_rgcharsets[0]; 
        m_rgcharsets[1] = node.m_rgcharsets[1]; 
        return *this; 
    } 
 
    void set( std::basic_string const & str ) 
    { 
        clear(); 
        m_str = str; 
    } 
 
    void clear() 
    { 
        std::basic_string().swap( m_str ); 
        free_charset( m_rgcharsets[0] ); 
        free_charset( m_rgcharsets[1] ); 
        m_rgcharsets[0] = m_rgcharsets[1] = NULL; 
    } 
}; 
 
template< typename CH > 
class charset_map 
{ 
    std::map > m_map; 
public: 
    typedef typename std::map >::iterator iterator; 
    ~charset_map() 
    { 
        for( iterator iter = m_map.begin(); m_map.end() != iter; ++iter ) 
            iter->second.clear(); 
    } 
    charset_map_node & operator[]( CH ch ) { return m_map[ ch ]; } 
    iterator begin() { return m_map.begin(); } 
    iterator end() { return m_map.end(); } 
    iterator find( CH ch ) { return m_map.find( ch ); } 
    void erase( iterator iter ) { m_map.erase( iter ); } 
}; 
 
inline bool regex_isspace( char ch ) 
{ 
    return 0 != isspace( ch ); 
} 
 
inline bool regex_isspace( wchar_t wch ) 
{ 
    return 0 != iswspace( wch ); 
} 
 
} // namespace detail 
 
// 
// The perl_syntax class encapsulates the Perl 5 regular expression syntax. It is 
// used as a template parameter to basic_rpattern.  To customize regex syntax, create 
// your own syntax class and use it as a template parameter instead. 
// 
 
class perl_syntax_base 
{ 
protected: 
    perl_syntax_base() 
    { 
    } 
 
    static TOKEN const s_rgreg[ UCHAR_MAX + 1 ]; 
    static TOKEN const s_rgescape[ UCHAR_MAX + 1 ]; 
 
    static TOKEN look_up(  char   ch, TOKEN const rg[] ) 
    { 
        return rg[ static_cast( ch ) ]; 
    } 
     
    static TOKEN look_up( wchar_t ch, TOKEN const rg[] ) 
    { 
        return UCHAR_MAX < ch ? NO_TOKEN : rg[ static_cast( ch ) ]; 
    } 
}; 
 
// -------------------------------------------------------------------------- 
// 
// Class:       perl_syntax 
// 
// Description: Module that encapsulates the Perl syntax 
// 
// Methods:     eat_whitespace             - 
//              min_quant                  - 
//              perl_syntax                - 
//              perl_syntax                - 
//              set_flags                  - 
//              get_flags                  - 
//              reg_token                  - 
//              quant_token                - 
//              charset_token              - 
//              subst_token                - 
//              ext_token                  - 
//              invalid_charset            - 
//              register_intrinsic_charset - 
//              _invalid_charset           - 
//              _invalid_charset           - 
// 
// Members:     m_flags                    - 
//              s_charset_map              - 
// 
// Typedefs:    iterator                   - 
//              const_iterator             - 
//              char_type                  - 
// 
// History:     11/16/2001 - ericne - Created 
// 
// -------------------------------------------------------------------------- 
template< typename CH > 
class perl_syntax : protected perl_syntax_base 
{ 
public: 
    typedef typename std::basic_string::iterator iterator; 
    typedef typename std::basic_string::const_iterator const_iterator; 
    typedef CH char_type; 
    template< typename CH2 > struct rebind { typedef perl_syntax other; }; 
 
private: 
    REGEX_FLAGS m_flags; 
 
    const_iterator eat_whitespace( iterator & icur, const_iterator iend ) 
    { 
        if( m_flags & EXTENDED ) 
        { 
            while( iend != icur && ( REGEX_CHAR(CH,'#') == *icur || detail::regex_isspace( *icur ) ) ) 
            { 
                if( REGEX_CHAR(CH,'#') == *icur++ ) 
                { 
                    while( iend != icur && REGEX_CHAR(CH,'\n') != *icur++ ); 
                } 
                else 
                { 
                    for( ; iend != icur && detail::regex_isspace( *icur ); ++icur ); 
                } 
            } 
        } 
        return icur; 
    } 
 
    bool min_quant( iterator & icur, const_iterator iend ) 
    { 
        return ( iend != eat_whitespace( ++icur, iend ) && REGEX_CHAR(CH,'?') == *icur ? ( ++icur, true ) : false ); 
    } 
 
public: 
 
    perl_syntax( REGEX_FLAGS flags ) 
        : m_flags( flags ) 
    { 
    } 
 
    perl_syntax( perl_syntax const & sy ) 
        : m_flags( sy.m_flags ) 
    { 
    } 
 
    void set_flags( REGEX_FLAGS flags ) 
    { 
        m_flags = flags; 
    } 
 
    REGEX_FLAGS get_flags() const 
    { 
        return m_flags; 
    } 
 
    TOKEN reg_token( iterator & icur, const_iterator iend ) 
    { 
        assert( iend != icur ); 
        if( iend == eat_whitespace( icur, iend ) ) 
            return NO_TOKEN; 
        TOKEN tok = look_up( *icur, s_rgreg ); 
        if( tok ) 
            ++icur; 
        if( ESCAPE == tok && iend != icur ) 
        { 
            tok = look_up( *icur, s_rgescape ); 
            if( tok ) 
                ++icur; 
            else 
                tok = ESCAPE; 
        } 
        return tok; 
    } 
    TOKEN quant_token( iterator & icur, const_iterator iend ) 
    { 
        assert( iend != icur ); 
        if( iend == eat_whitespace( icur, iend ) ) 
            return NO_TOKEN; 
        TOKEN tok = NO_TOKEN; 
        switch( *icur ) 
        { 
        case REGEX_CHAR(CH,'*'): 
            tok = min_quant( icur, iend ) ? ZERO_OR_MORE_MIN : ZERO_OR_MORE; 
            break; 
        case REGEX_CHAR(CH,'+'): 
            tok = min_quant( icur, iend ) ? ONE_OR_MORE_MIN : ONE_OR_MORE; 
            break; 
        case REGEX_CHAR(CH,'?'): 
            tok = min_quant( icur, iend ) ? ZERO_OR_ONE_MIN : ZERO_OR_ONE; 
            break; 
        case REGEX_CHAR(CH,'}'): 
            tok = min_quant( icur, iend ) ? END_RANGE_MIN : END_RANGE; 
            break; 
        case REGEX_CHAR(CH,'{'): 
            tok = BEGIN_RANGE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,','): 
            tok = RANGE_SEPARATOR; 
            ++icur; 
            break; 
        } 
        return tok; 
    } 
    TOKEN charset_token( iterator & icur, const_iterator iend ) 
    { 
        assert( iend != icur ); 
        TOKEN tok = NO_TOKEN; 
        switch( *icur ) 
        { 
        case REGEX_CHAR(CH,'-'): 
            tok = CHARSET_RANGE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'^'): 
            tok = CHARSET_NEGATE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,']'): 
            tok = CHARSET_END; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'\\'): 
            tok = CHARSET_ESCAPE; 
            if( iend == ++icur ) 
                break; 
            switch( *icur ) 
            { 
            case REGEX_CHAR(CH,'b'): 
                tok = CHARSET_BACKSPACE; 
                ++icur; 
                break; 
            case REGEX_CHAR(CH,'d'): 
                tok = ESC_DIGIT; 
                ++icur; 
                break; 
            case REGEX_CHAR(CH,'D'): 
                tok = ESC_NOT_DIGIT; 
                ++icur; 
                break; 
            case REGEX_CHAR(CH,'s'): 
                tok = ESC_SPACE; 
                ++icur; 
                break; 
            case REGEX_CHAR(CH,'S'): 
                tok = ESC_NOT_SPACE; 
                ++icur; 
                break; 
            case REGEX_CHAR(CH,'w'): 
                tok = ESC_WORD; 
                ++icur; 
                break; 
            case REGEX_CHAR(CH,'W'): 
                tok = ESC_NOT_WORD; 
                ++icur; 
                break; 
            } 
            break; 
        case REGEX_CHAR(CH,'['): 
            if( REGEX_CHAR(CH,':') == *( ++icur )-- ) 
            { 
                for( size_t i=0; !tok && i < detail::g_cposix_charsets; ++i ) 
                { 
                    if( detail::is_posix_charset( icur, iend, detail::g_rgposix_charsets[i].szcharset ) ) 
                    { 
                        tok = TOKEN( CHARSET_ALNUM + i ); 
                        std::advance( icur, detail::g_rgposix_charsets[i].cchars ); 
                    } 
                } 
            } 
            break; 
        } 
        return tok; 
    } 
    TOKEN subst_token( iterator & icur, const_iterator iend ) 
    { 
        assert( iend != icur ); 
        TOKEN tok = NO_TOKEN; 
        switch( *icur ) 
        { 
        case REGEX_CHAR(CH,'\\'): 
            tok = SUBST_ESCAPE; 
            if( iend != ++icur ) 
                switch( *icur ) 
                { 
                case REGEX_CHAR(CH,'Q'): 
                    tok = SUBST_QUOTE_META_ON; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'U'): 
                    tok = SUBST_UPPER_ON; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'u'): 
                    tok = SUBST_UPPER_NEXT; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'L'): 
                    tok = SUBST_LOWER_ON; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'l'): 
                    tok = SUBST_LOWER_NEXT; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'E'): 
                    tok = SUBST_ALL_OFF; 
                    ++icur; 
                    break; 
                } 
            break; 
        case REGEX_CHAR(CH,'$'): 
            tok = SUBST_BACKREF; 
            if( iend != ++icur ) 
                switch( *icur ) 
                { 
                case REGEX_CHAR(CH,'&'): 
                    tok = SUBST_MATCH; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'`'): 
                    tok = SUBST_PREMATCH; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'\''): 
                    tok = SUBST_POSTMATCH; 
                    ++icur; 
                    break; 
                } 
            break; 
        } 
        return tok; 
    } 
    TOKEN ext_token( iterator & icur, const_iterator iend ) 
    { 
        assert( iend != icur ); 
        if( iend == eat_whitespace( icur, iend ) ) 
            return NO_TOKEN; 
        bool finclude; 
        TOKEN tok = NO_TOKEN; 
        if( REGEX_CHAR(CH,'?') == *icur ) 
        { 
            tok = EXT_UNKNOWN; 
            ++icur; 
            if( m_flags & EXTENDED ) 
                for( ; iend != icur && detail::regex_isspace( *icur ); ++icur ); 
            if( iend != icur ) 
            { 
                switch( *icur ) 
                { 
                case REGEX_CHAR(CH,':'): 
                    tok = EXT_NOBACKREF; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'='): 
                    tok = EXT_POS_LOOKAHEAD; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'!'): 
                    tok = EXT_NEG_LOOKAHEAD; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'#'): 
                    tok = EXT_COMMENT; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'('): 
                    tok = EXT_CONDITION; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'R'): 
                    tok = EXT_RECURSE; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'<'): 
                    if( iend == eat_whitespace( ++icur, iend ) ) 
                        break; 
                    switch( *icur ) 
                    { 
                    case REGEX_CHAR(CH,'='): 
                        tok = EXT_POS_LOOKBEHIND; 
                        ++icur; 
                        break; 
                    case REGEX_CHAR(CH,'!'): 
                        tok = EXT_NEG_LOOKBEHIND; 
                        ++icur; 
                        break; 
                    } 
                    break; 
                case REGEX_CHAR(CH,'>'): 
                    tok = EXT_INDEPENDENT; 
                    ++icur; 
                    break; 
                default: 
                    finclude = true; 
                    do 
                    { 
                        if( REGEX_CHAR(CH,':') == *icur ) 
                        { 
                            tok = EXT_NOBACKREF; 
                            ++icur; 
                            break; 
                        } 
                        if( REGEX_CHAR(CH,')') == *icur ) 
                        { 
                            tok = EXT_NOBACKREF; 
                            break; 
                        } 
                        if( REGEX_CHAR(CH,'-') == *icur && finclude ) 
                            finclude = false; 
                        else if( REGEX_CHAR(CH,'i') == *icur ) 
                            m_flags = ( REGEX_FLAGS ) ( finclude ? ( m_flags | NOCASE )     : ( m_flags & ~NOCASE ) ); 
                        else if( REGEX_CHAR(CH,'m') == *icur ) 
                            m_flags = ( REGEX_FLAGS ) ( finclude ? ( m_flags | MULTILINE )  : ( m_flags & ~MULTILINE ) ); 
                        else if( REGEX_CHAR(CH,'s') == *icur ) 
                            m_flags = ( REGEX_FLAGS ) ( finclude ? ( m_flags | SINGLELINE ) : ( m_flags & ~SINGLELINE ) ); 
                        else if( REGEX_CHAR(CH,'x') == *icur ) 
                            m_flags = ( REGEX_FLAGS ) ( finclude ? ( m_flags | EXTENDED )   : ( m_flags & ~EXTENDED ) ); 
                        else 
                            break; 
                    } while( iend != eat_whitespace( ++icur, iend ) ); 
                    break; 
                } 
            } 
        } 
        return tok; 
    } 
 
    // Functions used for making user-defined intrinsic character sets 
    static detail::charset_map s_charset_map; 
 
    static bool invalid_charset( CH ch ) 
    { 
        return _invalid_charset( ch ); 
    } 
    static void register_intrinsic_charset( CH ch, std::basic_string const & str ) //throw( bad_regexpr, std::bad_alloc ) 
    { 
        perl_syntax sy( NOFLAGS ); 
        if( invalid_charset( ch ) ) 
            throw bad_regexpr( "invalid character specified to register_intrinsic_charset" ); 
        std::basic_string pat = str; 
        typename std::basic_string::iterator istart = pat.begin(); 
        if( BEGIN_CHARSET != sy.reg_token( istart, pat.end() ) ) 
            throw bad_regexpr( "expecting beginning of charset" ); 
        regex::detail::charset_map & charset_map = s_charset_map; 
        regex::detail::charset_map_node & map_node = charset_map[ ch ]; 
        map_node.set( std::basic_string( istart, pat.end() ) ); 
    } 
 private: 
    static bool _invalid_charset( char ch ) 
    { 
        return NO_TOKEN != s_rgescape[ static_cast( ch ) ] 
            || isdigit( ch ) || 'e' == ch || 'x' == ch || 'c' == ch; 
    } 
    static bool _invalid_charset( wchar_t ch ) 
    { 
        return UCHAR_MAX >= ch && _invalid_charset( static_cast( ch ) ); 
    } 
}; 
 
template< typename CH > 
detail::charset_map perl_syntax::s_charset_map; 
 
// -------------------------------------------------------------------------- 
// 
// Class:       posix_syntax 
// 
// Description: Implements the basic POSIX regular expression syntax 
// 
// Methods:     posix_syntax               - 
//              posix_syntax               - 
//              get_flags                  - 
//              set_flags                  - 
//              reg_token                  - 
//              quant_token                - 
//              charset_token              - 
//              subst_token                - 
//              ext_token                  - 
//              invalid_charset            - 
//              register_intrinsic_charset - 
// 
// Members:     m_flags                    - 
//              s_charset_map              - 
// 
// Typedefs:    iterator                   - 
//              const_iterator             - 
//              char_type                  - 
// 
// History:     11/16/2001 - ericne - Created 
// 
// -------------------------------------------------------------------------- 
template< typename CH > 
class posix_syntax 
{ 
    REGEX_FLAGS m_flags; 
 
public: 
    typedef typename std::basic_string::iterator iterator; 
    typedef typename std::basic_string::const_iterator const_iterator; 
    typedef CH char_type; 
    template< typename CH2 > struct rebind { typedef posix_syntax other; }; 
 
    posix_syntax( REGEX_FLAGS flags ) 
        : m_flags( flags ) 
    { 
    } 
 
    posix_syntax( posix_syntax const & sy ) 
        : m_flags( sy.m_flags ) 
    { 
    } 
 
    REGEX_FLAGS get_flags() const 
    { 
        return m_flags; 
    } 
 
    void set_flags( REGEX_FLAGS flags ) 
    { 
        m_flags = flags; 
    } 
 
    TOKEN reg_token( iterator & icur, const_iterator iend ) 
    { 
        TOKEN tok = NO_TOKEN; 
        switch( *icur ) 
        { 
        case REGEX_CHAR(CH,'.'): 
            tok = MATCH_ANY; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'^'): 
            tok = BEGIN_LINE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'$'): 
            tok = END_LINE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'['): 
            tok = BEGIN_CHARSET; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'\\'): 
            tok = ESCAPE; 
            ++icur; 
            if( iend != icur ) 
            { 
                switch( *icur ) 
                { 
                case REGEX_CHAR(CH,'('): 
                    tok = BEGIN_GROUP; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,')'): 
                    tok = END_GROUP; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'|'): 
                    tok = ALTERNATION; 
                    ++icur; 
                    break; 
                } 
            } 
            break; 
        } 
        return tok; 
    } 
    TOKEN quant_token( iterator & icur, const_iterator iend ) 
    { 
        TOKEN tok = NO_TOKEN; 
        switch( *icur ) 
        { 
        case REGEX_CHAR(CH,'*'): 
            tok = ZERO_OR_MORE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,','): 
            tok = RANGE_SEPARATOR; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'\\'): 
            ++icur; 
            if( iend != icur ) 
            { 
                switch( *icur ) 
                { 
                case REGEX_CHAR(CH,'?'): 
                    tok = ZERO_OR_ONE; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'+'): 
                    tok = ONE_OR_MORE; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'{'): 
                    tok = BEGIN_RANGE; 
                    ++icur; 
                    break; 
                case REGEX_CHAR(CH,'}'): 
                    tok = END_RANGE; 
                    ++icur; 
                    break; 
                default: 
                    --icur; 
                    break; 
                } 
            } 
            else 
            { 
                --icur; 
            } 
        } 
        return tok; 
    } 
    TOKEN charset_token( iterator & icur, const_iterator iend ) 
    { 
        TOKEN tok = NO_TOKEN; 
        switch( *icur ) 
        { 
        case REGEX_CHAR(CH,'^'): 
            tok = CHARSET_NEGATE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'-'): 
            tok = CHARSET_RANGE; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,']'): 
            tok = CHARSET_END; 
            ++icur; 
            break; 
        case REGEX_CHAR(CH,'['): 
            if( REGEX_CHAR(CH,':') == *( ++icur )-- ) 
            { 
                for( size_t i=0; !tok && i < detail::g_cposix_charsets; ++i ) 
                { 
                    if( detail::is_posix_charset( icur, iend, detail::g_rgposix_charsets[i].szcharset ) ) 
                    { 
                        tok = TOKEN( CHARSET_ALNUM + i ); 
                        std::advance( icur, detail::g_rgposix_charsets[i].cchars ); 
                    } 
                } 
            } 
            break; 
        } 
        return tok; 
    } 
    TOKEN subst_token( iterator & icur, const_iterator iend ) 
    { 
        TOKEN tok = NO_TOKEN; 
        if( REGEX_CHAR(CH,'\\') == *icur ) 
        { 
            tok = SUBST_ESCAPE; 
            ++icur; 
            if( iend != icur && REGEX_CHAR(CH,'0') <= *icur && REGEX_CHAR(CH,'9') >= *icur ) 
            { 
                tok = SUBST_BACKREF; 
            } 
        } 
        return tok; 
    } 
    TOKEN ext_token( iterator &, const_iterator ) 
    { 
        return NO_TOKEN; 
    } 
 
    // Functions for making user-defined intrinsic character sets 
    static detail::charset_map s_charset_map; 
 
    static bool invalid_charset( CH ch ) 
    { 
        return _invalid_charset( ch ); 
    } 
    static void register_intrinsic_charset( CH ch, std::basic_string const & str ) //throw( bad_regexpr, std::bad_alloc ) 
    { 
        posix_syntax sy( NOFLAGS ); 
        if( invalid_charset( ch ) ) 
            throw bad_regexpr( "invalid character specified to register_intrinsic_charset" ); 
        std::basic_string pat = str; 
        typename std::basic_string::iterator istart = pat.begin(); 
        if( BEGIN_CHARSET != sy.reg_token( istart, pat.end() ) ) 
            throw bad_regexpr( "expecting beginning of charset" ); 
        regex::detail::charset_map & charset_map = s_charset_map; 
        regex::detail::charset_map_node & map_node = charset_map[ ch ]; 
        map_node.set( std::basic_string( istart, pat.end() ) ); 
    } 
 private: 
    static bool _invalid_charset( char ch ) 
    { 
        static char const s_invalid[] = "0123456789()|?+{}\\exc"; 
        return NULL != std::char_traits::find( s_invalid, ARRAYSIZE( s_invalid ) - 1, ch ); 
    } 
    static bool _invalid_charset( wchar_t ch ) 
    { 
        return UCHAR_MAX >= ch && _invalid_charset( static_cast( ch ) ); 
    } 
}; 
 
template< typename CH > 
detail::charset_map posix_syntax::s_charset_map; 
 
} // namespace regex 
 
#ifdef _MSC_VER 
#pragma warning( pop ) 
#endif 
 
#endif