~ubuntu-branches/ubuntu/trusty/postgis/trusty-security

« back to all changes in this revision

Viewing changes to lwgeom/liblwgeom.c

  • Committer: Bazaar Package Importer
  • Author(s): Francesco Paolo Lovergine
  • Date: 2009-12-11 13:10:34 UTC
  • mfrom: (1.1.9 upstream) (5.2.1 experimental)
  • Revision ID: james.westby@ubuntu.com-20091211131034-wmsz69wxvt95pe5r
Tags: 1.4.0-2
* Upload to unstable.
* Better parameterized debian/rules against postgis $(VERSION).
* Added dblatex and libcunit1-dev among build-deps.
* Added postgis_comments.sql to contrib/ SQL templates.
* Dropping 8.3 support, no more supported for squeeze.
  (closes: #559587)
* Do not stop on error in postrm if the target dir does not exist.
  (closes: #560409)

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#include <stdio.h>
2
 
#include <stdlib.h>
3
 
#include <stdarg.h>
4
 
 
5
 
#define CONTEXT_PG 0
6
 
#define CONTEXT_SA 1
7
 
 
8
 
/* #define PGIS_DEBUG_ALLOCS 1 */
9
 
 
10
 
 
11
 
#ifdef STANDALONE
12
 
#define DEFAULT_CONTEXT CONTEXT_SA
13
 
#else
14
 
#define DEFAULT_CONTEXT CONTEXT_PG
15
 
#endif
16
 
 
17
 
/* Global variables */
18
 
#if DEFAULT_CONTEXT == CONTEXT_SA
19
 
#include "liblwgeom.h"
20
 
lwallocator lwalloc_var = default_allocator;
21
 
lwreallocator lwrealloc_var = default_reallocator;
22
 
lwfreeor lwfree_var = default_freeor;
23
 
lwreporter lwerror = default_errorreporter;
24
 
lwreporter lwnotice = default_noticereporter;
25
 
#else
26
 
#include "lwgeom_pg.h"
27
 
#include "liblwgeom.h"
28
 
 
29
 
lwallocator lwalloc_var = pg_alloc;
30
 
lwreallocator lwrealloc_var = pg_realloc;
31
 
lwfreeor lwfree_var = pg_free;
32
 
lwreporter lwerror = pg_error;
33
 
lwreporter lwnotice = pg_notice;
34
 
#endif
35
 
 
36
 
static char *lwgeomTypeName[] = {
37
 
        "Unknown",
38
 
        "Point",
39
 
        "Line",
40
 
        "Polygon",
41
 
        "MultiPoint",
42
 
        "MultiLine",
43
 
        "MultiPolygon",
44
 
        "GeometryCollection",
45
 
        "Curve",
46
 
        "CompoundString",
47
 
        "Invalid Type",  /* POINTTYPEI */
48
 
        "Invalid Type",  /* LINETYPEI */
49
 
        "Invalid Type",  /* POLYTYPEI */
50
 
        "CurvePolygon",
51
 
        "MultiCurve",
52
 
        "MultiSurface"
53
 
};
54
 
 
55
 
void *
56
 
default_allocator(size_t size)
57
 
{
58
 
        void *mem = malloc(size);
59
 
        return mem;
60
 
}
61
 
 
62
 
void
63
 
default_freeor(void *mem)
64
 
{
65
 
        free(mem);
66
 
}
67
 
 
68
 
void *
69
 
default_reallocator(void *mem, size_t size)
70
 
{
71
 
        void *ret = realloc(mem, size);
72
 
        return ret;
73
 
}
74
 
 
75
 
void
76
 
default_noticereporter(const char *fmt, ...)
77
 
{
78
 
        char *msg;
79
 
        va_list ap;
80
 
 
81
 
        va_start (ap, fmt);
82
 
 
83
 
        /*
84
 
         * This is a GNU extension.
85
 
         * Dunno how to handle errors here.
86
 
         */
87
 
        if (!vasprintf (&msg, fmt, ap))
88
 
        {
89
 
                va_end (ap);
90
 
                return;
91
 
        }
92
 
        printf("%s\n", msg);
93
 
        va_end(ap);
94
 
        free(msg);
95
 
}
96
 
 
97
 
void
98
 
default_errorreporter(const char *fmt, ...)
99
 
{
100
 
        char *msg;
101
 
        va_list ap;
102
 
 
103
 
        va_start (ap, fmt);
104
 
 
105
 
        /*
106
 
         * This is a GNU extension.
107
 
         * Dunno how to handle errors here.
108
 
         */
109
 
        if (!vasprintf (&msg, fmt, ap))
110
 
        {
111
 
                va_end (ap);
112
 
                return;
113
 
        }
114
 
        fprintf(stderr, "%s\n", msg);
115
 
        va_end(ap);
116
 
        free(msg);
117
 
        exit(1);
118
 
}
119
 
 
120
 
const char *
121
 
lwgeom_typename(int type)
122
 
{
123
 
        // something went wrong somewhere
124
 
        if ( type < 0 || type > 15 ) {
125
 
                // assert(0);
126
 
                return "Invalid type";
127
 
        }
128
 
        return lwgeomTypeName[type];
129
 
}
130
 
 
131
 
void *
132
 
lwalloc(size_t size)
133
 
{
134
 
#ifdef PGIS_DEBUG_ALLOCS
135
 
        void *mem = lwalloc_var(size);
136
 
        lwnotice("lwalloc: %d@%p", size, mem);
137
 
        return mem;
138
 
#else /* ! PGIS_DEBUG_ALLOCS */
139
 
        return lwalloc_var(size);
140
 
#endif
141
 
}
142
 
 
143
 
void *
144
 
lwrealloc(void *mem, size_t size)
145
 
{
146
 
#ifdef PGIS_DEBUG_ALLOCS
147
 
        lwnotice("lwrealloc: %d@%p", size, mem);
148
 
#endif
149
 
        return lwrealloc_var(mem, size);
150
 
}
151
 
 
152
 
void
153
 
lwfree(void *mem)
154
 
{
155
 
        lwfree_var(mem);
156
 
}
157
 
 
158
 
/*
159
 
 * Removes trailing zeros and dot for a %f formatted number.
160
 
 * Modifies input.
161
 
 */
162
 
void
163
 
trim_trailing_zeros(char *str)
164
 
{
165
 
        char *ptr, *totrim=NULL;
166
 
        int len;
167
 
        int i;
168
 
 
169
 
#ifdef PGIS_DEBUG
170
 
        lwnotice("input: %s", str);
171
 
#endif
172
 
        
173
 
        ptr = strchr(str, '.');
174
 
        if ( ! ptr ) return; /* no dot, no decimal digits */
175
 
 
176
 
#ifdef PGIS_DEBUG
177
 
        lwnotice("ptr: %s", ptr);
178
 
#endif
179
 
 
180
 
        len = strlen(ptr);
181
 
        for (i=len-1; i; i--)
182
 
        {
183
 
                if ( ptr[i] != '0' ) break;
184
 
                totrim=&ptr[i];
185
 
        }
186
 
        if ( totrim )
187
 
        {
188
 
                if ( ptr == totrim-1 ) *ptr = '\0';
189
 
                else *totrim = '\0';
190
 
        }
191
 
        
192
 
#ifdef PGIS_DEBUG
193
 
        lwnotice("output: %s", str);
194
 
#endif
195
 
}
196
 
 
197
 
char
198
 
getMachineEndian(void)
199
 
{
200
 
        static int endian_check_int = 1; /* dont modify this!!! */
201
 
 
202
 
        return *((char *) &endian_check_int); /* 0 = big endian | xdr,
203
 
                                               * 1 = little endian | ndr
204
 
                                               */
205
 
}
206
 
 
207
 
 
208
 
void
209
 
errorIfSRIDMismatch(int srid1, int srid2)
210
 
{
211
 
        if ( srid1 != srid2 )
212
 
        {
213
 
                lwerror("Operation on mixed SRID geometries");
214
 
        }
215
 
}