mirror of
https://github.com/postgres/postgres.git
synced 2025-09-11 00:12:06 +03:00
0a7ded19b4
Also apply the changes suggested by running
perl ppport.h --compat-version=5.8.0
And remove some no-longer-required NEED_foo declarations.
Dagfinn Ilmari Mannsåker
Back-patch of commit 05798c9f7 into all supported branches.
At the time we thought this update was mostly cosmetic, but the
lack of it has caused trouble, while the patch itself hasn't.
Discussion: https://postgr.es/m/87y278s6iq.fsf@wibble.ilmari.org
Discussion: https://postgr.es/m/20220131015130.shn6wr2fzuymerf6@alap3.anarazel.de
216 lines
5.4 KiB
C
216 lines
5.4 KiB
C
/*-------------------------------------------------------------------------
|
|
*
|
|
* plperl.h
|
|
* Common include file for PL/Perl files
|
|
*
|
|
* This should be included _AFTER_ postgres.h and system include files
|
|
*
|
|
* Portions Copyright (c) 1996-2019, PostgreSQL Global Development Group
|
|
* Portions Copyright (c) 1995, Regents of the University of California
|
|
*
|
|
* src/pl/plperl/plperl.h
|
|
*/
|
|
|
|
#ifndef PL_PERL_H
|
|
#define PL_PERL_H
|
|
|
|
/* stop perl headers from hijacking stdio and other stuff on Windows */
|
|
#ifdef WIN32
|
|
#define WIN32IO_IS_STDIO
|
|
#endif /* WIN32 */
|
|
|
|
/*
|
|
* Supply a value of PERL_UNUSED_DECL that will satisfy gcc - the one
|
|
* perl itself supplies doesn't seem to.
|
|
*/
|
|
#define PERL_UNUSED_DECL pg_attribute_unused()
|
|
|
|
/*
|
|
* Sometimes perl carefully scribbles on our *printf macros.
|
|
* So we undefine them here and redefine them after it's done its dirty deed.
|
|
*/
|
|
#undef vsnprintf
|
|
#undef snprintf
|
|
#undef vsprintf
|
|
#undef sprintf
|
|
#undef vfprintf
|
|
#undef fprintf
|
|
#undef vprintf
|
|
#undef printf
|
|
|
|
/*
|
|
* Perl scribbles on the "_" macro too.
|
|
*/
|
|
#undef _
|
|
|
|
/*
|
|
* ActivePerl 5.18 and later are MinGW-built, and their headers use GCC's
|
|
* __inline__. Translate to something MSVC recognizes. Also, perl.h sometimes
|
|
* defines isnan, so undefine it here and put back the definition later if
|
|
* perl.h doesn't.
|
|
*/
|
|
#ifdef _MSC_VER
|
|
#define __inline__ inline
|
|
#ifdef isnan
|
|
#undef isnan
|
|
#endif
|
|
#endif
|
|
|
|
/*
|
|
* Regarding bool, both PostgreSQL and Perl might use stdbool.h or not,
|
|
* depending on configuration. If both agree, things are relatively harmless.
|
|
* If not, things get tricky. If PostgreSQL does but Perl does not, define
|
|
* HAS_BOOL here so that Perl does not redefine bool; this avoids compiler
|
|
* warnings. If PostgreSQL does not but Perl does, we need to undefine bool
|
|
* after we include the Perl headers; see below.
|
|
*/
|
|
#ifdef USE_STDBOOL
|
|
#define HAS_BOOL 1
|
|
#endif
|
|
|
|
|
|
/*
|
|
* Get the basic Perl API. We use PERL_NO_GET_CONTEXT mode so that our code
|
|
* can compile against MULTIPLICITY Perl builds without including XSUB.h.
|
|
*/
|
|
#define PERL_NO_GET_CONTEXT
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
|
|
/*
|
|
* We want to include XSUB.h only within .xs files, because on some platforms
|
|
* it undesirably redefines a lot of libc functions. But it must appear
|
|
* before ppport.h, so use a #define flag to control inclusion here.
|
|
*/
|
|
#ifdef PG_NEED_PERL_XSUB_H
|
|
/*
|
|
* On Windows, win32_port.h defines macros for a lot of these same functions.
|
|
* To avoid compiler warnings when XSUB.h redefines them, #undef our versions.
|
|
*/
|
|
#ifdef WIN32
|
|
#undef accept
|
|
#undef bind
|
|
#undef connect
|
|
#undef fopen
|
|
#undef kill
|
|
#undef listen
|
|
#undef lstat
|
|
#undef mkdir
|
|
#undef open
|
|
#undef putenv
|
|
#undef recv
|
|
#undef rename
|
|
#undef select
|
|
#undef send
|
|
#undef socket
|
|
#undef stat
|
|
#undef unlink
|
|
#endif
|
|
|
|
#include "XSUB.h"
|
|
#endif
|
|
|
|
/* put back our *printf macros ... this must match src/include/port.h */
|
|
#ifdef vsnprintf
|
|
#undef vsnprintf
|
|
#endif
|
|
#ifdef snprintf
|
|
#undef snprintf
|
|
#endif
|
|
#ifdef vsprintf
|
|
#undef vsprintf
|
|
#endif
|
|
#ifdef sprintf
|
|
#undef sprintf
|
|
#endif
|
|
#ifdef vfprintf
|
|
#undef vfprintf
|
|
#endif
|
|
#ifdef fprintf
|
|
#undef fprintf
|
|
#endif
|
|
#ifdef vprintf
|
|
#undef vprintf
|
|
#endif
|
|
#ifdef printf
|
|
#undef printf
|
|
#endif
|
|
|
|
#define vsnprintf pg_vsnprintf
|
|
#define snprintf pg_snprintf
|
|
#define vsprintf pg_vsprintf
|
|
#define sprintf pg_sprintf
|
|
#define vfprintf pg_vfprintf
|
|
#define fprintf pg_fprintf
|
|
#define vprintf pg_vprintf
|
|
#define printf(...) pg_printf(__VA_ARGS__)
|
|
|
|
/*
|
|
* Put back "_" too; but rather than making it just gettext() as the core
|
|
* code does, make it dgettext() so that the right things will happen in
|
|
* loadable modules (if they've set up TEXTDOMAIN correctly). Note that
|
|
* we can't just set TEXTDOMAIN here, because this file is used by more
|
|
* extensions than just PL/Perl itself.
|
|
*/
|
|
#undef _
|
|
#define _(x) dgettext(TEXTDOMAIN, x)
|
|
|
|
/* put back the definition of isnan if needed */
|
|
#ifdef _MSC_VER
|
|
#ifndef isnan
|
|
#define isnan(x) _isnan(x)
|
|
#endif
|
|
#endif
|
|
|
|
/* perl version and platform portability */
|
|
#include "ppport.h"
|
|
|
|
/*
|
|
* perl might have included stdbool.h. If we also did that earlier (see c.h),
|
|
* then that's fine. If not, we probably rejected it for some reason. In
|
|
* that case, undef bool and proceed with our own bool. (Note that stdbool.h
|
|
* makes bool a macro, but our own replacement is a typedef, so the undef
|
|
* makes ours visible again).
|
|
*/
|
|
#ifndef USE_STDBOOL
|
|
#ifdef bool
|
|
#undef bool
|
|
#endif
|
|
#endif
|
|
|
|
/* supply HeUTF8 if it's missing - ppport.h doesn't supply it, unfortunately */
|
|
#ifndef HeUTF8
|
|
#define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \
|
|
SvUTF8(HeKEY_sv(he)) : \
|
|
(U32)HeKUTF8(he))
|
|
#endif
|
|
|
|
/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */
|
|
#ifndef GvCV_set
|
|
#define GvCV_set(gv, cv) (GvCV(gv) = cv)
|
|
#endif
|
|
|
|
/* Perl 5.19.4 changed array indices from I32 to SSize_t */
|
|
#if PERL_BCDVERSION >= 0x5019004
|
|
#define AV_SIZE_MAX SSize_t_MAX
|
|
#else
|
|
#define AV_SIZE_MAX I32_MAX
|
|
#endif
|
|
|
|
/* declare routines from plperl.c for access by .xs files */
|
|
HV *plperl_spi_exec(char *, int);
|
|
void plperl_return_next(SV *);
|
|
SV *plperl_spi_query(char *);
|
|
SV *plperl_spi_fetchrow(char *);
|
|
SV *plperl_spi_prepare(char *, int, SV **);
|
|
HV *plperl_spi_exec_prepared(char *, HV *, int, SV **);
|
|
SV *plperl_spi_query_prepared(char *, int, SV **);
|
|
void plperl_spi_freeplan(char *);
|
|
void plperl_spi_cursor_close(char *);
|
|
void plperl_spi_commit(void);
|
|
void plperl_spi_rollback(void);
|
|
char *plperl_sv_to_literal(SV *, char *);
|
|
void plperl_util_elog(int level, SV *msg);
|
|
|
|
#endif /* PL_PERL_H */
|