2003-11-11 10:38:23 +00:00
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
--
|
|
|
|
-- $Id$
|
|
|
|
--
|
|
|
|
-- PostGIS - Spatial Types for PostgreSQL
|
|
|
|
-- http://postgis.refractions.net
|
|
|
|
-- Copyright 2001-2003 Refractions Research Inc.
|
|
|
|
--
|
|
|
|
-- This is free software; you can redistribute and/or modify it under
|
|
|
|
-- the terms of hte GNU General Public Licence. See the COPYING file.
|
|
|
|
--
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- $Log$
|
2004-01-20 20:14:17 +00:00
|
|
|
-- Revision 1.9 2004/01/20 20:14:17 strk
|
|
|
|
-- cleaner comments for DropGeometryColumn
|
|
|
|
--
|
2004-01-20 20:10:39 +00:00
|
|
|
-- Revision 1.8 2004/01/20 20:10:39 strk
|
|
|
|
-- removed bogus comment about missed alter table drop column
|
|
|
|
--
|
2003-12-30 10:40:21 +00:00
|
|
|
-- Revision 1.7 2003/12/30 10:40:21 strk
|
|
|
|
-- For all versions:
|
|
|
|
-- Updated fix_geometry_columns to use a more readable format in queries.
|
|
|
|
--
|
|
|
|
-- For PG >= 73:
|
|
|
|
-- Updated fix_geometry_columns() to consider schema when fixing attrelid and
|
|
|
|
-- varattnum, also changed empty value to 'public' string for records with
|
|
|
|
-- an invalid schema specification.
|
|
|
|
-- Updated DropGeometryColumn to actually issue the
|
|
|
|
-- ALTER TABLE DROP COLUMN query.
|
|
|
|
--
|
2003-12-23 09:00:12 +00:00
|
|
|
-- Revision 1.6 2003/12/23 09:00:12 strk
|
|
|
|
-- AddGeometryColumn, DropGeometryColum moved to version-specific scripts.
|
|
|
|
-- Schema support enabled for version 73 and 74.
|
|
|
|
--
|
2003-12-18 18:07:06 +00:00
|
|
|
-- Revision 1.5 2003/12/18 18:07:06 strk
|
|
|
|
-- Changed fix_geometry_columns() for PG >= 73 so to set f_table_schema to
|
|
|
|
-- the empty string if its value is not a valid pg namespace.
|
|
|
|
--
|
2003-11-28 11:25:31 +00:00
|
|
|
-- Revision 1.4 2003/11/28 11:25:31 strk
|
|
|
|
-- Added explicit geometry as text cast
|
|
|
|
--
|
2003-11-28 11:06:49 +00:00
|
|
|
-- Revision 1.3 2003/11/28 11:06:49 strk
|
|
|
|
-- Added WKB_recv function for binary WKB input
|
|
|
|
--
|
2003-11-19 15:29:21 +00:00
|
|
|
-- Revision 1.2 2003/11/19 15:29:21 strk
|
|
|
|
-- Added default btree operator class for PG7.4
|
|
|
|
--
|
2003-11-11 10:38:23 +00:00
|
|
|
-- Revision 1.1 2003/11/11 10:38:23 strk
|
|
|
|
-- Postgresql 7.4 enabler scripts.
|
|
|
|
--
|
|
|
|
-- Revision 1.4 2003/07/01 18:30:55 pramsey
|
|
|
|
-- Added CVS revision headers.
|
|
|
|
--
|
|
|
|
--
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- WKB
|
|
|
|
|
|
|
|
-- this has been moved here at _end from _start
|
|
|
|
-- because we need the definition of function bytea
|
|
|
|
-- found in _common
|
|
|
|
CREATE TYPE wkb (
|
|
|
|
internallength = variable,
|
|
|
|
input = wkb_in,
|
|
|
|
output = wkb_out,
|
|
|
|
storage = extended,
|
2003-11-28 11:06:49 +00:00
|
|
|
send = bytea,
|
|
|
|
receive = wkb_recv
|
2003-11-11 10:38:23 +00:00
|
|
|
);
|
|
|
|
|
|
|
|
--
|
|
|
|
-- 7.3 explicit casting definitions
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE CAST ( chip AS geometry ) WITH FUNCTION geometry(chip) AS IMPLICIT;
|
|
|
|
CREATE CAST ( geometry AS box3d ) WITH FUNCTION box3d(geometry) AS IMPLICIT;
|
|
|
|
CREATE CAST ( geometry AS box ) WITH FUNCTION box(geometry) AS IMPLICIT;
|
|
|
|
CREATE CAST ( box3d AS geometry ) WITH FUNCTION geometry(box3d) AS IMPLICIT;
|
|
|
|
CREATE CAST ( text AS geometry) WITH FUNCTION geometry(text) AS IMPLICIT;
|
|
|
|
CREATE CAST ( wkb AS bytea ) WITH FUNCTION bytea(wkb) AS IMPLICIT;
|
|
|
|
CREATE CAST ( box3d AS box ) WITH FUNCTION box3dtobox(box3d);
|
2003-11-28 11:25:31 +00:00
|
|
|
CREATE CAST ( geometry AS text ) WITH FUNCTION astext(geometry);
|
2003-11-11 10:38:23 +00:00
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- UPDATE_GEOMETRY_STATS()
|
|
|
|
|
|
|
|
CREATE FUNCTION update_geometry_stats()
|
|
|
|
RETURNS text
|
|
|
|
AS
|
|
|
|
'
|
|
|
|
BEGIN
|
|
|
|
EXECUTE ''update geometry_columns set attrelid = (select pg_class.oid AS attrelid from pg_class,pg_attribute where relname =geometry_columns.f_table_name::name and pg_attribute.attrelid = pg_class.oid and pg_attribute.attname = geometry_columns.f_geometry_column::name), varattnum = (select pg_attribute.attnum from pg_class,pg_attribute where relname =geometry_columns.f_table_name::name and pg_attribute.attrelid = pg_class.oid and pg_attribute.attname = geometry_columns.f_geometry_column::name)'';
|
|
|
|
execute ''update geometry_columns set stats = (build_histogram2d( create_histogram2d(find_extent(f_table_name,f_geometry_column),40 ),f_table_name::text, f_geometry_column::text)) '';
|
|
|
|
return ''done'';
|
|
|
|
END;
|
|
|
|
'
|
|
|
|
LANGUAGE 'plpgsql' ;
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- UPDATE_GEOMETRY_STATS( <table>, <column> )
|
|
|
|
|
|
|
|
CREATE FUNCTION update_geometry_stats(varchar,varchar)
|
|
|
|
RETURNS text
|
|
|
|
AS
|
|
|
|
'
|
|
|
|
DECLARE
|
|
|
|
tablename aliAS for $1;
|
|
|
|
columnname aliAS for $2;
|
|
|
|
|
|
|
|
BEGIN
|
|
|
|
EXECUTE ''update geometry_columns set attrelid = (select pg_class.oid AS attrelid from pg_class,pg_attribute where relname =geometry_columns.f_table_name::name and pg_attribute.attrelid = pg_class.oid and pg_attribute.attname = geometry_columns.f_geometry_column::name), varattnum = (select pg_attribute.attnum from pg_class,pg_attribute where relname =geometry_columns.f_table_name::name and pg_attribute.attrelid = pg_class.oid and pg_attribute.attname = geometry_columns.f_geometry_column::name)'';
|
|
|
|
execute ''update geometry_columns set stats = (build_histogram2d( create_histogram2d(find_extent(''|| quote_literal(tablename) || '',''||quote_literal(columnname) ||''),40 ),''|| quote_literal(tablename) || ''::text,''||quote_literal(columnname) ||''::text )) WHERE f_table_name=''|| quote_literal(tablename) || ''and f_geometry_column=''||quote_literal(columnname) ;
|
|
|
|
return ''done'';
|
|
|
|
END;
|
|
|
|
'
|
|
|
|
LANGUAGE 'plpgsql' ;
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- CREATE_HISTOGRAM2D( <box>, <size> )
|
|
|
|
--
|
|
|
|
-- Returns a histgram with 0s in all the boxes.
|
|
|
|
|
|
|
|
CREATE FUNCTION create_histogram2d(box3d,int)
|
|
|
|
RETURNS histogram2d
|
|
|
|
AS '@MODULE_FILENAME@','create_histogram2d'
|
|
|
|
LANGUAGE 'C' with (isstrict);
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- BUILD_HISTOGRAM2D( <histogram2d>, <tablename>, <columnname> )
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE FUNCTION build_histogram2d (histogram2d, text, text)
|
|
|
|
RETURNS histogram2d
|
|
|
|
AS '@MODULE_FILENAME@','build_histogram2d'
|
|
|
|
LANGUAGE 'C' with (isstrict);
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- EXPLODE_HISTOGRAM2D( <histogram2d>, <tablename> )
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE FUNCTION explode_histogram2d (histogram2d, text)
|
|
|
|
RETURNS histogram2d
|
|
|
|
AS '@MODULE_FILENAME@','explode_histogram2d'
|
|
|
|
LANGUAGE 'C' with (isstrict);
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- ESTIMATE_HISTOGRAM2D( <histogram2d>, <box> )
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE FUNCTION estimate_histogram2d(histogram2d,box)
|
|
|
|
RETURNS float8
|
|
|
|
AS '@MODULE_FILENAME@','estimate_histogram2d'
|
|
|
|
LANGUAGE 'C' with (isstrict);
|
|
|
|
|
|
|
|
CREATE FUNCTION postgisgistcostestimate(internal,internal,internal,internal,internal,internal,internal,internal)
|
|
|
|
RETURNS opaque
|
|
|
|
AS '@MODULE_FILENAME@','postgisgistcostestimate'
|
|
|
|
LANGUAGE 'C' with (isstrict);
|
|
|
|
|
|
|
|
--
|
|
|
|
-- 7.2 GiST support functions
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE FUNCTION ggeometry_consistent(internal,geometry,int4)
|
|
|
|
RETURNS bool
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION ggeometry_compress(internal)
|
|
|
|
RETURNS internal
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION gbox_penalty(internal,internal,internal)
|
|
|
|
RETURNS internal
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION gbox_picksplit(internal, internal)
|
|
|
|
RETURNS internal
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION gbox_union(bytea, internal)
|
|
|
|
RETURNS internal
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION gbox_same(box, box, internal)
|
|
|
|
RETURNS internal
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION rtree_decompress(internal)
|
|
|
|
RETURNS internal
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
--
|
|
|
|
-- 7.2 RTREE support functions
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE FUNCTION geometry_union(geometry,geometry)
|
|
|
|
RETURNS geometry
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION geometry_inter(geometry,geometry)
|
|
|
|
RETURNS geometry
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
CREATE FUNCTION geometry_size(geometry,internal)
|
|
|
|
RETURNS float4
|
|
|
|
AS '@MODULE_FILENAME@'
|
|
|
|
LANGUAGE 'C';
|
|
|
|
|
|
|
|
--
|
|
|
|
-- Create opclass index bindings
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE OPERATOR CLASS gist_geometry_ops
|
|
|
|
DEFAULT FOR TYPE geometry USING gist AS
|
|
|
|
OPERATOR 1 << ,
|
|
|
|
OPERATOR 2 &< ,
|
|
|
|
OPERATOR 3 && ,
|
|
|
|
OPERATOR 4 &> ,
|
|
|
|
OPERATOR 5 >> ,
|
|
|
|
OPERATOR 6 ~= ,
|
|
|
|
OPERATOR 7 ~ ,
|
|
|
|
OPERATOR 8 @ ,
|
|
|
|
FUNCTION 1 ggeometry_consistent (internal, geometry, int4),
|
|
|
|
FUNCTION 2 gbox_union (bytea, internal),
|
|
|
|
FUNCTION 3 ggeometry_compress (internal),
|
|
|
|
FUNCTION 4 rtree_decompress (internal),
|
|
|
|
FUNCTION 5 gbox_penalty (internal, internal, internal),
|
|
|
|
FUNCTION 6 gbox_picksplit (internal, internal),
|
|
|
|
FUNCTION 7 gbox_same (box, box, internal);
|
|
|
|
|
|
|
|
UPDATE pg_opclass
|
|
|
|
SET opckeytype = (select oid from pg_type where typname = 'box')
|
|
|
|
WHERE opcname = 'gist_geometry_ops';
|
|
|
|
|
2003-11-19 15:29:21 +00:00
|
|
|
CREATE OPERATOR CLASS btree_geometry_ops
|
|
|
|
DEFAULT FOR TYPE geometry USING btree AS
|
|
|
|
OPERATOR 1 < ,
|
|
|
|
OPERATOR 2 <= ,
|
|
|
|
OPERATOR 3 = ,
|
|
|
|
OPERATOR 4 >= ,
|
|
|
|
OPERATOR 5 > ,
|
|
|
|
FUNCTION 1 geometry_cmp (geometry, geometry);
|
|
|
|
|
|
|
|
|
2003-12-18 18:07:06 +00:00
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- FIX_GEOMETRY_COLUMNS()
|
|
|
|
--
|
|
|
|
-- Since 7.3 schema support has been added.
|
|
|
|
-- Previous postgis versions used to put the database name in
|
|
|
|
-- the schema column. This needs to be fixed, so we set to the
|
|
|
|
-- empty string any schema value not existing in pg_namespace
|
|
|
|
--
|
|
|
|
|
|
|
|
CREATE FUNCTION fix_geometry_columns() RETURNS text
|
|
|
|
AS
|
|
|
|
'
|
|
|
|
BEGIN
|
2003-12-30 10:40:21 +00:00
|
|
|
-- it would be better to find the correct schema name
|
|
|
|
UPDATE geometry_columns SET f_table_schema = ''public''
|
|
|
|
WHERE f_table_schema is NULL or f_table_schema NOT IN
|
|
|
|
( SELECT nspname::varchar FROM pg_namespace );
|
|
|
|
|
|
|
|
UPDATE geometry_columns SET attrelid = (
|
|
|
|
SELECT c.oid
|
|
|
|
FROM pg_class c, pg_attribute a, pg_namespace n
|
|
|
|
WHERE c.relname = geometry_columns.f_table_name::name
|
|
|
|
AND a.attrelid = c.oid AND c.relnamespace = n.oid
|
|
|
|
AND a.attname = geometry_columns.f_geometry_column::name
|
|
|
|
AND n.nspname = geometry_columns.f_table_schema::name
|
|
|
|
);
|
|
|
|
|
|
|
|
UPDATE geometry_columns SET varattnum = (
|
|
|
|
SELECT a.attnum
|
|
|
|
FROM pg_class c, pg_attribute a, pg_namespace n
|
|
|
|
WHERE n.nspname = geometry_columns.f_table_schema::name
|
|
|
|
AND c.relname = geometry_columns.f_table_name::name
|
|
|
|
AND a.attname = geometry_columns.f_geometry_column::name
|
|
|
|
AND a.attrelid = c.oid AND c.relnamespace = n.oid
|
|
|
|
);
|
|
|
|
|
2003-12-18 18:07:06 +00:00
|
|
|
RETURN ''geometry_columns table is now linked to the system tables'';
|
2003-12-30 10:40:21 +00:00
|
|
|
|
|
|
|
|
2003-12-18 18:07:06 +00:00
|
|
|
END;
|
|
|
|
'
|
|
|
|
LANGUAGE 'plpgsql' ;
|
|
|
|
|
2003-12-30 10:40:21 +00:00
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- ADDGEOMETRYCOLUMN (
|
|
|
|
-- <catalog>, <schema>, <table name>, <column name>,
|
|
|
|
-- <srid>, <type>, <dim> )
|
|
|
|
--
|
|
|
|
-- Type can be one of geometry, GEOMETRYCOLLECTION, POINT, MULTIPOINT, POLYGON,
|
|
|
|
-- MULTIPOLYGON, LINESTRING, or MULTILINESTRING.
|
|
|
|
--
|
|
|
|
-- Types (except geometry) are checked for consistency using a CHECK constraint
|
|
|
|
-- uses SQL ALTER TABLE command to add the geometry column to the table.
|
|
|
|
-- Addes a row to geometry_columns.
|
|
|
|
-- Addes a constraint on the table that all the geometries MUST have the same
|
|
|
|
-- SRID. Checks the coord_dimension to make sure its between 0 and 3.
|
|
|
|
-- Should also check the precision grid (future expansion).
|
|
|
|
-- Calls fix_geometry_columns() at the end.
|
|
|
|
--
|
|
|
|
CREATE FUNCTION AddGeometryColumn(varchar,varchar,varchar,varchar,integer,varchar,integer)
|
|
|
|
RETURNS text
|
|
|
|
AS
|
|
|
|
'
|
|
|
|
DECLARE
|
|
|
|
catalog_name alias for $1;
|
|
|
|
schema_name alias for $2;
|
|
|
|
table_name alias for $3;
|
|
|
|
column_name alias for $4;
|
|
|
|
new_srid alias for $5;
|
|
|
|
new_type alias for $6;
|
|
|
|
new_dim alias for $7;
|
|
|
|
|
|
|
|
rec RECORD;
|
|
|
|
schema_ok bool;
|
|
|
|
real_schema name;
|
|
|
|
BEGIN
|
|
|
|
|
|
|
|
IF ( not ( (new_type =''GEOMETRY'') or
|
|
|
|
(new_type =''GEOMETRYCOLLECTION'') or
|
|
|
|
(new_type =''POINT'') or
|
|
|
|
(new_type =''MULTIPOINT'') or
|
|
|
|
(new_type =''POLYGON'') or
|
|
|
|
(new_type =''MULTIPOLYGON'') or
|
|
|
|
(new_type =''LINESTRING'') or
|
|
|
|
(new_type =''MULTILINESTRING'')) )
|
|
|
|
THEN
|
|
|
|
RAISE EXCEPTION ''Invalid type name - valid ones are:
|
|
|
|
GEOMETRY, GEOMETRYCOLLECTION, POINT,
|
|
|
|
MULTIPOINT, POLYGON, MULTIPOLYGON,
|
|
|
|
LINESTRING, or MULTILINESTRING '';
|
|
|
|
RETURN ''fail'';
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
IF ( (new_dim >3) or (new_dim <0) ) THEN
|
|
|
|
RAISE EXCEPTION ''invalid dimension'';
|
|
|
|
RETURN ''fail'';
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
IF ( schema_name != '''' ) THEN
|
|
|
|
schema_ok = ''f'';
|
|
|
|
FOR rec IN SELECT nspname FROM pg_namespace WHERE text(nspname) = schema_name LOOP
|
|
|
|
schema_ok := ''t'';
|
|
|
|
END LOOP;
|
|
|
|
|
|
|
|
if ( schema_ok <> ''t'' ) THEN
|
|
|
|
RAISE NOTICE ''Invalid schema name - using current_schema()'';
|
|
|
|
SELECT current_schema() into real_schema;
|
|
|
|
ELSE
|
|
|
|
real_schema = schema_name;
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
ELSE
|
|
|
|
SELECT current_schema() into real_schema;
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
EXECUTE ''ALTER TABLE '' || quote_ident(real_schema) ||
|
|
|
|
''.'' || quote_ident(table_name) ||
|
|
|
|
'' ADD COLUMN '' || quote_ident(column_name) ||
|
|
|
|
'' geometry '';
|
|
|
|
|
|
|
|
EXECUTE ''ALTER TABLE '' || quote_ident(real_schema) ||
|
|
|
|
''.'' || quote_ident(table_name) ||
|
|
|
|
'' ADD CHECK (SRID('' || quote_ident(column_name) ||
|
|
|
|
'') = '' || new_srid || '')'' ;
|
|
|
|
|
|
|
|
IF (not(new_type = ''GEOMETRY'')) THEN
|
|
|
|
EXECUTE ''ALTER TABLE '' || quote_ident(real_schema) ||
|
|
|
|
''.'' || quote_ident(table_name) ||
|
|
|
|
'' ADD CHECK (geometrytype('' ||
|
|
|
|
quote_ident(column_name) || '')='' ||
|
|
|
|
quote_literal(new_type) || '' OR ('' ||
|
|
|
|
quote_ident(column_name) || '') is null)'';
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
EXECUTE ''INSERT INTO geometry_columns VALUES ('' ||
|
|
|
|
quote_literal('''') || '','' ||
|
|
|
|
quote_literal(real_schema) || '','' ||
|
|
|
|
quote_literal(table_name) || '','' ||
|
|
|
|
quote_literal(column_name) || '','' ||
|
|
|
|
new_dim || '','' || new_srid || '','' ||
|
|
|
|
quote_literal(new_type) || '')'';
|
|
|
|
|
|
|
|
EXECUTE ''select fix_geometry_columns()'';
|
|
|
|
--SELECT fix_geometry_columns();
|
|
|
|
|
|
|
|
return ''Geometry column '' || column_name || '' added to table ''
|
|
|
|
|| real_schema || ''.'' || table_name || '' WITH a SRID of '' || new_srid ||
|
|
|
|
'' and type '' || new_type;
|
|
|
|
END;
|
|
|
|
' LANGUAGE 'plpgsql' WITH (isstrict);
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- ADDGEOMETRYCOLUMN ( <schema>, <table>, <column>, <srid>, <type>, <dim> )
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
CREATE FUNCTION AddGeometryColumn(varchar,varchar,varchar,integer,varchar,integer) RETURNS text AS '
|
|
|
|
DECLARE
|
|
|
|
ret text;
|
|
|
|
BEGIN
|
|
|
|
SELECT AddGeometryColumn('''',$1,$2,$3,$4,$5,$6) into ret;
|
|
|
|
RETURN ret;
|
|
|
|
END;
|
|
|
|
' LANGUAGE 'plpgsql' WITH (isstrict);
|
|
|
|
|
|
|
|
-- - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
|
|
-- DROPGEOMETRYCOLUMN( <schema name>, <table name>, <column name> )
|
|
|
|
--
|
2004-01-20 20:14:17 +00:00
|
|
|
-- Removes geometry column reference from geometry_columns table,
|
|
|
|
-- and actually drops the column.
|
2003-12-30 10:40:21 +00:00
|
|
|
--
|
|
|
|
CREATE FUNCTION DropGeometryColumn(varchar,varchar,varchar)
|
|
|
|
RETURNS text
|
|
|
|
AS
|
|
|
|
'
|
|
|
|
DECLARE
|
|
|
|
schema_name alias for $1;
|
|
|
|
table_name alias for $2;
|
|
|
|
column_name alias for $3;
|
|
|
|
|
|
|
|
myrec RECORD;
|
|
|
|
real_schema name;
|
|
|
|
okay boolean;
|
|
|
|
query text;
|
|
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
|
|
|
|
|
|
-- Find, check or fix schema_name
|
|
|
|
IF ( schema_name != '''' ) THEN
|
|
|
|
okay = ''f'';
|
|
|
|
|
|
|
|
FOR myrec IN SELECT nspname FROM pg_namespace WHERE text(nspname) = schema_name LOOP
|
|
|
|
okay := ''t'';
|
|
|
|
END LOOP;
|
|
|
|
|
|
|
|
IF ( okay <> ''t'' ) THEN
|
|
|
|
RAISE NOTICE ''Invalid schema name - using current_schema()'';
|
|
|
|
SELECT current_schema() into real_schema;
|
|
|
|
ELSE
|
|
|
|
real_schema = schema_name;
|
|
|
|
END IF;
|
|
|
|
ELSE
|
|
|
|
SELECT current_schema() into real_schema;
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
-- first we find out if the column is in the geometry_columns table
|
|
|
|
okay = ''f'';
|
|
|
|
FOR myrec IN SELECT * from geometry_columns where f_table_schema = text(real_schema) and f_table_name = table_name and f_geometry_column = column_name LOOP
|
|
|
|
okay := ''t'';
|
|
|
|
END LOOP;
|
|
|
|
IF (okay <> ''t'') THEN
|
|
|
|
RAISE EXCEPTION ''column not found in geometry_columns table'';
|
|
|
|
RETURN ''f'';
|
|
|
|
END IF;
|
|
|
|
|
|
|
|
|
|
|
|
-- Remove ref from geometry_columns table
|
|
|
|
EXECUTE ''delete from geometry_columns where f_table_schema = '' ||
|
|
|
|
quote_literal(real_schema) || '' and f_table_name = '' ||
|
|
|
|
quote_literal(table_name) || '' and f_geometry_column = '' ||
|
|
|
|
quote_literal(column_name);
|
|
|
|
|
|
|
|
-- Remove table column
|
|
|
|
EXECUTE ''ALTER TABLE '' || quote_ident(real_schema) || ''.'' ||
|
|
|
|
quote_ident(table_name) || '' DROP COLUMN '' ||
|
|
|
|
quote_ident(column_name);
|
|
|
|
|
|
|
|
|
|
|
|
RETURN real_schema || ''.'' || table_name || ''.'' || column_name ||'' effectively removed.'';
|
|
|
|
|
|
|
|
END;
|
|
|
|
'
|
|
|
|
LANGUAGE 'plpgsql' WITH (isstrict);
|
|
|
|
|
|
|
|
|
|
|
|
|
2003-12-23 09:00:12 +00:00
|
|
|
|
2003-11-11 10:38:23 +00:00
|
|
|
END TRANSACTION;
|