[GRASS-SVN] r37648 - in grass/branches/releasebranch_6_4: general/g.gui lib/gis

[svn_grass at osgeo.org]

Author: hamish
Date: 2009-05-31 08:11:21 -0400 (Sun, 31 May 2009)
New Revision: 37648

Modified:
   grass/branches/releasebranch_6_4/general/g.gui/main.c
   grass/branches/releasebranch_6_4/lib/gis/spawn.c
Log:
add debug msgs (merge from devbr6)

Modified: grass/branches/releasebranch_6_4/general/g.gui/main.c
===================================================================
--- grass/branches/releasebranch_6_4/general/g.gui/main.c	2009-05-31 12:08:54 UTC (rev 37647)
+++ grass/branches/releasebranch_6_4/general/g.gui/main.c	2009-05-31 12:11:21 UTC (rev 37648)
@@ -86,8 +86,8 @@
 
     if (((gui_type_env && update->answer) &&
 	 strcmp(gui_type_env, type->answer) != 0) || !gui_type_env) {
+	G_setenv("GRASS_GUI", type->answer);
 	G_message(_("<%s> is now the default GUI"), type->answer);
-	G_setenv("GRASS_GUI", type->answer);
     }
     else {
 	if(update->answer)
@@ -100,6 +100,7 @@
     if(nolaunch->answer)
 	exit(EXIT_SUCCESS);
 
+    G_debug(1, "Attempting to start '%s' GUI ...", type->answer);
 
     if (strcmp(type->answer, "oldtcltk") == 0) {
 #ifdef __MINGW32__

Modified: grass/branches/releasebranch_6_4/lib/gis/spawn.c
===================================================================
--- grass/branches/releasebranch_6_4/lib/gis/spawn.c	2009-05-31 12:08:54 UTC (rev 37647)
+++ grass/branches/releasebranch_6_4/lib/gis/spawn.c	2009-05-31 12:11:21 UTC (rev 37648)
@@ -81,6 +81,8 @@
 	return -1;
     }
 
+    G_debug(3, "spawning '%s' ...", command);
+
     return _spawnvp(_P_WAIT, (char *)command, args);
 }
 
@@ -127,6 +129,8 @@
     if (sigprocmask(SIG_BLOCK, &block, &oldmask) < 0)
 	goto error_3;
 
+    G_debug(3, "forking '%s' ...", command);
+
     pid = fork();
 
     if (pid < 0) {