1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
--
-- PostGIS - Spatial Types for PostgreSQL
-- http://postgis.net
--
-- Copyright (C) 2011 Sandro Santilli <strk@kbt.io>
--
-- This is free software; you can redistribute and/or modify it under
-- the terms of the GNU General Public Licence. See the COPYING file.
--
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
--{
-- CopyTopology(name_source, name_target)
--
-- Makes a copy of a topology (primitives + topogeometry collections) .
-- Returns the new topology id.
--
CREATE OR REPLACE FUNCTION topology.CopyTopology(atopology varchar, newtopo varchar)
RETURNS int
AS
$BODY$
DECLARE
rec RECORD;
rec2 RECORD;
oldtopo_id integer;
newtopo_id integer;
n int4;
ret text;
sql text;
BEGIN
SELECT * FROM topology.topology where name = atopology
INTO strict rec;
oldtopo_id = rec.id;
-- TODO: more gracefully handle unexistent topology
SELECT topology.CreateTopology(newtopo, rec.SRID, rec.precision, rec.hasZ)
INTO strict newtopo_id;
sql := format(
$$
-- Copy faces
INSERT INTO %1$I.face
SELECT * FROM %2$I.face
WHERE face_id != 0;
-- Update face sequence
SELECT setval(
'%1$I.face_face_id_seq',
(SELECT last_value FROM %2$I.face_face_id_seq)
);
-- Copy nodes
INSERT INTO %1$I.node
SELECT * FROM %2$I.node;
-- Update node sequence
SELECT setval(
'%1$I.node_node_id_seq',
(SELECT last_value FROM %2$I.node_node_id_seq)
);
-- Copy edges
INSERT INTO %1$I.edge_data
SELECT * FROM %2$I.edge_data;
-- Update edge sequence
SELECT setval(
'%1$I.edge_data_edge_id_seq',
(SELECT last_value FROM %2$I.edge_data_edge_id_seq)
);
$$,
newtopo,
atopology
);
EXECUTE sql;
-- Copy layers and their TopoGeometry sequences
FOR rec IN SELECT * FROM topology.layer WHERE topology_id = oldtopo_id
LOOP
INSERT INTO topology.layer (topology_id, layer_id, feature_type,
level, child_id, schema_name, table_name, feature_column)
VALUES (newtopo_id, rec.layer_id, rec.feature_type,
rec.level, rec.child_id, newtopo,
'LAYER' || rec.layer_id, '');
-- Create layer's TopoGeometry sequences
EXECUTE format(
$$
CREATE SEQUENCE %1$I.topogeo_s_%2$s;
SELECT setval(
'%1$I.topogeo_s_%2$s',
(SELECT last_value FROM %3$I.topogeo_s_%2$s)
);
$$,
newtopo,
rec.layer_id,
atopology
);
END LOOP;
-- Copy TopoGeometry definitions
EXECUTE format(
$$
INSERT INTO %1$I.relation
SELECT * FROM %2$I.relation
$$,
newtopo,
atopology
);
RETURN newtopo_id;
END
$BODY$
LANGUAGE 'plpgsql' VOLATILE STRICT;
--} TopologySummary
|
