1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
|
#include <stdlib.h>
#include <string.h>
#include <grass/vector.h>
#include <grass/glocale.h>
#include "proto.h"
void define_options(struct opt *opt)
{
char *desc;
opt->input = G_define_standard_option(G_OPT_V_INPUT);
opt->input->required = NO;
opt->input->label = _("Name of input vector line map (arcs)");
opt->input->description = _("Required for operation 'nodes', 'connect', "
"'report' and 'nreport'");
opt->input->guisection = _("Arcs");
opt->points = G_define_standard_option(G_OPT_V_INPUT);
opt->points->key = "points";
opt->points->label = _("Name of input vector point map (nodes)");
opt->points->description = _("Required for operation 'connect' and 'arcs'");
opt->points->required = NO;
opt->points->guisection = _("Nodes");
opt->output = G_define_standard_option(G_OPT_V_OUTPUT);
opt->output->required = NO;
opt->action = G_define_option();
opt->action->key = "operation";
opt->action->type = TYPE_STRING;
opt->action->required = YES;
opt->action->multiple = NO;
opt->action->options = "nodes,connect,arcs,report,nreport,turntable";
opt->action->description = _("Operation to be performed");
desc = NULL;
G_asprintf(&desc,
"nodes;%s;connect;%s;arcs;%s;report;%s;nreport;%s;turntable;%s;",
_("new point is placed on each node (line end) "
"if doesn't exist"),
_("connect still unconnected points to vector network "
"by inserting new line(s)"),
_("new line is created from start point "
"to end point"),
_("print to standard output "
"{line_category start_point_category end_point_category}"),
_("print to standard output "
"{point_category line_category[,line_category...]}"),
_("create turntable on vector network"));
opt->action->descriptions = desc;
opt->afield_opt = G_define_standard_option(G_OPT_V_FIELD);
opt->afield_opt->key = "arc_layer";
opt->afield_opt->gisprompt = "new,layer,layer";
opt->afield_opt->label = _("Arc layer");
opt->afield_opt->guisection = _("Arcs");
opt->type = G_define_standard_option(G_OPT_V_TYPE);
opt->type->key = "arc_type";
opt->type->options = "line,boundary";
opt->type->answer = "line,boundary";
opt->type->label = _("Arc type");
opt->type->guisection = _("Turntable");
opt->nfield_opt = G_define_standard_option(G_OPT_V_FIELD);
opt->nfield_opt->key = "node_layer";
opt->nfield_opt->answer = "2";
opt->nfield_opt->gisprompt = "new,layer,layer";
opt->nfield_opt->label = _("Node layer");
opt->nfield_opt->guisection = _("Nodes");
opt->thresh_opt = G_define_option();
opt->thresh_opt->key = "threshold";
opt->thresh_opt->type = TYPE_DOUBLE;
opt->thresh_opt->required = NO;
opt->thresh_opt->multiple = NO;
opt->thresh_opt->label = "Threshold";
opt->thresh_opt->description = _(
"Required for operation 'connect'. Connect points in given threshold.");
opt->file = G_define_standard_option(G_OPT_F_INPUT);
opt->file->key = "file";
opt->file->label = _("Name of input file");
opt->file->description =
_("Required for operation 'arcs' ('-' for standard input)");
opt->file->required = NO;
opt->cats_flag = G_define_flag();
opt->cats_flag->key = 'c';
opt->cats_flag->label = _("Assign unique categories to new points");
opt->cats_flag->description = _("For operation 'nodes'");
opt->cats_flag->guisection = _("Nodes");
opt->snap_flag = G_define_flag();
opt->snap_flag->key = 's';
opt->snap_flag->label = _("Snap points to network");
opt->snap_flag->description =
_("For operation 'connect'. By default, a new line from the point to "
"the network is created.");
opt->snap_flag->guisection = _("Nodes");
opt->tfield = G_define_standard_option(G_OPT_V_FIELD);
opt->tfield->label = _("Turntable layer");
opt->tfield->description = _("Layer where turntable will be attached. "
"Format: layer number[/layer name]."
"Required for operation 'turntable'.");
opt->tfield->answer = "3";
opt->tfield->key = "turn_layer";
opt->tfield->required = NO;
opt->tfield->guisection = _("Turntable");
opt->tucfield = G_define_standard_option(G_OPT_V_FIELD);
opt->tucfield->label = _("Layer with unique categories used in turntable");
opt->tucfield->description = _("Layer with unique categories for every "
"line in arc_layer and point on every node. "
" The categories are used in turntable. "
"Format: layer number[/layer name]. "
"Required for operation 'turntable'.");
opt->tucfield->answer = "4";
opt->tucfield->key = "turn_cat_layer";
opt->tucfield->required = NO;
opt->tucfield->guisection = _("Turntable");
}
void parse_arguments(const struct opt *opt, int *afield, int *nfield,
double *thresh, int *act)
{
*afield = atoi(opt->afield_opt->answer);
*nfield = atoi(opt->nfield_opt->answer);
*thresh = 0.0;
if (strcmp(opt->action->answer, "nodes") == 0)
*act = TOOL_NODES;
else if (strcmp(opt->action->answer, "connect") == 0)
*act = TOOL_CONNECT;
else if (strcmp(opt->action->answer, "report") == 0)
*act = TOOL_REPORT;
else if (strcmp(opt->action->answer, "nreport") == 0)
*act = TOOL_NREPORT;
else if (strcmp(opt->action->answer, "arcs") == 0)
*act = TOOL_ARCS;
else if (strcmp(opt->action->answer, "turntable") == 0)
*act = TOOL_TURNTABLE;
else
G_fatal_error(_("Unknown operation"));
if (*act == TOOL_NODES || *act == TOOL_CONNECT || *act == TOOL_REPORT ||
*act == TOOL_NREPORT || *act == TOOL_TURNTABLE) {
if (opt->input->answer == NULL)
G_fatal_error(_("Required parameter <%s> not set"),
opt->input->key);
}
if (*act == TOOL_NODES || *act == TOOL_CONNECT || *act == TOOL_TURNTABLE) {
if (opt->output->answer == NULL)
G_fatal_error(_("Required parameter <%s> not set"),
opt->output->key);
}
if (*act == TOOL_CONNECT) {
if (opt->points->answer == NULL)
G_fatal_error(_("Required parameter <%s> not set"),
opt->points->key);
if (opt->thresh_opt->answer == NULL)
G_fatal_error(_("Required parameter <%s> not set"),
opt->thresh_opt->key);
*thresh = atof(opt->thresh_opt->answer);
if (*thresh < 0.0)
G_fatal_error(_("Threshold value must be >= 0"));
}
if (*act == TOOL_ARCS && !opt->file->answer) {
G_fatal_error(_("Required parameter <%s> not set"), opt->file->key);
}
}
|
