1 files changed, 366 insertions, 0 deletions
diff --git a/protocols/Sametime/src/glib/libintl.c b/protocols/Sametime/src/glib/libintl.c
new file mode 100644
index 0000000000..ae0f9e676e
--- /dev/null
+++ b/protocols/Sametime/src/glib/libintl.c
@@ -0,0 +1,366 @@
+/*
+ * Copyright (C) 2008 Tor Lillqvist
+ *
+ * This library 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 of the License, or (at your option) any later version.
+ *
+ * This library 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 library; see the file COPYING.LIB.txt.  If
+ * not, write to the Free Software Foundation, Inc., 51 Franklin
+ * Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+#ifdef _WIN32
+#  include <windows.h>
+#  include <string.h>
+#else
+#  include <stddef.h>
+#  if !STUB_ONLY
+#    include <dlfcn.h>
+#  endif
+typedef void* HMODULE;
+#endif
+
+#include <string.h>
+
+#include "libintl.h"
+
+int _nl_msg_cat_cntr;		/* So that configury thinks it is GNU
+				 * gettext
+				 */
+
+static char * (*p_gettext) (const char *msgid);
+
+static char * (*p_dgettext) (const char *domainname,
+			     const char *msgid);
+
+static char * (*p_dcgettext) (const char *domainname,
+			      const char *msgid,
+			      int         category);
+
+static char * (*p_ngettext) (const char       *msgid1,
+			     const char       *msgid2,
+			     unsigned long int n);
+
+static char * (*p_dngettext) (const char       *domainname,
+			      const char       *msgid1,
+			      const char       *msgid2,
+			      unsigned long int n);
+
+static char * (*p_dcngettext) (const char       *domainname,
+			       const char       *msgid1,
+			       const char       *msgid2,
+			       unsigned long int n,
+			       int               category);
+
+static char * (*p_textdomain) (const char *domainname);
+
+static char * (*p_bindtextdomain) (const char *domainname,
+				   const char *dirname);
+
+static char * (*p_bind_textdomain_codeset) (const char *domainname,
+					    const char *codeset);
+
+static int
+use_intl_dll (HMODULE dll)
+{
+#if !STUB_ONLY
+#  ifdef _WIN32
+#    define LOOKUP(fn) p_##fn = (void *) GetProcAddress (dll, #fn); if (p_##fn == NULL) return 0
+#  else
+#    define LOOKUP(fn) p_##fn = (void *) dlsym (dll, #fn); if (p_##fn == NULL) return 0
+#  endif  /* _WIN32 */
+
+
+  LOOKUP (gettext);
+  LOOKUP (dgettext);
+  LOOKUP (dcgettext);
+  LOOKUP (ngettext);
+  LOOKUP (dngettext);
+  LOOKUP (dcngettext);
+  LOOKUP (textdomain);
+  LOOKUP (bindtextdomain);
+  LOOKUP (bind_textdomain_codeset);
+  
+#undef LOOKUP
+#endif  /* !STUB_ONLY */
+  return 1;
+}
+
+static char *current_domain = NULL;
+
+#define DUMMY(fn, parlist, retval)		\
+static char *					\
+dummy_##fn parlist				\
+{						\
+  return (char *) (retval);			\
+}
+
+DUMMY (gettext,
+       (const char *msgid),
+       msgid)
+
+DUMMY (dgettext, 
+       (const char *domainname,
+	const char *msgid),
+       msgid)
+
+DUMMY (dcgettext,
+       (const char *domainname,
+	const char *msgid,
+	int         category),
+       msgid)
+
+DUMMY (ngettext,
+       (const char       *msgid1,
+	const char       *msgid2,
+	unsigned long int n),
+       n == 1 ? msgid1 : msgid2)
+
+DUMMY (dngettext,
+       (const char       *domainname,
+	const char       *msgid1,
+	const char       *msgid2,
+	unsigned long int n),
+       n == 1 ? msgid1 : msgid2)
+
+DUMMY (dcngettext,
+       (const char       *domainname,
+	const char       *msgid1,
+	const char       *msgid2,
+	unsigned long int n,
+	int               category),
+       n == 1 ? msgid1 : msgid2)
+
+/* GLib requires that textdomain(NULL) returns "messages"
+ * if textdomain() hasn't been called earlier.
+ */
+DUMMY (textdomain,
+       (const char *domainname),
+       (domainname ?
+	(free (current_domain), current_domain = strdup (domainname)) :
+	(current_domain ?
+	 current_domain :
+	 (current_domain = strdup ("messages")))))
+
+/* bindtextdomain() should return the current dirname for the domain,
+ * after possibly changing it. I don't think software usually checks
+ * the return value, though, so just return a dummy string now. This
+ * is the dummy implementation after all, so it hardly matters?
+ */
+DUMMY (bindtextdomain,
+       (const char *domainname,
+	const char *dirname),
+       "/dummy")
+
+/* bind_textdomain_codeset() should return the corrent codeset for the
+ * domain after possibly changing it. Again, this is the dummy
+ * implementation, so just return the codeset argument.
+ */
+DUMMY (bind_textdomain_codeset,
+       (const char *domainname,
+	const char *codeset),
+       codeset)
+
+#undef DUMMY
+
+static void
+use_dummy (void)
+{
+#define USE_DUMMY(fn) p_##fn = dummy_##fn
+
+  USE_DUMMY (gettext);
+  USE_DUMMY (dgettext);
+  USE_DUMMY (dcgettext);
+  USE_DUMMY (ngettext);
+  USE_DUMMY (dngettext);
+  USE_DUMMY (dcngettext);
+  USE_DUMMY (textdomain);
+  USE_DUMMY (bindtextdomain);
+  USE_DUMMY (bind_textdomain_codeset);
+  
+#undef USE_DUMMY
+
+}
+
+#ifdef _WIN32
+
+/* To reduce DLL hijacking risk we look for the libintl DLL in
+ * explicit full paths. We look in two places: The the directory of
+ * the application's exe file, then the directory of the DLL this code
+ * is in. (Those two might be the same, of course, but we don't bother
+ * testing that.)
+ */
+
+static HMODULE
+try_load_from_directory_of_module (HMODULE module,
+				   const char *dll_name)
+{
+  wchar_t buf[MAX_PATH*2];
+  wchar_t *slash;
+  int n;
+
+  n = GetModuleFileNameW (module, buf, MAX_PATH);
+
+  if (n == 0 || n == MAX_PATH)
+    return NULL;
+
+  slash = wcsrchr (buf, L'\\');
+  if (slash)
+    *slash = L'\0';
+
+  wcscat (buf, L"\\");
+  MultiByteToWideChar (CP_ACP, 0, dll_name, -1,
+		       buf + wcslen (buf),
+		       MAX_PATH);
+
+  return LoadLibraryW (buf);
+}
+
+
+static HMODULE
+try_load (const char *dll_name)
+{
+  HMODULE retval = NULL;
+  HMODULE this_module = NULL;
+  typedef BOOL (WINAPI *GetModuleHandleExA_t) (DWORD, LPVOID, HMODULE *);
+  GetModuleHandleExA_t GetModuleHandleExA_p;
+
+  retval = try_load_from_directory_of_module (GetModuleHandle (NULL), dll_name);
+
+  if (retval)
+    return retval;
+
+  GetModuleHandleExA_p =
+    (GetModuleHandleExA_t) GetProcAddress (GetModuleHandle ("kernel32.dll"),
+					   "GetModuleHandleExA");
+
+  if (GetModuleHandleExA_p == NULL ||
+      !(*GetModuleHandleExA_p) (GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT |
+				GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS,
+				&try_load, &this_module))
+    {
+      /* If GetModuleHandleExA() fails, or if it isn't present, use
+       * heuristics that the module handle equals the allocation base
+       * address for the module's code region.
+       */
+      MEMORY_BASIC_INFORMATION mbi;
+
+      if (VirtualQuery (&try_load, &mbi, sizeof (mbi)))
+	this_module = (HMODULE) mbi.AllocationBase;
+    }
+
+  if (this_module)
+    retval = try_load_from_directory_of_module (this_module, dll_name);
+
+  return retval;
+}
+
+#endif
+
+static void
+setup (void)
+{
+  static int beenhere = 0;
+
+  if (!beenhere)
+    {
+#if !STUB_ONLY
+#if defined(_WIN64)
+      /* On 64-bit Windows we have let libtool choose the default name
+       * for the DLL, as we don't need the intl.dll name for backward
+       * compatibility
+       */
+      HMODULE intl_dll = try_load ("libintl-8.dll");
+#  elif defined( _WIN32)
+      /* On 32-bit Windows try both the traditional name intl.dll,
+       * and libintl-8.dll.
+       */
+      HMODULE intl_dll = try_load ("intl.dll");
+      if (intl_dll == NULL)
+	intl_dll = try_load ("libintl-8.dll");
+#  elif defined(__APPLE__) && defined(__MACH__)
+      HMODULE intl_dll = dlopen ("libintl.dylib", RTLD_LAZY);
+#  else
+      HMODULE intl_dll = dlopen ("libintl.so", RTLD_LAZY);
+#  endif
+#else  /* !STUB_ONLY */
+      HMODULE intl_dll = NULL;
+#endif  /* STUB_ONLY */
+
+      if (intl_dll != NULL &&
+	  use_intl_dll (intl_dll))
+	;
+      else
+	use_dummy ();
+
+      beenhere = 1;
+    }
+}
+
+#define IMPLEMENT(fn, parlist, parlist2)	\
+char *						\
+fn parlist					\
+{						\
+  setup ();					\
+  return p_##fn parlist2;			\
+}
+
+IMPLEMENT (gettext,
+	   (const char *msgid),
+	   (msgid))
+
+IMPLEMENT (dgettext,
+	   (const char *domainname,
+	    const char *msgid),
+	   (domainname, msgid))
+
+IMPLEMENT (dcgettext,
+	   (const char *domainname,
+	    const char *msgid,
+	    int         category),
+	   (domainname, msgid, category))
+
+IMPLEMENT (ngettext,
+	   (const char       *msgid1,
+	    const char       *msgid2,
+	    unsigned long int n),
+	   (msgid1, msgid2, n))
+
+IMPLEMENT (dngettext,
+	   (const char       *domainname,
+	    const char       *msgid1,
+	    const char       *msgid2,
+	    unsigned long int n),
+	   (domainname, msgid1, msgid2, n))
+
+IMPLEMENT (dcngettext,
+	   (const char       *domainname,
+	    const char       *msgid1,
+	    const char       *msgid2,
+	    unsigned long int n,
+	    int               category),
+	   (domainname, msgid1, msgid2, n, category))
+
+IMPLEMENT (textdomain,
+	   (const char *domainname),
+	   (domainname))
+
+IMPLEMENT (bindtextdomain,
+	   (const char *domainname,
+	    const char *dirname),
+	   (domainname, dirname))
+
+IMPLEMENT (bind_textdomain_codeset,
+	   (const char *domainname,
+	    const char *codeset),
+	   (domainname, codeset))
+
+#undef IMPLEMENT