/* setup:  Program for GRASS user to first use.  Sets environment
 * variables:  LOCATION_NAME MAPSET GISDBASE
 */


/* these defines come from the Gmakefile, but are defined here to allow
 * debugging with saber
 */
#ifndef D_LOCATION_NAME
#define D_LOCATION_NAME "spearfish"
#endif
#ifndef D_GISDBASE
#define D_GISDBASE "/data"
#endif
#ifndef GRASS_VERSION_NUMBER
#define GRASS_VERSION_NUMBER ""
#endif



static char *intro[] = {
    "                   PLEASE SET SESSION INFORMATION",
    "",
    "DATABASE: A directory (folder) on disk to contain all GRASS maps and data.",
    "",
    "LOCATION: This is the name of a geographic location. It is defined by a",
    "          co-ordinate system and a rectangular boundary.",
    "",
    "MAPSET:   Each GRASS session runs under a particular MAPSET. This consists of",
    "          a rectangular REGION and a set of maps. Every LOCATION contains at",
    "          least a MAPSET called PERMANENT, which is readable by all sessions.",
    "",
    "         The REGION defaults to the entire area of the chosen LOCATION.",
    "         You may change it later with the command: g.region",
    "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",
    0
};
static char *loc_text =
    "LOCATION:                              (enter list for a list of locations)";
static char *map_text =
    "MAPSET:                                (or mapsets within a location)";

#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <stdlib.h>
#include <grass/gis.h>
#include <grass/vask.h>
#include <grass/edit.h>
#include "local_proto.h"

int main(int argc, char *argv[])
{
    char version[80];
    char gisdbase[GPATH_MAX];
    char location_name[GMAPSET_MAX];
    char location[GPATH_MAX + GMAPSET_MAX];
    char mapset[GMAPSET_MAX];
    int line;
    int yes;
    struct Cell_head window;

    char *GISDBASE;
    char *LOCATION_NAME;
    char *MAPSET;

    int repeat;

    /* GISBASE
     *   comes from the unix environment and must be set
     *   make sure it is NOT in the .gisrc file
     *   note: G_getenv() make a special case of this variable
     */
    G_no_gisinit();

    G_unsetenv("GISBASE");	/* this cleans the variable */
    G_getenv("GISBASE");	/* this reads it from the unix environment */

    /* Gather all existing variables ********************************************* */
    GISDBASE = G__getenv("GISDBASE");
    LOCATION_NAME = G__getenv("LOCATION_NAME");
    MAPSET = G__getenv("MAPSET");

    if (!MAPSET)
	MAPSET = G_whoami();
    if (!LOCATION_NAME)
	LOCATION_NAME = D_LOCATION_NAME;
    if (!GISDBASE)
	GISDBASE = D_GISDBASE;

    strcpy(mapset, MAPSET);
    strcpy(location_name, LOCATION_NAME);
    strcpy(gisdbase, GISDBASE);
    G__setenv("GISDBASE", gisdbase);

    sprintf(version, "                            GRASS %s",
	    GRASS_VERSION_NUMBER);

    for (repeat = 1; repeat; hit_return()) {
	V_clear();
	V_line(0, version);
	for (line = 1; intro[line]; line++)
	    V_line(line, intro[line]);

	line++;
	V_line(line, loc_text);
	V_ques(location_name, 's', line++, 12, 25);

	V_line(line, map_text);
	V_ques(mapset, 's', line++, 12, 25);

	line++;
	V_line(line, "DATABASE:");
	V_ques(gisdbase, 's', line++, 10, 70 - 1);

	V_intrpt_ok();
	if (!V_call())
	    exit(1);

	G_strip(gisdbase);
	if (*gisdbase == 0) {
	    fprintf(stderr, "No DATABASE specified\n");
	    strcpy(gisdbase, D_GISDBASE);
	    continue;
	}
#ifdef __MINGW32__
	if (*gisdbase == '/') {
	    char tmp[GPATH_MAX], *p;

	    sprintf(tmp, "%s", getenv("WD"));
	    for (p = tmp + strlen(tmp); --p >= tmp && *p == '\\';) ;
	    for (; --p >= tmp && *p != '\\';) ;
	    for (; --p >= tmp && *p == '\\';) ;
	    *(p + 1) = 0;
	    for (p = tmp; *p; p++)
		if (*p == '\\')
		    *p = '/';
	    strcat(tmp, gisdbase);
	    strcpy(gisdbase, tmp);
	}
	if (!gisdbase[1] || gisdbase[1] != ':')
#else
	if (*gisdbase != '/')
#endif
	{
	    char temp[GPATH_MAX];

	    fprintf(stderr, "DATABASE <%s> - must start with /\n", gisdbase);
	    sprintf(temp, " '%s'", gisdbase);
	    strcpy(gisdbase, temp);
	    continue;
	}
	if (access(gisdbase, 0) != 0) {
	    fprintf(stderr, "DATABASE <%s> - not found\n", gisdbase);
	    continue;
	}
	G__setenv("GISDBASE", gisdbase);

	/* take only first word of responses */
	first_word(location_name);
	first_word(mapset);

	if (*location_name && (G_legal_filename(location_name) < 0)) {
	    fprintf(stderr, "LOCATION <%s> - illegal name\n", location_name);
	    continue;
	}
	if (*mapset && (G_legal_filename(mapset) < 0)) {
	    fprintf(stderr, "MAPSET <%s> - illegal name\n", mapset);
	    continue;
	}

	if (*location_name == 0 || strcmp(location_name, "list") == 0) {
	    list_locations(gisdbase);
	    *location_name = 0;
	    continue;
	}
	sprintf(location, "%s/%s", gisdbase, location_name);
	if (access(location, 0) != 0) {
	    fprintf(stderr, "LOCATION <%s> - doesn't exist\n", location_name);
	    list_locations(gisdbase);
	    if (!can_make_location(gisdbase, location_name))
		continue;

	    fprintf(stderr, "\nWould you like to create location <%s> ? ",
		    location_name);
	    if (G_yes("", 1)) {
		if (make_location(gisdbase, location_name)) {

		    G__setenv("LOCATION_NAME", location_name);
		    G__setenv("MAPSET", "PERMANENT");
		    G__write_env();


		    if (system("g.setproj")) {
			G_get_default_window(&window);
			if (E_edit_cellhd(&window, -1) < 0)
			    fprintf(stderr,
				    "WARNING: You did not provide default region for %s!\n",
				    location_name);

			G__put_window(&window, "", "DEFAULT_WIND");
			G__put_window(&window, "", "WIND");
			fprintf(stderr, "LOCATION <%s> created\n",
				location_name);
			fprintf(stderr,
				"\nBut the PROJECTION information files were not created!\n");
			fprintf(stderr,
				"You must run g.setproj successfully before projection software will work%c%c%c\n",
				7, 7, 7);
			continue;
		    }
		    else {
			G_get_default_window(&window);
			if (E_edit_cellhd(&window, -1) < 0)
			    fprintf(stderr,
				    "WARNING: You did not provide default region for %s!\n",
				    location_name);
			G__put_window(&window, "", "DEFAULT_WIND");
			G__put_window(&window, "", "WIND");
			fprintf(stderr, "LOCATION <%s> created!\n",
				location_name);
			continue;
		    }
		}
		fprintf(stderr, "LOCATION <%s> NOT created\n", location_name);
	    }
	    continue;
	}
	G__setenv("LOCATION_NAME", location_name);
	if (*mapset == 0 || strcmp(mapset, "list") == 0) {
	    list_mapsets(location_name, location);
	    *mapset = 0;
	    continue;
	}
	G__setenv("MAPSET", mapset);

	repeat = 0;

	switch (mapset_permissions(mapset)) {
	case -1:
	    if (strcmp(mapset, G_whoami()) == 0) {
		yes = 1;
	    }
	    else {
		repeat = 1;
		fprintf(stderr, "\n\nMapset <<%s>> is not available\n",
			mapset);
		list_mapsets(location_name, location);
		fprintf(stderr,
			"\nWould you like to create < %s > as a new mapset? ",
			mapset);
		yes = G_yes("", 1);
	    }

	    if (yes && (make_mapset(location, mapset) == 0))
		repeat = 0;
	    break;
	case 0:
	    fprintf(stderr, "\n\nSorry, no access to <<%s>>.\n", mapset);
	    list_mapsets(location_name, location);
	    repeat = 1;
	    break;
	case 1:
	    mapset_message(mapset);
	    if (!mapset_question(mapset))
		repeat = 1;
	    break;
	}
	if (!repeat)
	    break;
    }

    G__write_env();
    exit(0);
}

int list_locations(const char *gisdbase)
{
    fprintf(stderr, "\nAvailable locations:\n");
    fprintf(stderr, "----------------------\n");
    G_ls(gisdbase, stderr);
    fprintf(stderr, "----------------------\n");
    return 0;
}

int list_mapsets(const char *location_name, const char *location)
{
    char **mapsets;
    int i, num_mapsets;
    int any, ok, any_ok;
    int len, tot_len;

    fprintf(stderr, "\nMapsets in location <%s>\n", location_name);
    fprintf(stderr, "----------------------\n");
    mapsets = G__ls(location, &num_mapsets);
    any = 0;
    any_ok = 0;
    tot_len = 0;
    if (num_mapsets > 0) {
	for (i = 0; i < num_mapsets; i++) {
	    any = 1;
	    len = strlen(mapsets[i]) + 1;
	    len /= 20;
	    len = (len + 1) * 20;
	    tot_len += len;
	    if (tot_len > 75) {
		fprintf(stderr, "\n");
		tot_len = len;
	    }
	    if ((ok = (mapset_permissions(mapsets[i]) == 1)))
		any_ok = 1;
	    fprintf(stderr, "%s%-*s", ok ? "(+)" : "   ", len, mapsets[i]);
	}
	if (tot_len)
	    fprintf(stderr, "\n");
	if (any_ok)
	    fprintf(stderr,
		    "\nnote: you only have access to mapsets marked with (+)\n");
	else if (any)
	    fprintf(stderr,
		    "\nnote: you do not have access to any of these mapsets\n");
    }
    fprintf(stderr, "----------------------\n");

    return 0;
}

int first_word(char *buf)
{
    char temp[GNAME_MAX];

    *temp = 0;
    sscanf(buf, "%s", temp);
    strcpy(buf, temp);

    return 0;
}

int hit_return(void)
{
    char buf[80];

    fprintf(stderr, "\nHit RETURN -->");
    G_gets(buf);

    return 0;
}