geom_from_kml()

Datum geom_from_kml

(

PG_FUNCTION_ARGS

)

Definition at line 94 of file lwgeom_in_kml.c.

{
        GSERIALIZED *geom;
        LWGEOM *lwgeom, *hlwgeom;
        xmlDocPtr xmldoc;
        text *xml_input;
        int xml_size;
        char *xml;
        bool hasz=true;
        xmlNodePtr xmlroot=NULL;
 
        /* Get the KML stream */
        if (PG_ARGISNULL(0)) PG_RETURN_NULL();
        xml_input = PG_GETARG_TEXT_P(0);
        xml = text_to_cstring(xml_input);
        xml_size = VARSIZE_ANY_EXHDR(xml_input);
 
        /* Begin to Parse XML doc */
        xmlInitParser();
        xmldoc = xmlReadMemory(xml, xml_size, NULL, NULL, 0);
        // xmldoc = xmlReadMemory(xml, xml_size, NULL, NULL, XML_PARSE_SAX1);
        if (!xmldoc || (xmlroot = xmlDocGetRootElement(xmldoc)) == NULL)
        {
                xmlFreeDoc(xmldoc);
                xmlCleanupParser();
                lwpgerror("invalid KML representation");
        }
 
        lwgeom = parse_kml(xmlroot, &hasz);
 
        /* Homogenize geometry result if needed */
        if (lwgeom->type == COLLECTIONTYPE)
        {
                hlwgeom = lwgeom_homogenize(lwgeom);
                lwgeom_release(lwgeom);
                lwgeom = hlwgeom;
        }
 
        /* KML geometries could be either 2 or 3D
         *
         * So we deal with 3D in all structures allocation, and flag hasz
         * to false if we met once a missing Z dimension
         * In this case, we force recursive 2D.
         */
        if (!hasz)
        {
                LWGEOM *tmp = lwgeom_force_2d(lwgeom);
                lwgeom_free(lwgeom);
                lwgeom = tmp;
        }
 
        geom = geometry_serialize(lwgeom);
        lwgeom_free(lwgeom);
 
        xmlFreeDoc(xmldoc);
        xmlCleanupParser();
 
        PG_RETURN_POINTER(geom);
}

References COLLECTIONTYPE, lwgeom_force_2d(), lwgeom_free(), lwgeom_homogenize(), lwgeom_release(), parse_kml(), and LWGEOM::type.

Here is the call graph for this function: