File: bool_plperlu--1.0.sql

package info (click to toggle)
postgresql-15 15.13-0%2Bdeb12u1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 166,512 kB
  • sloc: ansic: 899,752; sql: 109,423; perl: 42,533; yacc: 36,866; xml: 31,046; lex: 8,906; makefile: 6,175; sh: 4,842; cpp: 1,105; python: 151; asm: 65; sed: 16
file content (19 lines) | stat: -rw-r--r-- 691 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
/* contrib/bool_plperl/bool_plperlu--1.0.sql */

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

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

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

CREATE TRANSFORM FOR bool LANGUAGE plperlu (
    FROM SQL WITH FUNCTION bool_to_plperlu(internal),
    TO SQL WITH FUNCTION plperlu_to_bool(internal)
);

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