libgis: G__getenv() -> G_getenv_nofatal()

        G__getenv2() -> G_getenv_nofatal2()
        G__setenv() ->  G_setenv_nogisrc()
        G__setenv2() -> G_setenv_nogisrc2()
update modules
       (merge r63830-1 from trunk)
        


git-svn-id: https://svn.osgeo.org/grass/grass/branches/releasebranch_7_0@63832 15284696-431f-4ddb-bdfa-cd5b030d7da7

db/drivers/dbf/db.c

@@ -69,8 +69,8 @@ int db__driver_open_database(dbHandle * handle)
 	    if (tokens[n][0] == '$') {
 		G_strchg(tokens[n], '$', ' ');
 		G_chop(tokens[n]);
-		strcat(db.name, G__getenv(tokens[n]));
-		G_debug(3, "   -> %s", G__getenv(tokens[n]));
+		strcat(db.name, G_getenv_nofatal(tokens[n]));
+		G_debug(3, "   -> %s", G_getenv_nofatal(tokens[n]));
 	    }
 	    else
 		strcat(db.name, tokens[n]);

db/drivers/mysql/replace.c

@@ -49,8 +49,8 @@ int replace_variables(char *in, char **datadir, char **database)
 	    if (tokens[n][0] == '$') {
 		G_strchg(tokens[n], '$', ' ');
 		G_chop(tokens[n]);
-		strcat(tmp, G__getenv(tokens[n]));
-		G_debug(3, "   -> %s", G__getenv(tokens[n]));
+		strcat(tmp, G_getenv_nofatal(tokens[n]));
+		G_debug(3, "   -> %s", G_getenv_nofatal(tokens[n]));
 	    }
 	    else {
 		strcat(tmp, tokens[n]);

db/drivers/sqlite/db.c

@@ -67,8 +67,8 @@ int db__driver_open_database(dbHandle * handle)
 	    if (tokens[n][0] == '$') {
 		G_strchg(tokens[n], '$', ' ');
 		G_chop(tokens[n]);
-		strcat(name2, G__getenv(tokens[n]));
-		G_debug(3, "   -> %s", G__getenv(tokens[n]));
+		strcat(name2, G_getenv_nofatal(tokens[n]));
+		G_debug(3, "   -> %s", G_getenv_nofatal(tokens[n]));
 	    }
 	    else {
 		strcat(name2, tokens[n]);

display/d.mon/list.c

@@ -62,7 +62,7 @@ int check_mon(const char *name)
     
     env_name = NULL;
     G_asprintf(&env_name, "MONITOR_%s_ENVFILE", G_store_upper(name));
-    str = G__getenv(env_name);
+    str = G_getenv_nofatal(env_name);
     if (!str)
 	return FALSE;
     
@@ -79,7 +79,7 @@ void list_cmd(const char *name, FILE *fd_out)
 
     cmd_name = NULL;
     G_asprintf(&cmd_name, "MONITOR_%s_CMDFILE", G_store_upper(name));
-    cmd_value = G__getenv(cmd_name);
+    cmd_value = G_getenv_nofatal(cmd_name);
     if (!cmd_value)
 	G_fatal_error(_("Command file not found"));
     

display/d.mon/main.c

@@ -139,7 +139,7 @@ int main(int argc, char *argv[])
     if (selected_flag->answer || release_flag->answer || cmd_flag->answer) {
 	if (list_flag->answer)
 	    G_warning(_("Flag -%c ignored"), list_flag->key);
-	mon = G__getenv("MONITOR");
+	mon = G_getenv_nofatal("MONITOR");
 	if (mon) {
 	    if (selected_flag->answer) {
 		G_verbose_message(_("Currently selected monitor:"));

display/d.mon/select.c

@@ -9,7 +9,7 @@ int select_mon(const char *name)
     char **list;
     int   i, n, found;
 
-    curr_mon = G__getenv("MONITOR");
+    curr_mon = G_getenv_nofatal("MONITOR");
     if (G_strcasecmp(name, curr_mon) == 0) {
 	G_warning(_("Monitor <%s> is already selected"), name);
 	return 0;

display/d.mon/start.c

@@ -110,7 +110,7 @@ int start_mon(const char *name, const char *output, int select,
     if (check_mon(name)) {
         const char *curr_mon;
 
-        curr_mon = G__getenv("MONITOR");
+        curr_mon = G_getenv_nofatal("MONITOR");
 	if (select && (!curr_mon || strcmp(curr_mon, name) != 0))
 	    G_setenv("MONITOR", name);
 

display/d.mon/stop.c

@@ -32,7 +32,7 @@ int stop(const char *name)
     env_name = NULL;
     G_asprintf(&env_name, "MONITOR_%s_ENVFILE", G_store_upper(name));
     
-    env_file = G__getenv(env_name);
+    env_file = G_getenv_nofatal(env_name);
     if (!env_file)
 	G_warning(_("Env file not found"));
     
@@ -49,7 +49,7 @@ int stop_wx(const char *name)
     env_name = NULL;
     G_asprintf(&env_name, "MONITOR_%s_PID", G_store_upper(name));
     
-    pid = G__getenv(env_name);
+    pid = G_getenv_nofatal(env_name);
     if (!pid) {
 	clean_env(name);
 	G_fatal_error(_("PID file not found"));

general/g.gisenv/main.c

@@ -116,7 +116,7 @@ int main(int argc, char *argv[])
 	    quote = !isatty(fileno(stdout));
 	
 	for (n = 0; (name = G_get_env_name(n)); n++) {
-	    value = (char *)G__getenv(name);
+	    value = (char *)G_getenv_nofatal(name);
 	    if (value) {
 		if (!quote)
 		    fprintf(stdout, "%s=%s\n", name, value);

general/g.gui/main.c

@@ -84,7 +84,7 @@ int main(int argc, char *argv[])
     if (nolaunch->answer && !update->answer)
 	update->answer = TRUE;
     
-    gui_type_env = G__getenv("GUI");
+    gui_type_env = G_getenv_nofatal("GUI");
 
     if (!type->answer) {
 	if (gui_type_env && strcmp(gui_type_env, "text")) {

general/g.mapset/main.c

@@ -98,9 +98,9 @@ int main(int argc, char *argv[])
 	exit(EXIT_FAILURE);
 
     /* Store original values */
-    gisdbase_old = G__getenv("GISDBASE");
-    location_old = G__getenv("LOCATION_NAME");
-    mapset_old = G__getenv("MAPSET");
+    gisdbase_old = G_getenv_nofatal("GISDBASE");
+    location_old = G_getenv_nofatal("LOCATION_NAME");
+    mapset_old = G_getenv_nofatal("MAPSET");
 
     if (flag.curr->answer) {
 	fprintf(stdout, "%s\n", mapset_old);
@@ -125,8 +125,8 @@ int main(int argc, char *argv[])
 	char **ms;
 	int nmapsets;
 
-	G__setenv("LOCATION_NAME", location_new);
-	G__setenv("GISDBASE", gisdbase_new);
+	G_setenv_nogisrc("LOCATION_NAME", location_new);
+	G_setenv_nogisrc("GISDBASE", gisdbase_new);
 
 	ms = G_get_available_mapsets();
 

imagery/i.find/main.c

@@ -70,8 +70,8 @@ int main(int argc, char *argv[])
      */
     tempfile = G_tempfile();
 
-    G__setenv("LOCATION_NAME", argv[1]);
-    G__setenv("MAPSET", argv[2]);
+    G_setenv_nogisrc("LOCATION_NAME", argv[1]);
+    G_setenv_nogisrc("MAPSET", argv[2]);
 
     for (n = 3; n < argc; n += 2) {
 	FILE *fd;

imagery/i.ortho.photo/i.ortho.elev/main.c

@@ -122,11 +122,11 @@ int main(int argc, char *argv[])
 
 
     G_create_alt_env();
-    G__setenv("LOCATION_NAME", location);
+    G_setenv_nogisrc("LOCATION_NAME", location);
 
     stat = G__mapset_permissions(mapset);
     if (stat > 0) {
-	G__setenv("MAPSET", mapset);
+	G_setenv_nogisrc("MAPSET", mapset);
 	G_create_alt_search_path();
 	G_switch_env();
 	G_switch_search_path();
@@ -156,7 +156,7 @@ int main(int argc, char *argv[])
 	    }
 
 	    I_get_group_elev(group, elev_layer, mapset_elev, tl, math_exp, units, nd);
-	    overwrite = G__getenv("OVERWRITE") != NULL;
+	    overwrite = G_getenv_nofatal("OVERWRITE") != NULL;
 	    
 	    if (!overwrite && *elev_layer) {
 		G_warning(_("Elevation for group <%s> is already set to <%s>"),

imagery/i.ortho.photo/i.ortho.rectify/env.c

@@ -34,9 +34,9 @@ int select_target_env(void)
 int show_env(void)
 {
     fprintf(stderr, "env(%d) switch to LOCATION %s, MAPSET %s\n", which_env,
-	    G__getenv("LOCATION_NAME") ==
-	    NULL ? "?" : G__getenv("LOCATION_NAME"),
-	    G__getenv("MAPSET") == NULL ? "?" : G__getenv("MAPSET"));
+	    G_getenv_nofatal("LOCATION_NAME") ==
+	    NULL ? "?" : G_getenv_nofatal("LOCATION_NAME"),
+	    G_getenv_nofatal("MAPSET") == NULL ? "?" : G_getenv_nofatal("MAPSET"));
     G_sleep(2);
 
     return 0;

imagery/i.ortho.photo/i.ortho.rectify/target.c

@@ -20,10 +20,10 @@ int get_target(char *group)
 	goto error;
     }
     select_target_env();
-    G__setenv("LOCATION_NAME", location);
+    G_setenv_nogisrc("LOCATION_NAME", location);
     stat = G__mapset_permissions(mapset);
     if (stat > 0) {
-	G__setenv("MAPSET", mapset);
+	G_setenv_nogisrc("MAPSET", mapset);
 	G_get_window(&target_window);
 	select_current_env();
 	return 1;

imagery/i.rectify/env.c

@@ -33,9 +33,9 @@ int select_target_env(void)
 int show_env(void)
 {
     fprintf(stderr, "env(%d) switch to LOCATION %s, MAPSET %s\n", which_env,
-	    G__getenv("LOCATION_NAME") ==
-	    NULL ? "?" : G__getenv("LOCATION_NAME"),
-	    G__getenv("MAPSET") == NULL ? "?" : G__getenv("MAPSET"));
+	    G_getenv_nofatal("LOCATION_NAME") ==
+	    NULL ? "?" : G_getenv_nofatal("LOCATION_NAME"),
+	    G_getenv_nofatal("MAPSET") == NULL ? "?" : G_getenv_nofatal("MAPSET"));
     G_sleep(2);
 
     return 0;

imagery/i.rectify/target.c

@@ -21,10 +21,10 @@ int get_target(char *group)
 	goto error;
     }
     select_target_env();
-    G__setenv("LOCATION_NAME", location);
+    G_setenv_nogisrc("LOCATION_NAME", location);
     stat = G__mapset_permissions(mapset);
     if (stat > 0) {
-	G__setenv("MAPSET", mapset);
+	G_setenv_nogisrc("MAPSET", mapset);
 	G_get_window(&target_window);
 	select_current_env();
 	return 1;

include/defs/gis.h

@@ -210,12 +210,12 @@ int G_is_little_endian(void);
 void G_init_env(void);
 const char *G_getenv(const char *);
 const char *G_getenv2(const char *, int);
-const char *G__getenv(const char *);
-const char *G__getenv2(const char *, int);
+const char *G_getenv_nofatal(const char *);
+const char *G_getenv_nofatal2(const char *, int);
 void G_setenv(const char *, const char *);
 void G_setenv2(const char *, const char *, int);
-void G__setenv(const char *, const char *);
-void G__setenv2(const char *, const char *, int);
+void G_setenv_nogisrc(const char *, const char *);
+void G_setenv_nogisrc2(const char *, const char *, int);
 void G_unsetenv(const char *);
 void G_unsetenv2(const char *, int);
 void G__write_env(void);

lib/db/dbmi_base/connect.c

@@ -71,16 +71,16 @@ int db_get_connection(dbConnection * connection)
 
     G_zero(connection, sizeof(dbConnection));
     
-    connection->driverName = (char *)G__getenv2("DB_DRIVER", G_VAR_MAPSET);
-    connection->databaseName = (char *)G__getenv2("DB_DATABASE", G_VAR_MAPSET);
-    connection->schemaName = (char *)G__getenv2("DB_SCHEMA", G_VAR_MAPSET);
-    connection->group = (char *)G__getenv2("DB_GROUP", G_VAR_MAPSET);
+    connection->driverName = (char *)G_getenv_nofatal2("DB_DRIVER", G_VAR_MAPSET);
+    connection->databaseName = (char *)G_getenv_nofatal2("DB_DATABASE", G_VAR_MAPSET);
+    connection->schemaName = (char *)G_getenv_nofatal2("DB_SCHEMA", G_VAR_MAPSET);
+    connection->group = (char *)G_getenv_nofatal2("DB_GROUP", G_VAR_MAPSET);
 
     /* below commented due to new mechanism:
-       connection->hostName = G__getenv("DB_HOST");
-       connection->location = G__getenv("DB_LOCATION");
-       connection->user = G__getenv("DB_USER");
-       connection->password = G__getenv("DB_PASSWORD");
+       connection->hostName = G_getenv_nofatal("DB_HOST");
+       connection->location = G_getenv_nofatal("DB_LOCATION");
+       connection->user = G_getenv_nofatal("DB_USER");
+       connection->password = G_getenv_nofatal("DB_PASSWORD");
      */
     
     return DB_OK;

lib/db/dbmi_base/default_name.c

@@ -28,7 +28,7 @@ const char *db_get_default_driver_name(void)
 {
     const char *drv;
 
-    if ((drv = G__getenv2("DB_DRIVER", G_VAR_MAPSET)))
+    if ((drv = G_getenv_nofatal2("DB_DRIVER", G_VAR_MAPSET)))
 	return G_store(drv);
 
     return NULL;
@@ -44,7 +44,7 @@ const char *db_get_default_database_name(void)
 {
     const char *drv;
 
-    if ((drv = G__getenv2("DB_DATABASE", G_VAR_MAPSET)))
+    if ((drv = G_getenv_nofatal2("DB_DATABASE", G_VAR_MAPSET)))
 	return G_store(drv);
 
     return NULL;
@@ -60,7 +60,7 @@ const char *db_get_default_schema_name(void)
 {
     const char *sch;
 
-    if ((sch = G__getenv2("DB_SCHEMA", G_VAR_MAPSET)))
+    if ((sch = G_getenv_nofatal2("DB_SCHEMA", G_VAR_MAPSET)))
 	return G_store(sch);
 
     return NULL;
@@ -76,7 +76,7 @@ const char *db_get_default_group_name(void)
 {
     const char *gr;
 
-    if ((gr = G__getenv2("DB_GROUP", G_VAR_MAPSET)))
+    if ((gr = G_getenv_nofatal2("DB_GROUP", G_VAR_MAPSET)))
 	return G_store(gr);
 
     return NULL;

lib/db/dbmi_client/start.c

@@ -64,16 +64,16 @@ dbDriver *db_start_driver(const char *name)
 	sprintf(ebuf, "%d", G_GISRC_MODE_MEMORY);
 	G_putenv("GRASS_DB_DRIVER_GISRC_MODE", ebuf);	/* to tell driver that it must read variables */
 
-	if (G__getenv("DEBUG")) {
-	    G_putenv("DEBUG", G__getenv("DEBUG"));
+	if (G_getenv_nofatal("DEBUG")) {
+	    G_putenv("DEBUG", G_getenv_nofatal("DEBUG"));
 	}
 	else {
 	    G_putenv("DEBUG", "0");
 	}
 
-	G_putenv("GISDBASE", G__getenv("GISDBASE"));
-	G_putenv("LOCATION_NAME", G__getenv("LOCATION_NAME"));
-	G_putenv("MAPSET", G__getenv("MAPSET"));
+	G_putenv("GISDBASE", G_getenv_nofatal("GISDBASE"));
+	G_putenv("LOCATION_NAME", G_getenv_nofatal("LOCATION_NAME"));
+	G_putenv("MAPSET", G_getenv_nofatal("MAPSET"));
     }
     else {
 	/* Warning: GISRC_MODE_MEMORY _must_ be set to G_GISRC_MODE_FILE, because the module can be 

lib/db/dbmi_driver/driver.c

@@ -53,10 +53,10 @@ int db_driver(int argc, char *argv[])
 
 	if (mode == G_GISRC_MODE_MEMORY) {
 	    G_set_gisrc_mode(G_GISRC_MODE_MEMORY);
-	    G__setenv("DEBUG", getenv("DEBUG"));
-	    G__setenv("GISDBASE", getenv("GISDBASE"));
-	    G__setenv("LOCATION_NAME", getenv("LOCATION_NAME"));
-	    G__setenv("MAPSET", getenv("MAPSET"));
+	    G_setenv_nogisrc("DEBUG", getenv("DEBUG"));
+	    G_setenv_nogisrc("GISDBASE", getenv("GISDBASE"));
+	    G_setenv_nogisrc("LOCATION_NAME", getenv("LOCATION_NAME"));
+	    G_setenv_nogisrc("MAPSET", getenv("MAPSET"));
 	    G_debug(3, "Driver GISDBASE set to '%s'", G_getenv("GISDBASE"));
 	}
     }

lib/display/r_raster.c

@@ -107,7 +107,7 @@ int D_open_driver(void)
     
     G_debug(1, "D_open_driver():");
     p = getenv("GRASS_RENDER_IMMEDIATE");
-    m = G__getenv("MONITOR");
+    m = G_getenv_nofatal("MONITOR");
     
     if (m && G_strncasecmp(m, "wx", 2) == 0) {
 	/* wx monitors always use GRASS_RENDER_IMMEDIATE. */
@@ -126,14 +126,14 @@ int D_open_driver(void)
 
 	env = NULL;
 	G_asprintf(&env, "MONITOR_%s_MAPFILE", u_m);
-	v = G__getenv(env);
+	v = G_getenv_nofatal(env);
 	p = m;
 
 	if (v)
             G_putenv("GRASS_RENDER_FILE", v);
         
 	G_asprintf(&env, "MONITOR_%s_ENVFILE", u_m);
-	v = G__getenv(env);
+	v = G_getenv_nofatal(env);
 	if (v) 
 	    read_env_file(v);
     }
@@ -204,7 +204,7 @@ int D_save_command(const char *cmd)
 
     G_debug(1, "D_save_command(): %s", cmd);
 
-    mon_name = G__getenv("MONITOR");
+    mon_name = G_getenv_nofatal("MONITOR");
     if (!mon_name || /* if no monitor selected */
 	/* or wx monitor selected and display commands called by the monitor */
 	(G_strncasecmp(mon_name, "wx", 2) == 0 &&
@@ -216,7 +216,7 @@ int D_save_command(const char *cmd)
 
     env = NULL;
     G_asprintf(&env, "MONITOR_%s_CMDFILE", u_mon_name);
-    mon_cmd = G__getenv(env);
+    mon_cmd = G_getenv_nofatal(env);
     if (!mon_cmd)
 	return 0;
 

lib/gis/debug.c

@@ -31,7 +31,7 @@ void G_init_debug(void)
     if (G_is_initialized(&initialized))
 	return;
 
-    lstr = G__getenv("DEBUG");
+    lstr = G_getenv_nofatal("DEBUG");
 
     if (lstr != NULL)
 	grass_debug_level = atoi(lstr);

lib/gis/env.c

@@ -335,7 +335,7 @@ static FILE *open_env(const char *mode, int loc)
 */
 const char *G_getenv(const char *name)
 {
-    const char *value = G__getenv(name);
+    const char *value = G_getenv_nofatal(name);
 
     if (value)
 	return value;
@@ -361,7 +361,7 @@ const char *G_getenv(const char *name)
 */
 const char *G_getenv2(const char *name, int loc)
 {
-    const char *value = G__getenv2(name, loc);
+    const char *value = G_getenv_nofatal2(name, loc);
 
     if (value)
 	return value;
@@ -378,7 +378,7 @@ const char *G_getenv2(const char *name, int loc)
   \return char pointer to value for name
   \return NULL if name not set
 */
-const char *G__getenv(const char *name)
+const char *G_getenv_nofatal(const char *name)
 {
     if (strcmp(name, "GISBASE") == 0)
 	return getenv(name);
@@ -397,7 +397,7 @@ const char *G__getenv(const char *name)
   \return char pointer to value for name
   \return NULL if name not set
 */
-const char *G__getenv2(const char *name, int loc)
+const char *G_getenv_nofatal2(const char *name, int loc)
 {
     if (strcmp(name, "GISBASE") == 0)
 	return getenv(name);
@@ -445,7 +445,7 @@ void G_setenv2(const char *name, const char *value, int loc)
   \param name variable name
   \param value variable value
 */
-void G__setenv(const char *name, const char *value)
+void G_setenv_nogisrc(const char *name, const char *value)
 {
     read_env(G_VAR_GISRC);
     set_env(name, value, G_VAR_GISRC);
@@ -458,7 +458,7 @@ void G__setenv(const char *name, const char *value)
   \param value variable value
   \param loc location (G_VAR_GISRC, G_VAR_MAPSET)
 */
-void G__setenv2(const char *name, const char *value, int loc)
+void G_setenv_nogisrc2(const char *name, const char *value, int loc)
 {
     read_env(loc);
     set_env(name, value, loc);

lib/gis/make_loc.c

@@ -71,8 +71,8 @@ int G_make_location(const char *location_name,
     }
 
     /* make these the new current location and mapset */
-    G__setenv("LOCATION_NAME", location_name);
-    G__setenv("MAPSET", "PERMANENT");
+    G_setenv_nogisrc("LOCATION_NAME", location_name);
+    G_setenv_nogisrc("MAPSET", "PERMANENT");
 
     /* Create the default, and current window files */
     G_put_element_window(wind, "", "DEFAULT_WIND");

lib/gis/make_mapset.c

@@ -74,13 +74,13 @@ int G_make_mapset(const char *gisdbase_name, const char *location_name,
     G_create_alt_env();
 
     /* Get PERMANENT default window */
-    G__setenv("GISDBASE", gisdbase_name);
-    G__setenv("LOCATION", location_name);
-    G__setenv("MAPSET", "PERMANENT");
+    G_setenv_nogisrc("GISDBASE", gisdbase_name);
+    G_setenv_nogisrc("LOCATION", location_name);
+    G_setenv_nogisrc("MAPSET", "PERMANENT");
     G_get_default_window(&default_window);
 
     /* Change to the new mapset */
-    G__setenv("MAPSET", mapset_name);
+    G_setenv_nogisrc("MAPSET", mapset_name);
 
     /* Copy default window/regions to new mapset */
     G_put_element_window(&default_window, "", "WIND");

lib/gis/mapset.c

@@ -50,7 +50,7 @@ const char *G_mapset(void)
 */
 const char *G__mapset(void)
 {
-    return G__getenv("MAPSET");
+    return G_getenv_nofatal("MAPSET");
 }
 
 /*!

lib/gis/overwrite.c

@@ -37,7 +37,7 @@ int G_check_overwrite(int argc, char **argv)
     int overwrite;
 
     overwrite = 0;
-    if ((overstr = G__getenv("OVERWRITE"))) {
+    if ((overstr = G_getenv_nofatal("OVERWRITE"))) {
 	overwrite = atoi(overstr);
     }
 
@@ -59,7 +59,7 @@ int G_check_overwrite(int argc, char **argv)
 	}
     }
 
-    G__setenv("OVERWRITE", "1");
+    G_setenv_nogisrc("OVERWRITE", "1");
 
     return overwrite;
 }

lib/gis/parser.c

@@ -1424,7 +1424,7 @@ int check_overwrite(void)
 
     over = 0;
     /* Check the GRASS OVERWRITE variable */
-    if ((overstr = G__getenv("OVERWRITE"))) {
+    if ((overstr = G_getenv_nofatal("OVERWRITE"))) {
 	over = atoi(overstr);
     }
 

lib/temporal/lib/connect.c

@@ -25,7 +25,7 @@ char *tgis_get_driver_name(void)
 {
     const char *drv;
     
-    if ((drv = G__getenv2("TGISDB_DRIVER", G_VAR_MAPSET)))
+    if ((drv = G_getenv_nofatal2("TGISDB_DRIVER", G_VAR_MAPSET)))
         return G_store(drv);
     
     return NULL;
@@ -41,7 +41,7 @@ char *tgis_get_database_name(void)
 {
     const char *drv;
     
-    if ((drv = G__getenv2("TGISDB_DATABASE", G_VAR_MAPSET)))
+    if ((drv = G_getenv_nofatal2("TGISDB_DATABASE", G_VAR_MAPSET)))
         return G_store(drv);
     
     return NULL;
@@ -78,8 +78,8 @@ int tgis_get_connection(dbConnection * connection)
 {
     G_zero(connection, sizeof(dbConnection));
     
-    connection->driverName = (char *)G__getenv2("TGISDB_DRIVER", G_VAR_MAPSET);
-    connection->databaseName = (char *)G__getenv2("TGISDB_DATABASE", G_VAR_MAPSET);
+    connection->driverName = (char *)G_getenv_nofatal2("TGISDB_DRIVER", G_VAR_MAPSET);
+    connection->databaseName = (char *)G_getenv_nofatal2("TGISDB_DATABASE", G_VAR_MAPSET);
 
     return DB_OK;
 }
@@ -91,8 +91,8 @@ static char *get_mapset_connection_name(const char *mapset, int contype)
 {
     const char *val = NULL;
     char *ret_val = NULL;;
-    const char *gisdbase = G__getenv("GISDBASE");
-    const char *location = G__getenv("LOCATION_NAME");
+    const char *gisdbase = G_getenv_nofatal("GISDBASE");
+    const char *location = G_getenv_nofatal("LOCATION_NAME");
     int ret;
 
     ret = G__mapset_permissions2(gisdbase, location, mapset);
@@ -110,16 +110,16 @@ static char *get_mapset_connection_name(const char *mapset, int contype)
     }    
 
     G_create_alt_env();
-    G__setenv("GISDBASE", gisdbase);
-    G__setenv("LOCATION_NAME", location);
-    G__setenv("MAPSET", mapset);
+    G_setenv_nogisrc("GISDBASE", gisdbase);
+    G_setenv_nogisrc("LOCATION_NAME", location);
+    G_setenv_nogisrc("MAPSET", mapset);
     G__read_mapset_env();
  
     if(contype == DATABASE_NAME) {
-        if ((val = G__getenv2("TGISDB_DATABASE", G_VAR_MAPSET)))
+        if ((val = G_getenv_nofatal2("TGISDB_DATABASE", G_VAR_MAPSET)))
             ret_val = G_store(val);
     } else if(contype == DRIVER_NAME) {
-        if ((val = G__getenv2("TGISDB_DRIVER", G_VAR_MAPSET)))
+        if ((val = G_getenv_nofatal2("TGISDB_DRIVER", G_VAR_MAPSET)))
             ret_val = G_store(val);
     }
 

lib/vector/Vlib/intersect.c

@@ -579,7 +579,7 @@ Vect_line_intersection(struct line_pnts *APoints,
     struct bound_box box, abbox;
 
     if (debug_level == -1) {
-	const char *dstr = G__getenv("DEBUG");
+	const char *dstr = G_getenv_nofatal("DEBUG");
 
 	if (dstr != NULL)
 	    debug_level = atoi(dstr);

lib/vector/Vlib/sindex.c

@@ -129,7 +129,7 @@ Vect_select_areas_by_box(struct Map_info *Map, const struct bound_box * Box,
     static int debug_level = -1;
 
     if (debug_level == -1) {
-	const char *dstr = G__getenv("DEBUG");
+	const char *dstr = G_getenv_nofatal("DEBUG");
 
 	if (dstr != NULL)
 	    debug_level = atoi(dstr);

lib/vector/diglib/file.c

@@ -200,7 +200,7 @@ int dig_file_load(struct gvfile * file)
 
     /* Get mode */
     mode = GV_MEMORY_NEVER;
-    cmode = G__getenv("GV_MEMORY");
+    cmode = G_getenv_nofatal("GV_MEMORY");
     if (cmode != NULL) {
 	if (G_strcasecmp(cmode, "ALWAYS") == 0)
 	    mode = GV_MEMORY_ALWAYS;

lib/vector/diglib/plus_area.c

@@ -62,7 +62,7 @@ dig_build_area_with_line(struct Plus_head *plus, plus_t first_line, int side,
     int node;
 
     if (debug_level == -1) {
-	const char *dstr = G__getenv("DEBUG");
+	const char *dstr = G_getenv_nofatal("DEBUG");
 
 	if (dstr != NULL)
 	    debug_level = atoi(dstr);
@@ -260,7 +260,7 @@ int dig_area_add_isle(struct Plus_head *plus, int area, int isle)
     G_debug(3, "dig_area_add_isle(): area = %d isle = %d", area, isle);
 
     if (debug_level == -1) {
-	const char *dstr = G__getenv("DEBUG");
+	const char *dstr = G_getenv_nofatal("DEBUG");
 
 	if (dstr != NULL)
 	    debug_level = atoi(dstr);
@@ -472,7 +472,7 @@ dig_angle_next_line(struct Plus_head *plus, plus_t current_line, int side,
     struct P_line *Line;
 
     if (debug_level == -1) {
-	const char *dstr = G__getenv("DEBUG");
+	const char *dstr = G_getenv_nofatal("DEBUG");
 
 	if (dstr != NULL)
 	    debug_level = atoi(dstr);

raster/r.in.gdal/main.c

@@ -649,7 +649,7 @@ int main(int argc, char *argv[])
 		
 		/* does the target location exist? */
 		G_create_alt_env();
-		G__setenv("LOCATION_NAME", parm.target->answer);
+		G_setenv_nogisrc("LOCATION_NAME", parm.target->answer);
 		sprintf(target_mapset, "PERMANENT");	/* must exist */
 
 		if (G__mapset_permissions(target_mapset) == -1) {
@@ -822,7 +822,7 @@ static void SetupReprojector(const char *pszSrcWKT, const char *pszDstLoc,
 
     /* Change to user defined target location for GCPs transformation */
     G_create_alt_env();
-    G__setenv("LOCATION_NAME", (char *)pszDstLoc);
+    G_setenv_nogisrc("LOCATION_NAME", (char *)pszDstLoc);
     sprintf(target_mapset, "PERMANENT");	/* to find PROJ_INFO */
 
     permissions = G__mapset_permissions(target_mapset);

raster/r.proj/main.c

@@ -278,8 +278,8 @@ int main(int argc, char **argv)
 
     /* Change the location           */
     G_create_alt_env();
-    G__setenv("GISDBASE", indbase->answer ? indbase->answer : G_gisdbase());
-    G__setenv("LOCATION_NAME", inlocation->answer);
+    G_setenv_nogisrc("GISDBASE", indbase->answer ? indbase->answer : G_gisdbase());
+    G_setenv_nogisrc("LOCATION_NAME", inlocation->answer);
 
     permissions = G__mapset_permissions(setname);
     if (permissions < 0)	/* can't access mapset       */
@@ -294,8 +294,8 @@ int main(int argc, char **argv)
 	char **list;
 	G_verbose_message(_("Checking location <%s> mapset <%s>"),
 			  inlocation->answer, setname);
-	list = G_list(G_ELEMENT_RASTER, G__getenv("GISDBASE"),
-		      G__getenv("LOCATION_NAME"), setname);
+	list = G_list(G_ELEMENT_RASTER, G_getenv_nofatal("GISDBASE"),
+		      G_getenv_nofatal("LOCATION_NAME"), setname);
 	for (i = 0; list[i]; i++) {
 	    fprintf(stdout, "%s\n", list[i]);
 	}

vector/v.lidar.correction/main.c

@@ -144,10 +144,10 @@ int main(int argc, char *argv[])
     HighThresh = atof(Thresh_A_opt->answer);
     LowThresh = atof(Thresh_B_opt->answer);
 
-    if (!(db = G__getenv2("DB_DATABASE", G_VAR_MAPSET)))
+    if (!(db = G_getenv_nofatal2("DB_DATABASE", G_VAR_MAPSET)))
 	G_fatal_error(_("Unable to read name of database"));
 
-    if (!(dvr = G__getenv2("DB_DRIVER", G_VAR_MAPSET)))
+    if (!(dvr = G_getenv_nofatal2("DB_DRIVER", G_VAR_MAPSET)))
 	G_fatal_error(_("Unable to read name of driver"));
 
     /* Setting auxiliar table's name */

vector/v.lidar.edgedetection/main.c

@@ -165,10 +165,10 @@ int main(int argc, char *argv[])
     grad_L = grad_L * grad_L;
     grad_H = grad_H * grad_H;
 
-    if (!(db = G__getenv2("DB_DATABASE", G_VAR_MAPSET)))
+    if (!(db = G_getenv_nofatal2("DB_DATABASE", G_VAR_MAPSET)))
 	G_fatal_error(_("Unable to read name of database"));
 
-    if (!(dvr = G__getenv2("DB_DRIVER", G_VAR_MAPSET)))
+    if (!(dvr = G_getenv_nofatal2("DB_DRIVER", G_VAR_MAPSET)))
 	G_fatal_error(_("Unable to read name of driver"));
 
     /* Setting auxiliar table's name */

vector/v.net.salesman/main.c

@@ -197,7 +197,7 @@ int main(int argc, char **argv)
     tfield = atoi(tfield_opt->answer);
     Vect_str_to_cat_list(term_opt->answer, Clist);
 
-    dstr = G__getenv("DEBUG");
+    dstr = G_getenv_nofatal("DEBUG");
 
     if (dstr != NULL)
 	debug_level = atoi(dstr);

vector/v.outlier/main.c

@@ -142,10 +142,10 @@ int main(int argc, char *argv[])
     if (G_parser(argc, argv))
 	exit(EXIT_FAILURE);
 
-    if (!(db = G__getenv2("DB_DATABASE", G_VAR_MAPSET)))
+    if (!(db = G_getenv_nofatal2("DB_DATABASE", G_VAR_MAPSET)))
 	G_fatal_error(_("Unable to read name of database"));
 
-    if (!(dvr = G__getenv2("DB_DRIVER", G_VAR_MAPSET)))
+    if (!(dvr = G_getenv_nofatal2("DB_DRIVER", G_VAR_MAPSET)))
 	G_fatal_error(_("Unable to read name of driver"));
 
     stepN = atof(stepN_opt->answer);

vector/v.proj/main.c

@@ -180,8 +180,8 @@ int main(int argc, char *argv[])
     /* Change the location here and then come back */
 
     select_target_env();
-    G__setenv("GISDBASE", gbase);
-    G__setenv("LOCATION_NAME", iloc_name);
+    G_setenv_nogisrc("GISDBASE", gbase);
+    G_setenv_nogisrc("LOCATION_NAME", iloc_name);
     stat = G__mapset_permissions(iset_name);
     
     if (stat >= 0) {		/* yes, we can access the mapset */
@@ -191,8 +191,8 @@ int main(int argc, char *argv[])
 	    char **list;
 	    G_verbose_message(_("Checking location <%s> mapset <%s>"),
 			      iloc_name, iset_name);
-	    list = G_list(G_ELEMENT_VECTOR, G__getenv("GISDBASE"),
-			  G__getenv("LOCATION_NAME"), iset_name);
+	    list = G_list(G_ELEMENT_VECTOR, G_getenv_nofatal("GISDBASE"),
+			  G_getenv_nofatal("LOCATION_NAME"), iset_name);
 	    if (list[0]) {
 		for (i = 0; list[i]; i++) {
 		    fprintf(stdout, "%s\n", list[i]);
@@ -209,7 +209,7 @@ int main(int argc, char *argv[])
 	    G_fatal_error(_("Required parameter <%s> not set"), mapopt->key);
 	}
 
-	G__setenv("MAPSET", iset_name);
+	G_setenv_nogisrc("MAPSET", iset_name);
 	/* Make sure map is available */
 	mapset = G_find_vector2(map_name, iset_name);
 	if (mapset == NULL)

vector/v.rectify/env.c

@@ -36,9 +36,9 @@ int select_target_env(void)
 int show_env(void)
 {
     fprintf(stderr, "env(%d) switch to LOCATION %s, MAPSET %s\n", which_env,
-	    G__getenv("LOCATION_NAME") ==
-	    NULL ? "?" : G__getenv("LOCATION_NAME"),
-	    G__getenv("MAPSET") == NULL ? "?" : G__getenv("MAPSET"));
+	    G_getenv_nofatal("LOCATION_NAME") ==
+	    NULL ? "?" : G_getenv_nofatal("LOCATION_NAME"),
+	    G_getenv_nofatal("MAPSET") == NULL ? "?" : G_getenv_nofatal("MAPSET"));
     G_sleep(2);
 
     return 0;

vector/v.rectify/target.c

@@ -30,10 +30,10 @@ int get_target(char *group)
 	goto error;
     }
     select_target_env();
-    G__setenv("LOCATION_NAME", location);
+    G_setenv_nogisrc("LOCATION_NAME", location);
     stat = G__mapset_permissions(mapset);
     if (stat > 0) {
-	G__setenv("MAPSET", mapset);
+	G_setenv_nogisrc("MAPSET", mapset);
 	select_current_env();
 	return 1;
     }