static const char *RCS = "$Id: herror.c,v 4.2 1994/09/29 23:09:02 jraja Exp $";
/*
 *	herror.c - print host error message
 *
 *	Copyright © 1994 AmiTCP/IP Group,
 *			 Network Solutions Development Inc.
 *			 All rights reserved.
 */

/****** net.lib/herror *******************************************************

    NAME
	herror - print name resolver error message to stderr.

    SYNOPSIS
	#include <clib/netlib_protos.h>

	herror(banner)
	void herror(const char *)

    FUNCTION
	The herror() function finds the error message corresponding to the
	current value of host error using the SocketBaseTags() and writes
	it, followed by a newline, to the stderr. If the argument string
	is non-NULL it is used as a prefix to the message string and
	separated from it by a colon and space (`: '). If the argument is
	NULL only the error message string is printed.

    NOTES
	The herror() function requires the stdio functions to be linked.

    SEE ALSO
	<netinclude:netdb.h>, SocketBaseTagList(), perror()

******************************************************************************
*/

#include <stdio.h>
#include <string.h>
#include <bsdsocket.h>
#include <amitcp/socketbasetags.h>

void
herror(const char *banner)
{
  const char *err;

  /*
   * First fetch the h_errno value to (ULONG)err, and then convert it to
   * error string pointer.
   */
  SocketBaseTags(SBTM_GETREF(SBTC_HERRNO), &err,
		 SBTM_GETREF(SBTC_HERRNOSTRPTR), &err,
		 TAG_END);

  if (banner != NULL) {
    fputs(banner, stderr);
    fputs(": ", stderr);
  }
  fputs(err, stderr);
  fputc('\n', stderr);
  fflush(stderr);
}