mapset_nme.c

Go to the documentation of this file.

#include <sys/types.h>
#include <sys/stat.h>
#include <string.h>
#include <dirent.h>
#include <unistd.h>
#include <grass/gis.h>

static char **mapset_name;
static char **mapset_name2;
static int nmapset = 0;
static int nmapset2 = 0;
static int new_mapset(const char *);
static int get_list_of_mapsets(void);

char *G__mapset_name(int n)
{
    /*
     * first call will detect no mapsets in list
     * and go look up the list
     */
    if (nmapset == 0)
        get_list_of_mapsets();
    /*
     * must not run off the bounds of the list
     */
    if (n < 0 || n >= nmapset)
        return ((char *)NULL);

    return mapset_name[n];
}

static int get_list_of_mapsets(void)
{
    char name[GNAME_MAX];
    FILE *fd;

    /*
     * the list of mapsets is in SEARCH_PATH file in the mapset
     */
    mapset_name = NULL;
    if ((fd = G_fopen_old("", "SEARCH_PATH", G_mapset()))) {
        while (fscanf(fd, "%s", name) == 1)
            if (G__mapset_permissions(name) >= 0)
                new_mapset(name);
        fclose(fd);
    }
    /*
     * if no list, then set the list to the current mapset followed
     * by PERMANENT
     */
    if (!nmapset) {
        char *perm;
        char *cur;

        cur = G_mapset();
        perm = "PERMANENT";

        new_mapset(cur);
        if (strcmp(perm, cur) != 0 && G__mapset_permissions(perm) >= 0)
            new_mapset(perm);
    }

    return 0;
}

static int new_mapset(const char *name)
{
    /*
     * extend mapset name list and store name
     * note: assumes G_realloc will become G_malloc if mapset_name == NULL
     */
    nmapset++;
    mapset_name =
        (char **)G_realloc((char *)mapset_name, nmapset * sizeof(char *));
    mapset_name[nmapset - 1] = G_store(name);

    return 0;
}

int G__create_alt_search_path(void)
{
    nmapset2 = nmapset;
    mapset_name2 = mapset_name;

    nmapset = 0;

    return 0;
}

int G__switch_search_path(void)
{
    int n;
    char **names;

    n = nmapset2;
    names = mapset_name2;

    nmapset2 = nmapset;
    mapset_name2 = mapset_name;

    nmapset = n;
    mapset_name = names;

    return 0;
}

int G_reset_mapsets(void)
{
    nmapset = 0;

    return 0;
}

char **G_available_mapsets(void)
{
    int i, n;
    static int alloc = 0;
    static char **mapsets = NULL;
    DIR *dir;
    struct dirent *ent;
    char buf[1024];
    struct stat st;

    G_debug(3, "G_available_mapsets");

    if (alloc == 0) {           /* alloc some space, so that if something failes we can return array */
        alloc = 50;
        mapsets = (char **)G_calloc(alloc, sizeof(char *));
    }
    else {                      /* free old strings and reset pointers to NULL */
        i = 0;
        while (mapsets[i]) {
            G_free(mapsets[i]);
            mapsets[i] = NULL;
        }
    }

    n = 0;
    dir = opendir(G_location_path());
    if (dir == NULL)
        return mapsets;

    while ((ent = readdir(dir))) {
        sprintf(buf, "%s/%s/WIND", G_location_path(), ent->d_name);
        if (stat(buf, &st) == 0) {
            G_debug(4, "%s is mapset", ent->d_name);
            /* Realloc space if necessary */
            if (n + 2 >= alloc) {
                alloc += 50;
                mapsets = (char **)G_realloc(mapsets, alloc * sizeof(char *));
                for (i = n; i < alloc; i++)
                    mapsets[i] = NULL;
            }
            /* Add to list */
            mapsets[n] = G_store(ent->d_name);
            n++;
            mapsets[n] = NULL;
        }
        else {
            G_debug(4, "%s is not mapset", ent->d_name);
        }
    }

    closedir(dir);

    return mapsets;
}

void G_add_mapset_to_search_path(const char *mapset)
{
    if (!G_is_mapset_in_search_path(mapset))
        new_mapset(mapset);
}

int G_is_mapset_in_search_path(const char *mapset)
{
    int i;

    for (i = 0; i < nmapset; i++) {
        if (strcmp(mapset_name[i], mapset) == 0)
            return 1;
    }
    return 0;
}