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
|
#include "gis.h"
static int scan_double(char *,double *);
/*!
* \brief ASCII northing to double
*
* Converts the ASCII "northing" coordinate
* string in <b>buf</b> to its double representation (into <b>northing</b>).
*
* \param buf
* \param northing
* \param projection
* \return int
*/
int G_scan_northing ( char *buf, double *northing, int projection)
{
if (projection == PROJECTION_LL)
{
if(G_lat_scan (buf, northing))
return 1;
if (!scan_double (buf, northing))
return 0;
return (*northing <= 90.0 && *northing >= -90.0);
}
return scan_double (buf, northing);
}
/*!
* \brief ASCII easting to double
*
* Converts the ASCII "easting" coordinate
* string in <b>buf</b> to its double representation (into <b>easting</b>).
*
* \param buf
* \param easting
* \param projection
* \return int
*/
int G_scan_easting ( char *buf, double *easting, int projection)
{
if (projection == PROJECTION_LL)
{
if (G_lon_scan (buf, easting))
return 1;
if (!scan_double (buf, easting))
return 0;
while (*easting > 180.0)
*easting -= 360.0;
while (*easting < -180.0)
*easting += 360.0;
return 1;
}
return scan_double (buf, easting);
}
/*!
* \brief ASCII resolution to double
*
* Converts the ASCII "resolution" string
* in <b>buf</b> to its double representation (into resolution).
*
* \param buf
* \param resolution
* \param projection
* \return int
*/
int G_scan_resolution ( char *buf, double *res,int projection)
{
if (projection == PROJECTION_LL)
{
if(G_llres_scan (buf, res))
return 1;
}
return (scan_double (buf, res) && *res > 0.0);
}
static int scan_double(char *buf, double *value)
{
char junk[2];
/* use sscanf to convert buf to double
* make sure value doesn't have other characters after it
*/
*junk = 0;
*value = 0.0;
if(sscanf (buf, "%lf%1s", value, junk) == 1 && *junk == 0)
{
while(*buf) buf++;
buf--;
if(*buf>='A'&&*buf<='Z')
return 0;
if(*buf>='a'&&*buf<='z')
return 0;
return 1;
}
return 0;
}
|
