globegit-postgresql-plruby 0.5.4

data/test/conv_bitstring/test.out

@@ -0,0 +1,148 @@
+create table bit_op (
+   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
+   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
+);
+create function bt(integer, integer) returns bit_op as '
+   b0 = BitString.new(args[0], 8)
+   b1 = BitString.new(args[1], 8)
+   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
+' language 'plruby';
+select * from bt(12, 24);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
+(1 row)
+
+select * from bt(12, 32);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
+(1 row)
+
+select * from bt(15, 278);
+    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
+----------+----------+----------+----------+----------+----------+----------
+ 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
+(1 row)
+
+create function be(integer) returns setof integer as '
+   BitString.new(args[0], 8).each {|i| yield i}
+' language 'plruby';
+select * from be(12);
+ be 
+----
+  0
+  0
+  0
+  0
+  1
+  1
+  0
+  0
+(8 rows)
+
+select * from be(257);
+ be 
+----
+  0
+  0
+  0
+  0
+  0
+  0
+  0
+  1
+(8 rows)
+
+create function bx(integer, integer) returns bit varying as '
+   BitString.new(*args)
+' language 'plruby';
+select bx(12, 6);
+   bx   
+--------
+ 001100
+(1 row)
+
+select bx(12, 8);
+    bx    
+----------
+ 00001100
+(1 row)
+
+create table bit_sht (
+   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
+   sz integer, osz integer
+);
+create function bs(integer, integer) returns bit_sht as '
+   b0 = BitString.new(args[0], 8)
+   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
+    b0.size, b0.octet_size]
+' language 'plruby';
+select * from bs(12, 2);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00001100 |    2 | 00110000 | 00000011 | 00001100 | 12 |  8 |   1
+(1 row)
+
+select * from bs(277, -3);
+    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
+----------+------+----------+----------+----------+----+----+-----
+ 00010101 |   -3 | 00000010 | 10101000 | 00010101 | 21 |  8 |   1
+(1 row)
+
+create function ext(text, integer) returns integer as '
+   b0 = BitString.new(args[0])
+   b0[args[1]]
+' language 'plruby';
+select ext('011110', 0);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', -1);
+ ext 
+-----
+   0
+(1 row)
+
+select ext('011110', 1);
+ ext 
+-----
+   1
+(1 row)
+
+select ext('011110', 4);
+ ext 
+-----
+   1
+(1 row)
+
+create function ext2(text, integer, integer) returns bit varying(8) as '
+   b0 = BitString.new(args[0])
+   b0[args[1], args[2]]
+' language 'plruby';
+select ext2('0111101', 0, 2);
+ ext2 
+------
+ 01
+(1 row)
+
+select ext2('0111101', -1, 3);
+ ext2 
+------
+ 1
+(1 row)
+
+select ext2('0111101', 1, 2);
+ ext2 
+------
+ 11
+(1 row)
+
+select ext2('0111101', 4, 1);
+ ext2 
+------
+ 1
+(1 row)
+

data/test/conv_bitstring/test_mklang.sql

@@ -0,0 +1,8 @@
+ 
+   create function plruby_call_handler() returns language_handler
+    as '/home/dberger/Repositories/postgresql-plruby/src/plruby.so'
+   language 'C';
+ 
+   create trusted procedural language 'plruby'
+        handler plruby_call_handler
+        lancompiler 'PL/Ruby';

data/test/conv_bitstring/test_queries.sql

@@ -0,0 +1,63 @@
+create table bit_op (
+   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
+   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
+);
+
+create function bt(integer, integer) returns bit_op as '
+   b0 = BitString.new(args[0], 8)
+   b1 = BitString.new(args[1], 8)
+   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
+' language 'plruby';
+
+select * from bt(12, 24);
+select * from bt(12, 32);
+select * from bt(15, 278);
+
+
+create function be(integer) returns setof integer as '
+   BitString.new(args[0], 8).each {|i| yield i}
+' language 'plruby';
+
+select * from be(12);
+select * from be(257);
+
+create function bx(integer, integer) returns bit varying as '
+   BitString.new(*args)
+' language 'plruby';
+
+select bx(12, 6);
+select bx(12, 8);
+
+create table bit_sht (
+   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
+   sz integer, osz integer
+);
+
+create function bs(integer, integer) returns bit_sht as '
+   b0 = BitString.new(args[0], 8)
+   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
+    b0.size, b0.octet_size]
+' language 'plruby';
+
+select * from bs(12, 2);
+select * from bs(277, -3);
+
+create function ext(text, integer) returns integer as '
+   b0 = BitString.new(args[0])
+   b0[args[1]]
+' language 'plruby';
+
+select ext('011110', 0);
+select ext('011110', -1);
+select ext('011110', 1);
+select ext('011110', 4);
+
+create function ext2(text, integer, integer) returns bit varying(8) as '
+   b0 = BitString.new(args[0])
+   b0[args[1], args[2]]
+' language 'plruby';
+
+select ext2('0111101', 0, 2);
+select ext2('0111101', -1, 3);
+select ext2('0111101', 1, 2);
+select ext2('0111101', 4, 1);

data/test/conv_bitstring/test_queries.sql.in

@@ -0,0 +1,63 @@
+create table bit_op (
+   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
+   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
+);
+
+create function bt(integer, integer) returns bit_op as '
+   b0 = BitString.new(args[0], 8)
+   b1 = BitString.new(args[1], 8)
+   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
+' language 'plruby';
+
+select * from bt(12, 24);
+select * from bt(12, 32);
+select * from bt(15, 278);
+
+
+create function be(integer) returns setof integer as '
+   BitString.new(args[0], 8).each {|i| yield i}
+' language 'plruby';
+
+select * from be(12);
+select * from be(257);
+
+create function bx(integer, integer) returns bit varying as '
+   BitString.new(*args)
+' language 'plruby';
+
+select bx(12, 6);
+select bx(12, 8);
+
+create table bit_sht (
+   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
+   sz integer, osz integer
+);
+
+create function bs(integer, integer) returns bit_sht as '
+   b0 = BitString.new(args[0], 8)
+   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
+    b0.size, b0.octet_size]
+' language 'plruby';
+
+select * from bs(12, 2);
+select * from bs(277, -3);
+
+create function ext(text, integer) returns integer as '
+   b0 = BitString.new(args[0])
+   b0[args[1]]
+' language 'plruby';
+
+select ext('011110', 0);
+select ext('011110', -1);
+select ext('011110', 1);
+select ext('011110', 4);
+
+create function ext2(text, integer, integer) returns bit varying(8) as '
+   b0 = BitString.new(args[0])
+   b0[args[1], args[2]]
+' language 'plruby';
+
+select ext2('0111101', 0, 2);
+select ext2('0111101', -1, 3);
+select ext2('0111101', 1, 2);
+select ext2('0111101', 4, 1);

data/test/conv_geometry/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_geometry/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_geometry/test.expected.73

@@ -0,0 +1,265 @@
+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[]);
+        data         | barea | boverlaps | boverleft | boverright | bleft | bright 
+---------------------+-------+-----------+-----------+------------+-------+--------
+ (2,2),(0,0)         |     4 | t         | t         | f          | t     | t
+ (3,3),(1,1)         |     4 | t         | f         | f          | f     | f
+ (2.5,3.5),(2.5,2.5) |     0 | t         | t         | t          | t     | t
+ (3,3),(3,3)         |     0 | f         | f         | t          | f     | f
+(4 rows)
+
+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[]);
+          b          | bcmp1 | bcmp2 | bin | bcontain | bcenter 
+---------------------+-------+-------+-----+----------+---------
+ (2,2),(0,0)         |     0 |     1 | t   | f        | (1,1)
+ (3,3),(1,1)         |     0 |     1 | t   | f        | (2,2)
+ (2.5,3.5),(2.5,2.5) |    -1 |     0 | f   | f        | (2.5,3)
+ (3,3),(3,3)         |    -1 |     0 | t   | f        | (3,3)
+(4 rows)
+
+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[]);
+           b0            |            b1             |             b2              |                                        b3                                         
+-------------------------+---------------------------+-----------------------------+-----------------------------------------------------------------------------------
+ (-8,2),(-10,0)          | (12,2),(10,0)             | (-0,0),(-20,-20)            | (0,-0),(-0.2,-0.2)
+ (-1,6),(-3,4)           | (5,-2),(3,-4)             | (-0,2),(-14,0)              | (0.08,-0),(0,-0.56)
+ (7.1,36.5),(5.1,34.5)   | (-3.1,-32.5),(-5.1,-34.5) | (0,79.2),(-58.8,0)          | (0.0651176557643925,0),(0,-0.0483449262493217)
+ (-3,-10),(-5,-12)       | (7,14),(5,12)             | (14,-0),(0,-34)             | (-0,0.0828402366863905),(-0.201183431952663,0)
+ (-8,2),(-10,0)          | (12,2),(10,0)             | (-0,0),(-20,-20)            | (0,-0),(-0.2,-0.2)
+ (-1,6),(-3,4)           | (5,-2),(3,-4)             | (-0,2),(-14,0)              | (0.08,-0),(0,-0.56)
+ (7.1,36.5),(5.1,34.5)   | (-3.1,-32.5),(-5.1,-34.5) | (0,79.2),(-58.8,0)          | (0.0651176557643925,0),(0,-0.0483449262493217)
+ (-3,-10),(-5,-12)       | (7,14),(5,12)             | (14,-0),(0,-34)             | (-0,0.0828402366863905),(-0.201183431952663,0)
+ (-7,3),(-9,1)           | (13,3),(11,1)             | (-10,-10),(-30,-30)         | (-0.1,-0.1),(-0.3,-0.3)
+ (0,7),(-2,5)            | (6,-1),(4,-3)             | (-7,3),(-21,1)              | (0.12,-0.28),(0.04,-0.84)
+ (8.1,37.5),(6.1,35.5)   | (-2.1,-31.5),(-4.1,-33.5) | (-29.4,118.8),(-88.2,39.6)  | (0.0976764836465887,-0.0241724631246608),(0.0325588278821962,-0.0725173893739825)
+ (-2,-9),(-4,-11)        | (8,15),(6,13)             | (21,-17),(7,-51)            | (-0.100591715976331,0.124260355029586),(-0.301775147928994,0.0414201183431953)
+ (-7,3),(-9,1)           | (13,3),(11,1)             | (-10,-10),(-30,-30)         | (-0.1,-0.1),(-0.3,-0.3)
+ (0,7),(-2,5)            | (6,-1),(4,-3)             | (-7,3),(-21,1)              | (0.12,-0.28),(0.04,-0.84)
+ (8.1,37.5),(6.1,35.5)   | (-2.1,-31.5),(-4.1,-33.5) | (-29.4,118.8),(-88.2,39.6)  | (0.0976764836465887,-0.0241724631246608),(0.0325588278821962,-0.0725173893739825)
+ (-2,-9),(-4,-11)        | (8,15),(6,13)             | (21,-17),(7,-51)            | (-0.100591715976331,0.124260355029586),(-0.301775147928994,0.0414201183431953)
+ (-7.5,3.5),(-7.5,2.5)   | (12.5,3.5),(12.5,2.5)     | (-25,-25),(-25,-35)         | (-0.25,-0.25),(-0.25,-0.35)
+ (-0.5,7.5),(-0.5,6.5)   | (5.5,-0.5),(5.5,-1.5)     | (-17.5,2.5),(-21.5,-0.5)    | (0.26,-0.7),(0.1,-0.82)
+ (7.6,38),(7.6,37)       | (-2.6,-31),(-2.6,-32)     | (-73.5,104.1),(-108,99)     | (0.109762715208919,-0.0562379754328844),(0.0813970697054906,-0.0604311578116521)
+ (-2.5,-8.5),(-2.5,-9.5) | (7.5,15.5),(7.5,14.5)     | (29.5,-42.5),(17.5,-47.5)   | (-0.251479289940828,0.103550295857988),(-0.322485207100592,0.0739644970414201)
+ (-7.5,3.5),(-7.5,2.5)   | (12.5,3.5),(12.5,2.5)     | (-25,-25),(-25,-35)         | (-0.25,-0.25),(-0.25,-0.35)
+ (-0.5,7.5),(-0.5,6.5)   | (5.5,-0.5),(5.5,-1.5)     | (-17.5,2.5),(-21.5,-0.5)    | (0.26,-0.7),(0.1,-0.82)
+ (7.6,38),(7.6,37)       | (-2.6,-31),(-2.6,-32)     | (-73.5,104.1),(-108,99)     | (0.109762715208919,-0.0562379754328844),(0.0813970697054906,-0.0604311578116521)
+ (-2.5,-8.5),(-2.5,-9.5) | (7.5,15.5),(7.5,14.5)     | (29.5,-42.5),(17.5,-47.5)   | (-0.251479289940828,0.103550295857988),(-0.322485207100592,0.0739644970414201)
+ (-7,3),(-7,3)           | (13,3),(13,3)             | (-30,-30),(-30,-30)         | (-0.3,-0.3),(-0.3,-0.3)
+ (0,7),(0,7)             | (6,-1),(6,-1)             | (-21,3),(-21,3)             | (0.12,-0.84),(0.12,-0.84)
+ (8.1,37.5),(8.1,37.5)   | (-2.1,-31.5),(-2.1,-31.5) | (-88.2,118.8),(-88.2,118.8) | (0.0976764836465887,-0.0725173893739825),(0.0976764836465887,-0.0725173893739825)
+ (-2,-9),(-2,-9)         | (8,15),(8,15)             | (21,-51),(21,-51)           | (-0.301775147928994,0.124260355029586),(-0.301775147928994,0.124260355029586)
+ (-7,3),(-7,3)           | (13,3),(13,3)             | (-30,-30),(-30,-30)         | (-0.3,-0.3),(-0.3,-0.3)
+ (0,7),(0,7)             | (6,-1),(6,-1)             | (-21,3),(-21,3)             | (0.12,-0.84),(0.12,-0.84)
+ (8.1,37.5),(8.1,37.5)   | (-2.1,-31.5),(-2.1,-31.5) | (-88.2,118.8),(-88.2,118.8) | (0.0976764836465887,-0.0725173893739825),(0.0976764836465887,-0.0725173893739825)
+ (-2,-9),(-2,-9)         | (8,15),(8,15)             | (21,-51),(21,-51)           | (-0.301775147928994,0.124260355029586),(-0.301775147928994,0.124260355029586)
+(32 rows)
+
+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[]);
+    p    |        dp        |        d0        |            c            | w | h 
+---------+------------------+------------------+-------------------------+---+---
+ (1,1)   | 4.47213595499958 |  5.8309518948453 | <(1,1),1.4142135623731> | 2 | 2
+ (2,2)   | 3.16227766016838 | 4.47213595499958 | <(2,2),1.4142135623731> | 2 | 2
+ (2.5,3) | 3.53553390593274 | 3.64005494464026 | <(2.5,3),0.5>           | 1 | 0
+ (3,3)   | 3.16227766016838 | 3.16227766016838 | <(3,3),0>               | 0 | 0
+(4 rows)
+
+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[]);
+ nb |        ll        | pc 
+----+------------------+----
+  2 | 2.82842712474619 | f
+  4 | 17.3440597040594 | t
+  3 | 28.9939521853426 | t
+(3 rows)
+
+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[]);
+             p             |              p0              |                p1                 
+---------------------------+------------------------------+-----------------------------------
+ [(1,2),(3,4)]             | [(7,9),(9,11)]               | [(-5,-5),(-3,-3)]
+ ((0,0),(3,0),(4,5),(1,6)) | ((6,7),(9,7),(10,12),(7,13)) | ((-6,-7),(-3,-7),(-2,-2),(-5,-1))
+ ((11,12),(13,14),(25,12)) | ((17,19),(19,21),(31,19))    | ((5,5),(7,7),(19,5))
+(3 rows)
+
+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[]);
+             p             |                p0                 |                                                             p1                                                              
+---------------------------+-----------------------------------+-----------------------------------------------------------------------------------------------------------------------------
+ [(1,2),(3,4)]             | [(-8,19),(-10,45)]                | [(0.235294117647059,0.0588235294117647),(0.541176470588235,0.0352941176470588)]
+ ((0,0),(3,0),(4,5),(1,6)) | ((0,0),(18,21),(-11,58),(-36,43)) | ((0,0),(0.211764705882353,-0.247058823529412),(0.694117647058824,0.0235294117647059),(0.564705882352941,0.341176470588235))
+ ((11,12),(13,14),(25,12)) | ((-18,149),(-20,175),(66,247))    | ((1.76470588235294,-0.0588235294117647),(2.07058823529412,-0.0823529411764706),(2.75294117647059,-1.21176470588235))
+(3 rows)
+
+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[]);
+  center   |      area      | radius | diameter 
+-----------+----------------+--------+----------
+ (5,1)     |  28.2743338824 |      3 |        6
+ (1,2)     |   31415.926536 |    100 |      200
+ (100,200) |   314.15926536 |     10 |       20
+ (100,1)   | 41547.56284386 |    115 |      230
+ (1,3)     |    78.53981634 |      5 |       10
+(5 rows)
+
+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[]);
+       p        |       p0       |      p1       
+----------------+----------------+---------------
+ <(5,1),3>      | <(11,8),3>     | <(-1,-6),3>
+ <(1,2),100>    | <(7,9),100>    | <(-5,-5),100>
+ <(100,200),10> | <(106,207),10> | <(94,193),10>
+ <(100,1),115>  | <(106,8),115>  | <(94,-6),115>
+ <(1,3),5>      | <(7,10),5>     | <(-5,-4),5>
+(5 rows)
+
+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[]);
+       p        |               p0               |                             p1                             
+----------------+--------------------------------+------------------------------------------------------------
+ <(5,1),3>      | <(23,41),27.6586333718787>     | <(0.435294117647059,-0.341176470588235),0.325395686727984>
+ <(1,2),100>    | <(-8,19),921.954445729289>     | <(0.235294117647059,0.0588235294117647),10.8465228909328>
+ <(100,200),10> | <(-800,1900),92.1954445729289> | <(23.5294117647059,5.88235294117647),1.08465228909328>
+ <(100,1),115>  | <(593,706),1060.24761258868>   | <(7.14117647058824,-8.16470588235294),12.4735013245727>
+ <(1,3),5>      | <(-15,25),46.0977222864644>    | <(0.317647058823529,0.129411764705882),0.54232614454664>
+(5 rows)
+
+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);
+ overlap | overleft | overright | bleft | bright | below | above 
+---------+----------+-----------+-------+--------+-------+-------
+ t       | t        | t         | f     | f      | f     | f
+(1 row)
+
+select * from 
+circle_val('<(100,200),10>'::circle, '<(100,1),115>'::circle);
+ overlap | overleft | overright | bleft | bright | below | above 
+---------+----------+-----------+-------+--------+-------+-------
+ f       | t        | t         | f     | f      | f     | t
+(1 row)
+