// Copyright (C) 2001-2005 Open Source Telecom Corporation.
//
// 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// 
// As a special exception, you may use this file as part of a free software
// library without restriction.  Specifically, if other files instantiate
// templates or use macros or inline functions from this file, or you compile
// this file and link it with other files to produce an executable, this
// file does not by itself cause the resulting executable to be covered by
// the GNU General Public License.  This exception does not however    
// invalidate any other reasons why the executable file might be covered by
// the GNU General Public License.    
//
// This exception applies only to the code released under the name GNU
// Common C++.  If you copy code from other releases into a copy of GNU
// Common C++, as the General Public License permits, the exception does
// not apply to the code that you add in this way.  To avoid misleading
// anyone as to the status of such modified files, you must delete
// this exception notice from them.
//
// If you write modifications of your own for GNU Common C++, it is your choice
// whether to permit this exception to apply to your modifications.
// If you do not wish that, delete this exception notice.
//

#include <cc++/config.h>
#include <cc++/export.h>
#include <cc++/missing.h>
#include <cc++/strchar.h>

#include <cstdio>
#include <cstdlib>
#include <cstring>

#ifdef	WIN32
#include <malloc.h>
//#define	alloca(x)	_alloca(x)
#endif

#ifdef	CCXX_NAMESPACES
namespace ost {
using namespace std;
#endif

char *find(const char *cs, char *str, size_t len)
{
        unsigned pos = 0;
                                                                                
        if(!len)
                len = strlen(str);
                                                                                
        while(pos < len)
        {
                if(strchr(cs, str[pos]))
                        return str + pos;
                ++pos;
        }
        if(!str[pos])
		return str + pos;
	return NULL;
}

char *rfind(const char *cs, char *str, size_t len)
{
	if(!len)
		len = strlen(str);

	while(len--)
	{
		if(strchr(cs, str[len]))
			return str + len;
	}
	return str;
}

char *ifind(const char *cs, char *str, size_t len)
{
        unsigned pos = 0;
                                                                                
        if(!len)
                len = strlen(str);
                                                                                
        while(pos < len)
        {
                if(!strchr(cs, str[pos]))
                        return str + pos;
                ++pos;
        }
	if(!str[pos])
		return str + pos;
        return NULL;
}

char *strip(const char *chars, char *str, size_t len)
{
	len = strtrim(chars, str, len);

	if(!len)
		return str;

	return ifind(chars, str, len);
}	

size_t strtrim(const char *cs, char *str, size_t len)
{
	if(!str)
		return 0;

	if(!len)
		len = strlen(str);

	if(!len)
		return 0;

	while(len--)
	{
		if(!strchr(cs, str[len]))
			return ++len;

		str[len] = 0;
	}
	return 0;
}

size_t strchop(const char *cs, char *str, size_t len)
{
	unsigned pos = 0;

	if(!str)
		return 0;

	if(!len)
		len = strlen(str);

	if(!len)
		return 0;

	while(pos < len)
	{
		if(!strchr(cs, str[pos]))
			break;
		++pos;
	}

	if(pos == len)
	{
		*str = 0;
		return 0;
	}
	memmove(str, str + pos, len - pos + 1);
	return len - pos;
}

char *rsetField(char *dest, size_t size, const char *src, const char fill)
{
	size_t len = 0;

	if(src)
		len = strlen(src);

	if(len > size)
		len = size;

	if(len)
		memmove(dest + size - len, (void *)src, len);

	if(len < size && fill)
		memset(dest, fill, size - len);

	return dest;
}

char *lsetField(char *dest, size_t size, const char *src, const char fill)
{
	size_t len = 0;

	if(src)
		len = strlen(src);

	if(len > size)
		len = size;

	if(len)
		memmove(dest, src, len);

	if(len < size && fill)
		memset(dest + len, fill, size - len);

	return dest;
}

char *setUpper(char *string, size_t size)
{
	char *ret = string;

	if(!size)
		size = strlen(string);

	while(size && *string)
	{
		*string = toupper(*string);
		++string;
		--size;
	}

	return ret;
}

char *setLower(char *string, size_t size)
{
        char *ret = string;

        if(!size)
                size = strlen(string);

        while(size && *string)
        {
                *string = tolower(*string); 
                ++string;
                --size;
        }

        return ret;
} 	

char *setString(char *dest, size_t size, const char *src)
{
        size_t len = strlen(src);

	if(size == 1)
		*dest = 0;

        if(size < 2)
                return dest;

        if(len >= size)
                len = size - 1;

	if(!len)
	{
		dest[0] = 0;
		return dest;
	}

        memcpy(dest, src, len);
        dest[len] = 0;
        return dest;
}

char *addString(char *dest, size_t size, const char *src)
{
        size_t len = strlen(dest);

        if(len < size)
                setString(dest + len, size - len, src);
        return dest;
}

char *newString(const char *src, size_t size)
{
	char *dest;

	if(!size)
		size = strlen(src) + 1;

	dest = new char[size];
	return setString(dest, size, src);
}

void delString(char *str)
{
	delete[] str;
}
	
#ifdef	CCXX_NAMESPACES
}
#endif
