geography_as_kml()

Datum geography_as_kml

(

PG_FUNCTION_ARGS

)

Definition at line 334 of file geography_inout.c.

References geography_as_svg(), lwfree(), lwgeom_free(), lwgeom_from_gserialized(), lwgeom_to_kml2(), PG_FUNCTION_INFO_V1(), and precision.

Referenced by geography_as_gml().

{
        GSERIALIZED *g = NULL;
        LWGEOM *lwgeom = NULL;
        char *kml;
        text *result;
        int version;
        int precision = DBL_DIG;
        static const char *default_prefix = "";
        char *prefixbuf;
        const char* prefix = default_prefix;
        text *prefix_text;


        /* Get the version */
        version = PG_GETARG_INT32(0);
        if ( version != 2)
        {
                elog(ERROR, "Only KML 2 is supported");
                PG_RETURN_NULL();
        }

        /* Get the geometry */
        if ( PG_ARGISNULL(1) ) PG_RETURN_NULL();
        g = PG_GETARG_GSERIALIZED_P(1);

        /* Convert to lwgeom so we can run the old functions */
        lwgeom = lwgeom_from_gserialized(g);

        /* Retrieve precision if any (default is max) */
        if (PG_NARGS() >2 && !PG_ARGISNULL(2))
        {
                precision = PG_GETARG_INT32(2);
                /* TODO: leave this to liblwgeom */
                if ( precision > DBL_DIG )
                        precision = DBL_DIG;
                else if ( precision < 0 ) precision = 0;
        }

        /* retrieve prefix */
        if (PG_NARGS() >3 && !PG_ARGISNULL(3))
        {
                prefix_text = PG_GETARG_TEXT_P(3);
                if ( VARSIZE(prefix_text)-VARHDRSZ == 0 )
                {
                        prefix = "";
                }
                else
                {
                        /* +2 is one for the ':' and one for term null */
                        prefixbuf = palloc(VARSIZE(prefix_text)-VARHDRSZ+2);
                        memcpy(prefixbuf, VARDATA(prefix_text),
                               VARSIZE(prefix_text)-VARHDRSZ);
                        /* add colon and null terminate */
                        prefixbuf[VARSIZE(prefix_text)-VARHDRSZ] = ':';
                        prefixbuf[VARSIZE(prefix_text)-VARHDRSZ+1] = '\0';
                        prefix = prefixbuf;
                }
        }

        kml = lwgeom_to_kml2(lwgeom, precision, prefix);

    lwgeom_free(lwgeom);
        PG_FREE_IF_COPY(g, 1);

        if ( ! kml )
                PG_RETURN_NULL();

        result = cstring2text(kml);
        lwfree(kml);

        PG_RETURN_TEXT_P(result);
}

Here is the call graph for this function:

Here is the caller graph for this function: