geography_distance_uncached()

Datum geography_distance_uncached

(

PG_FUNCTION_ARGS

)

Definition at line 140 of file geography_measurement.c.

{
        LWGEOM *lwgeom1 = NULL;
        LWGEOM *lwgeom2 = NULL;
        GSERIALIZED *g1 = PG_GETARG_GSERIALIZED_P(0);
        GSERIALIZED *g2 = PG_GETARG_GSERIALIZED_P(1);
        double distance;
        double tolerance = FP_TOLERANCE;
        bool use_spheroid = true;
        SPHEROID s;
 
        /* Read our tolerance value. */
        if ( PG_NARGS() > 2 && ! PG_ARGISNULL(2) )
                tolerance = PG_GETARG_FLOAT8(2);
 
        /* Read our calculation type. */
        if ( PG_NARGS() > 3 && ! PG_ARGISNULL(3) )
                use_spheroid = PG_GETARG_BOOL(3);
 
        gserialized_error_if_srid_mismatch(g1, g2, __func__);
 
        /* Initialize spheroid */
        spheroid_init_from_srid(gserialized_get_srid(g1), &s);
 
        /* Set to sphere if requested */
        if ( ! use_spheroid )
                s.a = s.b = s.radius;
 
        lwgeom1 = lwgeom_from_gserialized(g1);
        lwgeom2 = lwgeom_from_gserialized(g2);
 
        /* Return NULL on empty arguments. */
        if ( !lwgeom1 || !lwgeom2 || lwgeom_is_empty(lwgeom1) || lwgeom_is_empty(lwgeom2) )
        {
                PG_FREE_IF_COPY(g1, 0);
                PG_FREE_IF_COPY(g2, 1);
                PG_RETURN_NULL();
        }
 
        /* Make sure we have boxes attached */
        lwgeom_add_bbox_deep(lwgeom1, NULL);
        lwgeom_add_bbox_deep(lwgeom2, NULL);
 
        distance = lwgeom_distance_spheroid(lwgeom1, lwgeom2, &s, tolerance);
 
        /* Clean up */
        lwgeom_free(lwgeom1);
        lwgeom_free(lwgeom2);
        PG_FREE_IF_COPY(g1, 0);
        PG_FREE_IF_COPY(g2, 1);
 
        /* Something went wrong, negative return... should already be eloged, return NULL */
        if ( distance < 0.0 )
        {
                PG_RETURN_NULL();
        }
 
        PG_RETURN_FLOAT8(distance);
}

References distance(), FP_TOLERANCE, gserialized_error_if_srid_mismatch(), gserialized_get_srid(), lwgeom_add_bbox_deep(), lwgeom_distance_spheroid(), lwgeom_free(), lwgeom_from_gserialized(), lwgeom_is_empty(), and s.

Here is the call graph for this function: