--
-- Variable names.
--
-- A function with uses named and unnamed variables
CREATE FUNCTION zero(a int, b int) RETURNS int LANGUAGE plphp AS 
$$
	return $a * $args[1] - $b * $args[0];
$$;
SELECT zero((random() * 100) :: int, (random() * 100) :: int);
 zero 
------
    0
(1 row)

-- A function with both named and unnamed vars in declaration
CREATE FUNCTION obscure_concat(prefix text, text) RETURNS text LANGUAGE plphp AS
$$
	return $prefix . $args[1];
$$;
SELECT obscure_concat('Testing can only prove the presence of bugs', ', not their absence. ');
                          obscure_concat                          
------------------------------------------------------------------
 Testing can only prove the presence of bugs, not their absence. 
(1 row)

-- Check for a long variable name truncation. This check assumes that NAMEDATALEN is 64.
CREATE FUNCTION foo(areallylooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooongvariablename text)
RETURNS text LANGUAGE plphp AS
'
	$shortvar = substr("areallylooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooongvariablename", 0, 63);
	if ($args[0] != $$shortvar)
		return "Error";
	else
		return "Good";
';
NOTICE:  identifier "areallylooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooongvariablename" will be truncated to "areallylooooooooooooooooooooooooooooooooooooooooooooooooooooooo"
select foo('bar');
 foo  
------
 Good
(1 row)

-- What if we use non- symbols in variable names 
CREATE FUNCTION php_invalidvarname( check%s%d%s%d%s%d text)
RETURN text LANGUAGE plphp AS
$$
	return "passed" . $args[0];
$$;
ERROR:  syntax error at or near "check"
LINE 1: CREATE FUNCTION php_invalidvarname( check%s%d%s%d%s%d text)
                                            ^
select php_invalidvarname('foo');
ERROR:  function php_invalidvarname(unknown) does not exist
LINE 1: select php_invalidvarname('foo');
               ^
HINT:  No function matches the given name and argument types. You might need to add explicit type casts.
-- VARIADIC parameters: the executor delivers the collected array, so it
-- behaves as an array argument (positional and named)
CREATE FUNCTION vsum(VARIADIC nums int[]) RETURNS int LANGUAGE plphp AS $$
    return array_sum($args[0]);
$$;
SELECT vsum(1, 2, 3);
 vsum 
------
    6
(1 row)

SELECT vsum(10);
 vsum 
------
   10
(1 row)

SELECT vsum(VARIADIC ARRAY[4, 5, 6]);
 vsum 
------
   15
(1 row)

CREATE FUNCTION vjoin(sep text, VARIADIC parts text[]) RETURNS text LANGUAGE plphp AS $$
    return implode($sep, $parts);     // named aliases work for both
$$;
SELECT vjoin('-', 'a', 'b', 'c');
 vjoin 
-------
 a-b-c
(1 row)

-- VARIADIC "any" cannot be supported (arguments stay separate and untyped);
-- the error is raised on first use
CREATE FUNCTION vany(VARIADIC "any") RETURNS int LANGUAGE plphp AS $$
    return $argc;
$$;
SELECT vany(1, 'x'::text, true);
ERROR:  PL/php functions cannot accept VARIADIC "any" arguments
CONTEXT:  PL/php function "vany"
DROP FUNCTION vsum(int[]), vjoin(text, text[]), vany("any");