Update.

	* elf/Makefile (tests): Add nodlopen.  Add rules to generate nodlopen.
	* include/dlfcn.h: Define __RTLD_DLOPEN.
	* elf/dl-load.c (_dl_map_object_from_fd): If DF_1_NOOPEN is set
	and this is a dlopen() call, do not load the binary.
	* dlfcn/dlopen.c: Add __RTLD_DLOPEN to mode passed down to _dl_open.
	* dlfcn/dlopenold.c: Likewise.
	* configure.in: Add test for -z nodelete option.
	* config.make.in: Define have-z-nodelete with libc_cv_z_nodelete.

2000-07-20  Mark Kettenis  <kettenis@gnu.org>

	Make Hesiod NSS module thread-safe.

	* hesiod/README.hesiod: Update.

	* hesiod/Versions [GLIBC_2.2]: Add _nss_hesiod_getservbyport_r,
	_nss_hesiod_setprotoent, _nss_hesiod_endprotoent,
	_nss_hesiod_getprotobyname_r, and _nss_hesiod_getprotobynumber_r.
	* hesiod/Makefile (libnss_hesiod-routines): Add hesiod-init and
	hesiod-proto.
	* hesiod/nss_hesiod/hesiod-init.c: New file.
	* hesiod/nss_hesiod/hesiod-pwd.c: Rewritten for thread-safeness.
	* hesiod/nss_hesiod/hesiod-grp.c: Likewise.
	* hesiod/nss_hesiod/nss_hesiod.h: New file.
	* hesiod/nss_hesiod/hesiod-service.c
	(_nss_hesiod_getservbyport_r): New function.  Provide support for
	looking up services by port number.
	* hesiod/nss_hesiod/hesiod-proto.c: New file.

	* hesiod/hesiod.c: Update from BIND 8.2.3-T5B.
	* hesiod/hesiod.h: Likewise.
	* hesiod/hesiod_p.h: Likewise.

2000-07-20  Mark Kettenis  <kettenis@gnu.org>

	Fix problems with `struct __res_state' getting too big.
	* resolv/resolv.h (struct __sockaddr_in): New definition.
	(struct __res_state): Use __sockaddr_in instead of sockaddr_in in
	the private parts of the structure to save some space.
	* resolv/res_send.c (res_nsend): Cast &EXT(statp).nsaddrs[ns] to
	(struct sockaddr_in *) in call to sock_eq.
	Use memcpy to copy statp->nsaddr_list[ns] to &EXT(statp).nsaddrs[ns].

2000-07-20  Ulrich Drepper  <drepper@redhat.com>

	* sysdeps/mach/hurd/dl-sysdep.c: Likewise.

12 files changed, 747 insertions, 667 deletions

diff --git a/hesiod/Makefile b/hesiod/Makefile
index f1356bbfbd..0dea8fa362 100644
--- a/hesiod/Makefile
+++ b/hesiod/Makefile
@@ -1,4 +1,4 @@
-# Copyright (C) 1997, 1998 Free Software Foundation, Inc.
+# Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc.
 # This file is part of the GNU C Library.
 
 # The GNU C Library is free software; you can redistribute it and/or
@@ -29,14 +29,13 @@ extra-libs-others = $(extra-libs)
 subdir-dirs = nss_hesiod
 vpath %.c nss_hesiod
 
-libnss_hesiod-routines	:= hesiod hesiod-grp hesiod-pwd hesiod-service
+libnss_hesiod-routines	:= hesiod hesiod-grp hesiod-init hesiod-proto \
+                           hesiod-pwd hesiod-service
 # Build only shared library
 libnss_hesiod-inhibit-o	= $(filter-out .os,$(object-suffixes))
 
 include ../Rules
 
-CFLAGS-hesiod.c = -DSYSCONFDIR='"$(sysconfdir)"'
-
 # Depend on libc.so so a DT_NEEDED is generated in the shared objects.
 # This ensures they will load libc.so for needed symbols if loaded by
 # a statically-linked program that hasn't already loaded it.
diff --git a/hesiod/README.hesiod b/hesiod/README.hesiod
index 335a73e603..18cd5d45dd 100644
--- a/hesiod/README.hesiod
+++ b/hesiod/README.hesiod
@@ -65,18 +65,15 @@ Configuring Hesiod
 Next, you will have to configure Hesiod.  If you are already running
 Hesiod in your network, you probably already have a file named
 `hesiod.conf' on your machines (probably as `/etc/hesiod.conf' or
-`/usr/local/etc/hesiod.conf').  The Hesiod NSS module expects this
-file to be found in the sysconfdir (`/usr/local/etc/hesiod.conf' by
-default, see the installation notes on how to change this) or in the
-location specified by the environment variable `HESIOD_CONFIG'.  If
-there is no configuration file you will want to create your own.  It
-should look something like:
+`/usr/local/etc/hesiod.conf').  The Hesiod NSS module looks for
+`/etc/hesiod.conf' by default.  If there is no configuration file you
+will want to create your own.  It should look something like:
 
   rhs=.your.domain
   lhs=.ns
 
 The value of rhs can be overridden by the environment variable
-HES_DOMAIN.
+`HES_DOMAIN'.
 
 Configuring your name servers
 -----------------------------
@@ -115,8 +112,8 @@ file `named.hesiod' containing data that looks something like:
   123.gid         CNAME   libc.group
   gnu.passwd      TXT     "gnu:*:4567:123:GNU:/home/gnu:/bin/bash"
   456.uid         CNAME   mark.passwd
-  nss.service     TXT     "nss;tcp;789;switch sw "
-  nss.service     TXT     "nss;udp;789;switch sw"
+  nss.service     TXT     "nss tcp 789 switch sw "
+  nss.service     TXT     "nss udp 789 switch sw"
 
 where `libc' is an example of a group, `gnu' an example of an user,
 and `nss' an example of a service.  Note that the format used to
diff --git a/hesiod/Versions b/hesiod/Versions
index 2634b4006b..c51dee9c50 100644
--- a/hesiod/Versions
+++ b/hesiod/Versions
@@ -9,5 +9,8 @@ libnss_hesiod {
   }
   GLIBC_2.2 {
     _nss_hesiod_initgroups;
+    _nss_hesiod_getservbyport_r;
+    _nss_hesiod_setprotoent; _nss_hesiod_endprotoent;
+    _nss_hesiod_getprotobyname_r; _nss_hesiod_getprotobynumber_r;
   }
 }
diff --git a/hesiod/hesiod.c b/hesiod/hesiod.c
index f89a29ac95..3a01fd076b 100644
--- a/hesiod/hesiod.c
+++ b/hesiod/hesiod.c
@@ -1,4 +1,9 @@
-/* Copyright (c) 1996 by Internet Software Consortium.
+#if defined(LIBC_SCCS) && !defined(lint)
+static const char rcsid[] = "$BINDId: hesiod.c,v 1.21 2000/02/28 14:51:08 vixie Exp $";
+#endif
+
+/*
+ * Copyright (c) 1996,1999 by Internet Software Consortium.
  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above
@@ -14,469 +19,488 @@
  * SOFTWARE.
  */
 
-/* Copyright 1996 by the Massachusetts Institute of Technology.
- *
- * Permission to use, copy, modify, and distribute this
- * software and its documentation for any purpose and without
- * fee is hereby granted, provided that the above copyright
- * notice appear in all copies and that both that copyright
- * notice and this permission notice appear in supporting
- * documentation, and that the name of M.I.T. not be used in
- * advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.
- * M.I.T. makes no representations about the suitability of
- * this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
+/*
+ * This file is primarily maintained by <tytso@mit.edu> and <ghudson@mit.edu>.
  */
 
-/* This file is part of the hesiod library.  It implements the core
- * portion of the hesiod resolver.
- *
- * This file is loosely based on an interim version of hesiod.c from
- * the BIND IRS library, which was in turn based on an earlier version
- * of this file.  Extensive changes have been made on each step of the
- * path.
+/*
+ * hesiod.c --- the core portion of the hesiod resolver.
  *
- * This implementation is not truly thread-safe at the moment because
- * it uses res_send() and accesses _res.
+ * This file is derived from the hesiod library from Project Athena;
+ * It has been extensively rewritten by Theodore Ts'o to have a more
+ * thread-safe interface.
  */
 
-#if defined(LIBC_SCCS) && !defined(lint)
-static const char rcsid[] = "$Id$";
-#endif
+/* Imports */
 
 #include <sys/types.h>
 #include <netinet/in.h>
 #include <arpa/nameser.h>
+
 #include <errno.h>
 #include <netdb.h>
 #include <resolv.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#include <ctype.h>
+
 #include "hesiod.h"
 #include "hesiod_p.h"
+#undef DEF_RHS
 
-/* A few operating systems don't define these. */
-#ifndef C_HS
-# define C_HS	4
-#endif
-#ifndef T_TXT
-# define T_TXT	16
-#endif
+#define _PATH_HESIOD_CONF "/etc/hesiod.conf"
 
-static int read_config_file (struct hesiod_p *ctx, const char *filename);
-static char **get_txt_records (struct hesiod_p *ctx, int class,
-			       const char *name);
-#ifdef _LIBC
-# define cistrcmp(s1, s2) strcasecmp (s1, s2)
-#else
-static int cistrcmp (const char *s1, const char *s2);
-#endif
+/* Forward */
+
+int		hesiod_init(void **context);
+void		hesiod_end(void *context);
+char *		hesiod_to_bind(void *context, const char *name,
+			       const char *type);
+char **		hesiod_resolve(void *context, const char *name,
+			       const char *type);
+void		hesiod_free_list(void *context, char **list);
 
-/* This function is called to initialize a hesiod_p. */
+static int	parse_config_file(struct hesiod_p *ctx, const char *filename);
+static char **	get_txt_records(struct hesiod_p *ctx, int class,
+				const char *name);
+static int	init(struct hesiod_p *ctx);
+
+/* Public */
+
+/*
+ * This function is called to initialize a hesiod_p.
+ */
 int
-hesiod_init (void **context)
-{
-  struct hesiod_p *ctx;
-  const char *p, *configname;
-
-  ctx = malloc (sizeof (struct hesiod_p));
-  if (ctx)
-    {
-      *context = ctx;
-      configname = __secure_getenv ("HESIOD_CONFIG");
-      if (!configname)
-	configname = SYSCONFDIR "/hesiod.conf";
-      if (read_config_file (ctx, configname) >= 0)
-	{
-	  /* The default rhs can be overridden by an environment variable. */
-	  p = __secure_getenv ("HES_DOMAIN");
-	  if (p)
-	    {
-	      if (ctx->rhs)
-		free (ctx->rhs);
-	      ctx->rhs = malloc (strlen (p) + 2);
-	      if (ctx->rhs)
-		{
-		  *ctx->rhs = '.';
-		  strcpy (ctx->rhs + 1, (*p == '.') ? p + 1 : p);
-		  return 0;
+hesiod_init(void **context) {
+	struct hesiod_p *ctx;
+	const char *configname;
+	char *cp;
+
+	ctx = malloc(sizeof(struct hesiod_p));
+	if (ctx == 0) {
+		__set_errno(ENOMEM);
+		return (-1);
+	}
+
+	ctx->LHS = NULL;
+	ctx->RHS = NULL;
+	ctx->res = NULL;
+
+	configname = __secure_getenv("HESIOD_CONFIG");
+	if (!configname)
+	  configname = _PATH_HESIOD_CONF;
+	if (parse_config_file(ctx, configname) < 0) {
+#ifdef DEF_RHS
+		/*
+		 * Use compiled in defaults.
+		 */
+		ctx->LHS = malloc(strlen(DEF_LHS)+1);
+		ctx->RHS = malloc(strlen(DEF_RHS)+1);
+		if (ctx->LHS == 0 || ctx->RHS == 0) {
+			__set_errno(ENOMEM);
+			goto cleanup;
 		}
-	      else
-		__set_errno (ENOMEM);
-	    }
-	  else
-	    return 0;
+		strcpy(ctx->LHS, DEF_LHS);
+		strcpy(ctx->RHS, DEF_RHS);
+#else
+		goto cleanup;
+#endif
 	}
-    }
-  else
-    __set_errno (ENOMEM);
-
-  if (ctx->lhs)
-    free (ctx->lhs);
-  if (ctx->rhs)
-    free (ctx->rhs);
-  if (ctx)
-    free (ctx);
-  return -1;
+	/*
+	 * The default RHS can be overridden by an environment
+	 * variable.
+	 */
+	if ((cp = __secure_getenv("HES_DOMAIN")) != NULL) {
+		if (ctx->RHS)
+			free(ctx->RHS);
+		ctx->RHS = malloc(strlen(cp)+2);
+		if (!ctx->RHS) {
+			__set_errno(ENOMEM);
+			goto cleanup;
+		}
+		if (cp[0] == '.')
+			strcpy(ctx->RHS, cp);
+		else {
+			strcpy(ctx->RHS, ".");
+			strcat(ctx->RHS, cp);
+		}
+	}
+
+	/*
+	 * If there is no default hesiod realm set, we return an
+	 * error.
+	 */
+	if (!ctx->RHS) {
+		__set_errno(ENOEXEC);
+		goto cleanup;
+	}
+	
+#if 0
+	if (res_ninit(ctx->res) < 0)
+		goto cleanup;
+#endif
+
+	*context = ctx;
+	return (0);
+
+ cleanup:
+	hesiod_end(ctx);
+	return (-1);
 }
 
-/* This function deallocates the hesiod_p. */
+/*
+ * This function deallocates the hesiod_p
+ */
 void
-hesiod_end (void *context)
-{
-  struct hesiod_p *ctx = (struct hesiod_p *) context;
-
-  free (ctx->rhs);
-  if (ctx->lhs)
-    free (ctx->lhs);
-  free (ctx);
+hesiod_end(void *context) {
+	struct hesiod_p *ctx = (struct hesiod_p *) context;
+	int save_errno = errno;
+
+	if (ctx->res)
+		res_nclose(ctx->res);
+	if (ctx->RHS)
+		free(ctx->RHS);
+	if (ctx->LHS)
+		free(ctx->LHS);
+	if (ctx->res && ctx->free_res)
+		(*ctx->free_res)(ctx->res);
+	free(ctx);
+	__set_errno(save_errno);
 }
 
-/* This function takes a hesiod (name, type) and returns a DNS
+/*
+ * This function takes a hesiod (name, type) and returns a DNS
  * name which is to be resolved.
  */
 char *
-hesiod_to_bind (void *context, const char *name, const char *type)
-{
-  struct hesiod_p *ctx = (struct hesiod_p *) context;
-  char bindname[MAXDNAME], *p, *endp, *ret, **rhs_list = NULL;
-  const char *rhs;
-  size_t len;
-
-  endp = stpcpy (bindname, name);
-
-  /* Find the right right hand side to use, possibly truncating bindname. */
-  p = strchr (bindname, '@');
-  if (p)
-    {
-      *p++ = 0;
-      if (strchr (p, '.'))
-	rhs = name + (p - bindname);
-      else
-	{
-	  rhs_list = hesiod_resolve (context, p, "rhs-extension");
-	  if (rhs_list)
-	    rhs = *rhs_list;
-	  else
-	    {
-	      __set_errno (ENOENT);
-	      return NULL;
-	    }
+hesiod_to_bind(void *context, const char *name, const char *type) {
+	struct hesiod_p *ctx = (struct hesiod_p *) context;
+	char *bindname;
+	char **rhs_list = NULL;
+	const char *RHS, *cp;
+
+	/* Decide what our RHS is, and set cp to the end of the actual name. */
+	if ((cp = strchr(name, '@')) != NULL) {
+		if (strchr(cp + 1, '.'))
+			RHS = cp + 1;
+		else if ((rhs_list = hesiod_resolve(context, cp + 1,
+		    "rhs-extension")) != NULL)
+			RHS = *rhs_list;
+		else {
+			__set_errno(ENOENT);
+			return (NULL);
+		}
+	} else {
+		RHS = ctx->RHS;
+		cp = name + strlen(name);
+	}
+
+	/*
+	 * Allocate the space we need, including up to three periods and
+	 * the terminating NUL.
+	 */
+	if ((bindname = malloc((cp - name) + strlen(type) + strlen(RHS) +
+	    (ctx->LHS ? strlen(ctx->LHS) : 0) + 4)) == NULL) {
+		__set_errno(ENOMEM);
+		if (rhs_list)
+			hesiod_free_list(context, rhs_list);
+		return NULL;
+	}
+
+	/* Now put together the DNS name. */
+	memcpy(bindname, name, cp - name);
+	bindname[cp - name] = '\0';
+	strcat(bindname, ".");
+	strcat(bindname, type);
+	if (ctx->LHS) {
+		if (ctx->LHS[0] != '.')
+			strcat(bindname, ".");
+		strcat(bindname, ctx->LHS);
 	}
-    }
-  else
-    rhs = ctx->rhs;
-
-  /* See if we have enough room. */
-  len = (endp - bindname) + 1 + strlen (type);
-  if (ctx->lhs)
-    len += strlen (ctx->lhs) + ((ctx->lhs[0] != '.') ? 1 : 0);
-  len += strlen (rhs) + ((rhs[0] != '.') ? 1 : 0);
-  if (len > sizeof (bindname) - 1)
-    {
-      if (rhs_list)
-	hesiod_free_list (context, rhs_list);
-      __set_errno (EMSGSIZE);
-      return NULL;
-    }
-
-  /* Put together the rest of the domain. */
-  endp = stpcpy (stpcpy (endp, "."), type);
-  if (ctx->lhs)
-    {
-      if (ctx->lhs[0] != '.')
-	endp = stpcpy (endp, ".");
-      endp = stpcpy (endp, ctx->lhs);
-    }
-  if (rhs[0] != '.')
-    endp = stpcpy (endp, ".");
-  endp = stpcpy (endp, rhs);
-
-  /* rhs_list is no longer needed, since we're done with rhs. */
-  if (rhs_list)
-    hesiod_free_list (context, rhs_list);
-
-  /* Make a copy of the result and return it to the caller. */
-  ret = malloc ((endp - bindname) + 1);
-  if (!ret)
-    {
-      __set_errno (ENOMEM);
-      return NULL;
-    }
-  return strcpy (ret, bindname);
+	if (RHS[0] != '.')
+		strcat(bindname, ".");
+	strcat(bindname, RHS);
+
+	if (rhs_list)
+		hesiod_free_list(context, rhs_list);
+
+	return (bindname);
 }
 
-/* This is the core function.  Given a hesiod name and type, it
+/*
+ * This is the core function.  Given a hesiod (name, type), it
  * returns an array of strings returned by the resolver.
  */
 char **
-hesiod_resolve (void *context, const char *name, const char *type)
-{
-  struct hesiod_p *ctx = (struct hesiod_p *) context;
-  char *bindname, **retvec;
-
-  bindname = hesiod_to_bind (context, name, type);
-  if (bindname == NULL)
-    return NULL;
+hesiod_resolve(void *context, const char *name, const char *type) {
+	struct hesiod_p *ctx = (struct hesiod_p *) context;
+	char *bindname = hesiod_to_bind(context, name, type);
+	char **retvec;
+
+	if (bindname == NULL)
+		return (NULL);
+	if (init(ctx) == -1) {
+		free(bindname);
+		return (NULL);
+	}
 
-  retvec = get_txt_records(ctx, ctx->classes[0], bindname);
-  if (retvec == NULL && errno == ENOENT && ctx->classes[1])
-    retvec = get_txt_records (ctx, ctx->classes[1], bindname);
+	if ((retvec = get_txt_records(ctx, C_IN, bindname))) {
+		free(bindname);
+		return (retvec);
+	}
+	
+	if (errno != ENOENT)
+		return (NULL);
 
-  free (bindname);
-  return retvec;
+	retvec = get_txt_records(ctx, C_HS, bindname);
+	free(bindname);
+	return (retvec);
 }
 
 void
-hesiod_free_list (void *context, char **list)
-{
-  char **p;
+hesiod_free_list(void *context, char **list) {
+	char **p;
 
-  for (p = list; *p; p++)
-    free (*p);
-  free (list);
+	for (p = list; *p; p++)
+		free(*p);
+	free(list);
 }
 
-/* This function parses the /etc/hesiod.conf file.  Returns 0 on success,
- * -1 on failure.  On failure, it might leave values in ctx->lhs or
- * ctx->rhs which need to be freed by the caller. */
+/*
+ * This function parses the /etc/hesiod.conf file
+ */
 static int
-read_config_file (struct hesiod_p *ctx, const char *filename)
-{
-  char *key, *data, *p, **which;
-  char buf[MAXDNAME + 7];
-  int n;
-  FILE *fp;
-
-  /* Set default query classes. */
-  ctx->classes[0] = C_IN;
-  ctx->classes[1] = C_HS;
-
-  /* Try to open the configuration file. */
-  fp = fopen (filename, "r");
-  if (fp == NULL)
-    {
-      /* Use compiled in default domain names. */
-      ctx->lhs = malloc (strlen (DEF_LHS) + 1);
-      ctx->rhs = malloc (strlen (DEF_RHS) + 1);
-      if (ctx->lhs && ctx->rhs)
-	{
-	  strcpy (ctx->lhs, DEF_LHS);
-	  strcpy (ctx->rhs, DEF_RHS);
-	  return 0;
-	}
-      else
-	{
-	  __set_errno (ENOMEM);
-	  return -1;
-	}
-    }
-
-  ctx->lhs = NULL;
-  ctx->rhs = NULL;
-  while (fgets (buf, sizeof (buf), fp) != NULL)
-    {
-      p = buf;
-      if (*p == '#' || *p == '\n' || *p == '\r')
-	continue;
-      while (*p == ' ' || *p == '\t')
-	++p;
-      key = p;
-      while(*p != ' ' && *p != '\t' && *p != '=')
-	++p;
-      *p++ = 0;
-
-      while (isspace (*p) || *p == '=')
-	++p;
-      data = p;
-      while (!isspace (*p))
-	++p;
-      *p = 0;
-
-      if (cistrcmp (key, "lhs") == 0 || cistrcmp (key, "rhs") == 0)
-	{
-	  which = (strcmp (key, "lhs") == 0) ? &ctx->lhs : &ctx->rhs;
-	  *which = strdup (data);
-	  if (!*which)
-	    {
-	      __set_errno (ENOMEM);
-	      return -1;
-	    }
-	}
-      else if (cistrcmp (key, "classes") == 0)
-	{
-	  n = 0;
-	  while (*data && n < 2)
-	    {
-	      p = data;
-	      while (*p && *p != ',')
-		++p;
-	      if (*p)
-		*p++ = 0;
-	      if (cistrcmp (data, "IN") == 0)
-		ctx->classes[n++] = C_IN;
-	      else if (cistrcmp (data, "HS") == 0)
-		ctx->classes[n++] = C_HS;
-	      data = p;
-	    }
-	  while (n < 2)
-	    ctx->classes[n++] = 0;
+parse_config_file(struct hesiod_p *ctx, const char *filename) {
+	char *key, *data, *cp, **cpp;
+	char buf[MAXDNAME+7];
+	FILE *fp;
+
+	/*
+	 * Clear the existing configuration variable, just in case
+	 * they're set.
+	 */
+	if (ctx->RHS)
+		free(ctx->RHS);
+	if (ctx->LHS)
+		free(ctx->LHS);
+	ctx->RHS = ctx->LHS = 0;
+
+	/*
+	 * Now open and parse the file...
+	 */
+	if (!(fp = fopen(filename, "r")))
+		r