/* $Id: kHlpBareEnv.c 2 2007-11-16 16:07:14Z bird $ */
/** @file
 * kHlpBare - Environment Manipulation.
 */

/*
 * Copyright (c) 2006-2007 knut st. osmundsen <bird-kStuff-spam@anduin.net>
 *
 * This file is part of kStuff.
 *
 * kStuff is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * In addition to the permissions in the GNU Lesser General Public
 * License, you are granted unlimited permission to link the compiled
 * version of this file into combinations with other programs, and to
 * distribute those combinations without any restriction coming from
 * the use of this file.
 *
 * kStuff 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with kStuff; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301, USA
 */

/*******************************************************************************
*   Header Files                                                               *
*******************************************************************************/
#include <k/kHlpEnv.h>
#include <k/kHlpString.h>
#include <k/kErrors.h>

#if K_OS == K_OS_DARWIN

#elif K_OS == K_OS_LINUX

#elif K_OS == K_OS_OS2
# define INCL_BASE
# define INCL_ERRORS
# include <os2.h>

#elif  K_OS == K_OS_WINDOWS
# include <Windows.h>

#else
# error "port me"
#endif


KHLP_DECL(int) kHlpGetEnv(const char *pszVar, char *pszVal, KSIZE cchVal)
{
#if K_OS == K_OS_DARWIN
    /** @todo need to figure out where the stuff is or how it's inherited on darwin ... */
    return KERR_ENVVAR_NOT_FOUND;

#elif K_OS == K_OS_LINUX
    /** @todo either read /proc/self/environ or figure out where in the memory the initial environment is... */
    return KERR_ENVVAR_NOT_FOUND;

#elif K_OS == K_OS_OS2
    PSZ pszValue = NULL;
    int rc;

    *pszVal = '\0';
    rc = DosScanEnv((PCSZ)pszVar, &pszValue);
    if (!rc)
    {
        KSIZE  cch = kHlpStrLen((const char *)pszValue);
        if (cchVal > cch)
            kHlpMemCopy(pszVal, pszValue, cch + 1);
        else
            rc = KERR_BUFFER_OVERFLOW;
    }
    else
        rc = KERR_ENVVAR_NOT_FOUND;
    return rc;

#elif K_OS == K_OS_WINDOWS
    DWORD cch;

    SetLastError(0);
    cch = GetEnvironmentVariable(pszVar, pszVal, cchVal);
    if (cch > 0 && cch < cchVal)
        return 0;

    *pszVal = '\0';
    if (cch >= cchVal)
        return KERR_BUFFER_OVERFLOW;
    if (GetLastError() == ERROR_ENVVAR_NOT_FOUND)
        return KERR_ENVVAR_NOT_FOUND;
    return GetLastError();

#else
# error "Port me"
#endif
}