mirror of
https://git.osgeo.org/gitea/postgis/postgis
synced 2024-10-24 09:02:37 +00:00
2398afc183
git-svn-id: http://svn.osgeo.org/postgis/trunk@8066 b70326c6-7e19-0410-871a-916f4a2858ee
232 lines
5 KiB
C
232 lines
5 KiB
C
/**********************************************************************
|
|
*
|
|
* PostGIS - Spatial Types for PostgreSQL
|
|
*
|
|
* http://postgis.refractions.net
|
|
*
|
|
* Copyright (C) 2011 Sandro Santilli <strk@keybit.net>
|
|
* Copyright (C) 2009-2011 Paul Ramsey <pramsey@cleverelephant.ca>
|
|
* Copyright (C) 2008 Mark Cave-Ayland <mark.cave-ayland@siriusit.co.uk>
|
|
* Copyright (C) 2004-2007 Refractions Research Inc.
|
|
*
|
|
* This is free software; you can redistribute and/or modify it under
|
|
* the terms of the GNU General Public Licence. See the COPYING file.
|
|
*
|
|
**********************************************************************/
|
|
|
|
#include <postgres.h>
|
|
#include <fmgr.h>
|
|
#include <executor/spi.h>
|
|
|
|
#include "../postgis_config.h"
|
|
#include "liblwgeom.h"
|
|
#include "lwgeom_pg.h"
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
|
|
#define PARANOIA_LEVEL 1
|
|
|
|
/*
|
|
* For win32, this can not be in a separate libary
|
|
* See ticket #1158
|
|
*/
|
|
/* PG_MODULE_MAGIC; */
|
|
|
|
/**
|
|
* Utility to convert cstrings to textp pointers
|
|
*/
|
|
text*
|
|
cstring2text(const char *cstring)
|
|
{
|
|
text *output;
|
|
size_t sz;
|
|
|
|
/* Guard against null input */
|
|
if( !cstring )
|
|
return NULL;
|
|
|
|
sz = strlen(cstring);
|
|
output = palloc(sz + VARHDRSZ);
|
|
if ( ! output )
|
|
return NULL;
|
|
SET_VARSIZE(output, sz + VARHDRSZ);
|
|
if ( sz )
|
|
memcpy(VARDATA(output),cstring,sz);
|
|
return output;
|
|
}
|
|
|
|
char*
|
|
text2cstring(const text *textptr)
|
|
{
|
|
size_t size = VARSIZE(textptr) - VARHDRSZ;
|
|
char *str = lwalloc(size+1);
|
|
memcpy(str, VARDATA(textptr), size);
|
|
str[size]='\0';
|
|
return str;
|
|
}
|
|
|
|
|
|
/*
|
|
* Error message parsing functions
|
|
*
|
|
* Produces nicely formatted messages for parser/unparser errors with optional HINT
|
|
*/
|
|
|
|
void
|
|
pg_parser_errhint(LWGEOM_PARSER_RESULT *lwg_parser_result)
|
|
{
|
|
char *hintbuffer;
|
|
|
|
/* Only display the parser position if the location is > 0; this provides a nicer output when the first token
|
|
within the input stream cannot be matched */
|
|
if (lwg_parser_result->errlocation > 0)
|
|
{
|
|
/* Return a copy of the input string start truncated
|
|
* at the error location */
|
|
hintbuffer = lwmessage_truncate(
|
|
(char *)lwg_parser_result->wkinput, 0,
|
|
lwg_parser_result->errlocation - 1, 40, 0);
|
|
|
|
ereport(ERROR,
|
|
(errmsg("%s", lwg_parser_result->message),
|
|
errhint("\"%s\" <-- parse error at position %d within geometry", hintbuffer, lwg_parser_result->errlocation))
|
|
);
|
|
}
|
|
else
|
|
{
|
|
ereport(ERROR,
|
|
(errmsg("%s", lwg_parser_result->message),
|
|
errhint("You must specify a valid OGC WKT geometry type such as POINT, LINESTRING or POLYGON"))
|
|
);
|
|
}
|
|
}
|
|
|
|
void
|
|
pg_unparser_errhint(LWGEOM_UNPARSER_RESULT *lwg_unparser_result)
|
|
{
|
|
/* For the unparser simply output the error message without any associated HINT */
|
|
elog(ERROR, "%s", lwg_unparser_result->message);
|
|
}
|
|
|
|
|
|
void *
|
|
pg_alloc(size_t size)
|
|
{
|
|
void * result;
|
|
|
|
POSTGIS_DEBUGF(5, " pg_alloc(%d) called", (int)size);
|
|
|
|
result = palloc(size);
|
|
|
|
POSTGIS_DEBUGF(5, " pg_alloc(%d) returning %p", (int)size, result);
|
|
|
|
if ( ! result )
|
|
{
|
|
ereport(ERROR, (errmsg_internal("Out of virtual memory")));
|
|
return NULL;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
void *
|
|
pg_realloc(void *mem, size_t size)
|
|
{
|
|
void * result;
|
|
|
|
POSTGIS_DEBUGF(5, " pg_realloc(%p, %d) called", mem, (int)size);
|
|
|
|
result = repalloc(mem, size);
|
|
|
|
POSTGIS_DEBUGF(5, " pg_realloc(%p, %d) returning %p", mem, (int)size, result);
|
|
|
|
return result;
|
|
}
|
|
|
|
void
|
|
pg_free(void *ptr)
|
|
{
|
|
pfree(ptr);
|
|
}
|
|
|
|
void
|
|
pg_error(const char *fmt, va_list ap)
|
|
{
|
|
#define ERRMSG_MAXLEN 256
|
|
|
|
char errmsg[ERRMSG_MAXLEN+1];
|
|
|
|
vsnprintf (errmsg, ERRMSG_MAXLEN, fmt, ap);
|
|
|
|
errmsg[ERRMSG_MAXLEN]='\0';
|
|
ereport(ERROR, (errmsg_internal("%s", errmsg)));
|
|
}
|
|
|
|
void
|
|
pg_notice(const char *fmt, va_list ap)
|
|
{
|
|
char *msg;
|
|
|
|
/*
|
|
* This is a GNU extension.
|
|
* Dunno how to handle errors here.
|
|
*/
|
|
if (!lw_vasprintf (&msg, fmt, ap))
|
|
{
|
|
va_end (ap);
|
|
return;
|
|
}
|
|
ereport(NOTICE, (errmsg_internal("%s", msg)));
|
|
free(msg);
|
|
}
|
|
|
|
void
|
|
lwgeom_init_allocators(void)
|
|
{
|
|
/* liblwgeom callback - install PostgreSQL handlers */
|
|
lwalloc_var = pg_alloc;
|
|
lwrealloc_var = pg_realloc;
|
|
lwfree_var = pg_free;
|
|
lwerror_var = pg_error;
|
|
lwnotice_var = pg_notice;
|
|
}
|
|
|
|
/**
|
|
* Utility method to call the serialization and then set the
|
|
* PgSQL varsize header appropriately with the serialized size.
|
|
*/
|
|
|
|
/**
|
|
* Utility method to call the serialization and then set the
|
|
* PgSQL varsize header appropriately with the serialized size.
|
|
*/
|
|
GSERIALIZED* geography_serialize(LWGEOM *lwgeom)
|
|
{
|
|
static int is_geodetic = 1;
|
|
size_t ret_size = 0;
|
|
GSERIALIZED *g = NULL;
|
|
|
|
g = gserialized_from_lwgeom(lwgeom, is_geodetic, &ret_size);
|
|
if ( ! g ) lwerror("Unable to serialize lwgeom.");
|
|
SET_VARSIZE(g, ret_size);
|
|
return g;
|
|
}
|
|
|
|
|
|
/**
|
|
* Utility method to call the serialization and then set the
|
|
* PgSQL varsize header appropriately with the serialized size.
|
|
*/
|
|
GSERIALIZED* geometry_serialize(LWGEOM *lwgeom)
|
|
{
|
|
static int is_geodetic = 0;
|
|
size_t ret_size = 0;
|
|
GSERIALIZED *g = NULL;
|
|
|
|
g = gserialized_from_lwgeom(lwgeom, is_geodetic, &ret_size);
|
|
if ( ! g ) lwerror("Unable to serialize lwgeom.");
|
|
SET_VARSIZE(g, ret_size);
|
|
return g;
|
|
}
|