get_window.c

Go to the documentation of this file.

/*
 *************************************************************************
 * G_get_window (window)
 *     struct Cell_head *window
 *
 *      read the current mapset window
 *      dies if error
 *
 *************************************************************************
 * G_get_default_window (window)
 *     struct Cell_head *window
 *
 *      read the default window for the location
 *      dies if error
 *
 *************************************************************************
 * char *
 * G__get_window (window, element, name, mapset)
 *      read the window 'name' in 'element' in 'mapset'
 *      returns NULL if ok, error message if not
 ************************************************************************/

#include <stdlib.h>
#include "G.h"
#include <grass/gis.h>
#include <grass/glocale.h>


int G_get_window(struct Cell_head *window)
{
    static int first = 1;
    static struct Cell_head dbwindow;
    char *regvar;

    /* Optionally read the region from environment variable */
    regvar = getenv("GRASS_REGION");

    if (regvar) {
        char **tokens, *delm = ";";
        char *err;

        tokens = G_tokenize(regvar, delm);

        err = G__read_Cell_head_array(tokens, window, 0);

        G_free_tokens(tokens);

        if (err) {
            G_fatal_error(_("region for current mapset %s\nrun \"g.region\""),
                          err);
            G_free(err);
        }

        return 1;
    }

    if (first) {
        char *wind, *err;

        wind = getenv("WIND_OVERRIDE");
        if (wind)
            err = G__get_window(&dbwindow, "windows", wind, G_mapset());
        else
            err = G__get_window(&dbwindow, "", "WIND", G_mapset());

        if (err) {
            G_fatal_error(_("region for current mapset %s\nrun \"g.region\""),
                          err);
            G_free(err);
        }
    }

    first = 0;
    G_copy(window, &dbwindow, sizeof(dbwindow));

    if (!G__.window_set) {
        G__.window_set = 1;
        G_copy(&G__.window, &dbwindow, sizeof(dbwindow));
    }

    return 1;
}


int G_get_default_window(struct Cell_head *window)
{
    char *err;

    if ((err = G__get_window(window, "", "DEFAULT_WIND", "PERMANENT"))) {
        G_fatal_error(_("default region %s"), err);
        G_free(err);
    }
    return 1;
}

char *G__get_window(struct Cell_head *window,
                    const char *element, const char *name, const char *mapset)
{
    FILE *fd;
    char *err;

    G_zero((char *)window, sizeof(struct Cell_head));

    /* Read from file */
    if (!(fd = G_fopen_old(element, name, mapset))) {
        /*
           char path[GPATH_MAX];
           G__file_name (path,element,name,mapset);
           fprintf (stderr, "G__get_window(%s)\n",path);
         */
        return G_store(_("is not set"));
    }

    err = G__read_Cell_head(fd, window, 0);
    fclose(fd);

    if (err) {
        char msg[1024];

        sprintf(msg, _("is invalid\n%s"), err);
        G_free(err);
        return G_store(msg);
    }

    return NULL;
}