LWGEOM_in()

Datum LWGEOM_in

(

PG_FUNCTION_ARGS

)

Definition at line 84 of file lwgeom_inout.c.

References bytes_from_hexbytes(), struct_lwgeom_parser_result::geom, geometry_serialize(), LW_FAILURE, LW_PARSER_CHECK_ALL, LW_PARSER_CHECK_NONE, lwgeom_add_bbox(), lwgeom_free(), lwgeom_from_wkb(), lwgeom_needs_bbox(), lwgeom_parse_wkt(), lwgeom_parser_result_free(), lwgeom_parser_result_init(), lwgeom_set_srid(), LWGEOM_to_latlon(), PG_FUNCTION_INFO_V1(), and postgis_valid_typmod().

Referenced by parse_WKT_lwgeom().

{
        char *input = PG_GETARG_CSTRING(0);
        int32 geom_typmod = -1;
        char *str = input;
        LWGEOM_PARSER_RESULT lwg_parser_result;
        LWGEOM *lwgeom;
        GSERIALIZED *ret;
        int srid = 0;

        if ( (PG_NARGS()>2) && (!PG_ARGISNULL(2)) ) {
                geom_typmod = PG_GETARG_INT32(2);
        }

        lwgeom_parser_result_init(&lwg_parser_result);

        /* Empty string. */
        if ( str[0] == '\0' ) {
                ereport(ERROR,(errmsg("parse error - invalid geometry")));
                PG_RETURN_NULL();
        }

        /* Starts with "SRID=" */
        if( strncasecmp(str,"SRID=",5) == 0 )
        {
                /* Roll forward to semi-colon */
                char *tmp = str;
                while ( tmp && *tmp != ';' )
                        tmp++;

                /* Check next character to see if we have WKB  */
                if ( tmp && *(tmp+1) == '0' )
                {
                        /* Null terminate the SRID= string */
                        *tmp = '\0';
                        /* Set str to the start of the real WKB */
                        str = tmp + 1;
                        /* Move tmp to the start of the numeric part */
                        tmp = input + 5;
                        /* Parse out the SRID number */
                        srid = atoi(tmp);
                }
        }

        /* WKB? Let's find out. */
        if ( str[0] == '0' )
        {
                size_t hexsize = strlen(str);
                unsigned char *wkb = bytes_from_hexbytes(str, hexsize);
                /* TODO: 20101206: No parser checks! This is inline with current 1.5 behavior, but needs discussion */
                lwgeom = lwgeom_from_wkb(wkb, hexsize/2, LW_PARSER_CHECK_NONE);
                /* If we picked up an SRID at the head of the WKB set it manually */
                if ( srid ) lwgeom_set_srid(lwgeom, srid);
                /* Add a bbox if necessary */
                if ( lwgeom_needs_bbox(lwgeom) ) lwgeom_add_bbox(lwgeom);
                pfree(wkb);
                ret = geometry_serialize(lwgeom);
                lwgeom_free(lwgeom);
        }
        /* WKT then. */
        else
        {
                if ( lwgeom_parse_wkt(&lwg_parser_result, str, LW_PARSER_CHECK_ALL) == LW_FAILURE )
                {
                        PG_PARSER_ERROR(lwg_parser_result);
                        PG_RETURN_NULL();
                }
                lwgeom = lwg_parser_result.geom;
                if ( lwgeom_needs_bbox(lwgeom) )
                        lwgeom_add_bbox(lwgeom);
                ret = geometry_serialize(lwgeom);
                lwgeom_parser_result_free(&lwg_parser_result);
        }

        if ( geom_typmod >= 0 )
        {
                ret = postgis_valid_typmod(ret, geom_typmod);
                POSTGIS_DEBUG(3, "typmod and geometry were consistent");
        }
        else
        {
                POSTGIS_DEBUG(3, "typmod was -1");
        }

        /* Don't free the parser result (and hence lwgeom) until we have done */
        /* the typemod check with lwgeom */

        PG_RETURN_POINTER(ret);

}

Here is the call graph for this function:

Here is the caller graph for this function: