diff options
Diffstat (limited to 'src/pl')
34 files changed, 339 insertions, 17 deletions
diff --git a/src/pl/plperl/GNUmakefile b/src/pl/plperl/GNUmakefile index e86cb84dba..71e2cef4c5 100644 --- a/src/pl/plperl/GNUmakefile +++ b/src/pl/plperl/GNUmakefile @@ -36,11 +36,14 @@ NAME = plperl OBJS = plperl.o SPI.o Util.o +DATA = plperl.control plperl--1.0.sql plperl--unpackaged--1.0.sql \ + plperlu.control plperlu--1.0.sql plperlu--unpackaged--1.0.sql + PERLCHUNKS = plc_perlboot.pl plc_trusted.pl SHLIB_LINK = $(perl_embed_ldflags) -REGRESS_OPTS = --dbname=$(PL_TESTDB) --load-language=plperl --load-language=plperlu +REGRESS_OPTS = --dbname=$(PL_TESTDB) --load-extension=plperl --load-extension=plperlu REGRESS = plperl plperl_trigger plperl_shared plperl_elog plperl_util plperl_init plperlu plperl_array # if Perl can support two interpreters in one backend, # test plperl-and-plperlu cases @@ -70,11 +73,25 @@ SPI.c: SPI.xs Util.c: Util.xs $(PERL) $(perl_privlibexp)/ExtUtils/xsubpp -typemap $(perl_privlibexp)/ExtUtils/typemap $< >$@ -install: all installdirs install-lib + +install: all installdirs install-lib install-data installdirs: installdirs-lib + $(MKDIR_P) '$(DESTDIR)$(datadir)/extension' + +uninstall: uninstall-lib uninstall-data + +install-data: + @for file in $(addprefix $(srcdir)/, $(DATA)); do \ + echo "$(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'"; \ + $(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'; \ + done + +uninstall-data: + rm -f $(addprefix '$(DESTDIR)$(datadir)/extension'/, $(notdir $(DATA))) + +.PHONY: install-data uninstall-data -uninstall: uninstall-lib check: submake $(pg_regress_check) $(REGRESS_OPTS) $(REGRESS) diff --git a/src/pl/plperl/plperl--1.0.sql b/src/pl/plperl/plperl--1.0.sql new file mode 100644 index 0000000000..befd882745 --- /dev/null +++ b/src/pl/plperl/plperl--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/plperl/plperl--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE plperl; diff --git a/src/pl/plperl/plperl--unpackaged--1.0.sql b/src/pl/plperl/plperl--unpackaged--1.0.sql new file mode 100644 index 0000000000..b062bd5d9b --- /dev/null +++ b/src/pl/plperl/plperl--unpackaged--1.0.sql @@ -0,0 +1,7 @@ +/* src/pl/plperl/plperl--unpackaged--1.0.sql */ + +ALTER EXTENSION plperl ADD PROCEDURAL LANGUAGE plperl; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION plperl ADD FUNCTION plperl_call_handler(); +ALTER EXTENSION plperl ADD FUNCTION plperl_inline_handler(internal); +ALTER EXTENSION plperl ADD FUNCTION plperl_validator(oid); diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 72e1e5106a..9a94b3f085 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -222,6 +222,9 @@ static plperl_call_data *current_call_data = NULL; Datum plperl_call_handler(PG_FUNCTION_ARGS); Datum plperl_inline_handler(PG_FUNCTION_ARGS); Datum plperl_validator(PG_FUNCTION_ARGS); +Datum plperlu_call_handler(PG_FUNCTION_ARGS); +Datum plperlu_inline_handler(PG_FUNCTION_ARGS); +Datum plperlu_validator(PG_FUNCTION_ARGS); void _PG_init(void); static PerlInterpreter *plperl_init_interp(void); @@ -1759,6 +1762,39 @@ plperl_validator(PG_FUNCTION_ARGS) /* + * plperlu likewise requires three externally visible functions: + * plperlu_call_handler, plperlu_inline_handler, and plperlu_validator. + * These are currently just aliases that send control to the plperl + * handler functions, and we decide whether a particular function is + * trusted or not by inspecting the actual pg_language tuple. + */ + +PG_FUNCTION_INFO_V1(plperlu_call_handler); + +Datum +plperlu_call_handler(PG_FUNCTION_ARGS) +{ + return plperl_call_handler(fcinfo); +} + +PG_FUNCTION_INFO_V1(plperlu_inline_handler); + +Datum +plperlu_inline_handler(PG_FUNCTION_ARGS) +{ + return plperl_inline_handler(fcinfo); +} + +PG_FUNCTION_INFO_V1(plperlu_validator); + +Datum +plperlu_validator(PG_FUNCTION_ARGS) +{ + return plperl_validator(fcinfo); +} + + +/* * Uses mksafefunc/mkunsafefunc to create a subroutine whose text is * supplied in s, and returns a reference to it */ diff --git a/src/pl/plperl/plperl.control b/src/pl/plperl/plperl.control new file mode 100644 index 0000000000..6faace12fa --- /dev/null +++ b/src/pl/plperl/plperl.control @@ -0,0 +1,7 @@ +# plperl extension +comment = 'PL/Perl procedural language' +default_version = '1.0' +module_pathname = '$libdir/plperl' +relocatable = false +schema = pg_catalog +superuser = false diff --git a/src/pl/plperl/plperlu--1.0.sql b/src/pl/plperl/plperlu--1.0.sql new file mode 100644 index 0000000000..025f7957c4 --- /dev/null +++ b/src/pl/plperl/plperlu--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/plperl/plperlu--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE plperlu; diff --git a/src/pl/plperl/plperlu--unpackaged--1.0.sql b/src/pl/plperl/plperlu--unpackaged--1.0.sql new file mode 100644 index 0000000000..bc62d36a3d --- /dev/null +++ b/src/pl/plperl/plperlu--unpackaged--1.0.sql @@ -0,0 +1,7 @@ +/* src/pl/plperl/plperlu--unpackaged--1.0.sql */ + +ALTER EXTENSION plperlu ADD PROCEDURAL LANGUAGE plperlu; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION plperlu ADD FUNCTION plperlu_call_handler(); +ALTER EXTENSION plperlu ADD FUNCTION plperlu_inline_handler(internal); +ALTER EXTENSION plperlu ADD FUNCTION plperlu_validator(oid); diff --git a/src/pl/plperl/plperlu.control b/src/pl/plperl/plperlu.control new file mode 100644 index 0000000000..69473caed4 --- /dev/null +++ b/src/pl/plperl/plperlu.control @@ -0,0 +1,7 @@ +# plperlu extension +comment = 'PL/PerlU untrusted procedural language' +default_version = '1.0' +module_pathname = '$libdir/plperl' +relocatable = false +schema = pg_catalog +superuser = true diff --git a/src/pl/plpgsql/src/Makefile b/src/pl/plpgsql/src/Makefile index a5f161dc62..d748ef6826 100644 --- a/src/pl/plpgsql/src/Makefile +++ b/src/pl/plpgsql/src/Makefile @@ -1,6 +1,6 @@ #------------------------------------------------------------------------- # -# Makefile for the plpgsql shared object +# Makefile for the pl/pgsql procedural language # # src/pl/plpgsql/src/Makefile # @@ -19,17 +19,31 @@ rpath = OBJS = pl_gram.o pl_handler.o pl_comp.o pl_exec.o pl_funcs.o pl_scanner.o +DATA = plpgsql.control plpgsql--1.0.sql plpgsql--unpackaged--1.0.sql + all: all-lib # Shared library stuff include $(top_srcdir)/src/Makefile.shlib -install: installdirs all install-lib +install: all installdirs install-lib install-data installdirs: installdirs-lib + $(MKDIR_P) '$(DESTDIR)$(datadir)/extension' + +uninstall: uninstall-lib uninstall-data + +install-data: + @for file in $(addprefix $(srcdir)/, $(DATA)); do \ + echo "$(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'"; \ + $(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'; \ + done + +uninstall-data: + rm -f $(addprefix '$(DESTDIR)$(datadir)/extension'/, $(notdir $(DATA))) -uninstall: uninstall-lib +.PHONY: install-data uninstall-data # Force these dependencies to be known even without dependency info built: diff --git a/src/pl/plpgsql/src/plpgsql--1.0.sql b/src/pl/plpgsql/src/plpgsql--1.0.sql new file mode 100644 index 0000000000..514562d70f --- /dev/null +++ b/src/pl/plpgsql/src/plpgsql--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/plpgsql/src/plpgsql--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE plpgsql; diff --git a/src/pl/plpgsql/src/plpgsql--unpackaged--1.0.sql b/src/pl/plpgsql/src/plpgsql--unpackaged--1.0.sql new file mode 100644 index 0000000000..9de7e8392a --- /dev/null +++ b/src/pl/plpgsql/src/plpgsql--unpackaged--1.0.sql @@ -0,0 +1,7 @@ +/* src/pl/plpgsql/src/plpgsql--unpackaged--1.0.sql */ + +ALTER EXTENSION plpgsql ADD PROCEDURAL LANGUAGE plpgsql; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION plpgsql ADD FUNCTION plpgsql_call_handler(); +ALTER EXTENSION plpgsql ADD FUNCTION plpgsql_inline_handler(internal); +ALTER EXTENSION plpgsql ADD FUNCTION plpgsql_validator(oid); diff --git a/src/pl/plpgsql/src/plpgsql.control b/src/pl/plpgsql/src/plpgsql.control new file mode 100644 index 0000000000..b320227b12 --- /dev/null +++ b/src/pl/plpgsql/src/plpgsql.control @@ -0,0 +1,7 @@ +# plpgsql extension +comment = 'PL/pgSQL procedural language' +default_version = '1.0' +module_pathname = '$libdir/plpgsql' +relocatable = false +schema = pg_catalog +superuser = false diff --git a/src/pl/plpython/Makefile b/src/pl/plpython/Makefile index e6b6ed3ca5..46e0195142 100644 --- a/src/pl/plpython/Makefile +++ b/src/pl/plpython/Makefile @@ -37,8 +37,13 @@ override CPPFLAGS := -I. -I$(srcdir) $(python_includespec) $(CPPFLAGS) rpathdir = $(python_libdir) NAME = plpython$(python_majorversion) + OBJS = plpython.o +DATA = plpythonu.control plpythonu--1.0.sql plpythonu--unpackaged--1.0.sql \ + plpython2u.control plpython2u--1.0.sql plpython2u--unpackaged--1.0.sql \ + plpython3u.control plpython3u--1.0.sql plpython3u--unpackaged--1.0.sql + # Python on win32 ships with import libraries only for Microsoft Visual C++, # which are not compatible with mingw gcc. Therefore we need to build a @@ -60,7 +65,7 @@ REGRESS_OPTS = --dbname=$(PL_TESTDB) # Only load plpythonu with Python 2. The test files themselves load # the versioned language plpython(2|3)u. ifeq ($(python_majorversion),2) -REGRESS_OPTS += --load-language=plpythonu +REGRESS_OPTS += --load-extension=plpythonu endif REGRESS = \ plpython_schema \ @@ -98,18 +103,32 @@ all: all-lib distprep: spiexceptions.h -install: all installdirs install-lib + +install: all installdirs install-lib install-data ifeq ($(python_majorversion),2) cd '$(DESTDIR)$(pkglibdir)' && rm -f plpython$(DLSUFFIX) && $(LN_S) $(shlib) plpython$(DLSUFFIX) endif installdirs: installdirs-lib + $(MKDIR_P) '$(DESTDIR)$(datadir)/extension' -uninstall: uninstall-lib +uninstall: uninstall-lib uninstall-data ifeq ($(python_majorversion),2) rm -f '$(DESTDIR)$(pkglibdir)/plpython$(DLSUFFIX)' endif +install-data: + @for file in $(addprefix $(srcdir)/, $(DATA)); do \ + echo "$(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'"; \ + $(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'; \ + done + +uninstall-data: + rm -f $(addprefix '$(DESTDIR)$(datadir)/extension'/, $(notdir $(DATA))) + +.PHONY: install-data uninstall-data + + ifeq ($(python_majorversion),3) # Adjust regression tests for Python 3 compatibility prep3: @@ -124,6 +143,8 @@ prep3: -e "s/def next/def __next__/g" \ -e "s/LANGUAGE plpythonu/LANGUAGE plpython3u/g" \ -e "s/LANGUAGE plpython2u/LANGUAGE plpython3u/g" \ + -e "s/EXTENSION plpythonu/EXTENSION plpython3u/g" \ + -e "s/EXTENSION plpython2u/EXTENSION plpython3u/g" \ $$file >`echo $$file | sed 's,$(srcdir),python3,'`; \ done diff --git a/src/pl/plpython/expected/plpython_drop.out b/src/pl/plpython/expected/plpython_drop.out index fef642f7c0..a0e3b5c4ef 100644 --- a/src/pl/plpython/expected/plpython_drop.out +++ b/src/pl/plpython/expected/plpython_drop.out @@ -2,4 +2,5 @@ -- For paranoia's sake, don't leave an untrusted language sitting around -- SET client_min_messages = WARNING; -DROP PROCEDURAL LANGUAGE plpythonu CASCADE; +DROP EXTENSION plpythonu CASCADE; +DROP EXTENSION IF EXISTS plpython2u CASCADE; diff --git a/src/pl/plpython/expected/plpython_test.out b/src/pl/plpython/expected/plpython_test.out index 7b2e1703f4..c2358b452d 100644 --- a/src/pl/plpython/expected/plpython_test.out +++ b/src/pl/plpython/expected/plpython_test.out @@ -1,5 +1,5 @@ -- first some tests of basic functionality -CREATE LANGUAGE plpython2u; +CREATE EXTENSION plpython2u; -- really stupid function just to get the module loaded CREATE FUNCTION stupid() RETURNS text AS 'return "zarkon"' LANGUAGE plpythonu; select stupid(); diff --git a/src/pl/plpython/plpython.c b/src/pl/plpython/plpython.c index 75f7b5cf57..e415aa36f4 100644 --- a/src/pl/plpython/plpython.c +++ b/src/pl/plpython/plpython.c @@ -4652,3 +4652,36 @@ PLyUnicode_FromString(const char *s) } #endif /* PY_MAJOR_VERSION >= 3 */ + +#if PY_MAJOR_VERSION < 3 + +/* Define aliases plpython2_call_handler etc */ +Datum plpython2_call_handler(PG_FUNCTION_ARGS); +Datum plpython2_inline_handler(PG_FUNCTION_ARGS); +Datum plpython2_validator(PG_FUNCTION_ARGS); + +PG_FUNCTION_INFO_V1(plpython2_call_handler); + +Datum +plpython2_call_handler(PG_FUNCTION_ARGS) +{ + return plpython_call_handler(fcinfo); +} + +PG_FUNCTION_INFO_V1(plpython2_inline_handler); + +Datum +plpython2_inline_handler(PG_FUNCTION_ARGS) +{ + return plpython_inline_handler(fcinfo); +} + +PG_FUNCTION_INFO_V1(plpython2_validator); + +Datum +plpython2_validator(PG_FUNCTION_ARGS) +{ + return plpython_validator(fcinfo); +} + +#endif /* PY_MAJOR_VERSION < 3 */ diff --git a/src/pl/plpython/plpython2u--1.0.sql b/src/pl/plpython/plpython2u--1.0.sql new file mode 100644 index 0000000000..0e47876502 --- /dev/null +++ b/src/pl/plpython/plpython2u--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/plpython/plpython2u--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE plpython2u; diff --git a/src/pl/plpython/plpython2u--unpackaged--1.0.sql b/src/pl/plpython/plpython2u--unpackaged--1.0.sql new file mode 100644 index 0000000000..a89d8b4d09 --- /dev/null +++ b/src/pl/plpython/plpython2u--unpackaged--1.0.sql @@ -0,0 +1,7 @@ +/* src/pl/plpython/plpython2u--unpackaged--1.0.sql */ + +ALTER EXTENSION plpython2u ADD PROCEDURAL LANGUAGE plpython2u; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION plpython2u ADD FUNCTION plpython2_call_handler(); +ALTER EXTENSION plpython2u ADD FUNCTION plpython2_inline_handler(internal); +ALTER EXTENSION plpython2u ADD FUNCTION plpython2_validator(oid); diff --git a/src/pl/plpython/plpython2u.control b/src/pl/plpython/plpython2u.control new file mode 100644 index 0000000000..39c2b791ef --- /dev/null +++ b/src/pl/plpython/plpython2u.control @@ -0,0 +1,7 @@ +# plpython2u extension +comment = 'PL/Python2U untrusted procedural language' +default_version = '1.0' +module_pathname = '$libdir/plpython2' +relocatable = false +schema = pg_catalog +superuser = true diff --git a/src/pl/plpython/plpython3u--1.0.sql b/src/pl/plpython/plpython3u--1.0.sql new file mode 100644 index 0000000000..d5c6e5ab96 --- /dev/null +++ b/src/pl/plpython/plpython3u--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/plpython/plpython3u--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE plpython3u; diff --git a/src/pl/plpython/plpython3u--unpackaged--1.0.sql b/src/pl/plpython/plpython3u--unpackaged--1.0.sql new file mode 100644 index 0000000000..b1c0d03a30 --- /dev/null +++ b/src/pl/plpython/plpython3u--unpackaged--1.0.sql @@ -0,0 +1,7 @@ +/* src/pl/plpython/plpython3u--unpackaged--1.0.sql */ + +ALTER EXTENSION plpython3u ADD PROCEDURAL LANGUAGE plpython3u; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION plpython3u ADD FUNCTION plpython3_call_handler(); +ALTER EXTENSION plpython3u ADD FUNCTION plpython3_inline_handler(internal); +ALTER EXTENSION plpython3u ADD FUNCTION plpython3_validator(oid); diff --git a/src/pl/plpython/plpython3u.control b/src/pl/plpython/plpython3u.control new file mode 100644 index 0000000000..01905ef398 --- /dev/null +++ b/src/pl/plpython/plpython3u.control @@ -0,0 +1,7 @@ +# plpython3u extension +comment = 'PL/Python3U untrusted procedural language' +default_version = '1.0' +module_pathname = '$libdir/plpython3' +relocatable = false +schema = pg_catalog +superuser = true diff --git a/src/pl/plpython/plpythonu--1.0.sql b/src/pl/plpython/plpythonu--1.0.sql new file mode 100644 index 0000000000..beb0aa1645 --- /dev/null +++ b/src/pl/plpython/plpythonu--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/plpython/plpythonu--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE plpythonu; diff --git a/src/pl/plpython/plpythonu--unpackaged--1.0.sql b/src/pl/plpython/plpythonu--unpackaged--1.0.sql new file mode 100644 index 0000000000..7926233250 --- /dev/null +++ b/src/pl/plpython/plpythonu--unpackaged--1.0.sql @@ -0,0 +1,7 @@ +/* src/pl/plpython/plpythonu--unpackaged--1.0.sql */ + +ALTER EXTENSION plpythonu ADD PROCEDURAL LANGUAGE plpythonu; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION plpythonu ADD FUNCTION plpython_call_handler(); +ALTER EXTENSION plpythonu ADD FUNCTION plpython_inline_handler(internal); +ALTER EXTENSION plpythonu ADD FUNCTION plpython_validator(oid); diff --git a/src/pl/plpython/plpythonu.control b/src/pl/plpython/plpythonu.control new file mode 100644 index 0000000000..ae91b1c255 --- /dev/null +++ b/src/pl/plpython/plpythonu.control @@ -0,0 +1,7 @@ +# plpythonu extension +comment = 'PL/PythonU untrusted procedural language' +default_version = '1.0' +module_pathname = '$libdir/plpython2' +relocatable = false +schema = pg_catalog +superuser = true diff --git a/src/pl/plpython/sql/plpython_drop.sql b/src/pl/plpython/sql/plpython_drop.sql index 319d5e0925..72d5d657ec 100644 --- a/src/pl/plpython/sql/plpython_drop.sql +++ b/src/pl/plpython/sql/plpython_drop.sql @@ -3,4 +3,6 @@ -- SET client_min_messages = WARNING; -DROP PROCEDURAL LANGUAGE plpythonu CASCADE; +DROP EXTENSION plpythonu CASCADE; + +DROP EXTENSION IF EXISTS plpython2u CASCADE; diff --git a/src/pl/plpython/sql/plpython_test.sql b/src/pl/plpython/sql/plpython_test.sql index 915189847a..c8d5ef5f53 100644 --- a/src/pl/plpython/sql/plpython_test.sql +++ b/src/pl/plpython/sql/plpython_test.sql @@ -1,5 +1,5 @@ -- first some tests of basic functionality -CREATE LANGUAGE plpython2u; +CREATE EXTENSION plpython2u; -- really stupid function just to get the module loaded CREATE FUNCTION stupid() RETURNS text AS 'return "zarkon"' LANGUAGE plpythonu; diff --git a/src/pl/tcl/Makefile b/src/pl/tcl/Makefile index b29478dd6f..c7797c61f5 100644 --- a/src/pl/tcl/Makefile +++ b/src/pl/tcl/Makefile @@ -1,6 +1,6 @@ #------------------------------------------------------------------------- # -# Makefile for the pltcl shared object +# Makefile for the pl/tcl procedural language # # src/pl/tcl/Makefile # @@ -35,9 +35,13 @@ SHLIB_LINK += $(TCL_LIBS) -lc endif NAME = pltcl + OBJS = pltcl.o -REGRESS_OPTS = --dbname=$(PL_TESTDB) --load-language=pltcl +DATA = pltcl.control pltcl--1.0.sql pltcl--unpackaged--1.0.sql \ + pltclu.control pltclu--1.0.sql pltclu--unpackaged--1.0.sql + +REGRESS_OPTS = --dbname=$(PL_TESTDB) --load-extension=pltcl REGRESS = pltcl_setup pltcl_queries # where to find psql for running the tests PSQLDIR = $(bindir) @@ -49,15 +53,29 @@ ifeq ($(TCL_SHARED_BUILD), 1) all: all-lib $(MAKE) -C modules $@ -install: all installdirs install-lib + +install: all installdirs install-lib install-data $(MAKE) -C modules $@ installdirs: installdirs-lib + $(MKDIR_P) '$(DESTDIR)$(datadir)/extension' $(MAKE) -C modules $@ -uninstall: uninstall-lib +uninstall: uninstall-lib uninstall-data $(MAKE) -C modules $@ +install-data: + @for file in $(addprefix $(srcdir)/, $(DATA)); do \ + echo "$(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'"; \ + $(INSTALL_DATA) $$file '$(DESTDIR)$(datadir)/extension'; \ + done + +uninstall-data: + rm -f $(addprefix '$(DESTDIR)$(datadir)/extension'/, $(notdir $(DATA))) + +.PHONY: install-data uninstall-data + + check: submake $(pg_regress_check) $(REGRESS_OPTS) $(REGRESS) diff --git a/src/pl/tcl/pltcl--1.0.sql b/src/pl/tcl/pltcl--1.0.sql new file mode 100644 index 0000000000..897e1a1fe9 --- /dev/null +++ b/src/pl/tcl/pltcl--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/tcl/pltcl--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE pltcl; diff --git a/src/pl/tcl/pltcl--unpackaged--1.0.sql b/src/pl/tcl/pltcl--unpackaged--1.0.sql new file mode 100644 index 0000000000..dfad66c268 --- /dev/null +++ b/src/pl/tcl/pltcl--unpackaged--1.0.sql @@ -0,0 +1,5 @@ +/* src/pl/tcl/pltcl--unpackaged--1.0.sql */ + +ALTER EXTENSION pltcl ADD PROCEDURAL LANGUAGE pltcl; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION pltcl ADD FUNCTION pltcl_call_handler(); diff --git a/src/pl/tcl/pltcl.control b/src/pl/tcl/pltcl.control new file mode 100644 index 0000000000..b9dc1b8a13 --- /dev/null +++ b/src/pl/tcl/pltcl.control @@ -0,0 +1,7 @@ +# pltcl extension +comment = 'PL/Tcl procedural language' +default_version = '1.0' +module_pathname = '$libdir/pltcl' +relocatable = false +schema = pg_catalog +superuser = false diff --git a/src/pl/tcl/pltclu--1.0.sql b/src/pl/tcl/pltclu--1.0.sql new file mode 100644 index 0000000000..e53bb04e6d --- /dev/null +++ b/src/pl/tcl/pltclu--1.0.sql @@ -0,0 +1,9 @@ +/* src/pl/tcl/pltclu--1.0.sql */ + +/* + * Currently, all the interesting stuff is done by CREATE LANGUAGE. + * Later we will probably "dumb down" that command and put more of the + * knowledge into this script. + */ + +CREATE PROCEDURAL LANGUAGE pltclu; diff --git a/src/pl/tcl/pltclu--unpackaged--1.0.sql b/src/pl/tcl/pltclu--unpackaged--1.0.sql new file mode 100644 index 0000000000..a5d359fc04 --- /dev/null +++ b/src/pl/tcl/pltclu--unpackaged--1.0.sql @@ -0,0 +1,5 @@ +/* src/pl/tcl/pltclu--unpackaged--1.0.sql */ + +ALTER EXTENSION pltclu ADD PROCEDURAL LANGUAGE pltclu; +-- ALTER ADD LANGUAGE doesn't pick up the support functions, so we have to. +ALTER EXTENSION pltclu ADD FUNCTION pltclu_call_handler(); diff --git a/src/pl/tcl/pltclu.control b/src/pl/tcl/pltclu.control new file mode 100644 index 0000000000..1418dc5a9e --- /dev/null +++ b/src/pl/tcl/pltclu.control @@ -0,0 +1,7 @@ +# pltclu extension +comment = 'PL/TclU untrusted procedural language' +default_version = '1.0' +module_pathname = '$libdir/pltcl' +relocatable = false +schema = pg_catalog +superuser = true |