database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-10-22 14:32:25 +03:00
Code Activity

Attached is a uuencoded tarball that contains

Browse Source 
3 new files and two patches for the plperl subdir.

These changes add the ability for plperl functions
to call 'elog'. It also sets up the frame work to
allow me to add access to the SPI functions.


--
Mark Hollomon
This commit is contained in:
Bruce Momjian
2000-01-29 01:58:50 +00:00
parent 1380921e65
commit c5b02a7a26
5 changed files with 122 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/pl/plperl/plperl.c
View File

@@ -218,7 +218,7 @@ static void
plperl_init_safe_interp(void)
{
char *embedding[] = { "", "-e", "BEGIN { use DynaLoader; require Safe;}", "0" };
char *embedding[] = { "", "-e", "use DynaLoader; require Safe; SPI::bootstrap()", "0" };
plperl_safe_interp = perl_alloc();
if (!plperl_safe_interp)
@@ -235,10 +235,6 @@ plperl_init_safe_interp(void)
************************* ***********************************/
plperl_proc_hash = newHV();
/************************************************************
* Install the commands for SPI support in the safe interpreter
* Someday.
************************************************************/
}
@@ -356,6 +352,7 @@ plperl_create_sub(SV *s) {
extern void boot_DynaLoader _((CV* cv));
extern void boot_Opcode _((CV* cv));
extern void boot_SPI _((CV* cv));
extern void
plperl_init_shared_libs(void)
@@ -363,6 +360,7 @@ plperl_init_shared_libs(void)
char *file = __FILE__;
newXS("DynaLoader::bootstrap", boot_DynaLoader, file);
newXS("Opcode::bootstrap", boot_Opcode, file);
newXS("SPI::bootstrap", boot_SPI, file);
}
/**********************************************************************
@@ -574,6 +572,7 @@ plperl_func_handler(FmgrInfo *proinfo,
proc_internal_def = newSVpvf(
"$::x = new Safe;"
"$::x->permit_only(':default');"
"$::x->share(qw[&elog &DEBUG &NOTICE &NOIND &ERROR]);"
"use strict;"
"return $::x->reval( q[ sub { %s } ]);", proc_source);