1 files changed, 142 insertions, 0 deletions
diff --git a/REORG.TODO/libidn/idn-stub.c b/REORG.TODO/libidn/idn-stub.c
new file mode 100644
index 0000000000..fb67f74b8d
--- /dev/null
+++ b/REORG.TODO/libidn/idn-stub.c
@@ -0,0 +1,142 @@
+/* idn-stub.c --- Stub to dlopen libcidn.so and invoke idna_to_ascii_lz.
+ * Copyright (C) 2003, 2004  Simon Josefsson
+ *
+ * This file is part of GNU Libidn.
+ *
+ * GNU Libidn is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * GNU Libidn 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with GNU Libidn; if not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <ctype.h>
+#include <stdio.h>
+#include <string.h>
+#include <dlfcn.h>
+#include <gnu/lib-names.h>
+#include <libc-lock.h>
+
+/* Get specification for idna_to_ascii_lz. */
+#include "idna.h"
+
+/* Handle of the libidn  DSO.  */
+static void *h;
+
+
+static int (*to_ascii_lz) (const char *input, char **output, int flags);
+static int (*to_unicode_lzlz) (const char *input, char **output, int flags);
+
+
+static void
+load_dso (void)
+{
+  /* Lock protecting the DSO loading.  */
+  __libc_lock_define_initialized (static, lock);
+
+  __libc_lock_lock (lock);
+
+  /* Retest in case some other thread arrived here at the same time.  */
+  if (h == NULL)
+    {
+      h = __libc_dlopen (LIBCIDN_SO);
+
+      if (h == NULL)
+	h = (void *) 1l;
+      else
+	{
+	  /* Get the function we are interested in.  */
+	  to_ascii_lz = __libc_dlsym (h, "idna_to_ascii_lz");
+	  to_unicode_lzlz = __libc_dlsym (h, "idna_to_unicode_lzlz");
+	  if (to_ascii_lz == NULL || to_unicode_lzlz == NULL)
+	    {
+	      __libc_dlclose (h);
+	      h = (void *) 1l;
+	    }
+	}
+    }
+
+  __libc_lock_unlock (lock);
+}
+
+
+/* Stub to dlopen libcidn.so and invoke the real idna_to_ascii_lz, or
+   return IDNA_DLOPEN_ERROR on failure.  */
+int
+__idna_to_unicode_lzlz (const char *input, char **output, int flags)
+{
+  /* If the input string contains no "xn--" prefix for a component of
+     the name we can pass it up right away.  */
+  const char *cp = input;
+  while (*cp != '\0')
+    {
+      if (strncmp (cp, IDNA_ACE_PREFIX, strlen (IDNA_ACE_PREFIX)) == 0)
+	break;
+
+      /* On to the next part of the name.  */
+      cp = __strchrnul (cp, '.');
+      if (*cp == '.')
+	++cp;
+    }
+
+  if (*cp == '\0')
+    {
+      *output = (char *) input;
+      return IDNA_SUCCESS;
+    }
+
+  if (h == NULL)
+    load_dso ();
+
+  if (h == (void *) 1l)
+    return IDNA_DLOPEN_ERROR;
+
+  return to_unicode_lzlz (input, output, flags);
+}
+
+
+/* Stub to dlopen libcidn.so and invoke the real idna_to_ascii_lz, or
+   return IDNA_DLOPEN_ERROR on failure.  */
+int
+__idna_to_ascii_lz (const char *input, char **output, int flags)
+{
+  /* If the input string contains no non-ASCII character the output
+     string will be the same.  No valid locale encoding does not have
+     this property.  */
+  const char *cp = input;
+  while (*cp != '\0' && isascii (*cp))
+    ++cp;
+
+  if (*cp == '\0')
+    {
+      *output = (char *) input;
+      return IDNA_SUCCESS;
+    }
+
+  if (h == NULL)
+    load_dso ();
+
+  if (h == (void *) 1l)
+    return IDNA_DLOPEN_ERROR;
+
+  return to_ascii_lz (input, output, flags);
+}
+
+
+#if IS_IN (libc)
+libc_freeres_fn (unload_libidn)
+{
+  if (h != NULL && h != (void *) 1l)
+    {
+      __libc_dlclose (h);
+      h = (void *) 1l;
+    }
+}
+#endif