-- This is very crude and not finetuned yet

-- This statement can be deleted after the border importer image stops creating this object as a table
DO
$$
    BEGIN
        DROP TABLE IF EXISTS osm_boundary_polygon CASCADE;
    EXCEPTION
        WHEN wrong_object_type THEN
    END;
$$ LANGUAGE plpgsql;

-- etldoc: osm_border_linestring -> osm_border_linestring_gen_z13
-- etldoc: osm_border_linestring_adm -> osm_border_linestring_gen_z13
DROP MATERIALIZED VIEW IF EXISTS osm_boundary_polygon CASCADE;
CREATE MATERIALIZED VIEW osm_boundary_polygon AS
(
    SELECT
        r.relation_id,
        r.name,
        CASE
         WHEN r.admin_level = 10 THEN 6
         WHEN r.admin_level = 9 THEN 5
         WHEN r.admin_level = 8 THEN 4
         WHEN r.admin_level = 7 THEN 3
         WHEN r.admin_level = 6 THEN 2
         WHEN r.admin_level = 4 THEN 1
         -- No admin_level =3?
         WHEN r.admin_level = 2 THEN 0
         ELSE null
        END as nuts_level,
        p.geometry
    FROM (
    	SELECT
    		relation_id,
    		ST_BuildArea(ST_Node(ST_Collect(geometry))) as geometry,
    		min(id) as minid -- Used just to join to one relation, could've also used subquery with LIMIT 1
    	FROM osm_border_disp_relation
    	WHERE (role = 'outer' or role = 'inner')
    	AND ST_GeometryType(geometry)='ST_LineString'
    	GROUP BY relation_id
    ) as p
    LEFT JOIN osm_border_disp_relation as r on p.minid = r.id
) /* DELAY_MATERIALIZED_VIEW_CREATION */ ;
CREATE INDEX IF NOT EXISTS osm_boundary_polygon_idx ON osm_boundary_polygon USING gist (geometry);


-- etldoc: osm_border_linestring -> osm_border_linestring_gen_z13
-- etldoc: osm_border_linestring_adm -> osm_border_linestring_gen_z13
DROP MATERIALIZED VIEW IF EXISTS osm_boundary_linestring CASCADE;
CREATE MATERIALIZED VIEW osm_boundary_linestring AS
SELECT
    osm_id,
    geometry,
    nuts_level,
    nuts->>'l_nuts_0_name' as l_nuts_0_name,
    nuts->>'l_nuts_1_name' as l_nuts_1_name,
    nuts->>'l_nuts_2_name' as l_nuts_2_name,
    nuts->>'l_nuts_3_name' as l_nuts_3_name,
    nuts->>'l_nuts_4_name' as l_nuts_4_name,
    nuts->>'l_nuts_5_name' as l_nuts_5_name,
    nuts->>'r_nuts_0_name' as r_nuts_0_name,
    nuts->>'r_nuts_1_name' as r_nuts_1_name,
    nuts->>'r_nuts_2_name' as r_nuts_2_name,
    nuts->>'r_nuts_3_name' as r_nuts_3_name,
    nuts->>'r_nuts_4_name' as r_nuts_4_name,
    nuts->>'r_nuts_5_name' as r_nuts_5_name
--  Shouldnt be needed for the map
--     nuts->'l_nuts_1_id' as l_nuts_1_id,
--     nuts->'l_nuts_2_id' as l_nuts_2_id,
--     nuts->'l_nuts_3_id' as l_nuts_3_id,
--     nuts->'l_nuts_4_id' as l_nuts_4_id,
--     nuts->'l_nuts_5_id' as l_nuts_5_id,
--     nuts->'r_nuts_1_id' as r_nuts_1_id,
--     nuts->'r_nuts_2_id' as r_nuts_2_id,
--     nuts->'r_nuts_3_id' as r_nuts_3_id,
--     nuts->'r_nuts_4_id' as r_nuts_4_id,
--     nuts->'r_nuts_5_id' as r_nuts_5_id
FROM (
     SELECT
         osm_id,
         geometry,
         MIN(nuts_level) as nuts_level,
         jsonb_object_agg(
                 CONCAT(side, '_nuts_', nuts_level, '_name'), name
             )
             || jsonb_object_agg(
                 CONCAT(side, '_nuts_', nuts_level, '_id'), -relation_id
             ) as nuts
     FROM (
              SELECT
                  b.*,
                  m.maritime,
                  m.index,
                  m.role,
                  m.admin_level,
                  r.nuts_level,
                  r.name,
                  r.relation_id,
                  CASE
                      WHEN
                          ST_Within(
                                  ST_OffsetCurve(
                                          (ST_LineSubString(b.geometry, 0.499,0.501)), 10, 'quad_segs=4 join=mitre'
                                      ),
                                  r.geometry
                              )
                          THEN 'r'
                      WHEN
                          ST_Within(
                                  ST_OffsetCurve(
                                          (ST_LineSubString(b.geometry, 0.499,0.501)), -10, 'quad_segs=4 join=mitre'
                                      ),
                                  r.geometry
                              )
                          THEN 'l'
                      ELSE 'unknown' -- TODO: Debug if this ever happens, if so our method isn't fool proof
                  END as side,
                  r.geometry as relation
              FROM
                  osm_administrative_boundary as b
                  INNER JOIN osm_administrative_member as m
                             ON b.osm_id = m.boundary_id
                  INNER JOIN osm_boundary_polygon as r
                             ON m.relation_id = r.relation_id
          ) as g
     GROUP BY osm_id, geometry
 ) as p  /* DELAY_MATERIALIZED_VIEW_CREATION */ ;
CREATE INDEX IF NOT EXISTS osm_boundary_linestring_idx ON osm_boundary_linestring USING gist (geometry);


-- etldoc: layer_boundary[shape=record fillcolor=lightpink, style="rounded,filled",
-- etldoc:     label="<sql> layer_boundary |<z0> z0 |<z1> z1 |<z2> z2 | <z3> z3 | <z4> z4 | <z5> z5 | <z6> z6 | <z7> z7 | <z8> z8 | <z9> z9 |<z10> z10 |<z11> z11 |<z12> z12|<z13> z13+"]
CREATE OR REPLACE FUNCTION layer_nuts(bbox geometry, zoom_level int)
    RETURNS TABLE
            (
                geometry      geometry,
                nuts_level    int,
                l_nuts_0_name text,
                l_nuts_1_name text,
                l_nuts_2_name text,
                l_nuts_3_name text,
                l_nuts_4_name text,
                l_nuts_5_name text,
                r_nuts_0_name text,
                r_nuts_1_name text,
                r_nuts_2_name text,
                r_nuts_3_name text,
                r_nuts_4_name text,
                r_nuts_5_name text
            )
AS
$$
SELECT 
    geometry,
    nuts_level,
    l_nuts_0_name,
    l_nuts_1_name,
    l_nuts_2_name,
    l_nuts_3_name,
    l_nuts_4_name,
    l_nuts_5_name,
    r_nuts_0_name,
    r_nuts_1_name,
    r_nuts_2_name,
    r_nuts_3_name,
    r_nuts_4_name,
    r_nuts_5_name
FROM osm_boundary_linestring
WHERE geometry && bbox
    AND zoom_level >
        ( CASE
            WHEN nuts_level=0 THEN 2
            WHEN nuts_level=1 THEN 4
            WHEN nuts_level=2 THEN 6
            WHEN nuts_level=3 THEN 6
            WHEN nuts_level=4 THEN 8
            WHEN nuts_level=5 THEN 10
        END )
$$ LANGUAGE SQL STABLE
    -- STRICT
    PARALLEL SAFE;