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 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173
|
/**********************************************************************
*
* PostGIS - Spatial Types for PostgreSQL
* http://postgis.refractions.net
*
* Copyright (C) 2004 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 "lwgeom_log.h"
#include "liblwgeom.h"
#include <stdio.h>
#include <string.h>
/* Place to hold the ZM string used in other summaries */
static char tflags[6];
static char *
lwgeom_flagchars(LWGEOM *lwg)
{
int flagno = 0;
if ( FLAGS_GET_Z(lwg->flags) ) tflags[flagno++] = 'Z';
if ( FLAGS_GET_M(lwg->flags) ) tflags[flagno++] = 'M';
if ( FLAGS_GET_BBOX(lwg->flags) ) tflags[flagno++] = 'B';
if ( FLAGS_GET_GEODETIC(lwg->flags) ) tflags[flagno++] = 'G';
if ( lwg->srid != SRID_UNKNOWN ) tflags[flagno++] = 'S';
tflags[flagno] = '\0';
LWDEBUGF(4, "Flags: %s - returning %p", flags, tflags);
return tflags;
}
/*
* Returns an alloced string containing summary for the LWGEOM object
*/
static char *
lwpoint_summary(LWPOINT *point, int offset)
{
char *result;
char *pad="";
char *zmflags = lwgeom_flagchars((LWGEOM*)point);
result = (char *)lwalloc(128+offset);
sprintf(result, "%*.s%s[%s]",
offset, pad, lwtype_name(point->type),
zmflags);
return result;
}
static char *
lwline_summary(LWLINE *line, int offset)
{
char *result;
char *pad="";
char *zmflags = lwgeom_flagchars((LWGEOM*)line);
result = (char *)lwalloc(128+offset);
sprintf(result, "%*.s%s[%s] with %d points",
offset, pad, lwtype_name(line->type),
zmflags,
line->points->npoints);
return result;
}
static char *
lwcollection_summary(LWCOLLECTION *col, int offset)
{
size_t size = 128;
char *result;
char *tmp;
int i;
static char *nl = "\n";
char *pad="";
char *zmflags = lwgeom_flagchars((LWGEOM*)col);
LWDEBUG(2, "lwcollection_summary called");
result = (char *)lwalloc(size);
sprintf(result, "%*.s%s[%s] with %d elements\n",
offset, pad, lwtype_name(col->type),
zmflags,
col->ngeoms);
for (i=0; i<col->ngeoms; i++)
{
tmp = lwgeom_summary(col->geoms[i], offset+2);
size += strlen(tmp)+1;
result = lwrealloc(result, size);
LWDEBUGF(4, "Reallocated %d bytes for result", size);
if ( i > 0 ) strcat(result,nl);
strcat(result, tmp);
lwfree(tmp);
}
LWDEBUG(3, "lwcollection_summary returning");
return result;
}
static char *
lwpoly_summary(LWPOLY *poly, int offset)
{
char tmp[256];
size_t size = 64*(poly->nrings+1)+128;
char *result;
int i;
char *pad="";
static char *nl = "\n";
char *zmflags = lwgeom_flagchars((LWGEOM*)poly);
LWDEBUG(2, "lwpoly_summary called");
result = (char *)lwalloc(size);
sprintf(result, "%*.s%s[%s] with %i rings\n",
offset, pad, lwtype_name(poly->type),
zmflags,
poly->nrings);
for (i=0; i<poly->nrings; i++)
{
sprintf(tmp,"%s ring %i has %i points",
pad, i, poly->rings[i]->npoints);
if ( i > 0 ) strcat(result,nl);
strcat(result,tmp);
}
LWDEBUG(3, "lwpoly_summary returning");
return result;
}
char *
lwgeom_summary(const LWGEOM *lwgeom, int offset)
{
char *result;
switch (lwgeom->type)
{
case POINTTYPE:
return lwpoint_summary((LWPOINT *)lwgeom, offset);
case LINETYPE:
return lwline_summary((LWLINE *)lwgeom, offset);
case POLYGONTYPE:
return lwpoly_summary((LWPOLY *)lwgeom, offset);
case MULTIPOINTTYPE:
case MULTILINETYPE:
case MULTIPOLYGONTYPE:
case COLLECTIONTYPE:
return lwcollection_summary((LWCOLLECTION *)lwgeom, offset);
default:
result = (char *)lwalloc(256);
sprintf(result, "Object is of unknown type: %d",
lwgeom->type);
return result;
}
return NULL;
}
|