Skip to content

Commit 1732cb0

Browse files
jconwayjconway
committed
plperl update from Andrew Dunstan, deriving (I believe) from Command Prompt's
plperlNG. Review and minor cleanup/improvements by Joe Conway. Summary of new functionality: - Shared data space and namespace. There is a new global variable %_SHARED that functions can use to store and save data between invocations of a function, or between different functions. Also, all trusted plperl function now share a common Safe container (this is an optimization, also), which they can use for storing non-lexical variables, functions, etc. - Triggers are now supported - Records can now be returned (as a hash reference) - Sets of records can now be returned (as a reference to an array of hash references). - New function spi_exec_query() provided for performing db functions or getting data from db. - Optimization for counting hash keys (Abhijit Menon-Sen) - Allow return of 'record' and 'setof record'
1 parent b6197fe commit 1732cb0

File tree

7 files changed

+842
-99
lines changed

7 files changed

+842
-99
lines changed

‎src/pl/plperl/GNUmakefile

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
# Makefile for PL/Perl
2-
# $PostgreSQL: pgsql/src/pl/plperl/GNUmakefile,v 1.12 2004/01/21 19:04:11 tgl Exp $
2+
# $PostgreSQL: pgsql/src/pl/plperl/GNUmakefile,v 1.13 2004/07/01 20:50:22 joe Exp $
33

44
subdir = src/pl/plperl
55
top_builddir = ../../..
@@ -25,8 +25,13 @@ NAME = plperl
2525
SO_MAJOR_VERSION = 0
2626
SO_MINOR_VERSION = 0
2727

28-
OBJS = plperl.o eloglvl.o SPI.o
28+
OBJS = plperl.o spi_internal.o SPI.o
29+
30+
ifeq ($(enable_rpath), yes)
31+
SHLIB_LINK = $(perl_embed_ldflags) $(BE_DLLLIBS) -Wl,-rpath,$(perl_archlibexp)/CORE
32+
else
2933
SHLIB_LINK = $(perl_embed_ldflags) $(BE_DLLLIBS)
34+
endif
3035

3136
include $(top_srcdir)/src/Makefile.shlib
3237

‎src/pl/plperl/SPI.xs

Lines changed: 23 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -6,39 +6,51 @@
66
#include "perl.h"
77
#include "XSUB.h"
88

9-
#include "eloglvl.h"
9+
#include "spi_internal.h"
1010

1111

1212

13-
MODULE = SPI PREFIX = elog_
13+
MODULE = SPI PREFIX = spi_
1414

1515
PROTOTYPES: ENABLE
1616
VERSIONCHECK: DISABLE
1717

1818
void
19-
elog_elog(level, message)
19+
spi_elog(level, message)
2020
int level
2121
char* message
2222
CODE:
2323
elog(level, message);
2424

2525

2626
int
27-
elog_DEBUG()
27+
spi_DEBUG()
2828

2929
int
30-
elog_LOG()
30+
spi_LOG()
3131

3232
int
33-
elog_INFO()
33+
spi_INFO()
3434

3535
int
36-
elog_NOTICE()
36+
spi_NOTICE()
3737

3838
int
39-
elog_WARNING()
39+
spi_WARNING()
4040

4141
int
42-
elog_ERROR()
43-
44-
42+
spi_ERROR()
43+
44+
SV*
45+
spi_spi_exec_query(query, ...)
46+
char* query;
47+
PREINIT:
48+
HV *ret_hash;
49+
int limit=0;
50+
CODE:
51+
if (items>2) Perl_croak(aTHX_ "Usage: spi_exec_query(query, limit) or spi_exec_query(query)");
52+
if (items == 2) limit = SvIV(ST(1));
53+
ret_hash=plperl_spi_exec(query, limit);
54+
RETVAL = newRV_noinc((SV*)ret_hash);
55+
OUTPUT:
56+
RETVAL

‎src/pl/plperl/eloglvl.c

Lines changed: 0 additions & 45 deletions
This file was deleted.

‎src/pl/plperl/eloglvl.h

Lines changed: 0 additions & 12 deletions
This file was deleted.

0 commit comments

Comments
 (0)