--
-- Base functionality.
--
-- Basic things: scalars and arrays.
CREATE FUNCTION test_void() RETURNS integer
LANGUAGE plphp AS $$
	return;
$$;
SELECT test_void();
 test_void 
-----------
          
(1 row)

CREATE FUNCTION test_an_int() RETURNS integer
LANGUAGE plphp AS $$
	return 1;
$$;
SELECT test_an_int();
 test_an_int 
-------------
           1
(1 row)

SELECT * FROM test_an_int();
 test_an_int 
-------------
           1
(1 row)

CREATE FUNCTION test_an_array() RETURNS int[]
LANGUAGE plphp AS $$
	return array(1);
$$;
SELECT test_an_array();
 test_an_array 
---------------
 {1}
(1 row)

SELECT * FROM test_an_array();
 test_an_array 
---------------
 {1}
(1 row)

CREATE FUNCTION test_a_bogus_array() RETURNS int[]
LANGUAGE plphp AS $$
	return 1;
$$;
SELECT test_a_bogus_array();
ERROR:  function declared to return array must return an array
CONTEXT:  PL/php function "test_a_bogus_array"
SELECT * FROM test_a_bogus_array();
ERROR:  function declared to return array must return an array
CONTEXT:  PL/php function "test_a_bogus_array"
CREATE FUNCTION test_a_bogus_int() RETURNS integer
LANGUAGE plphp AS $$
	return array(1);
$$;
SELECT test_a_bogus_int();
ERROR:  this plphp function cannot return arrays
CONTEXT:  PL/php function "test_a_bogus_int"
SELECT * FROM test_a_bogus_int();
ERROR:  this plphp function cannot return arrays
CONTEXT:  PL/php function "test_a_bogus_int"
CREATE FUNCTION test_ndim_array(int, int) RETURNS int[]
LANGUAGE plphp AS $$
    if (!function_exists('bar')) {
    function bar($a, $b) {
        if ($a == 1) {
            return array($b, $b+1);
        }
        return array(bar($a-1, $b), bar($a-1, $b+1));
    }
    }

    $return = bar($args[0], $args[1]);
    return $return;
$$;
SELECT test_ndim_array(1, 1);
 test_ndim_array 
-----------------
 {1,2}
(1 row)

SELECT test_ndim_array(2, 1);
 test_ndim_array 
-----------------
 {{1,2},{2,3}}
(1 row)

SELECT test_ndim_array(3, 1);
        test_ndim_array        
-------------------------------
 {{{1,2},{2,3}},{{2,3},{3,4}}}
(1 row)

SELECT test_ndim_array(4, 1);
                        test_ndim_array                        
---------------------------------------------------------------
 {{{{1,2},{2,3}},{{2,3},{3,4}}},{{{2,3},{3,4}},{{3,4},{4,5}}}}
(1 row)

SELECT test_ndim_array(5, 1);
                                                        test_ndim_array                                                        
-------------------------------------------------------------------------------------------------------------------------------
 {{{{{1,2},{2,3}},{{2,3},{3,4}}},{{{2,3},{3,4}},{{3,4},{4,5}}}},{{{{2,3},{3,4}},{{3,4},{4,5}}},{{{3,4},{4,5}},{{4,5},{5,6}}}}}
(1 row)

SELECT test_ndim_array(6, 1);
                                                                                                                        test_ndim_array                                                                                                                        
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 {{{{{{1,2},{2,3}},{{2,3},{3,4}}},{{{2,3},{3,4}},{{3,4},{4,5}}}},{{{{2,3},{3,4}},{{3,4},{4,5}}},{{{3,4},{4,5}},{{4,5},{5,6}}}}},{{{{{2,3},{3,4}},{{3,4},{4,5}}},{{{3,4},{4,5}},{{4,5},{5,6}}}},{{{{3,4},{4,5}},{{4,5},{5,6}}},{{{4,5},{5,6}},{{5,6},{6,7}}}}}}
(1 row)

SELECT test_ndim_array(7, 1);
ERROR:  number of array dimensions exceeds the maximum allowed (6)
CONTEXT:  PL/php function "test_ndim_array"
CREATE FUNCTION php_max (integer, integer) RETURNS integer
STRICT LANGUAGE plphp AS $$
	if ($args[0] > $args[1]) {
		return $args[0];
	} else return $args[1];
$$;
CREATE FUNCTION php_max_null (integer, integer) RETURNS integer
CALLED ON NULL INPUT LANGUAGE plphp AS $$
	if (!isset($args[0])) {
		if (!isset($args[1])) {
			return;
		}
		return $args[1];
	} else if (!isset($args[1])) {
		return $args[0];
	}
        if ($args[0] > $args[1]) {
                return $args[0];
        } else return $args[1];
$$;
SELECT php_max(1, 2);
 php_max 
---------
       2
(1 row)

SELECT php_max(2, 1);
 php_max 
---------
       2
(1 row)

SELECT php_max(-1, -999999999);
 php_max 
---------
      -1
(1 row)

SELECT php_max(0, 0);
 php_max 
---------
       0
(1 row)

SELECT php_max(NULL, 0);
 php_max 
---------
        
(1 row)

SELECT php_max(0, NULL);
 php_max 
---------
        
(1 row)

SELECT php_max(NULL, NULL);
 php_max 
---------
        
(1 row)

SELECT php_max_null(NULL, 0);
 php_max_null 
--------------
            0
(1 row)

SELECT php_max_null(0, NULL);
 php_max_null 
--------------
            0
(1 row)

SELECT php_max_null(NULL, NULL);
 php_max_null 
--------------
             
(1 row)

SELECT php_max_null(1, -2);
 php_max_null 
--------------
            1
(1 row)

CREATE FUNCTION php_str_max (text, text) RETURNS text
STRICT LANGUAGE plphp AS $$
	if ($args[0] > $args[1]) {
		return $args[0];
	}
	return $args[1];
$$;
SELECT php_str_max('foo', 'bar');
 php_str_max 
-------------
 foo
(1 row)

SELECT php_str_max($$After the presentation, we headed down to the restaurant in the building for and evening reception with beer, buffet and even a little bingo. Lot's of business cards were exchanged with a variety of PostgreSQL users and developers, and even one of the Firebird team!!$$, ' foo');
                                                                                                                                 php_str_max                                                                                                                                 
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 After the presentation, we headed down to the restaurant in the building for and evening reception with beer, buffet and even a little bingo. Lot's of business cards were exchanged with a variety of PostgreSQL users and developers, and even one of the Firebird team!!
(1 row)

SELECT php_str_max('', NULL);
 php_str_max 
-------------
 
(1 row)

CREATE FUNCTION php_substr(text, int, int) RETURNS text
STRICT LANGUAGE plphp AS $$
	return substr($args[0], $args[1], $args[2]);
$$;
CREATE FUNCTION php_concat(text, text) RETURNS text
STRICT LANGUAGE plphp AS $$
	return $args[0] . $args[1];
$$;
CREATE FUNCTION php_lc(text) RETURNS text
STRICT LANGUAGE plphp AS $$
	return strtolower($args[0]);
$$;
SELECT php_concat(
	php_substr($$On Saturday, we spent a day sight-seeing, mainly in Kamakura where we visted a couple of temples and a very large cast iron Buddha. Lunch was Korean barbeque, following which we took a trip back to Tokyo station on the Shinkansen, or Bullet Train.$$, 16, 25),
	php_lc($$A few beers in the 'Victorian Pub'$$)
);
                         php_concat                          
-------------------------------------------------------------
 spent a day sight-seeing,a few beers in the 'victorian pub'
(1 row)

CREATE FUNCTION php_arr_in(integer[], integer, integer)
returns integer language plphp AS $$
	return $args[0][$args[1]][$args[2]];
$$;
SELECT php_arr_in(ARRAY[[1, 10], [2, 4], [3, 5]], 0, 0);
 php_arr_in 
------------
          1
(1 row)

SELECT php_arr_in(ARRAY[[1, 10], [2, 4], [3, 5]], 1, 1);
 php_arr_in 
------------
          4
(1 row)

SELECT php_arr_in(ARRAY[[1, 10], [2, 4], [3, 5]], 2, 1);
 php_arr_in 
------------
          5
(1 row)

SELECT php_arr_in(ARRAY[[1, 10], [2, 4], [3, 5]], 1, 2);
WARNING:  plphp: Undefined array key 2
 php_arr_in 
------------
           
(1 row)

CREATE FUNCTION php_array() RETURNS integer[] AS $$
 $ret1 = array(1, 3, 5);
 $ret2 = array(2, 4, 6);

 return array($ret1, $ret2);
$$ language plphp;
select php_array();
     php_array     
-------------------
 {{1,3,5},{2,4,6}}
(1 row)

create function foo() returns record language plphp as $$
	return 1;
$$;
select foo();
ERROR:  function declared to return tuple must return an array
CONTEXT:  PL/php function "foo"
select * FROM foo() as (a int);
ERROR:  function declared to return tuple must return an array
CONTEXT:  PL/php function "foo"
create or replace function foo(anyelement) returns anyarray
language plphp as $$
	return 1;
$$;
select foo(1);
ERROR:  function declared to return array must return an array
CONTEXT:  PL/php function "foo"
-- test recursive functions
create function php_fib(int) returns int language plphp as $$
  if ($args[0] <= 1) { return 1; }
  $r = spi_exec("select php_fib({$args[0]} - 1) as a");
  $row = spi_fetch_row($r);
  $a = $row['a'];
  $r = spi_exec("select php_fib({$args[0]} - 2) as b");
  $row = spi_fetch_row($r);
  $b = $row['b'];
  return $a + $b;
$$;
select php_fib(1);
 php_fib 
---------
       1
(1 row)

select php_fib(3);
 php_fib 
---------
       3
(1 row)

select php_fib(5);
 php_fib 
---------
       8
(1 row)

select php_fib(7);
 php_fib 
---------
      21
(1 row)