LWGEOM_collect_garray()

Datum LWGEOM_collect_garray

(

PG_FUNCTION_ARGS

)

Definition at line 1209 of file lwgeom_functions_basic.c.

{
        ArrayType *array;
        int nelems;
        /*GSERIALIZED **geoms; */
        GSERIALIZED *result = NULL;
        LWGEOM **lwgeoms, *outlwg;
        uint32 outtype;
        int count;
        int 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;
 
#if POSTGIS_PGSQL_VERSION >= 95
        iterator = array_create_iterator(array, 0, NULL);
#else
        iterator = array_create_iterator(array, 0);
#endif
 
        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 */
                        error_if_srid_mismatch(lwgeoms[count]->srid, srid);
 
                        /* 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, genraster::count, error_if_srid_mismatch(), gbox_copy(), gbox_merge(), geometry_serialize(), gserialized_get_type(), lwcollection_construct(), lwgeom_drop_bbox(), lwgeom_drop_srid(), lwgeom_from_gserialized(), lwtype_get_collectiontype(), LWGEOM::srid, SRID_UNKNOWN, and genraster::value.

Referenced by pgis_geometry_collect_finalfn().

Here is the call graph for this function:

Here is the caller graph for this function: