[GRASS-SVN] r58082 - grass/trunk/raster/r.topmodel
svn_grass at osgeo.org
svn_grass at osgeo.org
Sun Oct 20 17:15:03 PDT 2013
Author: hcho
Date: 2013-10-20 17:15:03 -0700 (Sun, 20 Oct 2013)
New Revision: 58082
Removed:
grass/trunk/raster/r.topmodel/check_ready.c
Log:
Removed check_ready.c
Deleted: grass/trunk/raster/r.topmodel/check_ready.c
===================================================================
--- grass/trunk/raster/r.topmodel/check_ready.c 2013-10-21 00:14:26 UTC (rev 58081)
+++ grass/trunk/raster/r.topmodel/check_ready.c 2013-10-21 00:15:03 UTC (rev 58082)
@@ -1,413 +0,0 @@
-#include "global.h"
-
-
-int check_ready(void)
-{
- int retval;
-
-
- flg.overwrlist = 0;
-
- retval = 0;
-
- if (check_required() || check_names() || check_io())
- retval = 1;
-
- if (!retval) {
- if (flg.overwrlist & FILL)
- G_remove("cell", map.fill);
-
- if (flg.overwrlist & DIR)
- G_remove("cell", map.dir);
-
- if (flg.overwrlist & BELEV)
- G_remove("cell", map.belev);
-
- if (flg.overwrlist & TOPIDX)
- G_remove("cell", map.topidx);
-
- if (flg.overwrlist & IDXSTATS)
- unlink(file.idxstats);
-
- if (flg.overwrlist & OUTPUT)
- unlink(file.output);
- }
-
-
- return retval;
-}
-
-
-int check_required(void)
-{
- int retval;
-
-
- retval = 0;
-
- if (!flg.input) {
- if (!map.elev) {
- G_warning("elevation required");
- retval = 1;
- }
-
- if (!map.basin) {
- G_warning("basin required");
- retval = 1;
- }
-
- if (!map.belev) {
- G_warning("belevation required");
- retval = 1;
- }
-
- if (!map.topidx) {
- G_warning("topidx required");
- retval = 1;
- }
-
- if (map.fill && !map.dir) {
- G_warning("direction required " "if depressionless is given");
- retval = 1;
- }
-
- if (map.dir && !map.fill) {
- G_warning("depressionless required " "if direction is given");
- retval = 1;
- }
- }
- else {
- if (map.belev && !map.topidx) {
- G_warning("topidx required " "if belevation is given");
- retval = 1;
- }
- }
-
-
- return retval;
-}
-
-
-int check_names(void)
-{
- int retval;
-
-
- retval = 0;
-
- if (!flg.input) {
- if (map.elev) {
- if (map.basin && !strcmp(map.elev, map.basin)) {
- G_warning("elevation == basin");
- retval = 1;
- }
-
- if (map.fill && !strcmp(map.elev, map.fill)) {
- G_warning("elevation == " "depressionless");
- retval = 1;
- }
-
- if (map.dir && !strcmp(map.elev, map.dir)) {
- G_warning("elevation == direction");
- retval = 1;
- }
-
- if (map.belev && !strcmp(map.elev, map.belev)) {
- G_warning("elevation == belevation");
- retval = 1;
- }
-
- if (map.topidx && !strcmp(map.elev, map.topidx)) {
- G_warning("elevation == topidx");
- retval = 1;
- }
- }
-
- if (map.basin) {
- if (map.fill && !strcmp(map.basin, map.fill)) {
- G_warning("basin == depressionless");
- retval = 1;
- }
-
- if (map.dir && !strcmp(map.basin, map.dir)) {
- G_warning("basin == direction");
- retval = 1;
- }
-
- if (map.belev && !strcmp(map.basin, map.belev)) {
- G_warning("basin == belevation");
- retval = 1;
- }
-
- if (map.topidx && !strcmp(map.basin, map.topidx)) {
- G_warning("basin == topidx");
- retval = 1;
- }
- }
-
- if (map.fill) {
- if (map.dir && !strcmp(map.fill, map.dir)) {
- G_warning("depressionless == " "direction");
- retval = 1;
- }
-
- if (map.belev && !strcmp(map.fill, map.belev)) {
- G_warning("depressionless == " "belevation");
- retval = 1;
- }
-
- if (map.topidx && !strcmp(map.fill, map.topidx)) {
- G_warning("depressionless == topidx");
- retval = 1;
- }
- }
-
- if (map.dir) {
- if (map.belev && !strcmp(map.dir, map.belev)) {
- G_warning("direction == belevation");
- retval = 1;
- }
-
- if (map.topidx && !strcmp(map.dir, map.topidx)) {
- G_warning("direction == topidx");
- retval = 1;
- }
- }
- }
-
- if (map.belev) {
- if (map.topidx && !strcmp(map.belev, map.topidx)) {
- G_warning("belevation == topidx");
- retval = 1;
- }
- }
-
- if (!strcmp(file.idxstats, file.params)) {
- G_warning("idxstats == parameters");
- retval = 1;
- }
-
- if (!strcmp(file.idxstats, file.input)) {
- G_warning("idxstats == input");
- retval = 1;
- }
-
- if (!strcmp(file.idxstats, file.output)) {
- G_warning("idxstats == output");
- retval = 1;
- }
-
- if (file.Qobs && !strcmp(file.idxstats, file.Qobs)) {
- G_warning("idxstats == Qobs");
- retval = 1;
- }
-
- if (!strcmp(file.params, file.input)) {
- G_warning("parameters == input");
- retval = 1;
- }
-
- if (!strcmp(file.params, file.output)) {
- G_warning("parameters == output");
- retval = 1;
- }
-
- if (file.Qobs && !strcmp(file.params, file.Qobs)) {
- G_warning("parameters == Qobs");
- retval = 1;
- }
-
- if (!strcmp(file.input, file.output)) {
- G_warning("input == output");
- retval = 1;
- }
-
- if (file.Qobs && !strcmp(file.input, file.Qobs)) {
- G_warning("input == Qobs");
- retval = 1;
- }
-
- if (file.Qobs && !strcmp(file.output, file.Qobs)) {
- G_warning("output == Qobs");
- retval = 1;
- }
-
-
- return retval;
-}
-
-
-int check_io(void)
-{
- int retval;
- FILE *fp;
-
-
- retval = 0;
-
- if (!flg.input) {
- if (map.elev && !G_find_raster(map.elev, mapset)) {
- G_warning("%s - not exists", map.elev);
- retval = 1;
- }
-
- if (map.basin && !G_find_raster(map.basin, mapset)) {
- G_warning("%s - not exists", map.basin);
- retval = 1;
- }
-
- if (map.fill && G_find_raster(map.fill, mapset)) {
- if (flg.overwr) {
- flg.overwrlist |= FILL;
- }
- else {
- G_warning("%s - already exists", map.fill);
- retval = 1;
- }
- }
-
- if (map.dir && G_find_raster(map.dir, mapset)) {
- if (flg.overwr) {
- flg.overwrlist |= DIR;
- }
- else {
- G_warning("%s - already exists", map.dir);
- retval = 1;
- }
- }
-
- if (map.belev && G_find_raster(map.belev, mapset)) {
- if (flg.overwr) {
- flg.overwrlist |= BELEV;
- }
- else {
- G_warning("%s - already exists", map.belev);
- retval = 1;
- }
- }
-
- if (map.topidx && G_find_raster(map.topidx, mapset)) {
- if (flg.overwr) {
- flg.overwrlist |= TOPIDX;
- }
- else {
- G_warning("%s - already exists", map.topidx);
- retval = 1;
- }
- }
-
- if (file.idxstats && (fp = fopen(file.idxstats, "r"))) {
- fclose(fp);
- if (flg.overwr) {
- flg.overwrlist |= IDXSTATS;
- }
- else {
- G_warning("%s - file already exists", file.idxstats);
- retval = 1;
- }
- }
- }
- else {
- if (map.belev) {
- if (!G_find_raster(map.belev, mapset)) {
- G_warning("%s - not exists", map.belev);
- retval = 1;
- }
- else {
- if (map.topidx && G_find_raster(map.topidx, mapset)) {
- if (flg.overwr) {
- flg.overwrlist |= TOPIDX;
- }
- else {
- G_warning("%s - " "already exists", map.topidx);
- retval = 1;
- }
- }
-
- if (file.idxstats && (fp = fopen(file.idxstats, "r"))) {
- fclose(fp);
- if (flg.overwr) {
- flg.overwrlist |= IDXSTATS;
- }
- else {
- G_warning("%s - file "
- "already exists", file.idxstats);
- retval = 1;
- }
- }
- }
- }
- else if (map.topidx) {
- if (!G_find_raster(map.topidx, mapset)) {
- G_warning("%s - not exists", map.topidx);
- retval = 1;
- }
- else {
- if (file.idxstats && (fp = fopen(file.idxstats, "r"))) {
- fclose(fp);
- if (flg.overwr) {
- flg.overwrlist |= IDXSTATS;
- }
- else {
- G_warning("%s - file "
- "already exists", file.idxstats);
- retval = 1;
- }
- }
- }
- }
- else if (file.idxstats) {
- if (!(fp = fopen(file.idxstats, "r"))) {
- G_warning("%s - file not exists", file.idxstats);
- retval = 1;
- }
- else {
- fclose(fp);
- }
- }
- }
-
- if (file.params) {
- if (!(fp = fopen(file.params, "r"))) {
- G_warning("%s - file not exists", file.params);
- retval = 1;
- }
- else {
- fclose(fp);
- }
- }
-
- if (file.input) {
- if (!(fp = fopen(file.input, "r"))) {
- G_warning("%s - file not exists", file.input);
- retval = 1;
- }
- else {
- fclose(fp);
- }
- }
-
- if (file.output && (fp = fopen(file.output, "r"))) {
- fclose(fp);
- if (flg.overwr) {
- flg.overwrlist |= OUTPUT;
- }
- else {
- G_warning("%s - file already exists", file.output);
- retval = 1;
- }
- }
-
- if (file.Qobs) {
- if (!(fp = fopen(file.Qobs, "r"))) {
- G_warning("%s - file not exists", file.Qobs);
- retval = 1;
- }
- else {
- fclose(fp);
- }
- }
-
-
- return retval;
-}
More information about the grass-commit
mailing list