Return to textdomain.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lrzsz / intl

Annotation of embedaddon/lrzsz/intl/textdomain.c, revision 1.1

1.1     ! misho       1: /* Implementation of the textdomain(3) function
        !             2:    Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
        !             3:    Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
        !             4: 
        !             5:    This program is free software; you can redistribute it and/or modify
        !             6:    it under the terms of the GNU General Public License as published by
        !             7:    the Free Software Foundation; either version 2, or (at your option)
        !             8:    any later version.
        !             9: 
        !            10:    This program is distributed in the hope that it will be useful,
        !            11:    but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            12:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            13:    GNU General Public License for more details.
        !            14: 
        !            15:    You should have received a copy of the GNU General Public License
        !            16:    along with this program; if not, write to the Free Software Foundation,
        !            17:    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
        !            18: 
        !            19: #ifdef HAVE_CONFIG_H
        !            20: # include <config.h>
        !            21: #endif
        !            22: 
        !            23: #if defined STDC_HEADERS || defined _LIBC
        !            24: # include <stdlib.h>
        !            25: #endif
        !            26: 
        !            27: #if defined STDC_HEADERS || defined HAVE_STRING_H || defined _LIBC
        !            28: # include <string.h>
        !            29: #else
        !            30: # include <strings.h>
        !            31: # ifndef memcpy
        !            32: #  define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
        !            33: # endif
        !            34: #endif
        !            35: 
        !            36: #ifdef _LIBC
        !            37: # include <libintl.h>
        !            38: #else
        !            39: # include "libgettext.h"
        !            40: #endif
        !            41: 
        !            42: /* @@ end of prolog @@ */
        !            43: 
        !            44: /* Name of the default text domain.  */
        !            45: extern const char _nl_default_default_domain[];
        !            46: 
        !            47: /* Default text domain in which entries for gettext(3) are to be found.  */
        !            48: extern const char *_nl_current_default_domain;
        !            49: 
        !            50: 
        !            51: /* Names for the libintl functions are a problem.  They must not clash
        !            52:    with existing names and they should follow ANSI C.  But this source
        !            53:    code is also used in GNU C Library where the names have a __
        !            54:    prefix.  So we have to make a difference here.  */
        !            55: #ifdef _LIBC
        !            56: # define TEXTDOMAIN __textdomain
        !            57: # define strdup(str) __strdup (str)
        !            58: #else
        !            59: # define TEXTDOMAIN textdomain__
        !            60: #endif
        !            61: 
        !            62: /* Set the current default message catalog to DOMAINNAME.
        !            63:    If DOMAINNAME is null, return the current default.
        !            64:    If DOMAINNAME is "", reset to the default of "messages".  */
        !            65: char *
        !            66: TEXTDOMAIN (domainname)
        !            67:      const char *domainname;
        !            68: {
        !            69:   char *old;
        !            70: 
        !            71:   /* A NULL pointer requests the current setting.  */
        !            72:   if (domainname == NULL)
        !            73:     return (char *) _nl_current_default_domain;
        !            74: 
        !            75:   old = (char *) _nl_current_default_domain;
        !            76: 
        !            77:   /* If domain name is the null string set to default domain "messages".  */
        !            78:   if (domainname[0] == '\0'
        !            79:       || strcmp (domainname, _nl_default_default_domain) == 0)
        !            80:     _nl_current_default_domain = _nl_default_default_domain;
        !            81:   else
        !            82:     {
        !            83:       /* If the following malloc fails `_nl_current_default_domain'
        !            84:         will be NULL.  This value will be returned and so signals we
        !            85:         are out of core.  */
        !            86: #if defined _LIBC || defined HAVE_STRDUP
        !            87:       _nl_current_default_domain = strdup (domainname);
        !            88: #else
        !            89:       size_t len = strlen (domainname) + 1;
        !            90:       char *cp = (char *) malloc (len);
        !            91:       if (cp != NULL)
        !            92:        memcpy (cp, domainname, len);
        !            93:       _nl_current_default_domain = cp;
        !            94: #endif
        !            95:     }
        !            96: 
        !            97:   if (old != _nl_default_default_domain)
        !            98:     free (old);
        !            99: 
        !           100:   return (char *) _nl_current_default_domain;
        !           101: }
        !           102: 
        !           103: #ifdef _LIBC
        !           104: /* Alias for function name in GNU C Library.  */
        !           105: weak_alias (__textdomain, textdomain);
        !           106: #endif