intl/dgettext.c

   1 /* Implementation of the dgettext(3) function.
   2    Copyright (C) 1995-2023 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU Lesser General Public License as published by
   6    the Free Software Foundation; either version 2.1 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public License
  15    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  16
  17 #ifdef HAVE_CONFIG_H
  18 # include <config.h>
  19 #endif
  20
  21 #include "gettextP.h"
  22
  23 #include <locale.h>
  24
  25 #ifdef _LIBC
  26 # include <libintl.h>
  27 #else
  28 # include "libgnuintl.h"
  29 #endif
  30
  31 /* @@ end of prolog @@ */
  32
  33 /* Names for the libintl functions are a problem.  They must not clash
  34    with existing names and they should follow ANSI C.  But this source
  35    code is also used in GNU C Library where the names have a __
  36    prefix.  So we have to make a difference here.  */
  37 #ifdef _LIBC
  38 # define DGETTEXT __dgettext
  39 # define DCGETTEXT __dcgettext
  40 #else
  41 # define DGETTEXT libintl_dgettext
  42 # define DCGETTEXT libintl_dcgettext
  43 #endif
  44
  45 /* Look up MSGID in the DOMAINNAME message catalog of the current
  46    LC_MESSAGES locale.  */
  47 char *
  48 DGETTEXT (const char *domainname, const char *msgid)
  49 {
  50   return DCGETTEXT (domainname, msgid, LC_MESSAGES);
  51 }
  52
  53 #ifdef _LIBC
  54 /* Alias for function name in GNU C Library.  */
  55 weak_alias (__dgettext, dgettext);
  56 #endif