/*!
 * \file gis/home.c
 *
 * \brief GIS Library - Get user's home directory.
 *
 * (C) 2001-2009 by the GRASS Development Team
 *
 * This program is free software under the GNU General Public License
 * (>=v2). Read the file COPYING that comes with GRASS for details.
 *
 * \author Original author CERL
 */

#include <stdlib.h>
#include <string.h>
#include <grass/gis.h>
#include <grass/glocale.h>

/*!
 * \brief Get user's home directory
 *
 * Returns a pointer to a string which is the full path name of the
 * user's home directory.
 *
 * \return pointer to string
 * \return NULL on error
 */
const char *G_home(void)
{
    const char *home = G__home();

    if (home)
	return home;

    G_fatal_error(_("Unable to determine user's home directory"));

    /* why return NULL when we've already exit(1)'d with G_fatal_error() ?? */
    return NULL;
}

/*!
 * \brief Get user's home directory
 *
 * Returns a pointer to a string which is the full path name of the
 * user's home directory.
 *
 * \return pointer to string
 * \return NULL on error
 */
const char *G__home(void)
{
    static int initialized;
    static const char *home = 0;

    if (G_is_initialized(&initialized))
	return home;

#ifdef __MINGW32__
    {
	char buf[GPATH_MAX];

	/* TODO: we should probably check if the dir exists */
	home = getenv("USERPROFILE");

	if (!home) {
	    sprintf(buf, "%s%s", getenv("HOMEDRIVE"), getenv("HOMEPATH"));

	    if (strlen(buf) >= 0)
		home = G_store(buf);
	}

	if (!home)
	    home = getenv("HOME");
    }
#else
    home = getenv("HOME");
#endif
    G_initialize_done(&initialized);
    return home;
}


#ifdef TODO
#include <stdio.h>
#define RCDIR ".grass7"

/*!
 * \brief Get user's .grass/ config path directory
 *
 * Returns a pointer to a string which is the full path name of the
 * user's .grass/ config directory in their home directory.
 *
 * The path is not guaranteed to exist.
(should it be?  see possible TODO below)
 *
 * \return pointer to string
 * \return NULL on error
 */
const char *G_rc_path(void)
{
/* choose better name for fn? */
/* HB: making a complete bollocks of this, but to express the idea... */
    const char *rcpath = 0;

    sprintf(rcpath, "%s%c%s", G_home(), HOST_DIRSEP, RCDIR);

#ifdef POSSIBILITY
    /* create it if it doesn't exist */
#include <errno.h>
    int ret;
    ret = G_mkdir(rcpath);
    if (ret == -1 && errno != EEXIST)
	G_fatal_error(_("Cannot create directory [%s]"), rcpath);
#endif

    return G_store(rcpath);
}
#endif