[GRASS-SVN] r43648 - grass/branches/develbranch_6/raster/r.surf.random

[svn_grass at osgeo.org]

Author: martinl
Date: 2010-09-23 13:25:39 +0000 (Thu, 23 Sep 2010)
New Revision: 43648

Modified:
   grass/branches/develbranch_6/raster/r.surf.random/main.c
   grass/branches/develbranch_6/raster/r.surf.random/randsurf.c
Log:
r.surf.random: be more verbose


Modified: grass/branches/develbranch_6/raster/r.surf.random/main.c
===================================================================
--- grass/branches/develbranch_6/raster/r.surf.random/main.c	2010-09-23 11:05:45 UTC (rev 43647)
+++ grass/branches/develbranch_6/raster/r.surf.random/main.c	2010-09-23 13:25:39 UTC (rev 43648)
@@ -6,7 +6,7 @@
  *               Midlands Regional Research Laboratory (ASSIST)
  * AUTHOR(S):    Markus Neteler <neteler itc.it> (original contributor)
  * PURPOSE:      produces a raster map layer of uniform random deviates
- * COPYRIGHT:    (C) 1999-2006 by the GRASS Development Team
+ * COPYRIGHT:    (C) 1999-2006, 2010 by the GRASS Development Team
  *
  *               This program is free software under the GNU General Public
  *               License (>=v2). Read the file COPYING that comes with GRASS
@@ -41,12 +41,11 @@
 				   recalled using G_program_name(). */
 
     module = G_define_module();
-    module->keywords = _("raster");
+    module->keywords = _("raster, random");
     module->description =
-	_("Produces a raster map layer of uniform random "
+	_("Produces a raster map of uniform random "
 	  "deviates whose range can be expressed by the user.");
 
-
     out = G_define_standard_option(G_OPT_R_OUTPUT);
 
     min = G_define_option();
@@ -63,7 +62,7 @@
 
     i_flag = G_define_flag();
     i_flag->key = 'i';
-    i_flag->description = _("Create an integer map");
+    i_flag->description = _("Create an integer raster map");
 
     if (G_parser(argc, argv))
 	exit(EXIT_FAILURE);	/* Returns a 0 if sucessful */
@@ -77,5 +76,7 @@
 	     i_flag->answer);
 
 
+    G_done_msg(_("Raster map <%s> generated."), out->answer);
+    
     exit(EXIT_SUCCESS);
 }

Modified: grass/branches/develbranch_6/raster/r.surf.random/randsurf.c
===================================================================
--- grass/branches/develbranch_6/raster/r.surf.random/randsurf.c	2010-09-23 11:05:45 UTC (rev 43647)
+++ grass/branches/develbranch_6/raster/r.surf.random/randsurf.c	2010-09-23 13:25:39 UTC (rev 43648)
@@ -42,6 +42,7 @@
 
 	/****** PASS THROUGH EACH CELL ASSIGNING RANDOM VALUE ******/
     for (row_count = 0; row_count < nrows; row_count++) {
+	G_percent(row_count, nrows, 2);
 	for (col_count = 0; col_count < ncols; col_count++) {
 	    if (int_map)
 		*(row_out_C + col_count) =
@@ -59,7 +60,8 @@
 	else
 	    G_put_d_raster_row(fd_out, (DCELL *) row_out_D);
     }
-
+    G_percent(1, 1, 1);
+    
     G_close_cell(fd_out);
 
     return 0;