Changeset: bc8c2530daf3 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=bc8c2530daf3
Modified Files:
geom/monetdb5/geom.mal
geom/sql/40_geom.sql
Branch: sfcgal
Log Message:
Some MAL code cleanning so the names are easily matched. We will not
distinguish anymore ST_<func>(geom, geom) ST_<func>(geom, x, y, z, srid) at mal
level
diffs (169 lines):
diff --git a/geom/monetdb5/geom.mal b/geom/monetdb5/geom.mal
--- a/geom/monetdb5/geom.mal
+++ b/geom/monetdb5/geom.mal
@@ -316,7 +316,7 @@ command Equals(a:wkb, b:wkb) :bit addres
comment "Returns true if the given geometries represent the same geometry.
Directionality is ignored.";
command Intersects(a:wkb, b:wkb) :bit address wkbIntersects
comment "Returns true if these Geometries 'spatially intersect in 2D'";
-command IntersectsXYZ(a:wkb, x:dbl, y:dbl, z:dbl, srid:int) :bit address
wkbIntersectsXYZ
+command Intersects(a:wkb, x:dbl, y:dbl, z:dbl, srid:int) :bit address
wkbIntersectsXYZ
comment "Returns true if these Geometries 'spatially intersect in 2D'";
command Overlaps(a:wkb, b:wkb) :bit address wkbOverlaps
comment " Returns TRUE if the Geometries intersect but are not completely
contained by each other.";
@@ -333,7 +333,7 @@ comment "Returns TRUE if no point of geo
command DWithin(a:wkb, b:wkb, dst:dbl) :bit address wkbDWithin
comment "Returns true if the two geometries are within the specifies distance
from each other";
-command DWithinXYZ(a:wkb, x:dbl, y:dbl, z:dbl, srid:int, dst:dbl) :bit address
wkbDWithinXYZ
+command DWithin(a:wkb, x:dbl, y:dbl, z:dbl, srid:int, dst:dbl) :bit address
wkbDWithinXYZ
comment "Returns true if a geometry and a point are within the specifies
distance from each other";
command GeometryN(g:wkb, n:int) :wkb address wkbGeometryN
@@ -781,40 +781,40 @@ comment "Returns true if the two geometr
command DWithin3D(g:bat[:wkb], dxBAT:bat[:dbl], dx:dbl, dyBAT:bat[:dbl],
dy:dbl, dzBAT:bat[:dbl], dz:dbl, srid:int, dist:dbl) :bat[:bit] address
wkbDWithinXYZ_bat
comment "Returns true if these Geometries 'spatially intersect in 2D'";
-function DWithinXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl],
dzBAT:bat[:dbl], srid:int, dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl],
dzBAT:bat[:dbl], srid:int, dist:dbl) :bat[:bit];
x := DWithin3D(g, dxBAT, 0:dbl, dyBAT, 0:dbl, dzBAT, 0:dbl, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
-function DWithinXYZ(g:bat[:wkb], dx:dbl, dy:dbl, dzBAT:bat[:dbl], srid:int,
dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dx:dbl, dy:dbl, dzBAT:bat[:dbl], srid:int,
dist:dbl) :bat[:bit];
x := DWithin3D(g, nil:bat, dx, nil:bat, dy, dzBAT, 0:dbl, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
-function DWithinXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dzBAT:bat[:dbl],
srid:int, dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dzBAT:bat[:dbl],
srid:int, dist:dbl) :bat[:bit];
x := DWithin3D(g, dxBAT, 0:dbl, nil:bat, dy, dzBAT, 0:dbl, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
-function DWithinXYZ(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dzBAT:bat[:dbl],
srid:int, dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dzBAT:bat[:dbl],
srid:int, dist:dbl) :bat[:bit];
x := DWithin3D(g, nil:bat, dx, dyBAT, 0:dbl, dzBAT, 0:dbl, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
-function DWithinXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl], dz:dbl,
srid:int, dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl], dz:dbl,
srid:int, dist:dbl) :bat[:bit];
x := DWithin3D(g, dxBAT, 0:dbl, dyBAT, 0:dbl, nil:bat, dz, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
-function DWithinXYZ(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dz:dbl, srid:int,
dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dz:dbl, srid:int,
dist:dbl) :bat[:bit];
x := DWithin3D(g, nil:bat, dx, dyBAT, 0:dbl, nil:bat, dz, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
-function DWithinXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dz:dbl, srid:int,
dist:dbl) :bat[:bit];
+function DWithin(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dz:dbl, srid:int,
dist:dbl) :bat[:bit];
x := DWithin3D(g, dxBAT, 0:dbl, nil:bat, dy, nil:bat, dz, srid, dist);
return x;
-end DWithinXYZ;
+end DWithin;
command GeometryN(w:bat[:wkb], n:int) :bat[:wkb] address wkbGeometryN_bat
comment "Returns the 1-based Nth geometry if the geometry is a
GEOMETRYCOLLECTION, (MULTI)POINT, (MULTI)LINESTRING, MULTICURVE or
(MULTI)POLYGON. Otherwise, return NULL";
@@ -933,40 +933,40 @@ comment "Returns true if these Geometrie
command Intersects3D(g:bat[:wkb], dxBAT:bat[:dbl], dx:dbl, dyBAT:bat[:dbl],
dy:dbl, dzBAT:bat[:dbl], dz:dbl, srid:int) :bat[:bit] address
wkbIntersectsXYZ_bat
comment "Returns true if these Geometries 'spatially intersect in 2D'";
-function IntersectsXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl],
dzBAT:bat[:dbl], srid:int) :bat[:bit];
+function Intersects(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl],
dzBAT:bat[:dbl], srid:int) :bat[:bit];
x := Intersects3D(g, dxBAT, 0:dbl, dyBAT, 0:dbl, dzBAT, 0:dbl, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
-function IntersectsXYZ(g:bat[:wkb], dx:dbl, dy:dbl, dzBAT:bat[:dbl], srid:int)
:bat[:bit];
+function Intersects(g:bat[:wkb], dx:dbl, dy:dbl, dzBAT:bat[:dbl], srid:int)
:bat[:bit];
x := Intersects3D(g, nil:bat, dx, nil:bat, dy, dzBAT, 0:dbl, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
-function IntersectsXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dzBAT:bat[:dbl],
srid:int) :bat[:bit];
+function Intersects(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dzBAT:bat[:dbl],
srid:int) :bat[:bit];
x := Intersects3D(g, dxBAT, 0:dbl, nil:bat, dy, dzBAT, 0:dbl, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
-function IntersectsXYZ(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dzBAT:bat[:dbl],
srid:int) :bat[:bit];
+function Intersects(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dzBAT:bat[:dbl],
srid:int) :bat[:bit];
x := Intersects3D(g, nil:bat, dx, dyBAT, 0:dbl, dzBAT, 0:dbl, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
-function IntersectsXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl], dz:dbl,
srid:int) :bat[:bit];
+function Intersects(g:bat[:wkb], dxBAT:bat[:dbl], dyBAT:bat[:dbl], dz:dbl,
srid:int) :bat[:bit];
x := Intersects3D(g, dxBAT, 0:dbl, dyBAT, 0:dbl, nil:bat, dz, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
-function IntersectsXYZ(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dz:dbl, srid:int)
:bat[:bit];
+function Intersects(g:bat[:wkb], dx:dbl, dyBAT:bat[:dbl], dz:dbl, srid:int)
:bat[:bit];
x := Intersects3D(g, nil:bat, dx, dyBAT, 0:dbl, nil:bat, dz, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
-function IntersectsXYZ(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dz:dbl, srid:int)
:bat[:bit];
+function Intersects(g:bat[:wkb], dxBAT:bat[:dbl], dy:dbl, dz:dbl, srid:int)
:bat[:bit];
x := Intersects3D(g, dxBAT, 0:dbl, nil:bat, dy, nil:bat, dz, srid);
return x;
-end IntersectsXYZ;
+end Intersects;
module calc;
@@ -1032,7 +1032,7 @@ command geom.Intersectssubjoin(l:bat[:wk
address Intersectssubjoin
comment "Return the geometry pairs that intersect";
-command geom.IntersectsXYZsubjoin(l:bat[:wkb], x:bat[:dbl], y:bat[:dbl],
z:bat[:dbl], srid:int, sl:bat[:oid], sr:bat[:oid], nil_matches:bit,
estimate:lng) (lr:bat[:oid],sr:bat[:oid])
+command geom.Intersectssubjoin(l:bat[:wkb], x:bat[:dbl], y:bat[:dbl],
z:bat[:dbl], srid:int, sl:bat[:oid], sr:bat[:oid], nil_matches:bit,
estimate:lng) (lr:bat[:oid],sr:bat[:oid])
address IntersectsXYZsubjoin
comment "Return the geometry pairs that intersect";
@@ -1040,6 +1040,6 @@ command geom.DWithinsubjoin(l:bat[:wkb],
address DWithinsubjoin
comment "Returns the geometry pairs are withing distance dist";
-command geom.DWithinXYZsubjoin(l:bat[:wkb], x:bat[:dbl], y:bat[:dbl],
z:bat[:dbl], srid:int, dist:dbl, sl:bat[:oid], sr:bat[:oid], nil_matches:bit,
estimate:lng) (lr:bat[:oid],sr:bat[:oid])
+command geom.DWithinsubjoin(l:bat[:wkb], x:bat[:dbl], y:bat[:dbl],
z:bat[:dbl], srid:int, dist:dbl, sl:bat[:oid], sr:bat[:oid], nil_matches:bit,
estimate:lng) (lr:bat[:oid],sr:bat[:oid])
address DWithinXYZsubjoin
comment "Returns the geometry pairs are withing distance dist";
diff --git a/geom/sql/40_geom.sql b/geom/sql/40_geom.sql
--- a/geom/sql/40_geom.sql
+++ b/geom/sql/40_geom.sql
@@ -4035,7 +4035,7 @@ CREATE FUNCTION ST_Envelope(geom Geometr
CREATE FUNCTION ST_Equals(geom1 Geometry, geom2 Geometry) RETURNS boolean
EXTERNAL NAME geom."Equals";
CREATE FUNCTION ST_Disjoint(geom1 Geometry, geom2 Geometry) RETURNS boolean
EXTERNAL NAME geom."Disjoint";
CREATE FUNCTION ST_Intersects(geom1 Geometry, geom2 Geometry) RETURNS boolean
EXTERNAL NAME geom."Intersects";
-CREATE FUNCTION ST_Intersects(geom1 Geometry, x double, y double, z double,
srid int) RETURNS boolean EXTERNAL NAME geom."IntersectsXYZ";
+CREATE FUNCTION ST_Intersects(geom1 Geometry, x double, y double, z double,
srid int) RETURNS boolean EXTERNAL NAME geom."Intersects";
CREATE FUNCTION ST_Touches(geom1 Geometry, geom2 Geometry) RETURNS boolean
EXTERNAL NAME geom."Touches";
CREATE FUNCTION ST_Crosses(geom1 Geometry, geom2 Geometry) RETURNS boolean
EXTERNAL NAME geom."Crosses";
CREATE FUNCTION ST_Within(geom1 Geometry, geom2 Geometry) RETURNS boolean
EXTERNAL NAME geom."Within";
@@ -4473,6 +4473,6 @@ CREATE FUNCTION Patch_to_Geom(a Geometry
-------------------------------------------------------------------------
CREATE filter function Intersects(geom1 Geometry, geom2 Geometry) external
name geom."Intersects";
-CREATE filter function Intersects(geom1 Geometry, x double, y double, z
double, srid int) external name geom."IntersectsXYZ";
+CREATE filter function Intersects(geom1 Geometry, x double, y double, z
double, srid int) external name geom."Intersects";
CREATE filter function DWithin(geom1 Geometry, geom2 Geometry, dist double)
external name geom."DWithin";
-CREATE filter function DWithin(geom1 Geometry, x double, y double, z double,
srid int, dist double) external name geom."DWithinXYZ";
+CREATE filter function DWithin(geom1 Geometry, x double, y double, z double,
srid int, dist double) external name geom."DWithin";
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
