mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
9361f7621b
* posix.c (scm_init_posix): Add LC_PAPER, LC_NAME, LC_ADDRESS, LC_TELEPHONE, LC_MEASUREMENT, LC_IDENTIFICATION. * i18n.c (scm_i_to_lc_category): New name and export. Support all LC categories. * posix.c (s_scm_setlocale): Use it. * i18n.h, i18n.c (scm_textdomain, scm_bindtextdomain, scm_bind_textdomain_codeset): Make wrappers similar to C function they wrap. * i18n.h: New file. * i18n.c: New file. * gettext.h: New file, taken from GNU gettext. * init.c: Include libguile/i18n.h. (scm_init_guile_1): Add call to scm_init_i18n(). * Makefile.am (libguile_la_SOURCES): Add i18n.c. (DOT_X_FILES): Add i18n.x. (DOT_DOC_FILES): Add i18n.doc. (libguile_la_LDFLAGS): Add @LTLIBINTL@. (modinclude_HEADERS): Add i18n.h.
69 lines
3 KiB
C
69 lines
3 KiB
C
/* Convenience header for conditional use of GNU <libintl.h>.
|
|
Copyright (C) 1995-1998, 2000-2002 Free Software Foundation, Inc.
|
|
|
|
This program is free software; you can redistribute it and/or modify it
|
|
under the terms of the GNU Library General Public License as published
|
|
by the Free Software Foundation; either version 2, 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
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
License along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
|
|
USA. */
|
|
|
|
#ifndef _LIBGETTEXT_H
|
|
#define _LIBGETTEXT_H 1
|
|
|
|
/* NLS can be disabled through the configure --disable-nls option. */
|
|
#if ENABLE_NLS
|
|
|
|
/* Get declarations of GNU message catalog functions. */
|
|
# include <libintl.h>
|
|
|
|
#else
|
|
|
|
/* Solaris /usr/include/locale.h includes /usr/include/libintl.h, which
|
|
chokes if dcgettext is defined as a macro. So include it now, to make
|
|
later inclusions of <locale.h> a NOP. We don't include <libintl.h>
|
|
as well because people using "gettext.h" will not include <libintl.h>,
|
|
and also including <libintl.h> would fail on SunOS 4, whereas <locale.h>
|
|
is OK. */
|
|
#if defined(__sun)
|
|
# include <locale.h>
|
|
#endif
|
|
|
|
/* Disabled NLS.
|
|
The casts to 'const char *' serve the purpose of producing warnings
|
|
for invalid uses of the value returned from these functions.
|
|
On pre-ANSI systems without 'const', the config.h file is supposed to
|
|
contain "#define const". */
|
|
# define gettext(Msgid) ((const char *) (Msgid))
|
|
# define dgettext(Domainname, Msgid) ((const char *) (Msgid))
|
|
# define dcgettext(Domainname, Msgid, Category) ((const char *) (Msgid))
|
|
# define ngettext(Msgid1, Msgid2, N) \
|
|
((N) == 1 ? (const char *) (Msgid1) : (const char *) (Msgid2))
|
|
# define dngettext(Domainname, Msgid1, Msgid2, N) \
|
|
((N) == 1 ? (const char *) (Msgid1) : (const char *) (Msgid2))
|
|
# define dcngettext(Domainname, Msgid1, Msgid2, N, Category) \
|
|
((N) == 1 ? (const char *) (Msgid1) : (const char *) (Msgid2))
|
|
# define textdomain(Domainname) ((const char *) (Domainname))
|
|
# define bindtextdomain(Domainname, Dirname) ((const char *) (Dirname))
|
|
# define bind_textdomain_codeset(Domainname, Codeset) ((const char *) (Codeset))
|
|
|
|
#endif
|
|
|
|
/* A pseudo function call that serves as a marker for the automated
|
|
extraction of messages, but does not call gettext(). The run-time
|
|
translation is done at a different place in the code.
|
|
The argument, String, should be a literal string. Concatenated strings
|
|
and other string expressions won't work.
|
|
The macro's expansion is not parenthesized, so that it is suitable as
|
|
initializer for static 'char[]' or 'const char[]' variables. */
|
|
#define gettext_noop(String) String
|
|
|
|
#endif /* _LIBGETTEXT_H */
|