LWGEOM_asKML()

Datum LWGEOM_asKML

(

PG_FUNCTION_ARGS

)

Definition at line 170 of file postgis/lwgeom_transform.c.

{
        LWGEOM *lwgeom;
        char *kml;
        text *result;
        const char *default_prefix = ""; /* default prefix */
        char *prefixbuf;
        const char *prefix = default_prefix;
        int32_t srid_from;
        const int32_t srid_to = 4326;
 
        /* Get the geometry */
        GSERIALIZED *geom = PG_GETARG_GSERIALIZED_P_COPY(0);
        int precision = PG_GETARG_INT32(1);
        text *prefix_text = PG_GETARG_TEXT_P(2);
        srid_from = gserialized_get_srid(geom);
 
        if ( srid_from == SRID_UNKNOWN )
        {
                PG_FREE_IF_COPY(geom, 0);
                elog(ERROR, "ST_AsKML: Input geometry has unknown (%d) SRID", SRID_UNKNOWN);
                PG_RETURN_NULL();
        }
 
        /* Condition precision */
        if (precision > DBL_DIG)
                precision = DBL_DIG;
        if (precision < 0)
                precision = 0;
 
        if (VARSIZE_ANY_EXHDR(prefix_text) > 0)
        {
                /* +2 is one for the ':' and one for term null */
                prefixbuf = palloc(VARSIZE_ANY_EXHDR(prefix_text)+2);
                memcpy(prefixbuf, VARDATA(prefix_text),
                       VARSIZE_ANY_EXHDR(prefix_text));
                /* add colon and null terminate */
                prefixbuf[VARSIZE_ANY_EXHDR(prefix_text)] = ':';
                prefixbuf[VARSIZE_ANY_EXHDR(prefix_text)+1] = '\0';
                prefix = prefixbuf;
        }
 
        lwgeom = lwgeom_from_gserialized(geom);
 
        if (srid_from != srid_to)
        {
                LWPROJ *pj;
                if (GetPJUsingFCInfo(fcinfo, srid_from, srid_to, &pj) == LW_FAILURE)
                {
                        PG_FREE_IF_COPY(geom, 0);
                        elog(ERROR, "ST_AsKML: Failure reading projections from spatial_ref_sys.");
                        PG_RETURN_NULL();
                }
                lwgeom_transform(lwgeom, pj);
        }
 
        kml = lwgeom_to_kml2(lwgeom, precision, prefix);
        lwgeom_free(lwgeom);
        PG_FREE_IF_COPY(geom, 0);
 
        if (!kml)
                PG_RETURN_NULL();
 
        result = cstring_to_text(kml);
        lwfree(kml);
 
        PG_RETURN_POINTER(result);
}

References gserialized_get_srid(), LW_FAILURE, lwfree(), lwgeom_free(), lwgeom_from_gserialized(), lwgeom_to_kml2(), lwgeom_transform(), precision, and SRID_UNKNOWN.

Here is the call graph for this function: