//=============================================================================
//
//   File : kvi_env.cpp
//   Creation date : Sat May 05 2002 02:15:21 CEST by Szymon Stefanek
//
//   This file is part of the KVirc irc client distribution
//   Copyright (C) 2002 Szymon Stefanek (pragma@kvirc.net)
//
//   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 opinion) 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.
//
//=============================================================================
#define __KVILIB__

#define _KVI_ENV_CPP_

#include "kvi_env.h"
#include "kvi_string.h"
#include "kvi_malloc.h"
#include "kvi_memmove.h"

#ifndef COMPILE_ON_WINDOWS

bool kvi_setenv(const char * name,const char * value)
{
#ifdef HAVE_SETENV
	return (setenv(name,value,1) == 0);
#else
	#ifdef HAVE_PUTENV
		int iLen1 = kvi_strLen(name);
		int iLen2 = kvi_strLen(value);
		char * buf = (char *)kvi_malloc(iLen1 + iLen2 + 2);
		kvi_memmove(buf,name,iLen1);
		*(buf + iLen1) = '=';
		kvi_memmove(buf + iLen1 + 1,value,iLen2);
		*(buf + iLen1 + iLen2 + 1) = '\0';
		int iRet = putenv(buf);
		if(iRet != 0)
		{
			kvi_free(buf);
			return false;
		}
		return true;
	#else
		// no setenv , no putenv.. what the hell of system is this ?
		return false;
	#endif
#endif
}

void kvi_unsetenv(const char * name)
{
#ifdef HAVE_UNSETENV
	unsetenv(name);
#else
	#ifdef HAVE_PUTENV
		int iLen1 = kvi_strLen(name);
		char * buf = (char *)kvi_malloc(iLen1 + 1);
		kvi_memmove(buf,name,iLen1);
		*(buf + iLen1) = '\0';
		int iRet = putenv(buf);
		if(iRet != 0)
		{
			kvi_free(buf);
		} else {
			// hmmm
			if(kvi_getenv(name) == 0)
			{
				// ok , the string is not in the environment
				// we can free it
				kvi_free(buf);
			} // else this system sux
		}
	#endif
#endif
}

#endif //!COMPILE_ON_WINDOWS
