bracket_list.h

/***************************************************************************
 *   Copyright (C) 2006 by Radko Mihal                                     *
 *   rmihal@pobox.sk                                                       *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.              *
 ***************************************************************************/
#ifndef BRACKET_EXPRESSIONBRACKET_LIST_H
#define BRACKET_EXPRESSIONBRACKET_LIST_H

namespace bracket_expression {

template<typename E>
class bracket_list
{
typedef typename grammar_to_parser::basic_parser<E>::parser_list 
                                                                                                                        parser_list;
        
        class follow_list_and_hyphen
        {
                grammar_to_parser::basic_choice<E,follow_list<E> >                      m_follow_list;
                grammar_to_parser::basic_terminal<E,'-'>                                        m_hyphen;
                
        public:
                unsigned long recognize( const E* buf, const unsigned long buf_length )
                {
                        unsigned long size = m_follow_list->recognize(buf,buf_length);
                        if( size == 0 )
                        {
                                if( buf[0] == m_hyphen.get_valid() )
                                {
                                        size = 1;
                                }
                        }
                        return size;
                }
                follow_list_and_hyphen() {};
        
                ~follow_list_and_hyphen() {};
                void push_parsers( parser_list &l )
                {
                        l.push_back( &m_follow_list );
                        l.push_back( &m_hyphen );
                }       
        
        };
        
        class hyphen_and_follow_list
        {
                grammar_to_parser::basic_terminal<E,'-'>                                        m_hyphen;
                grammar_to_parser::basic_choice<E,follow_list<E> >                      m_follow_list;
        public:
                unsigned long recognize( const E* buf, const unsigned long buf_length )
                {
                        if( buf[0] == m_hyphen.get_valid() )
                        {
                                return 1;
                        } 
                        else
                        {
                                return m_follow_list->recognize(buf,buf_length);
                        }
                }
                void push_parsers( parser_list &l )
                {
                        l.push_back( &m_hyphen );
                        l.push_back( &m_follow_list );
                }       
        };
        
        class hyphen_hyphen_end_range
        {
        protected:
                grammar_to_parser::basic_terminal<E,'-'>                                        m_hyphen;
                grammar_to_parser::basic_terminal<E,'-'>                                        m_sep;
                grammar_to_parser::basic_choice<E,collating_choice<E> >         m_end_range;
        public:
                virtual unsigned long recognize( const E* buf, const unsigned long buf_length )
                {
                        std::locale l;
                        
                        int end_ret = m_end_range->compare(buf,buf_length);
                        int size = m_end_range->matched_size();
                        while( end_ret > 0 && size > 1) 
                        {
                                size--;
                                // while the buf is not higher as start range, try smaller -
                                // collating symbol in buffer
                                end_ret = m_end_range->compare(buf,size);
                        }
                        int start_ret = 0;
                        if( end_ret < 0 )
                        {
                                start_ret = std::use_facet<std::collate<E> >(l).compare(
                                                                                                                                        buf,
                                                                                                                                        buf+size,
                                                                                                                                        m_hyphen.get(),
                                                                                                                                        m_hyphen.get()+1);
                                while( start_ret < 0 && 
                                                size > 1 && 
                                                m_end_range->compare(buf,size-1) <= 0 )
                                {
                                        size--;
                                        start_ret = std::use_facet<std::collate<E> >(l).compare(
                                                                                                                                                buf,
                                                                                                                                                buf+size,
                                                                                                                                                m_hyphen.get(),
                                                                                                                                                m_hyphen.get()+1);
                                }
                        }
                        if( start_ret >=0 && end_ret <= 0 )
                                return size;
                        else
                                return 0;
                }
                virtual void push_parsers( parser_list &l )
                {
                        l.push_back( &m_hyphen );
                        l.push_back( &m_sep );
                        l.push_back( &m_end_range );
                }       
        };
        
        class hyphen_hyphen_endrange_follow_list : public hyphen_hyphen_end_range 
        {
        protected:
                grammar_to_parser::basic_choice<E,follow_list<E> >      m_follow_list;
        public:
                virtual unsigned long recognize( const E* buf, const unsigned long buf_length )
                {
                        int ret = hyphen_hyphen_end_range::recognize(buf,buf_length);
                        if( ret == 0 )
                        {
                                return m_follow_list->recognize(buf,buf_length);
                        } 
                        else
                        {
                                return ret;
                        }
                }
                void push_parsers( parser_list &l )
                {
                        hyphen_hyphen_end_range::push_parsers(l);
                        l.push_back( &m_follow_list );
                }       
        };
        grammar_to_parser::basic_choice<E,follow_list<E> >                      
                                                                                                                        m_follow_list;
        grammar_to_parser::basic_non_terminal<E,follow_list_and_hyphen >        
                                                                                                                        m_follow_list_hyphen;
        grammar_to_parser::basic_non_terminal<E,hyphen_and_follow_list >        
                                                                                                                        m_hyphen_follow_list;
        grammar_to_parser::basic_non_terminal<E,hyphen_hyphen_end_range>        
                                                                                                                        m_hyphen_hyphen_end_range;
        grammar_to_parser::basic_non_terminal<E,hyphen_hyphen_endrange_follow_list>     
                                                                                                                        m_hyphen_hyphen_endrange_follow;
        
public:
        unsigned long recognize( const E* buf, const unsigned long buf_length )
        {
                if( m_follow_list.is_parsed() )
                {
                        return m_follow_list->recognize(buf,buf_length);
                }
                else if( m_follow_list_hyphen.is_parsed() )
                {
                        return m_follow_list_hyphen->recognize(buf,buf_length);
                } 
                else if( m_hyphen_follow_list.is_parsed() )
                {
                        return m_hyphen_follow_list->recognize(buf,buf_length);
                }
                else if( m_hyphen_hyphen_end_range.is_parsed() )
                {
                        return m_hyphen_hyphen_end_range->recognize(buf,buf_length);
                }
                else
                {
                        return m_hyphen_hyphen_endrange_follow->recognize(buf,buf_length);
                }
        }

    bracket_list() : 
                m_follow_list_hyphen(),
                m_hyphen_follow_list(),
                m_hyphen_hyphen_end_range(),
                m_hyphen_hyphen_endrange_follow() {}; 

    ~bracket_list() {};

        void push_parsers( parser_list &l )
        {
/*              l.push_back( &m_follow_list );
                l.push_back( &m_follow_list_hyphen );
                l.push_back( &m_hyphen_follow_list );
                l.push_back( &m_hyphen_hyphen_end_range );
                l.push_back( &m_hyphen_hyphen_endrange_follow );
*/
                l.push_back( &m_hyphen_hyphen_endrange_follow );
                l.push_back( &m_hyphen_hyphen_end_range );
                l.push_back( &m_hyphen_follow_list );
                l.push_back( &m_follow_list_hyphen );
                l.push_back( &m_follow_list );
        }       
};

};

#endif

---