(sql) removing pgrouting dependency

Author: cvvergara

sql/optimize/optimizeRaw.sql

@@ -1,5 +1,5 @@
 /*PGR-GNU*****************************************************************
-File: optimize.sql
+File: optimizeRaw.sql
 
 Copyright (c) 2021 pgRouting developers
 Mail: [email protected]
@@ -48,10 +48,10 @@ $BODY$
 
   SELECT *
   FROM _vrp_optimize(
-    _pgr_get_statement($1),
-    _pgr_get_statement($2),
-    _pgr_get_statement($3),
-    _pgr_get_statement($4),
+    _vrp_get_statement($1),
+    _vrp_get_statement($2),
+    _vrp_get_statement($3),
+    _vrp_get_statement($4),
     factor, max_cycles, execution_date,
     check_triangle_inequality, subdivision_kind,
     false);

sql/optimize/optimizeUpdateRaw.sql

@@ -66,10 +66,10 @@ BEGIN
   SET %11$I = n.stops
   FROM new_stops AS n WHERE v.%12$I = n.vehicle_id
   $$,
-  _pgr_get_statement($1),
-  _pgr_get_statement($2),
-  _pgr_get_statement($3),
-  _pgr_get_statement($4),
+  _vrp_get_statement($1),
+  _vrp_get_statement($2),
+  _vrp_get_statement($3),
+  _vrp_get_statement($4),
   factor, max_cycles, execution_date,
   check_triangle_inequality, subdivision_kind,
   vehicles_tbl, stops_column, id_column);

sql/pgr_pickDeliver/pgr_pickDeliver.sql

@@ -51,7 +51,7 @@ CREATE FUNCTION vrp_pgr_pickDeliver(
 RETURNS SETOF RECORD AS
 $BODY$
     SELECT *
-    FROM _vrp_pgr_pickDeliver(_pgr_get_statement($1), _pgr_get_statement($2), $3, $4, $5);
+    FROM _vrp_pgr_pickDeliver(_vrp_get_statement($1), _pgr_get_statement($2), $3, $4, $5);
 $BODY$
 LANGUAGE SQL VOLATILE STRICT;
 

sql/pgr_pickDeliver/pgr_pickDeliverEuclidean.sql

@@ -50,7 +50,7 @@ CREATE FUNCTION vrp_pgr_pickDeliverEuclidean(
 RETURNS SETOF RECORD AS
 $BODY$
     SELECT *
-    FROM _vrp_pgr_pickDeliverEuclidean(_pgr_get_statement($1), _pgr_get_statement($2), $3, $4, $5);
+    FROM _vrp_pgr_pickDeliverEuclidean(_vrp_get_statement($1), _pgr_get_statement($2), $3, $4, $5);
 $BODY$
 LANGUAGE SQL VOLATILE STRICT;
 

sql/pickDeliver/pickDeliverRaw.sql

@@ -60,10 +60,10 @@ RETURNS SETOF RECORD AS
 $BODY$
 
 SELECT * FROM _vrp_pickDeliverRaw(
-  _pgr_get_statement($1),
-  _pgr_get_statement($2),
-  _pgr_get_statement($3),
-  _pgr_get_statement($4),
+  _vrp_get_statement($1),
+  _vrp_get_statement($2),
+  _vrp_get_statement($3),
+  _vrp_get_statement($4),
   optimize, factor,
   max_cycles, stop_on_all_served, execution_date);
 

sql/utilities/CMakeLists.txt

@@ -1,6 +1,7 @@
 SET(LOCAL_FILES
   vehiclesAtTime.sql
-  )
+  _get_statement.sql
+)
 
 foreach (f ${LOCAL_FILES})
   configure_file(${f} ${f})

sql/utilities/_get_statement.sql

@@ -0,0 +1,44 @@
+/*PGR-GNU*****************************************************************
+
+ _get_statement.sql
+
+ Copyright (c) 2025 Celia Virginia Vergara Castillo
+ mail: vicky at erosion.dev
+
+------
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+ ********************************************************************PGR-GNU*/
+
+--v0.5
+CREATE FUNCTION _vrp_get_statement(o_sql text)
+RETURNS text AS
+$BODY$
+DECLARE
+sql TEXT;
+BEGIN
+    EXECUTE 'SELECT statement FROM pg_prepared_statements WHERE name ='  || quote_literal(o_sql) || ' limit 1 ' INTO sql;
+    IF (sql IS NULL) THEN
+      RETURN   o_sql;
+    ELSE
+      RETURN  regexp_replace(regexp_replace(regexp_replace(sql, '\s(as)\s', '___foo___', 'i'), '^.*___foo___', '','i'), ';$', '');
+    END IF;
+END
+$BODY$
+LANGUAGE plpgsql STABLE STRICT;
+
+COMMENT ON FUNCTION _vrp_get_statement(TEXT)
+IS 'vrprouting internal function';