#include <cctype>
#include <cassert>

#include "rules.h"
#include "algor.h"

using namespace std;

namespace rmmseg
{
    Token Algorithm::next_token()
    {
        do
        {
            if (m_pos >= m_text_length)
                return Token(NULL, 0);

            Token tk(NULL, 0);
            int len = next_char();
            // if (len == 1)
            //     tk = get_basic_latin_word();
            // else
            tk = get_cjk_word(len);
            if (tk.length > 0)
                return tk;
        }
        while (true);
    }

    Token Algorithm::get_basic_latin_word()
    {
        int len = 1;
        int start, end;

        // Skip pre-word whitespaces and punctuations
        while (m_pos < m_text_length)
        {
            if (len > 1)
                break;
            if (isalnum(m_text[m_pos]))
                break;
            m_pos++;
            len = next_char();
        }

        start = m_pos;
        while (m_pos < m_text_length)
        {
            if (len > 1)
                break;
            if (!isalnum(m_text[m_pos]))
                break;
            m_pos++;
            len = next_char();
        }
        end = m_pos;

        // Skip post-word whitespaces and punctuations
        while (m_pos < m_text_length)
        {
            if (len > 1)
                break;
            if (isalnum(m_text[m_pos]))
                break;
            m_pos++;
            len = next_char();
        }

        return Token(m_text+start, end-start);
    }

    Token Algorithm::get_cjk_word(int len)
    {
        vector<Chunk> chunks = create_chunks();

        if (chunks.size() > 1)
            mm_filter(chunks);
        if (chunks.size() > 1)
            lawl_filter(chunks);
        if (chunks.size() > 1)
            svwl_filter(chunks);
        if (chunks.size() > 1)
            lsdmfocw_filter(chunks);

        if (chunks.size() < 1)
            return Token(NULL, 0);

        Token token(m_text+m_pos, chunks[0].words[0]->nbytes);
        m_pos += chunks[0].words[0]->nbytes;
        return token;
    }

    vector<Chunk> Algorithm::create_chunks()
    {
        vector<Chunk> chunks;
        Chunk chunk;
        Word *w1, *w2, *w3;

        int orig_pos = m_pos;
        typedef vector<Word *> vec_t;
        typedef vec_t::iterator it_t;

        vec_t words1 = find_match_words();
        for (it_t i1 = words1.begin();
             i1 != words1.end();
             ++i1)
        {
            w1 = *i1;
            chunk.words[0] = w1;
            m_pos += w1->nbytes;
            if (m_pos < m_text_length)
            {
                vec_t words2 = find_match_words();
                for (it_t i2 = words2.begin();
                     i2 != words2.end();
                     ++i2)
                {
                    w2 = *i2;
                    chunk.words[1] = w2;
                    m_pos += w2->nbytes;
                    if (m_pos < m_text_length)
                    {
                        vec_t words3 = find_match_words();
                        for (it_t i3 = words3.begin();
                             i3 != words3.end();
                             ++i3)
                        {
                            w3 = *i3;
                            if (w3->length == -1) // tmp word
                            {
                                chunk.n = 2;
                            }
                            else
                            {
                                chunk.n = 3;
                                chunk.words[2] = w3;
                            }
                            chunks.push_back(chunk);
                        }
                    }
                    else if (m_pos == m_text_length)
                    {
                        chunk.n = 2;
                        chunks.push_back(chunk);
                    }
                    m_pos -= w2->nbytes;
                }
            }
            else if (m_pos == m_text_length)
            {
                chunk.n = 1;
                chunks.push_back(chunk);
            }
            m_pos -= w1->nbytes;
        }

        m_pos = orig_pos;
        return chunks;
    }

    int Algorithm::next_char()
    {
        // ONLY for UTF-8
        unsigned char ch = m_text[m_pos];

        if (  ch>>7 == 0      )
                return 1;
        if ( ch>>5  ==  0x6 )
                return 2;
        else if (ch>> 4 == 0xe)
                return 3;
        else if (ch>> 3 == 0x1e )
                return 4;
        else
                return -1;
        // if (ch >= 0xC0 && ch <= 0xDF)
        // {
        //     return 1;
        // }
        // if (ch >= 0x60 && ch <= 0xEF)
        // {
        //     return min(2, m_text_length-m_pos);
        // }
        // if (ch >= 0xE0 && ch <= 0xEF)
        // {
        //     return min(3, m_text_length-m_pos);
        // }
        // return 1;
    }

    // int Algorithm::next_char(const char * p)
    // {
    //     uint8 one = (unsigned char)(*p);

    //     if (  one>>7 == 0      )
    //             return 1;
    //     if ( one>>5  ==  0x6 )
    //             return 2;
    //     else if (one >> 4 == 0xe)
    //             return 3;
    //     else if (one >> 3 == 0x1e )
    //             return 4;
    //     else
    //             return -1;
    // }

    vector<Word *> Algorithm::find_match_words()
    {
        for (int i = 0; i < match_cache_size; ++i)
            if (m_match_cache[i].first == m_pos)
                return m_match_cache[i].second;

        vector<Word *> words;
        Word *word;
        int orig_pos = m_pos;
        int n = 0, len;

        while (m_pos < m_text_length)
        {
            if (n >= max_word_length())
                break;
            len = next_char();
            if (len < 1)
                break;

            m_pos += len;
            n++;

            word = dict::get(m_text+orig_pos, m_pos-orig_pos);
            if (word)
                words.push_back(word);
        }

        m_pos = orig_pos;

        if (words.empty())
        {
            word = get_tmp_word();
            word->nbytes = next_char();
            word->length = -1;
            strncpy(word->text, m_text+m_pos, word->nbytes);
            word->text[word->nbytes] = '\0';
            words.push_back(word);
        }

        m_match_cache[m_match_cache_i] = make_pair(m_pos, words);
        m_match_cache_i++;
        if (m_match_cache_i >= match_cache_size)
            m_match_cache_i = 0;

        return words;
    }
}