[GRASS-SVN] r68407 - grass/trunk/raster/r.water.outlet

[svn_grass at osgeo.org]

Author: hcho
Date: 2016-05-08 04:51:17 -0700 (Sun, 08 May 2016)
New Revision: 68407

Modified:
   grass/trunk/raster/r.water.outlet/main.c
Log:
r.water.outlet: Add title and history

Modified: grass/trunk/raster/r.water.outlet/main.c
===================================================================
--- grass/trunk/raster/r.water.outlet/main.c	2016-05-08 03:25:11 UTC (rev 68406)
+++ grass/trunk/raster/r.water.outlet/main.c	2016-05-08 11:51:17 UTC (rev 68407)
@@ -48,6 +48,7 @@
     CELL *cell_buf;
     char drain_name[GNAME_MAX], basin_name[GNAME_MAX];
     struct Cell_head window;
+    struct History hist;
 
     G_gisinit(argv[0]);
 
@@ -129,5 +130,10 @@
     G_free(cell_buf);
     Rast_close(basin_fd);
 
+    Rast_put_cell_title(basin_name, "Watershed basin");
+    Rast_short_history(basin_name, "raster", &hist);
+    Rast_command_history(&hist);
+    Rast_write_history(basin_name, &hist);
+
     exit(EXIT_SUCCESS);
 }