24 #include "local_proto.h" 39 struct datum_list *
list, *listhead;
43 while (list !=
NULL) {
48 dstruct->
dx = list->dx;
49 dstruct->
dy = list->dy;
50 dstruct->
dz = list->dz;
101 while (list !=
NULL) {
174 char **datumname,
char **params)
248 if (dstruct.
dx < 99999 && dstruct.
dy < 99999 && dstruct.
dz < 99999) {
253 current = outputlist =
256 current = current->
next =
259 dstruct.
dy, dstruct.
dz);
262 "Default 3-Parameter Transformation (May not be optimum for " 263 "older datums; use this only if no more appropriate options " 275 fd = fopen(file,
"r");
277 G_warning(
_(
"Unable to open datum table file <%s>"), file);
281 for (line = 1;
G_getl2(buf,
sizeof(buf), fd); line++) {
282 char name[100], params[1024], where_used[1024], comment[1024];
285 if (*buf ==
'\0' || *buf ==
'#')
288 if (sscanf(buf,
"%99s \"%1023[^\"]\" \"%1023[^\"]\" \"%1023[^\"]\"",
289 name, params, where_used, comment) != 4) {
290 G_warning(
_(
"Error in datum table file <%s>, line %d"), file,
299 current = outputlist =
302 current = current->
next =
350 struct datum_list *current =
NULL, *outputlist =
NULL;
355 fd = fopen(file,
"r");
357 G_warning(
_(
"Unable to open datum table file <%s>"), file);
361 for (line = 1;
G_getl2(buf,
sizeof(buf), fd); line++) {
362 char name[100], descr[1024], ellps[100];
366 if (*buf ==
'\0' || *buf ==
'#')
369 if (sscanf(buf,
"%s \"%1023[^\"]\" %s dx=%lf dy=%lf dz=%lf",
370 name, descr, ellps, &dx, &dy, &dz) != 6) {
371 G_warning(
_(
"Error in datum table file <%s>, line %d"), file,
377 current = outputlist =
G_malloc(
sizeof(
struct datum_list));
379 current = current->next =
G_malloc(
sizeof(
struct datum_list));
381 current->longname =
G_store(descr);
382 current->ellps =
G_store(ellps);
386 current->next =
NULL;
418 struct datum_list *old;
420 while (dstruct !=
NULL) {
422 G_free(dstruct->longname);
int G_getl2(char *, int, FILE *)
Gets a line of text from a file of any pedigree.
#define DATUMTRANSFORMTABLE
void GPJ_free_datum(struct gpj_datum *dstruct)
Free the memory used for the strings in a gpj_datum struct.
int GPJ__get_datum_params(const struct Key_Value *projinfo, char **datumname, char **params)
Extract the datum transformation-related parameters from a set of general PROJ_INFO parameters...
struct Key_Value * G_get_projinfo(void)
Gets projection information for location.
void GPJ_free_datum_transform(struct gpj_datum_transform_list *item)
Free the memory used by a gpj_datum_transform_list struct.
void G_free(void *)
Free allocated memory.
void G_strip(char *)
Removes all leading and trailing white space from string.
struct gpj_datum_transform_list * GPJ_get_datum_transform_by_name(const char *inputname)
Internal function to find all possible sets of transformation parameters for a particular datum...
int GPJ_get_datum_by_name(const char *name, struct gpj_datum *dstruct)
Look up a string in datum.table file to see if it is a valid datum name and if so place its informati...
int int G_strcasecmp(const char *, const char *)
String compare ignoring case (upper or lower)
void free_datum_list(struct datum_list *dstruct)
Free the memory used by a datum_list linked list structure.
int GPJ_get_datum_params(char **name, char **params)
Extract the datum transformation-related parameters for the current location.
struct datum_list * read_datum_table(void)
Read the current GRASS datum.table from disk and store in memory.
const char * G_gisbase(void)
Get full path name of the top level module directory.
void G_warning(const char *,...) __attribute__((format(printf
int GPJ_get_default_datum_params_by_name(const char *name, char **params)
"Last resort" function to retrieve a "default" set of datum parameters for a datum (N...
char * G_store(const char *)
Copy string to allocated memory.
int G_asprintf(char **, const char *,...) __attribute__((format(printf
int G_debug(int, const char *,...) __attribute__((format(printf
void G_free_key_value(struct Key_Value *)
Free allocated Key_Value structure.
const char * G_find_key_value(const char *, const struct Key_Value *)
Find given key (case sensitive)