Merge branch 'vendor/BIND' into bind_vendor2
[dragonfly.git] / contrib / bind / lib / bind / resolv / herror.c
1 /*
2  * Copyright (c) 1987, 1993
3  *    The Regents of the University of California.  All rights reserved.
4  * 
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  * 
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  */
33
34 /*
35  * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
36  * Portions Copyright (c) 1996-1999 by Internet Software Consortium.
37  *
38  * Permission to use, copy, modify, and distribute this software for any
39  * purpose with or without fee is hereby granted, provided that the above
40  * copyright notice and this permission notice appear in all copies.
41  *
42  * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
43  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
44  * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR
45  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
46  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
47  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
48  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
49  */
50
51 #if defined(LIBC_SCCS) && !defined(lint)
52 static const char sccsid[] = "@(#)herror.c      8.1 (Berkeley) 6/4/93";
53 static const char rcsid[] = "$Id: herror.c,v 1.4 2005/04/27 04:56:41 sra Exp $";
54 #endif /* LIBC_SCCS and not lint */
55
56 #include "port_before.h"
57
58 #ifdef _LIBC
59 #include "namespace.h"
60 #endif
61
62 #include <sys/types.h>
63 #include <sys/param.h>
64 #include <sys/uio.h>
65
66 #include <netinet/in.h>
67 #include <arpa/nameser.h>
68
69 #include <netdb.h>
70 #include <resolv.h>
71 #include <string.h>
72 #include <unistd.h>
73 #ifndef _LIBC
74 #include <irs.h>
75 #else
76 #include "un-namespace.h"
77 #endif
78
79 #include "port_after.h"
80
81 const char *h_errlist[] = {
82         "Resolver Error 0 (no error)",
83         "Unknown host",                         /*%< 1 HOST_NOT_FOUND */
84         "Host name lookup failure",             /*%< 2 TRY_AGAIN */
85         "Unknown server error",                 /*%< 3 NO_RECOVERY */
86         "No address associated with name",      /*%< 4 NO_ADDRESS */
87 };
88 int     h_nerr = { sizeof h_errlist / sizeof h_errlist[0] };
89
90 #if !(__GLIBC__ > 2 || __GLIBC__ == 2 &&  __GLIBC_MINOR__ >= 3)
91 #undef  h_errno
92 int     h_errno;
93 #endif
94
95 /*%
96  * herror --
97  *      print the error indicated by the h_errno value.
98  */
99 void
100 herror(const char *s) {
101         struct iovec iov[4], *v = iov;
102         char *t;
103
104         if (s != NULL && *s != '\0') {
105                 DE_CONST(s, t);
106                 v->iov_base = t;
107                 v->iov_len = strlen(t);
108                 v++;
109                 DE_CONST(": ", t);
110                 v->iov_base = t;
111                 v->iov_len = 2;
112                 v++;
113         }
114         DE_CONST(hstrerror(*__h_errno()), t);
115         v->iov_base = t;
116         v->iov_len = strlen(v->iov_base);
117         v++;
118         DE_CONST("\n", t);
119         v->iov_base = t;
120         v->iov_len = 1;
121 #ifndef _LIBC
122         writev(STDERR_FILENO, iov, (v - iov) + 1);
123 #else
124         _writev(STDERR_FILENO, iov, (v - iov) + 1);
125 #endif
126 }
127
128 /*%
129  * hstrerror --
130  *      return the string associated with a given "host" errno value.
131  */
132 const char *
133 hstrerror(int err) {
134         if (err < 0)
135                 return ("Resolver internal error");
136         else if (err < h_nerr)
137                 return (h_errlist[err]);
138         return ("Unknown resolver error");
139 }
140
141 /*! \file */