20 #include <grass/gis.h>
21 #include <grass/symbol.h>
22 #include <grass/glocale.h>
24 static char key[100], data[500];
37 G_debug(3,
" get_key_data(): %s", buf);
53 G_debug(3,
" key = %s data = %s", key, data);
62 p = (SYMBOL *) G_malloc(
sizeof(SYMBOL));
73 if (s->count == s->alloc) {
76 (SYMBPART **) G_realloc(s->part, s->alloc *
sizeof(SYMBPART *));
78 s->part[s->count] = p;
88 p = (SYMBPART *) G_malloc(
sizeof(SYMBPART));
93 p->color.color = S_COL_DEFAULT;
94 p->fcolor.color = S_COL_DEFAULT;
101 if (p->count == p->alloc) {
104 (SYMBCHAIN **) G_realloc(p->chain,
105 p->alloc *
sizeof(SYMBCHAIN *));
107 p->chain[p->count] = s;
118 p = (SYMBCHAIN *) G_malloc(
sizeof(SYMBCHAIN));
132 if (s->count == s->alloc) {
134 s->elem = (SYMBEL **) G_realloc(s->elem, s->alloc *
sizeof(SYMBEL *));
136 s->elem[s->count] = e;
146 p = (SYMBEL *) G_malloc(
sizeof(SYMBEL));
148 p->coor.line.count = 0;
149 p->coor.line.alloc = 0;
150 p->coor.line.x =
NULL;
151 p->coor.line.y =
NULL;
158 if (el->coor.line.count == el->coor.line.alloc) {
159 el->coor.line.alloc += 10;
161 (
double *)G_realloc(el->coor.line.x,
162 el->coor.line.alloc *
sizeof(
double));
164 (
double *)G_realloc(el->coor.line.y,
165 el->coor.line.alloc *
sizeof(
double));
167 el->coor.line.x[el->coor.line.count] =
x;
168 el->coor.line.y[el->coor.line.count] = y;
169 el->coor.line.count++;
173 SYMBEL *
new_arc(
double x,
double y,
double r,
double a1,
double a2,
int c)
177 p = (SYMBEL *) G_malloc(
sizeof(SYMBEL));
179 p->coor.arc.clock = c;
196 while (
G_getl2(buf, 500, fp) != 0) {
200 if ((buf[0] ==
'#') || (buf[0] ==
'\0'))
205 if (strcmp(key,
"END") == 0) {
210 if (sscanf(buf,
"%lf %lf", &
x, &y) != 2) {
211 G_warning(_(
"Cannot read symbol line coordinates: %s"), buf);
220 SYMBOL *
err(FILE * fp, SYMBOL * s,
char *msg)
239 char group[500],
name[500], buf[2001];
242 double x, y, x2, y2, rad, ang1, ang2;
253 G_debug(3,
"S_read(): sname = %s", sname);
257 strcpy(group, sname);
258 c = strchr(group,
'/');
260 G_warning(_(
"Incorrect symbol name: '%s' (should be: group/name or group/name@mapset)"),
269 G_debug(3,
" group: '%s' name: '%s'", group,
name);
272 sprintf(buf,
"symbol/%s", group);
279 sprintf(buf,
"%s/etc/symbol/%s",
G_gisbase(), sname);
280 fp = fopen(buf,
"r");
284 G_warning(_(
"Cannot find/open symbol: '%s'"), sname);
294 while (
G_getl2(buf, 2000, fp) != 0) {
299 if ((buf[0] ==
'#') || (buf[0] ==
'\0'))
304 if (strcmp(key,
"VERSION") == 0) {
305 if (strcmp(data,
"1.0") != 0) {
306 sprintf(buf,
"Wrong symbol version: '%s'", data);
307 return (
err(fp, symb, buf));
310 else if (strcmp(key,
"BOX") == 0) {
311 if (sscanf(data,
"%lf %lf %lf %lf", &
x, &y, &x2, &y2) != 4) {
312 sprintf(buf,
"Incorrect box definition: '%s'", data);
313 return (
err(fp, symb, buf));
315 symb->xscale = 1 / (x2 -
x);
316 symb->yscale = 1 / (y2 - y);
317 if (x2 -
x > y2 - y) {
318 symb->scale = symb->xscale;
321 symb->scale = symb->yscale;
324 else if (strcmp(key,
"STRING") == 0) {
333 else if (strcmp(key,
"POLYGON") == 0) {
340 else if (strcmp(key,
"RING") == 0) {
347 else if (strcmp(key,
"LINE") == 0) {
354 else if (strcmp(key,
"ARC") == 0) {
357 sscanf(data,
"%lf %lf %lf %lf %lf %c", &
x, &y, &rad, &ang1,
360 sprintf(buf,
"Incorrect arc definition: '%s'", buf);
361 return (
err(fp, symb, buf));
363 if (ret == 6 && (clock ==
'c' || clock ==
'C'))
367 elem =
new_arc(
x, y, rad, ang1, ang2, i);
371 else if (strcmp(key,
"END") == 0) {
387 else if (strcmp(key,
"COLOR") == 0) {
389 part->color.color = S_COL_NONE;
391 else if (sscanf(data,
"%d %d %d", &
r, &
g, &
b) == 3) {
392 if (r < 0 || r > 255 || g < 0 || g > 255 || b < 0 || b > 255)
393 G_warning(_(
"Incorrect symbol color: '%s', using default."),
399 part->color.color = S_COL_DEFINED;
406 G_debug(4,
" color [%d %d %d] = [%.3f %.3f %.3f]",
r,
g,
411 G_warning(_(
"Incorrect symbol color: '%s', using default."),
415 else if (strcmp(key,
"FCOLOR") == 0) {
417 part->fcolor.color = S_COL_NONE;
419 else if (sscanf(data,
"%d %d %d", &
r, &
g, &
b) == 3) {
420 if (r < 0 || r > 255 || g < 0 || g > 255 || b < 0 || b > 255)
421 G_warning(_(
"Incorrect symbol color: '%s', using default."),
427 part->fcolor.color = S_COL_DEFINED;
431 part->fcolor.fr = fr;
432 part->fcolor.fg = fg;
433 part->fcolor.fb = fb;
434 G_debug(4,
" color [%d %d %d] = [%.3f %.3f %.3f]",
r,
g,
439 G_warning(_(
"Incorrect symbol color: '%s', using default."),
444 sprintf(buf,
"Unknown keyword in symbol: '%s'", buf);
445 return (
err(fp, symb, buf));
452 G_debug(3,
"Number of parts: %d", symb->count);
453 for (i = 0; i < symb->count; i++) {
454 part = symb->part[i];
455 G_debug(4,
" Part %d: type: %d number of chains: %d", i, part->type,
457 G_debug(4,
" color: %d: fcolor: %d", part->color.color,
459 for (j = 0; j < part->count; j++) {
460 chain = part->chain[j];
461 G_debug(4,
" Chain %d: number of elements: %d", j,
463 for (k = 0; k < chain->count; k++) {
464 elem = chain->elem[k];
465 G_debug(4,
" Element %d: type: %d", k, elem->type);
466 if (elem->type == S_LINE) {
467 G_debug(4,
" Number of points %d",
468 elem->coor.line.count);
469 for (
l = 0;
l < elem->coor.line.count;
l++) {
471 elem->coor.line.x[
l], elem->coor.line.y[
l]);
475 G_debug(4,
" arc r = %f", elem->coor.arc.r);
void G_free(void *buf)
Free allocated memory.
int G_debug(int level, const char *msg,...)
Print debugging message.
const char * G_find_file(const char *element, char *name, const char *mapset)
Searches for a file from the mapset search list or in a specified mapset.
int G_getl2(char *buf, int n, FILE *fd)
Gets a line of text from a file of any pedigree.
void G_warning(const char *msg,...)
Print a warning message to stderr.
FILE * G_fopen_old(const char *element, const char *name, const char *mapset)
Open a database file for reading.
const char * G_gisbase(void)
Get full path name of the top level module directory.
int G_strcasecmp(const char *x, const char *y)
String compare ignoring case (upper or lower)
char * G_chop(char *line)
Chop leading and trailing white spaces.
void get_key_data(char *buf)
SYMBPART * new_part(int type)
SYMBOL * S_read(const char *sname)
SYMBEL * new_arc(double x, double y, double r, double a1, double a2, int c)
SYMBOL * err(FILE *fp, SYMBOL *s, char *msg)
SYMBCHAIN * new_chain(void)
void add_part(SYMBOL *s, SYMBPART *p)
void add_chain(SYMBPART *p, SYMBCHAIN *s)
SYMBOL * new_symbol(void)
void read_coor(FILE *fp, SYMBEL *e)
void add_point(SYMBEL *el, double x, double y)
void add_element(SYMBCHAIN *s, SYMBEL *e)