mirror of
https://github.com/postgres/postgres.git
synced 2025-04-29 13:56:47 +03:00
9a95a77d9d
Using the standard bool type provided by C allows some recent compilers and debuggers to give better diagnostics. Also, some extension code and third-party headers are increasingly pulling in stdbool.h, so it's probably saner if everyone uses the same definition. But PostgreSQL code is not prepared to handle bool of a size other than 1, so we keep our own old definition if we encounter a stdbool.h with a bool of a different size. (Among current build farm members, this only applies to old macOS versions on PowerPC.) To check that the used bool is of the right size, add a static assertions about size of GinTernaryValue vs bool. This is currently the only place that assumes that bool and char are of the same size. Discussion: https://www.postgresql.org/message-id/flat/3a0fe7e1-5ed1-414b-9230-53bbc0ed1f49@2ndquadrant.com
134 lines
3.5 KiB
C
134 lines
3.5 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-2018, 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
|
|
/*
|
|
* isnan is defined in both the perl and mingw headers. We don't use it,
|
|
* so this just clears up the compile warning.
|
|
*/
|
|
#ifdef isnan
|
|
#undef isnan
|
|
#endif
|
|
#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.
|
|
*/
|
|
|
|
#ifdef USE_REPL_SNPRINTF
|
|
#undef snprintf
|
|
#undef vsnprintf
|
|
#endif
|
|
|
|
/*
|
|
* ActivePerl 5.18 and later are MinGW-built, and their headers use GCC's
|
|
* __inline__. Translate to something MSVC recognizes.
|
|
*/
|
|
#ifdef _MSC_VER
|
|
#define __inline__ inline
|
|
#endif
|
|
|
|
/*
|
|
* Prevent perl from redefining "bool".
|
|
*/
|
|
#define HAS_BOOL 1
|
|
|
|
|
|
/*
|
|
* 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
|
|
#include "XSUB.h"
|
|
#endif
|
|
|
|
/* put back our snprintf and vsnprintf */
|
|
#ifdef USE_REPL_SNPRINTF
|
|
#ifdef snprintf
|
|
#undef snprintf
|
|
#endif
|
|
#ifdef vsnprintf
|
|
#undef vsnprintf
|
|
#endif
|
|
#ifdef __GNUC__
|
|
#define vsnprintf(...) pg_vsnprintf(__VA_ARGS__)
|
|
#define snprintf(...) pg_snprintf(__VA_ARGS__)
|
|
#else
|
|
#define vsnprintf pg_vsnprintf
|
|
#define snprintf pg_snprintf
|
|
#endif /* __GNUC__ */
|
|
#endif /* USE_REPL_SNPRINTF */
|
|
|
|
/* perl version and platform portability */
|
|
#define NEED_eval_pv
|
|
#define NEED_newRV_noinc
|
|
#define NEED_sv_2pv_flags
|
|
#include "ppport.h"
|
|
|
|
/* 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 */
|