LWGEOM_collect_garray()

Datum LWGEOM_collect_garray

(

PG_FUNCTION_ARGS

)

Definition at line 1247 of file lwgeom_functions_basic.c.

{
        ArrayType *array;
        int nelems;
        /*GSERIALIZED **geoms; */
        GSERIALIZED *result = NULL;
        LWGEOM **lwgeoms, *outlwg;
        uint32 outtype;
        int count;
        int32_t srid = SRID_UNKNOWN;
        GBOX *box = NULL;
 
        ArrayIterator iterator;
        Datum value;
        bool isnull;
 
        POSTGIS_DEBUG(2, "LWGEOM_collect_garray called.");
 
        if (PG_ARGISNULL(0))
                PG_RETURN_NULL();
 
        /* Get actual ArrayType */
        array = PG_GETARG_ARRAYTYPE_P(0);
        nelems = ArrayGetNItems(ARR_NDIM(array), ARR_DIMS(array));
 
        POSTGIS_DEBUGF(3,
                       " array is %d-bytes in size, %ld w/out header",
                       ARR_SIZE(array),
                       ARR_SIZE(array) - ARR_OVERHEAD_NONULLS(ARR_NDIM(array)));
 
        POSTGIS_DEBUGF(3, "LWGEOM_collect_garray: array has %d elements", nelems);
 
        /* Return null on 0-elements input array */
        if (nelems == 0)
                PG_RETURN_NULL();
 
        /*
         * Deserialize all geometries in array into the lwgeoms pointers
         * array. Check input types to form output type.
         */
        lwgeoms = palloc(sizeof(LWGEOM *) * nelems);
        count = 0;
        outtype = 0;
 
        iterator = array_create_iterator(array, 0, NULL);
 
        while (array_iterate(iterator, &value, &isnull))
        {
                GSERIALIZED *geom;
                uint8_t intype;
 
                /* Don't do anything for NULL values */
                if (isnull)
                        continue;
 
                geom = (GSERIALIZED *)DatumGetPointer(value);
                intype = gserialized_get_type(geom);
 
                lwgeoms[count] = lwgeom_from_gserialized(geom);
 
                POSTGIS_DEBUGF(3, "%s: geom %d deserialized", __func__, count);
 
                if (!count)
                {
                        /* Get first geometry SRID */
                        srid = lwgeoms[count]->srid;
 
                        /* COMPUTE_BBOX WHEN_SIMPLE */
                        if (lwgeoms[count]->bbox)
                                box = gbox_copy(lwgeoms[count]->bbox);
                }
                else
                {
                        /* Check SRID homogeneity */
                        gserialized_error_if_srid_mismatch_reference(geom, srid, __func__);
 
                        /* COMPUTE_BBOX WHEN_SIMPLE */
                        if (box)
                        {
                                if (lwgeoms[count]->bbox)
                                        gbox_merge(lwgeoms[count]->bbox, box);
                                else
                                {
                                        pfree(box);
                                        box = NULL;
                                }
                        }
                }
 
                lwgeom_drop_srid(lwgeoms[count]);
                lwgeom_drop_bbox(lwgeoms[count]);
 
                /* Output type not initialized */
                if (!outtype)
                {
                        outtype = lwtype_get_collectiontype(intype);
                }
                /* Input type not compatible with output */
                /* make output type a collection */
                else if (outtype != COLLECTIONTYPE && lwtype_get_collectiontype(intype) != outtype)
                {
                        outtype = COLLECTIONTYPE;
                }
 
                count++;
        }
        array_free_iterator(iterator);
 
        POSTGIS_DEBUGF(3, "LWGEOM_collect_garray: outtype = %d", outtype);
 
        /* If we have been passed a complete set of NULLs then return NULL */
        if (!outtype)
        {
                PG_RETURN_NULL();
        }
        else
        {
                outlwg = (LWGEOM *)lwcollection_construct(outtype, srid, box, count, lwgeoms);
 
                result = geometry_serialize(outlwg);
 
                PG_RETURN_POINTER(result);
        }
}

References COLLECTIONTYPE, gbox_copy(), gbox_merge(), gserialized_error_if_srid_mismatch_reference(), gserialized_get_type(), lwcollection_construct(), lwgeom_drop_bbox(), lwgeom_drop_srid(), lwgeom_from_gserialized(), lwtype_get_collectiontype(), result, LWGEOM::srid, and SRID_UNKNOWN.

Referenced by pgis_geometry_collect_finalfn().

Here is the call graph for this function:

Here is the caller graph for this function: