contrib/bool_plperl/bool_plperl--1.0.sql


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

/* contrib/bool_plperl/bool_plperl--1.0.sql */

-- complain if script is sourced in psql, rather than via CREATE EXTENSION
\echo Use "CREATE EXTENSION bool_plperl" to load this file. \quit

CREATE FUNCTION bool_to_plperl(val internal) RETURNS internal
LANGUAGE C STRICT IMMUTABLE
AS 'MODULE_PATHNAME';

CREATE FUNCTION plperl_to_bool(val internal) RETURNS bool
LANGUAGE C STRICT IMMUTABLE
AS 'MODULE_PATHNAME';

CREATE TRANSFORM FOR bool LANGUAGE plperl (
    FROM SQL WITH FUNCTION bool_to_plperl(internal),
    TO SQL WITH FUNCTION plperl_to_bool(internal)
);

COMMENT ON TRANSFORM FOR bool LANGUAGE plperl IS 'transform between bool and Perl';