mapset_nme.c

Go to the documentation of this file.

/*!
   \file lib/gis/mapset_nme.c
 
   \brief GIS library - Mapset name, search path routines.
 
   (C) 1999-2014 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.
 */
 
#include <grass/config.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <string.h>
#include <dirent.h>
#include <unistd.h>
#include <grass/gis.h>
 
#include "gis_local_proto.h"
 
static struct state {
    struct list {
        char **names;
        int count;
        int size;
    } path, path2;
} state;
 
static struct state *st = &state;
 
static void new_mapset(const char *);
 
/*!
   \brief Get name of the n'th mapset from the current mapset search path.
 
   The first call will initialize the list.
 
   \param n mapset index
 
   \return mapset name
   \return NULL if mapset not found
 */
const char *G_get_mapset_name(int n)
{
    G__get_list_of_mapsets();
 
    if (n < 0 || n >= st->path.count)
        return NULL;
 
    return st->path.names[n];
}
 
/*!
   \brief Fill list of mapsets from search path (internal use only)
 */
void G__get_list_of_mapsets(void)
{
    FILE *fp;
    const char *cur;
 
    if (st->path.count > 0)
        return;
 
    st->path.count = 0;
    st->path.size = 0;
    st->path.names = NULL;
 
    cur = G_mapset();
    new_mapset(cur);
 
    fp = G_fopen_old("", "SEARCH_PATH", G_mapset());
    if (fp) {
        char name[GNAME_MAX];
 
        while (fscanf(fp, "%s", name) == 1) {
            if (strcmp(name, cur) == 0)
                continue;
            if (G_mapset_permissions(name) >= 0)
                new_mapset(name);
        }
        fclose(fp);
    }
    else {
        static const char perm[] = "PERMANENT";
 
        if (strcmp(perm, cur) != 0 && G_mapset_permissions(perm) >= 0)
            new_mapset(perm);
    }
}
 
void new_mapset(const char *name)
{
    if (st->path.count >= st->path.size) {
        st->path.size += 10;
        st->path.names =
            G_realloc(st->path.names, st->path.size * sizeof(char *));
    }
 
    st->path.names[st->path.count++] = G_store(name);
}
 
/*!
   \brief Define alternative mapset search path
 */
void G_create_alt_search_path(void)
{
    st->path2.count = st->path.count;
    st->path2.names = st->path.names;
 
    st->path.count = 0;
}
 
/*!
   \brief Switch mapset search path
 */
void G_switch_search_path(void)
{
    int count;
    char **names;
 
    count = st->path2.count;
    names = st->path2.names;
 
    st->path2.count = st->path.count;
    st->path2.names = st->path.names;
 
    st->path.count = count;
    st->path.names = names;
}
 
/*!
   \brief Reset number of mapsets
 */
void G_reset_mapsets(void)
{
    st->path.count = 0;
}
 
/*!
   \brief Get list of available mapsets for current location
 
   List is updated by each call to this function.
 
   \return pointer to NULL terminated array of available mapsets
 */
char **G_get_available_mapsets(void)
{
    char *location;
    char **mapsets = NULL;
    int alloc = 50;
    int n = 0;
    DIR *dir;
    struct dirent *ent;
 
    G_debug(3, "G_get_available_mapsets");
 
    mapsets = G_calloc(alloc, sizeof(char *));
 
    location = G_location_path();
    dir = opendir(location);
    if (!dir) {
        G_free(location);
        return mapsets;
    }
 
    while ((ent = readdir(dir))) {
        char buf[GPATH_MAX];
        struct stat st;
 
        sprintf(buf, "%s/%s/WIND", location, ent->d_name);
 
        if (G_stat(buf, &st) != 0) {
            G_debug(4, "%s is not mapset", ent->d_name);
            continue;
        }
 
        G_debug(4, "%s is mapset", ent->d_name);
 
        if (n + 2 >= alloc) {
            alloc += 50;
            mapsets = G_realloc(mapsets, alloc * sizeof(char *));
        }
 
        mapsets[n++] = G_store(ent->d_name);
    }
    mapsets[n] = NULL;
 
    closedir(dir);
    G_free(location);
 
    return mapsets;
}
 
/*!
   \brief Add mapset to the list of mapsets in search path
 
   Mapset is add in memory only, not to the SEARCH_PATH file!
   List is check first if already exists.
 
   \param mapset mapset name to be added to the search path
 */
void G_add_mapset_to_search_path(const char *mapset)
{
    if (!G_is_mapset_in_search_path(mapset))
        new_mapset(mapset);
}
 
/*!
   \brief Check if given mapset is in search path
 
   \param mapset mapset name
 
   \return 1 mapset found in search path
   \return 0 mapset not found
 */
int G_is_mapset_in_search_path(const char *mapset)
{
    int i;
 
    for (i = 0; i < st->path.count; i++) {
        if (strcmp(st->path.names[i], mapset) == 0)
            return 1;
    }
 
    return 0;
}