/////////////////////////////////////////////////////////////////////////////
// Name:        tokenzr.cpp
// Purpose:     String tokenizer
// Author:      Guilhem Lavaux
// Modified by:
// Created:     04/22/98
// RCS-ID:      $Id$
// Copyright:   (c) Guilhem Lavaux
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
    #pragma implementation "tokenzr.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

#include "wx/tokenzr.h"

wxStringTokenizer::wxStringTokenizer(const wxString& to_tokenize,
                                     const wxString& delims,
                                     bool ret_delims)
{
    m_string = to_tokenize;
    m_delims = delims;
    m_retdelims = ret_delims;
}

wxStringTokenizer::~wxStringTokenizer()
{
}

off_t wxStringTokenizer::FindDelims(const wxString& str, const wxString& delims) const
{
    for ( size_t i = 0; i < str.Length(); i++ )
    {
        char c = str[i];

        for ( size_t j = 0; j < delims.Length() ; j++ )
        {
            if ( delims[j] == c )
                return i;
        }
    }

    return -1;
}

int wxStringTokenizer::CountTokens() const
{
    wxString p_string = m_string;
    bool found = TRUE;
    int pos, count = 1;

    if (p_string.Length() == 0)
        return 0;

    while (found)
    {
        pos = FindDelims(p_string, m_delims);
        if (pos != -1)
        {
            count++;
            p_string = p_string(0, pos);
        }
        else
        {
            found = FALSE;
        }
    }

    return count;
}

bool wxStringTokenizer::HasMoreTokens()
{
    return !m_string.IsEmpty();
}

// needed to fix leading whitespace / mult. delims bugs
void wxStringTokenizer::EatLeadingDelims()
{
    int pos;

    // while leading delims trim 'em from the left
    while ( ( pos = FindDelims(m_string, m_delims)) == 0 )
    {
        m_string = m_string.Mid((size_t)1);
    }
}

wxString wxStringTokenizer::NextToken()
{
    off_t pos, pos2;
    wxString r_string;

    if ( m_string.IsEmpty() )
        return m_string;

    if ( !m_retdelims )
        EatLeadingDelims();

    pos = FindDelims(m_string, m_delims);
    if (pos == -1)
    {
        r_string = m_string;
        m_string = wxEmptyString;

        return r_string;
    }

    if (m_retdelims)
    {
        if (!pos)
        {
            pos++;
            pos2 = 1;
        }
        else
        {
            pos2 = pos;
        }
    }
    else
    {
        pos2 = pos + 1;
    }

    r_string = m_string.Left((size_t)pos);
    m_string = m_string.Mid((size_t)pos2);

    return r_string;
}