motiejus/stud
1
Fork 0
Code Releases Activity

wip fix syntax errors

Browse Source
This commit is contained in:
Motiejus Jakštys 2021-03-13 16:49:01 +02:00
parent bdb08906ba
commit 53dc925525
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
IV/wm.sql
View File

@ -270,16 +270,17 @@ $$ language plpgsql;
-- "Line Generalization Based on Analysis of Shape Characteristics" algorithm, -- "Line Generalization Based on Analysis of Shape Characteristics" algorithm,
-- 1998. -- 1998.
drop function if exists ST_SimplifyWM; drop function if exists ST_SimplifyWM;
create function ST_SimplifyWM(geometry geom) returns geometry as $$ create function ST_SimplifyWM(geom geometry) returns geometry as $$
declare declare
line geometry; line geometry;
geoms geometry[]; geoms geometry[];
bends geometry[]; bends geometry[];
mutated boolean;
l_type text; l_type text;
begin begin
l_type = st_geometrytype(geom); l_type = st_geometrytype(geom);
if l_type = 'ST_LineString' then if l_type = 'ST_LineString' then
geoms = array(geom); geoms = array[geom];
elseif l_type = 'ST_MultiLineString' then elseif l_type = 'ST_MultiLineString' then
geoms = array((select geom from st_dump(geom) order by path[1] desc)); geoms = array((select geom from st_dump(geom) order by path[1] desc));
else else