1/*	$NetBSD: com_err.c,v 1.3 2019/12/15 22:50:47 christos Exp $	*/
2
3/*
4 * Copyright (c) 1997 - 2002 Kungliga Tekniska H��gskolan
5 * (Royal Institute of Technology, Stockholm, Sweden).
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 *
12 * 1. Redistributions of source code must retain the above copyright
13 *    notice, this list of conditions and the following disclaimer.
14 *
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 *
19 * 3. Neither the name of the Institute nor the names of its contributors
20 *    may be used to endorse or promote products derived from this software
21 *    without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
36
37#include <config.h>
38
39#include <stdio.h>
40#include <stdlib.h>
41#include <string.h>
42#include <krb5/roken.h>
43#include <krb5/com_err.h>
44
45struct et_list *_et_list = NULL;
46
47
48KRB5_LIB_FUNCTION const char * KRB5_LIB_CALL
49error_message (long code)
50{
51    static char msg[128];
52    const char *p = com_right(_et_list, code);
53    if (p == NULL) {
54	if (code < 0)
55	    snprintf(msg, sizeof(msg), "Unknown error %ld", code);
56	else
57	    p = strerror(code);
58    }
59    if (p != NULL && *p != '\0') {
60	strlcpy(msg, p, sizeof(msg));
61    } else
62	snprintf(msg, sizeof(msg), "Unknown error %ld", code);
63    return msg;
64}
65
66KRB5_LIB_FUNCTION int KRB5_LIB_CALL
67init_error_table(const char **msgs, long base, int count)
68{
69    initialize_error_table_r(&_et_list, msgs, count, base);
70    return 0;
71}
72
73static void KRB5_CALLCONV
74default_proc (const char *whoami, long code, const char *fmt, va_list args)
75    __attribute__ ((__format__ (__printf__, 3, 0)));
76
77static void KRB5_CALLCONV
78default_proc (const char *whoami, long code, const char *fmt, va_list args)
79{
80    if (whoami)
81      fprintf(stderr, "%s: ", whoami);
82    if (code)
83      fprintf(stderr, "%s ", error_message(code));
84    if (fmt)
85      vfprintf(stderr, fmt, args);
86    fprintf(stderr, "\r\n");	/* ??? */
87}
88
89static errf com_err_hook = default_proc;
90
91KRB5_LIB_FUNCTION void KRB5_LIB_CALL
92com_err_va (const char *whoami,
93	    long code,
94	    const char *fmt,
95	    va_list args)
96{
97    (*com_err_hook) (whoami, code, fmt, args);
98}
99
100KRB5_LIB_FUNCTION void KRB5_LIB_CALL
101com_err (const char *whoami,
102	 long code,
103	 const char *fmt,
104	 ...)
105{
106    va_list ap;
107    va_start(ap, fmt);
108    com_err_va (whoami, code, fmt, ap);
109    va_end(ap);
110}
111
112KRB5_LIB_FUNCTION errf KRB5_LIB_CALL
113set_com_err_hook (errf new)
114{
115    errf old = com_err_hook;
116
117    if (new)
118	com_err_hook = new;
119    else
120	com_err_hook = default_proc;
121
122    return old;
123}
124
125KRB5_LIB_FUNCTION errf KRB5_LIB_CALL
126reset_com_err_hook (void)
127{
128    return set_com_err_hook(NULL);
129}
130
131#define ERRCODE_RANGE   8       /* # of bits to shift table number */
132#define BITS_PER_CHAR   6       /* # bits to shift per character in name */
133
134static const char char_set[] =
135        "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_";
136
137static char buf[6];
138
139KRB5_LIB_FUNCTION const char * KRB5_LIB_CALL
140error_table_name(int num)
141{
142    int ch;
143    int i;
144    char *p;
145
146    /* num = aa aaa abb bbb bcc ccc cdd ddd d?? ??? ??? */
147    p = buf;
148    num >>= ERRCODE_RANGE;
149    /* num = ?? ??? ??? aaa aaa bbb bbb ccc ccc ddd ddd */
150    num &= 077777777;
151    /* num = 00 000 000 aaa aaa bbb bbb ccc ccc ddd ddd */
152    for (i = 4; i >= 0; i--) {
153        ch = (num >> BITS_PER_CHAR * i) & ((1 << BITS_PER_CHAR) - 1);
154        if (ch != 0)
155            *p++ = char_set[ch-1];
156    }
157    *p = '\0';
158    return(buf);
159}
160
161KRB5_LIB_FUNCTION void KRB5_LIB_CALL
162add_to_error_table(struct et_list *new_table)
163{
164    struct et_list *et;
165
166    for (et = _et_list; et; et = et->next) {
167	if (et->table->base == new_table->table->base)
168	    return;
169    }
170
171    new_table->next = _et_list;
172    _et_list = new_table;
173}
174