Merge from vendor branch HEIMDAL:
[dragonfly.git] / contrib / com_err / error.c
1 /*
2  * Copyright (c) 1997, 1998 Kungliga Tekniska Högskolan
3  * (Royal Institute of Technology, Stockholm, Sweden). 
4  * All rights reserved. 
5  *
6  * Redistribution and use in source and binary forms, with or without 
7  * modification, are permitted provided that the following conditions 
8  * are met: 
9  *
10  * 1. Redistributions of source code must retain the above copyright 
11  *    notice, this list of conditions and the following disclaimer. 
12  *
13  * 2. Redistributions in binary form must reproduce the above copyright 
14  *    notice, this list of conditions and the following disclaimer in the 
15  *    documentation and/or other materials provided with the distribution. 
16  *
17  * 3. All advertising materials mentioning features or use of this software 
18  *    must display the following acknowledgement: 
19  *      This product includes software developed by Kungliga Tekniska 
20  *      Högskolan and its contributors. 
21  *
22  * 4. Neither the name of the Institute nor the names of its contributors 
23  *    may be used to endorse or promote products derived from this software 
24  *    without specific prior written permission. 
25  *
26  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 
27  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
28  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
29  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 
30  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
31  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 
32  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
33  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
34  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 
35  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 
36  * SUCH DAMAGE. 
37  */
38
39 #ifdef HAVE_CONFIG_H
40 #include <config.h>
41 RCSID("$Id: error.c,v 1.13 1998/02/17 21:19:44 bg Exp $");
42 #endif
43 #include <stdio.h>
44 #include <stdlib.h>
45 #include <string.h>
46 #include <com_right.h>
47
48 const char *
49 com_right(struct et_list *list, long code)
50 {
51     struct et_list *p;
52     for (p = list; p; p = p->next) {
53         if (code >= p->table->base && code < p->table->base + p->table->n_msgs)
54             return p->table->msgs[code - p->table->base];
55     }
56     return NULL;
57 }
58
59 struct foobar {
60     struct et_list etl;
61     struct error_table et;
62 };
63
64 void
65 initialize_error_table_r(struct et_list **list, 
66                          const char **messages, 
67                          int num_errors,
68                          long base)
69 {
70     struct et_list *et;
71     struct foobar *f;
72     for (et = *list; et; et = et->next)
73         if (et->table->msgs == messages)
74             return;
75     f = malloc(sizeof(*f));
76     if (f == NULL)
77         return;
78     et = &f->etl;
79     et->table = &f->et;
80     et->table->msgs = messages;
81     et->table->n_msgs = num_errors;
82     et->table->base = base;
83     et->next = *list;
84     *list = et;
85 }
86                         
87
88 void
89 free_error_table(struct et_list *et)
90 {
91     while(et){
92         struct et_list *p = et;
93         et = et->next;
94         free(p);
95     }
96 }