RASTER_to_bytea()

Datum RASTER_to_bytea

(

PG_FUNCTION_ARGS

)

Definition at line 110 of file rtpg_inout.c.

References FALSE, PG_FUNCTION_INFO_V1(), rtrowdump::raster, RASTER_to_binary(), rt_raster_deserialize(), rt_raster_destroy(), and rt_raster_to_wkb().

Referenced by RASTER_out().

{
        rt_pgraster *pgraster = NULL;
        rt_raster raster = NULL;
        uint8_t *wkb = NULL;
        uint32_t wkb_size = 0;
        bytea *result = NULL;
        int result_size = 0;

        if (PG_ARGISNULL(0)) PG_RETURN_NULL();
        pgraster = (rt_pgraster *) PG_DETOAST_DATUM(PG_GETARG_DATUM(0));

        /* Get raster object */
        raster = rt_raster_deserialize(pgraster, FALSE);
        if (!raster) {
                PG_FREE_IF_COPY(pgraster, 0);
                elog(ERROR, "RASTER_to_bytea: Could not deserialize raster");
                PG_RETURN_NULL();
        }

        /* Parse raster to wkb object */
        wkb = rt_raster_to_wkb(raster, FALSE, &wkb_size);
        if (!wkb) {
                rt_raster_destroy(raster);
                PG_FREE_IF_COPY(pgraster, 0);
                elog(ERROR, "RASTER_to_bytea: Could not allocate and generate WKB data");
                PG_RETURN_NULL();
        }

        /* Create varlena object */
        result_size = wkb_size + VARHDRSZ;
        result = (bytea *)palloc(result_size);
        SET_VARSIZE(result, result_size);
        memcpy(VARDATA(result), wkb, VARSIZE(result) - VARHDRSZ);

        /* Free raster objects used */
        rt_raster_destroy(raster);
        pfree(wkb);
        PG_FREE_IF_COPY(pgraster, 0);

        PG_RETURN_POINTER(result);
}

Here is the call graph for this function:

Here is the caller graph for this function: