ST_AsMARC21()

Datum ST_AsMARC21

(

PG_FUNCTION_ARGS

)

Definition at line 51 of file lwgeom_out_marc21.c.

                                    {
        lwvarlena_t *marc21;
        int32_t srid;
        LWPROJ *lwproj;
        LWGEOM *lwgeom;
        //uint8_t is_latlong;
        GSERIALIZED *gs = PG_GETARG_GSERIALIZED_P(0);
        text *format_text_input =  PG_GETARG_TEXT_P(1);
        const char *format = text_to_cstring(format_text_input);
 
        srid = gserialized_get_srid(gs);
 
        if (srid == SRID_UNKNOWN) {
 
                PG_FREE_IF_COPY(gs, 0);
                lwpgerror("ST_AsMARC21: Input geometry has unknown (%d) SRID", srid);
                PG_RETURN_NULL();
 
        }
 
        if (lwproj_lookup(srid, srid, &lwproj) == LW_FAILURE) {
 
                PG_FREE_IF_COPY(gs, 0);
                lwpgerror("ST_AsMARC21: Failure reading projections from spatial_ref_sys.");
                PG_RETURN_NULL();
 
        }
 
//      if (GetLWPROJ(srid, srid, &lwproj) == LW_FAILURE) {
//
//              PG_FREE_IF_COPY(gs, 0);
//              lwpgerror("ST_AsMARC21: Failure reading projections from spatial_ref_sys.");
//              PG_RETURN_NULL();
//
//      }
 
//#if POSTGIS_PROJ_VERSION < 61
//      is_latlong = pj_is_latlong(lwproj->pj_from);
//#else
//      is_latlong = lwproj->source_is_latlong;
//#endif
 
        //is_latlong = lwproj_is_latlong(lwproj);
 
        if (!lwproj_is_latlong(lwproj)) {
 
                PG_FREE_IF_COPY(gs, 0);
                lwpgerror("ST_AsMARC21: Unsupported SRID (%d). Only lon/lat coordinate systems are supported in MARC21/XML Documents.", srid);
                PG_RETURN_NULL();
        }
 
 
        lwgeom = lwgeom_from_gserialized(gs);
        marc21 = lwgeom_to_marc21(lwgeom, format);
 
        if (marc21)     PG_RETURN_TEXT_P(marc21);
 
        PG_RETURN_NULL();
}

References gserialized_get_srid(), LW_FAILURE, lwgeom_from_gserialized(), lwgeom_to_marc21(), and SRID_UNKNOWN.

Here is the call graph for this function: