mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-24 07:20:37 +00:00
ecf08f0621
dc4e6b1329; Update copyright years in more files64b3777631; Run set-copyright from admin.el8e1c56ae46; Add 2024 to copyright years # Conflicts: # doc/misc/modus-themes.org # doc/misc/texinfo.tex # etc/NEWS # etc/refcards/ru-refcard.tex # etc/themes/modus-operandi-theme.el # etc/themes/modus-themes.el # etc/themes/modus-vivendi-theme.el # lib/alloca.in.h # lib/binary-io.h # lib/c-ctype.h # lib/c-strcasecmp.c # lib/c-strncasecmp.c # lib/careadlinkat.c # lib/cloexec.c # lib/close-stream.c # lib/diffseq.h # lib/dup2.c # lib/filemode.h # lib/fpending.c # lib/fpending.h # lib/fsusage.c # lib/getgroups.c # lib/getloadavg.c # lib/gettext.h # lib/gettime.c # lib/gettimeofday.c # lib/group-member.c # lib/malloc.c # lib/md5-stream.c # lib/md5.c # lib/md5.h # lib/memmem.c # lib/memrchr.c # lib/nanosleep.c # lib/save-cwd.h # lib/sha1.c # lib/sig2str.c # lib/stdlib.in.h # lib/strtoimax.c # lib/strtol.c # lib/strtoll.c # lib/time_r.c # lib/xalloc-oversized.h # lisp/auth-source-pass.el # lisp/emacs-lisp/lisp-mnt.el # lisp/emacs-lisp/timer.el # lisp/info-look.el # lisp/jit-lock.el # lisp/loadhist.el # lisp/mail/rmail.el # lisp/net/ntlm.el # lisp/net/webjump.el # lisp/progmodes/asm-mode.el # lisp/progmodes/project.el # lisp/progmodes/sh-script.el # lisp/textmodes/flyspell.el # lisp/textmodes/reftex-toc.el # lisp/textmodes/reftex.el # lisp/textmodes/tex-mode.el # lisp/url/url-gw.el # m4/alloca.m4 # m4/clock_time.m4 # m4/d-type.m4 # m4/dirent_h.m4 # m4/dup2.m4 # m4/euidaccess.m4 # m4/fchmodat.m4 # m4/filemode.m4 # m4/fsusage.m4 # m4/getgroups.m4 # m4/getloadavg.m4 # m4/getrandom.m4 # m4/gettime.m4 # m4/gettimeofday.m4 # m4/gnulib-common.m4 # m4/group-member.m4 # m4/inttypes.m4 # m4/malloc.m4 # m4/manywarnings.m4 # m4/mempcpy.m4 # m4/memrchr.m4 # m4/mkostemp.m4 # m4/mktime.m4 # m4/nproc.m4 # m4/nstrftime.m4 # m4/pathmax.m4 # m4/pipe2.m4 # m4/pselect.m4 # m4/pthread_sigmask.m4 # m4/readlink.m4 # m4/realloc.m4 # m4/sig2str.m4 # m4/ssize_t.m4 # m4/stat-time.m4 # m4/stddef_h.m4 # m4/stdint.m4 # m4/stdio_h.m4 # m4/stdlib_h.m4 # m4/stpcpy.m4 # m4/strnlen.m4 # m4/strtoimax.m4 # m4/strtoll.m4 # m4/time_h.m4 # m4/timegm.m4 # m4/timer_time.m4 # m4/timespec.m4 # m4/unistd_h.m4 # m4/warnings.m4 # nt/configure.bat # nt/preprep.c # test/lisp/register-tests.el
338 lines
15 KiB
C++
338 lines
15 KiB
C++
/* C++ compatible function declaration macros.
|
|
Copyright (C) 2010-2024 Free Software Foundation, Inc.
|
|
|
|
This program is free software: you can redistribute it and/or modify it
|
|
under the terms of the GNU Lesser General Public License as published
|
|
by the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with this program. If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
#ifndef _GL_CXXDEFS_H
|
|
#define _GL_CXXDEFS_H
|
|
|
|
/* Begin/end the GNULIB_NAMESPACE namespace. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_BEGIN_NAMESPACE namespace GNULIB_NAMESPACE {
|
|
# define _GL_END_NAMESPACE }
|
|
#else
|
|
# define _GL_BEGIN_NAMESPACE
|
|
# define _GL_END_NAMESPACE
|
|
#endif
|
|
|
|
/* The three most frequent use cases of these macros are:
|
|
|
|
* For providing a substitute for a function that is missing on some
|
|
platforms, but is declared and works fine on the platforms on which
|
|
it exists:
|
|
|
|
#if @GNULIB_FOO@
|
|
# if !@HAVE_FOO@
|
|
_GL_FUNCDECL_SYS (foo, ...);
|
|
# endif
|
|
_GL_CXXALIAS_SYS (foo, ...);
|
|
_GL_CXXALIASWARN (foo);
|
|
#elif defined GNULIB_POSIXCHECK
|
|
...
|
|
#endif
|
|
|
|
* For providing a replacement for a function that exists on all platforms,
|
|
but is broken/insufficient and needs to be replaced on some platforms:
|
|
|
|
#if @GNULIB_FOO@
|
|
# if @REPLACE_FOO@
|
|
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
|
# undef foo
|
|
# define foo rpl_foo
|
|
# endif
|
|
_GL_FUNCDECL_RPL (foo, ...);
|
|
_GL_CXXALIAS_RPL (foo, ...);
|
|
# else
|
|
_GL_CXXALIAS_SYS (foo, ...);
|
|
# endif
|
|
_GL_CXXALIASWARN (foo);
|
|
#elif defined GNULIB_POSIXCHECK
|
|
...
|
|
#endif
|
|
|
|
* For providing a replacement for a function that exists on some platforms
|
|
but is broken/insufficient and needs to be replaced on some of them and
|
|
is additionally either missing or undeclared on some other platforms:
|
|
|
|
#if @GNULIB_FOO@
|
|
# if @REPLACE_FOO@
|
|
# if !(defined __cplusplus && defined GNULIB_NAMESPACE)
|
|
# undef foo
|
|
# define foo rpl_foo
|
|
# endif
|
|
_GL_FUNCDECL_RPL (foo, ...);
|
|
_GL_CXXALIAS_RPL (foo, ...);
|
|
# else
|
|
# if !@HAVE_FOO@ or if !@HAVE_DECL_FOO@
|
|
_GL_FUNCDECL_SYS (foo, ...);
|
|
# endif
|
|
_GL_CXXALIAS_SYS (foo, ...);
|
|
# endif
|
|
_GL_CXXALIASWARN (foo);
|
|
#elif defined GNULIB_POSIXCHECK
|
|
...
|
|
#endif
|
|
*/
|
|
|
|
/* _GL_EXTERN_C declaration;
|
|
performs the declaration with C linkage. */
|
|
#if defined __cplusplus
|
|
# define _GL_EXTERN_C extern "C"
|
|
#else
|
|
# define _GL_EXTERN_C extern
|
|
#endif
|
|
|
|
/* _GL_FUNCDECL_RPL (func, rettype, parameters_and_attributes);
|
|
declares a replacement function, named rpl_func, with the given prototype,
|
|
consisting of return type, parameters, and attributes.
|
|
Example:
|
|
_GL_FUNCDECL_RPL (open, int, (const char *filename, int flags, ...)
|
|
_GL_ARG_NONNULL ((1)));
|
|
|
|
Note: Attributes, such as _GL_ATTRIBUTE_DEPRECATED, are supported in front
|
|
of a _GL_FUNCDECL_RPL invocation only in C mode, not in C++ mode. (That's
|
|
because
|
|
[[...]] extern "C" <declaration>;
|
|
is invalid syntax in C++.)
|
|
*/
|
|
#define _GL_FUNCDECL_RPL(func,rettype,parameters_and_attributes) \
|
|
_GL_FUNCDECL_RPL_1 (rpl_##func, rettype, parameters_and_attributes)
|
|
#define _GL_FUNCDECL_RPL_1(rpl_func,rettype,parameters_and_attributes) \
|
|
_GL_EXTERN_C rettype rpl_func parameters_and_attributes
|
|
|
|
/* _GL_FUNCDECL_SYS (func, rettype, parameters_and_attributes);
|
|
declares the system function, named func, with the given prototype,
|
|
consisting of return type, parameters, and attributes.
|
|
Example:
|
|
_GL_FUNCDECL_SYS (open, int, (const char *filename, int flags, ...)
|
|
_GL_ARG_NONNULL ((1)));
|
|
*/
|
|
#define _GL_FUNCDECL_SYS(func,rettype,parameters_and_attributes) \
|
|
_GL_EXTERN_C rettype func parameters_and_attributes
|
|
|
|
/* _GL_CXXALIAS_RPL (func, rettype, parameters);
|
|
declares a C++ alias called GNULIB_NAMESPACE::func
|
|
that redirects to rpl_func, if GNULIB_NAMESPACE is defined.
|
|
Example:
|
|
_GL_CXXALIAS_RPL (open, int, (const char *filename, int flags, ...));
|
|
|
|
Wrapping rpl_func in an object with an inline conversion operator
|
|
avoids a reference to rpl_func unless GNULIB_NAMESPACE::func is
|
|
actually used in the program. */
|
|
#define _GL_CXXALIAS_RPL(func,rettype,parameters) \
|
|
_GL_CXXALIAS_RPL_1 (func, rpl_##func, rettype, parameters)
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_CXXALIAS_RPL_1(func,rpl_func,rettype,parameters) \
|
|
namespace GNULIB_NAMESPACE \
|
|
{ \
|
|
static const struct _gl_ ## func ## _wrapper \
|
|
{ \
|
|
typedef rettype (*type) parameters; \
|
|
\
|
|
inline operator type () const \
|
|
{ \
|
|
return ::rpl_func; \
|
|
} \
|
|
} func = {}; \
|
|
} \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#else
|
|
# define _GL_CXXALIAS_RPL_1(func,rpl_func,rettype,parameters) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
/* _GL_CXXALIAS_MDA (func, rettype, parameters);
|
|
is to be used when func is a Microsoft deprecated alias, on native Windows.
|
|
It declares a C++ alias called GNULIB_NAMESPACE::func
|
|
that redirects to _func, if GNULIB_NAMESPACE is defined.
|
|
Example:
|
|
_GL_CXXALIAS_MDA (open, int, (const char *filename, int flags, ...));
|
|
*/
|
|
#define _GL_CXXALIAS_MDA(func,rettype,parameters) \
|
|
_GL_CXXALIAS_RPL_1 (func, _##func, rettype, parameters)
|
|
|
|
/* _GL_CXXALIAS_RPL_CAST_1 (func, rpl_func, rettype, parameters);
|
|
is like _GL_CXXALIAS_RPL_1 (func, rpl_func, rettype, parameters);
|
|
except that the C function rpl_func may have a slightly different
|
|
declaration. A cast is used to silence the "invalid conversion" error
|
|
that would otherwise occur. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_CXXALIAS_RPL_CAST_1(func,rpl_func,rettype,parameters) \
|
|
namespace GNULIB_NAMESPACE \
|
|
{ \
|
|
static const struct _gl_ ## func ## _wrapper \
|
|
{ \
|
|
typedef rettype (*type) parameters; \
|
|
\
|
|
inline operator type () const \
|
|
{ \
|
|
return reinterpret_cast<type>(::rpl_func); \
|
|
} \
|
|
} func = {}; \
|
|
} \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#else
|
|
# define _GL_CXXALIAS_RPL_CAST_1(func,rpl_func,rettype,parameters) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
/* _GL_CXXALIAS_MDA_CAST (func, rettype, parameters);
|
|
is like _GL_CXXALIAS_MDA (func, rettype, parameters);
|
|
except that the C function func may have a slightly different declaration.
|
|
A cast is used to silence the "invalid conversion" error that would
|
|
otherwise occur. */
|
|
#define _GL_CXXALIAS_MDA_CAST(func,rettype,parameters) \
|
|
_GL_CXXALIAS_RPL_CAST_1 (func, _##func, rettype, parameters)
|
|
|
|
/* _GL_CXXALIAS_SYS (func, rettype, parameters);
|
|
declares a C++ alias called GNULIB_NAMESPACE::func
|
|
that redirects to the system provided function func, if GNULIB_NAMESPACE
|
|
is defined.
|
|
Example:
|
|
_GL_CXXALIAS_SYS (open, int, (const char *filename, int flags, ...));
|
|
|
|
Wrapping func in an object with an inline conversion operator
|
|
avoids a reference to func unless GNULIB_NAMESPACE::func is
|
|
actually used in the program. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_CXXALIAS_SYS(func,rettype,parameters) \
|
|
namespace GNULIB_NAMESPACE \
|
|
{ \
|
|
static const struct _gl_ ## func ## _wrapper \
|
|
{ \
|
|
typedef rettype (*type) parameters; \
|
|
\
|
|
inline operator type () const \
|
|
{ \
|
|
return ::func; \
|
|
} \
|
|
} func = {}; \
|
|
} \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#else
|
|
# define _GL_CXXALIAS_SYS(func,rettype,parameters) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
/* _GL_CXXALIAS_SYS_CAST (func, rettype, parameters);
|
|
is like _GL_CXXALIAS_SYS (func, rettype, parameters);
|
|
except that the C function func may have a slightly different declaration.
|
|
A cast is used to silence the "invalid conversion" error that would
|
|
otherwise occur. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_CXXALIAS_SYS_CAST(func,rettype,parameters) \
|
|
namespace GNULIB_NAMESPACE \
|
|
{ \
|
|
static const struct _gl_ ## func ## _wrapper \
|
|
{ \
|
|
typedef rettype (*type) parameters; \
|
|
\
|
|
inline operator type () const \
|
|
{ \
|
|
return reinterpret_cast<type>(::func); \
|
|
} \
|
|
} func = {}; \
|
|
} \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#else
|
|
# define _GL_CXXALIAS_SYS_CAST(func,rettype,parameters) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
/* _GL_CXXALIAS_SYS_CAST2 (func, rettype, parameters, rettype2, parameters2);
|
|
is like _GL_CXXALIAS_SYS (func, rettype, parameters);
|
|
except that the C function is picked among a set of overloaded functions,
|
|
namely the one with rettype2 and parameters2. Two consecutive casts
|
|
are used to silence the "cannot find a match" and "invalid conversion"
|
|
errors that would otherwise occur. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
/* The outer cast must be a reinterpret_cast.
|
|
The inner cast: When the function is defined as a set of overloaded
|
|
functions, it works as a static_cast<>, choosing the designated variant.
|
|
When the function is defined as a single variant, it works as a
|
|
reinterpret_cast<>. The parenthesized cast syntax works both ways. */
|
|
# define _GL_CXXALIAS_SYS_CAST2(func,rettype,parameters,rettype2,parameters2) \
|
|
namespace GNULIB_NAMESPACE \
|
|
{ \
|
|
static const struct _gl_ ## func ## _wrapper \
|
|
{ \
|
|
typedef rettype (*type) parameters; \
|
|
\
|
|
inline operator type () const \
|
|
{ \
|
|
return reinterpret_cast<type>((rettype2 (*) parameters2)(::func)); \
|
|
} \
|
|
} func = {}; \
|
|
} \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#else
|
|
# define _GL_CXXALIAS_SYS_CAST2(func,rettype,parameters,rettype2,parameters2) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
/* _GL_CXXALIASWARN (func);
|
|
causes a warning to be emitted when ::func is used but not when
|
|
GNULIB_NAMESPACE::func is used. func must be defined without overloaded
|
|
variants. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_CXXALIASWARN(func) \
|
|
_GL_CXXALIASWARN_1 (func, GNULIB_NAMESPACE)
|
|
# define _GL_CXXALIASWARN_1(func,namespace) \
|
|
_GL_CXXALIASWARN_2 (func, namespace)
|
|
/* To work around GCC bug <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=43881>,
|
|
we enable the warning only when not optimizing. */
|
|
# if !(defined __GNUC__ && !defined __clang__ && __OPTIMIZE__)
|
|
# define _GL_CXXALIASWARN_2(func,namespace) \
|
|
_GL_WARN_ON_USE (func, \
|
|
"The symbol ::" #func " refers to the system function. " \
|
|
"Use " #namespace "::" #func " instead.")
|
|
# elif __GNUC__ >= 3 && GNULIB_STRICT_CHECKING
|
|
# define _GL_CXXALIASWARN_2(func,namespace) \
|
|
extern __typeof__ (func) func
|
|
# else
|
|
# define _GL_CXXALIASWARN_2(func,namespace) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
# endif
|
|
#else
|
|
# define _GL_CXXALIASWARN(func) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
/* _GL_CXXALIASWARN1 (func, rettype, parameters_and_attributes);
|
|
causes a warning to be emitted when the given overloaded variant of ::func
|
|
is used but not when GNULIB_NAMESPACE::func is used. */
|
|
#if defined __cplusplus && defined GNULIB_NAMESPACE
|
|
# define _GL_CXXALIASWARN1(func,rettype,parameters_and_attributes) \
|
|
_GL_CXXALIASWARN1_1 (func, rettype, parameters_and_attributes, \
|
|
GNULIB_NAMESPACE)
|
|
# define _GL_CXXALIASWARN1_1(func,rettype,parameters_and_attributes,namespace) \
|
|
_GL_CXXALIASWARN1_2 (func, rettype, parameters_and_attributes, namespace)
|
|
/* To work around GCC bug <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=43881>,
|
|
we enable the warning only when not optimizing. */
|
|
# if !(defined __GNUC__ && !defined __clang__ && __OPTIMIZE__)
|
|
# define _GL_CXXALIASWARN1_2(func,rettype,parameters_and_attributes,namespace) \
|
|
_GL_WARN_ON_USE_CXX (func, rettype, rettype, parameters_and_attributes, \
|
|
"The symbol ::" #func " refers to the system function. " \
|
|
"Use " #namespace "::" #func " instead.")
|
|
# else
|
|
# define _GL_CXXALIASWARN1_2(func,rettype,parameters_and_attributes,namespace) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
# endif
|
|
#else
|
|
# define _GL_CXXALIASWARN1(func,rettype,parameters_and_attributes) \
|
|
_GL_EXTERN_C int _gl_cxxalias_dummy
|
|
#endif
|
|
|
|
#endif /* _GL_CXXDEFS_H */
|