globegit-postgresql-plruby 0.5.4

data/test/conv_geometry/test_queries.sql.in

@@ -0,0 +1,194 @@
+set client_min_messages = 'WARNING';
+
+create table pl_box (
+  data box, barea float, boverlaps bool, boverleft bool, boverright bool,
+  bleft bool, bright bool
+);
+
+create or replace function box_val(box[]) returns setof pl_box as '
+  b1 = Box.new(2.5,2.5,1.0,1.0)
+  b2 = Box.new(2.0,2.0,2.5,2.5)
+  b3 = Box.new(3.0,3.0,5.0,5.0)
+  args[0].each do |b|
+     yield [b, b.area, b.overlap?(b1), b.overleft?(b2), 
+            b.overright?(b2), b.left?(b3), b3.right?(b)]
+  end
+' language 'plruby';
+
+select * from 
+box_val('{(2.0,2.0,0.0,0.0);(1.0,1.0,3.0,3.0);(2.5,2.5,2.5,3.5);(3.0,3.0,3.0,3.0)}'::box[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   b box, bcmp1 int, bcmp2 int, bin bool, bcontain bool, bcenter point
+);
+
+create or replace function box_val(box[]) returns setof pl_box as '
+  b1 = Box.new(3.0,3.0,5.0,5.0)
+  b2 = Box.new(3.5,3.0,4.5,3.0)
+  b3 = Box.new(0,0,3,3)
+  args[0].each do |b|
+     yield [b, b <=> b1, b <=> b2, b.in?(b3), b.contain?(b3), b.center]
+  end
+' language 'plruby';
+
+select * from 
+box_val('{(2.0,2.0,0.0,0.0);(1.0,1.0,3.0,3.0);(2.5,2.5,2.5,3.5);(3.0,3.0,3.0,3.0)}'::box[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   b0 box, b1 box, b2 box, b3 box
+);
+
+create or replace function box_val(box[]) returns setof pl_box as '
+  p0 = [Point.new(-10.0,0.0), Point.new(-3.0,4.0),
+        Point.new(5.1, 34.5), Point.new(-5.0,-12.0)]
+  args[0].each do |b|
+     p0.each do |p|
+        yield [b + p, b - p, b * p, b / p]
+     end
+     p0.each do |p|
+        yield [p + b, p - b, p * b, p / b]
+     end
+  end
+' language 'plruby';
+
+select * from 
+box_val('{(2.0,2.0,0.0,0.0);(1.0,1.0,3.0,3.0);(2.5,2.5,2.5,3.5);(3.0,3.0,3.0,3.0)}'::box[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   p point, dp float, d0 float, c circle, w float, h float
+);
+
+create or replace function box_val(box[]) returns setof pl_box as '
+   p = Point.new(6,4)
+   args[0].each do |b| 
+      p0 = b.center
+      yield [p0, Geometry::distance(p, b),Geometry::distance(p, p0),
+             b.to_circle, b.height, b.width]
+   end
+' language 'plruby';
+
+select * from 
+box_val('{(2.0,2.0,0.0,0.0);(1.0,1.0,3.0,3.0);(2.5,2.5,2.5,3.5);(3.0,3.0,3.0,3.0)}'::box[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   nb int, ll float, pc bool
+);
+
+create or replace function path_val(path[]) returns setof pl_box as '
+   args[0].each do |b| 
+      yield [b.npoints, b.length, b.closed?]
+   end
+' language 'plruby';
+
+select * from 
+path_val('{"[1,2,3,4]","(0,0),(3,0),(4,5),(1,6)","11,12,13,14,25,12"}'::path[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   p path, p0 path, p1 path
+);
+
+create or replace function path_val(path[]) returns setof pl_box as '
+   p0 = Point.new(6,7)
+   args[0].each do |b| 
+      yield [b, b + p0, b - p0]
+   end
+' language 'plruby';
+
+select * from 
+path_val('{"[1,2,3,4]","(0,0),(3,0),(4,5),(1,6)","11,12,13,14,25,12"}'::path[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   p path, p0 path, p1 path
+);
+
+create or replace function path_val(path[]) returns setof pl_box as '
+   p0 = Point.new(6,7)
+   args[0].each do |b| 
+      yield [b, b * p0, b / p0]
+   end
+' language 'plruby';
+
+select * from 
+path_val('{"[1,2,3,4]","(0,0),(3,0),(4,5),(1,6)","11,12,13,14,25,12"}'::path[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   center point, area float, radius float, diameter float
+);
+
+create or replace function circle_val(circle[]) returns setof pl_box as '
+   args[0].each do |b|
+      yield b.center, b.area, b.radius, b.diameter
+   end
+' language 'plruby';
+
+select * from 
+circle_val('{"<(5,1),3>","<(1,2),100>","<(100,200),10>","<(100,1),115>","1,3,5"}'::circle[]);
+
+
+drop table pl_box cascade;
+
+create table pl_box (
+   p circle, p0 circle, p1 circle
+);
+
+create or replace function circle_val(circle[]) returns setof pl_box as '
+   p0 = Point.new(6,7)
+   args[0].each do |b| 
+      yield [b, b + p0, b - p0]
+   end
+' language 'plruby';
+
+select * from 
+circle_val('{"<(5,1),3>","<(1,2),100>","<(100,200),10>","<(100,1),115>","1,3,5"}'::circle[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+   p circle, p0 circle, p1 circle
+);
+
+create or replace function circle_val(circle[]) returns setof pl_box as '
+   p0 = Point.new(6,7)
+   args[0].each do |b| 
+      yield [b, p0 * b, p0 / b ]
+   end
+' language 'plruby';
+
+select * from 
+circle_val('{"<(5,1),3>","<(1,2),100>","<(100,200),10>","<(100,1),115>","1,3,5"}'::circle[]);
+
+drop table pl_box cascade;
+
+create table pl_box (
+  overlap bool, overleft bool, overright bool,
+  bleft bool, bright bool, below bool, above bool
+);
+
+create or replace function circle_val(circle, circle) returns setof pl_box as '
+    b0 = args[0]
+    b1 = args[1]
+    yield  b0.overlap?(b1), b0.overleft?(b1), b0.overright?(b1), 
+           b0.left?(b1), b0.right?(b1), b0.below?(b1), b0.above?(b1)
+' language 'plruby';
+
+
+select * from 
+circle_val('<(5,1),3>'::circle, '<(1,2),100>'::circle);
+
+select * from 
+circle_val('<(100,200),10>'::circle, '<(100,1),115>'::circle);
+

data/test/conv_network/b.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/ruby
+require 'rbconfig'
+include Config
+pwd = Dir.pwd
+pwd.sub!(%r{[^/]+/[^/]+$}, "")
+
+language, extension = 'C', '_new_trigger'
+opaque = 'language_handler'
+
+version = ARGV[0].to_i
+suffix = ARGV[1].to_s
+
+begin
+   f = File.new("test_queries.sql", "w")
+   IO.foreach("test_queries.sql.in") do |x| 
+      x.gsub!(/language\s+'plruby'/i, "language 'plruby#{suffix}'")
+      f.print x
+   end
+   f.close
+   
+   Dir["test.expected.*.in"].each do |name|
+      result = name.sub(/\.in\z/, '')
+      f = File.new(result, "w")
+      IO.foreach(name) do |x|
+	 x.gsub!(/'plruby'/i, "'plruby#{suffix}'")
+	 f.print x
+      end
+      f.close
+   end
+
+   f = File.new("test_mklang.sql", "w")
+   f.print <<EOF
+ 
+   create function plruby#{suffix}_call_handler() returns #{opaque}
+    as '#{pwd}src/plruby#{suffix}.#{CONFIG["DLEXT"]}'
+   language '#{language}';
+ 
+   create trusted procedural language 'plruby#{suffix}'
+        handler plruby#{suffix}_call_handler
+        lancompiler 'PL/Ruby';
+EOF
+   f.close
+rescue
+   raise "Why I can't write #$!"
+end

data/test/conv_network/runtest

@@ -0,0 +1,26 @@
+#!/bin/sh
+
+DBNAME=plruby_test
+export DBNAME
+
+sleep 1
+echo "**** Destroy old database $DBNAME ****"
+dropdb $DBNAME
+
+echo "**** Create test database $DBNAME ****"
+createdb $DBNAME
+
+echo "**** Create procedural language plruby$2 ****"
+"${RUBY-ruby}" b.rb $*
+psql -q -n -X $DBNAME < test_mklang.sql
+
+echo "**** Running test queries ****"
+psql -q -n -X -e $DBNAME < test_queries.sql > test.out 2>&1
+
+if cmp -s test.expected.$1 test.out; then
+    echo "    Tests passed O.K."
+else
+    echo "    Tests failed - look at diffs between"
+    echo "    test.expected.$1 and test.out"
+fi
+

data/test/conv_network/test.expected.73

@@ -0,0 +1,213 @@
+create table pl_inet (
+  host text, abbrev text, masklen int,
+  network inet, netmask inet, first inet, last inet
+);
+create or replace function inet_val(inet) returns pl_inet as '
+   a = args[0]
+   [a.host, a.abbrev, a.masklen, a.network, a.netmask, 
+    a.first, a.last]
+ ' language 'plruby';
+select * from inet_val('192.168.1'::cidr);
+    host     |    abbrev    | masklen |    network     |    netmask    |     first      |     last      
+-------------+--------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.226/24'::inet);
+     host      |      abbrev      | masklen |    network     |    netmask    |     first      |     last      
+---------------+------------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.226 | 192.168.1.226/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.0/24'::cidr);
+    host     |    abbrev    | masklen |    network     |    netmask    |     first      |     last      
+-------------+--------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.226'::inet);
+     host      |    abbrev     | masklen |     network      |     netmask     |      first       |     last      
+---------------+---------------+---------+------------------+-----------------+------------------+---------------
+ 192.168.1.226 | 192.168.1.226 |      32 | 192.168.1.226/32 | 255.255.255.255 | 192.168.1.226/32 | 192.168.1.226
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |    abbrev    | masklen |    network     |    netmask    |     first      |     last      
+-------------+--------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.0/24'::inet);
+    host     |     abbrev     | masklen |    network     |    netmask    |     first      |     last      
+-------------+----------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |    abbrev    | masklen |    network     |    netmask    |     first      |     last      
+-------------+--------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.0/25'::inet);
+    host     |     abbrev     | masklen |    network     |     netmask     |     first      |     last      
+-------------+----------------+---------+----------------+-----------------+----------------+---------------
+ 192.168.1.0 | 192.168.1.0/25 |      25 | 192.168.1.0/25 | 255.255.255.128 | 192.168.1.0/25 | 192.168.1.127
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |    abbrev    | masklen |    network     |    netmask    |     first      |     last      
+-------------+--------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.255/24'::inet);
+     host      |      abbrev      | masklen |    network     |    netmask    |     first      |     last      
+---------------+------------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.255 | 192.168.1.255/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1'::cidr);
+    host     |    abbrev    | masklen |    network     |    netmask    |     first      |     last      
+-------------+--------------+---------+----------------+---------------+----------------+---------------
+ 192.168.1.0 | 192.168.1/24 |      24 | 192.168.1.0/24 | 255.255.255.0 | 192.168.1.0/24 | 192.168.1.255
+(1 row)
+
+select * from inet_val('192.168.1.255/25'::inet);
+     host      |      abbrev      | masklen |     network      |     netmask     |      first       |     last      
+---------------+------------------+---------+------------------+-----------------+------------------+---------------
+ 192.168.1.255 | 192.168.1.255/25 |      25 | 192.168.1.128/25 | 255.255.255.128 | 192.168.1.128/25 | 192.168.1.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   | abbrev | masklen |  network   |  netmask  |   first    |      last      
+----------+--------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10/8   |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.1.2.3 | 10.1.2.3/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.0.0.0'::cidr);
+   host   |   abbrev    | masklen |   network   |     netmask     |    first    |   last   
+----------+-------------+---------+-------------+-----------------+-------------+----------
+ 10.0.0.0 | 10.0.0.0/32 |      32 | 10.0.0.0/32 | 255.255.255.255 | 10.0.0.0/32 | 10.0.0.0
+(1 row)
+
+select * from inet_val('10.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.1.2.3 | 10.1.2.3/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3'::cidr);
+   host   |   abbrev    | masklen |   network   |     netmask     |    first    |   last   
+----------+-------------+---------+-------------+-----------------+-------------+----------
+ 10.1.2.3 | 10.1.2.3/32 |      32 | 10.1.2.3/32 | 255.255.255.255 | 10.1.2.3/32 | 10.1.2.3
+(1 row)
+
+select * from inet_val('10.1.2.3/32'::inet);
+   host   |  abbrev  | masklen |   network   |     netmask     |    first    |   last   
+----------+----------+---------+-------------+-----------------+-------------+----------
+ 10.1.2.3 | 10.1.2.3 |      32 | 10.1.2.3/32 | 255.255.255.255 | 10.1.2.3/32 | 10.1.2.3
+(1 row)
+
+select * from inet_val('10.1.2'::cidr);
+   host   |  abbrev   | masklen |   network   |    netmask    |    first    |    last    
+----------+-----------+---------+-------------+---------------+-------------+------------
+ 10.1.2.0 | 10.1.2/24 |      24 | 10.1.2.0/24 | 255.255.255.0 | 10.1.2.0/24 | 10.1.2.255
+(1 row)
+
+select * from inet_val('10.1.2.3/24'::inet);
+   host   |   abbrev    | masklen |   network   |    netmask    |    first    |    last    
+----------+-------------+---------+-------------+---------------+-------------+------------
+ 10.1.2.3 | 10.1.2.3/24 |      24 | 10.1.2.0/24 | 255.255.255.0 | 10.1.2.0/24 | 10.1.2.255
+(1 row)
+
+select * from inet_val('10.1'::cidr);
+   host   | abbrev  | masklen |   network   |   netmask   |    first    |     last     
+----------+---------+---------+-------------+-------------+-------------+--------------
+ 10.1.0.0 | 10.1/16 |      16 | 10.1.0.0/16 | 255.255.0.0 | 10.1.0.0/16 | 10.1.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3/16'::inet);
+   host   |   abbrev    | masklen |   network   |   netmask   |    first    |     last     
+----------+-------------+---------+-------------+-------------+-------------+--------------
+ 10.1.2.3 | 10.1.2.3/16 |      16 | 10.1.0.0/16 | 255.255.0.0 | 10.1.0.0/16 | 10.1.255.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   | abbrev | masklen |  network   |  netmask  |   first    |      last      
+----------+--------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10/8   |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 10.1.2.3 | 10.1.2.3/8 |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   | abbrev | masklen |  network   |  netmask  |   first    |      last      
+----------+--------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10/8   |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('11.1.2.3/8'::inet);
+   host   |   abbrev   | masklen |  network   |  netmask  |   first    |      last      
+----------+------------+---------+------------+-----------+------------+----------------
+ 11.1.2.3 | 11.1.2.3/8 |       8 | 11.0.0.0/8 | 255.0.0.0 | 11.0.0.0/8 | 11.255.255.255
+(1 row)
+
+select * from inet_val('10'::cidr);
+   host   | abbrev | masklen |  network   |  netmask  |   first    |      last      
+----------+--------+---------+------------+-----------+------------+----------------
+ 10.0.0.0 | 10/8   |       8 | 10.0.0.0/8 | 255.0.0.0 | 10.0.0.0/8 | 10.255.255.255
+(1 row)
+
+select * from inet_val('9.1.2.3/8'::inet);
+  host   |  abbrev   | masklen |  network  |  netmask  |   first   |     last      
+---------+-----------+---------+-----------+-----------+-----------+---------------
+ 9.1.2.3 | 9.1.2.3/8 |       8 | 9.0.0.0/8 | 255.0.0.0 | 9.0.0.0/8 | 9.255.255.255
+(1 row)
+
+select * from inet_val('10:23::f1'::cidr);
+ERROR:  invalid CIDR value '10:23::f1'
+select * from inet_val('10:23::f1/64'::inet);
+ERROR:  invalid INET value '10:23::f1/64'
+select * from inet_val('10:23::8000/113'::cidr);
+ERROR:  invalid CIDR value '10:23::8000/113'
+select * from inet_val('10:23::ffff'::inet);
+ERROR:  invalid INET value '10:23::ffff'
+select * from inet_val('::ffff:1.2.3.4'::cidr);
+ERROR:  invalid CIDR value '::ffff:1.2.3.4'
+select * from inet_val('::4.3.2.1/24'::inet);
+ERROR:  invalid INET value '::4.3.2.1/24'
+create or replace function mac_cmp(macaddr, macaddr) returns int as '
+   args[0] <=> args[1]
+' language 'plruby';
+select mac_cmp('00:07:E9:85:3E:C5'::macaddr, '00:E0:29:3E:E7:25'::macaddr);
+ mac_cmp 
+---------
+      -1
+(1 row)
+
+create or replace function mac_trunc(macaddr) returns macaddr as '
+   args[0].truncate
+' language 'plruby';
+select mac_trunc('00:07:E9:85:3E:C5'::macaddr);
+     mac_trunc     
+-------------------
+ 00:07:e9:00:00:00
+(1 row)
+
+select mac_trunc('00:E0:29:3E:E7:25'::macaddr);
+     mac_trunc     
+-------------------
+ 00:e0:29:00:00:00
+(1 row)
+