r.surf.random: be more verbose

(merge https://trac.osgeo.org/grass/changeset/43648 from devbr6)


git-svn-id: https://svn.osgeo.org/grass/grass/trunk@43650 15284696-431f-4ddb-bdfa-cd5b030d7da7

raster/r.surf.random/main.c

@@ -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
@@ -37,10 +37,9 @@ int main(int argc, char *argv[])
     G_add_keyword(_("surface"));
     G_add_keyword(_("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();
@@ -57,7 +56,7 @@ int main(int argc, char *argv[])
 
     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);
@@ -65,5 +64,7 @@ int main(int argc, char *argv[])
     randsurf(out->answer, atoi(min->answer), atoi(max->answer),
 	     i_flag->answer);
 
+    G_done_msg(_("Raster map <%s> generated."), out->answer);
+    
     exit(EXIT_SUCCESS);
 }

raster/r.surf.random/randsurf.c

@@ -36,6 +36,7 @@ int randsurf(char *out,		/* Name of raster maps to be opened.    */
 
 	/****** 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) =
@@ -53,7 +54,8 @@ int randsurf(char *out,		/* Name of raster maps to be opened.    */
 	else
 	    Rast_put_d_row(fd_out, (DCELL *) row_out_D);
     }
-
+    G_percent(1, 1, 1);
+    
     Rast_close(fd_out);
 
     return 0;