/[cvs]/eggdrop1.9/intl/textdomain.c
ViewVC logotype

Annotation of /eggdrop1.9/intl/textdomain.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download) (as text)
Wed Oct 10 01:20:09 2001 UTC (19 years, 5 months ago) by ite
Branch: MAIN
File MIME type: text/x-chdr
* Refactored the tree (especially src/modules.c) to use the libltdl
  wrapper. Modules are configured to be lt_dlopened or dl_preopened (if
  the system doesn't support shared libraries).
* Should compile modules on more SunOs environments and on Beos too.
* Libtoolized the package: modules and internal libraries build system
  more protable than ever.
* Wiped out old makefiles in favour of automake and Makefile.am's
  files.
* Misc cleanups.
* Updated bootstrap script
* Moved doc/AUTHORS to ./AUTHORS
* Updated config.guess and config.sub
* Changed misc/ to ./ temporairly
* Got rid of misc/modconfig, and more in general of the old module
  configuration stuff, in favor of an incoming ./configure parametrized
  choice.
* Moved configure macros from aclocal.m4 to acinclude.m4 since aclocal.m4
  is now generated by aclocal on bootstrap.
* Removed no more necessary macros like EGG_EXEEXT because of
  libltdl+automake power ;P
* Removed EGG_CHECK_LIBSAFE_SSCANF macro that wasn't necessary anymore
  after gettext support.
* Added preliminary EGG_DEBUG_OPTIONS macro.
* Heavily stripped EGG_CHECK_OS macro and got rid of some system
  specific defines that were dead because of libltdl.
* Updated .cvsignore files.
* Improved make dist target.
* make static is gone in favor of ./configure --disable-shared.
* make debug is gone in favor of future ./configure --with-debug
  options.
* Others targets are gone in favor of more GNU standard targets.
* Updated po/eggdrop.pot.
# Egglib is now compiled and linked in the core.
* Moved compress.mod's specific configure macros to the top configure script.
* Switched to gettext 0.10.40 and pre-gettextized the devel tree.

1 ite 1.1 /* Implementation of the textdomain(3) function.
2     Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc.
3    
4     This program is free software; you can redistribute it and/or modify it
5     under the terms of the GNU Library General Public License as published
6     by the Free Software Foundation; either version 2, or (at your option)
7     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 GNU
12     Library General Public License for more details.
13    
14     You should have received a copy of the GNU Library General Public
15     License along with this program; if not, write to the Free Software
16     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
17     USA. */
18    
19     #ifdef HAVE_CONFIG_H
20     # include <config.h>
21     #endif
22    
23     #include <stdlib.h>
24     #include <string.h>
25    
26     #ifdef _LIBC
27     # include <libintl.h>
28     #else
29     # include "libgnuintl.h"
30     #endif
31     #include "gettextP.h"
32    
33     #ifdef _LIBC
34     /* We have to handle multi-threaded applications. */
35     # include <bits/libc-lock.h>
36     #else
37     /* Provide dummy implementation if this is outside glibc. */
38     # define __libc_rwlock_define(CLASS, NAME)
39     # define __libc_rwlock_wrlock(NAME)
40     # define __libc_rwlock_unlock(NAME)
41     #endif
42    
43     /* The internal variables in the standalone libintl.a must have different
44     names than the internal variables in GNU libc, otherwise programs
45     using libintl.a cannot be linked statically. */
46     #if !defined _LIBC
47     # define _nl_default_default_domain _nl_default_default_domain__
48     # define _nl_current_default_domain _nl_current_default_domain__
49     #endif
50    
51     /* @@ end of prolog @@ */
52    
53     /* Name of the default text domain. */
54     extern const char _nl_default_default_domain[];
55    
56     /* Default text domain in which entries for gettext(3) are to be found. */
57     extern const char *_nl_current_default_domain;
58    
59    
60     /* Names for the libintl functions are a problem. They must not clash
61     with existing names and they should follow ANSI C. But this source
62     code is also used in GNU C Library where the names have a __
63     prefix. So we have to make a difference here. */
64     #ifdef _LIBC
65     # define TEXTDOMAIN __textdomain
66     # ifndef strdup
67     # define strdup(str) __strdup (str)
68     # endif
69     #else
70     # define TEXTDOMAIN textdomain__
71     #endif
72    
73     /* Lock variable to protect the global data in the gettext implementation. */
74     __libc_rwlock_define (extern, _nl_state_lock)
75    
76     /* Set the current default message catalog to DOMAINNAME.
77     If DOMAINNAME is null, return the current default.
78     If DOMAINNAME is "", reset to the default of "messages". */
79     char *
80     TEXTDOMAIN (domainname)
81     const char *domainname;
82     {
83     char *new_domain;
84     char *old_domain;
85    
86     /* A NULL pointer requests the current setting. */
87     if (domainname == NULL)
88     return (char *) _nl_current_default_domain;
89    
90     __libc_rwlock_wrlock (_nl_state_lock);
91    
92     old_domain = (char *) _nl_current_default_domain;
93    
94     /* If domain name is the null string set to default domain "messages". */
95     if (domainname[0] == '\0'
96     || strcmp (domainname, _nl_default_default_domain) == 0)
97     {
98     _nl_current_default_domain = _nl_default_default_domain;
99     new_domain = (char *) _nl_current_default_domain;
100     }
101     else if (strcmp (domainname, old_domain) == 0)
102     /* This can happen and people will use it to signal that some
103     environment variable changed. */
104     new_domain = old_domain;
105     else
106     {
107     /* If the following malloc fails `_nl_current_default_domain'
108     will be NULL. This value will be returned and so signals we
109     are out of core. */
110     #if defined _LIBC || defined HAVE_STRDUP
111     new_domain = strdup (domainname);
112     #else
113     size_t len = strlen (domainname) + 1;
114     new_domain = (char *) malloc (len);
115     if (new_domain != NULL)
116     memcpy (new_domain, domainname, len);
117     #endif
118    
119     if (new_domain != NULL)
120     _nl_current_default_domain = new_domain;
121     }
122    
123     /* We use this possibility to signal a change of the loaded catalogs
124     since this is most likely the case and there is no other easy we
125     to do it. Do it only when the call was successful. */
126     if (new_domain != NULL)
127     {
128     ++_nl_msg_cat_cntr;
129    
130     if (old_domain != new_domain && old_domain != _nl_default_default_domain)
131     free (old_domain);
132     }
133    
134     __libc_rwlock_unlock (_nl_state_lock);
135    
136     return new_domain;
137     }
138    
139     #ifdef _LIBC
140     /* Alias for function name in GNU C Library. */
141     weak_alias (__textdomain, textdomain);
142     #endif

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23