--    PL/Parrot is copyright Jonathan "Duke" Leto and friends 2009-2010
-- This code is released under the Artistic 2.0 License, see LICENSE for
-- details.

-- handler function for PL/ParrotU a.k.a PL/PIRU
CREATE OR REPLACE FUNCTION plparrotu_call_handler ()
RETURNS language_handler AS '$libdir/plparrot' LANGUAGE C;

-- handler function for PL/Parrot a.k.a. PL/PIR
CREATE OR REPLACE FUNCTION plparrot_call_handler ()
RETURNS language_handler AS '$libdir/plparrot' LANGUAGE C;

-- handler function for PL/Perl6
CREATE OR REPLACE FUNCTION plperl6_call_handler ()
RETURNS language_handler AS '$libdir/plparrot' LANGUAGE C;

-- handler function for PL/Perl6U
CREATE OR REPLACE FUNCTION plperl6u_call_handler ()
RETURNS language_handler AS '$libdir/plparrot' LANGUAGE C;

-- language
DROP LANGUAGE IF EXISTS plparrot CASCADE;
CREATE trusted LANGUAGE plparrot HANDLER plparrot_call_handler;

-- language
DROP LANGUAGE IF EXISTS plparrotu CASCADE;
CREATE LANGUAGE plparrotu HANDLER plparrotu_call_handler;

-- plpir is an alias for plparrot
DROP LANGUAGE IF EXISTS plpir CASCADE;
CREATE trusted LANGUAGE plpir HANDLER plparrot_call_handler;

-- plpiru is an alias for plparrotu
DROP LANGUAGE IF EXISTS plpiru CASCADE;
CREATE LANGUAGE plpiru HANDLER plparrotu_call_handler;

DROP LANGUAGE IF EXISTS plperl6 CASCADE;
CREATE trusted LANGUAGE plperl6 HANDLER plperl6_call_handler;

DROP LANGUAGE IF EXISTS plperl6u CASCADE;
CREATE LANGUAGE plperl6u HANDLER plperl6u_call_handler;