172445Sassar/* 278527Sassar * Copyright (c) 1997, 1998, 2001 Kungliga Tekniska H�gskolan 372445Sassar * (Royal Institute of Technology, Stockholm, Sweden). 472445Sassar * All rights reserved. 572445Sassar * 672445Sassar * Redistribution and use in source and binary forms, with or without 772445Sassar * modification, are permitted provided that the following conditions 872445Sassar * are met: 972445Sassar * 1072445Sassar * 1. Redistributions of source code must retain the above copyright 1172445Sassar * notice, this list of conditions and the following disclaimer. 1272445Sassar * 1372445Sassar * 2. Redistributions in binary form must reproduce the above copyright 1472445Sassar * notice, this list of conditions and the following disclaimer in the 1572445Sassar * documentation and/or other materials provided with the distribution. 1672445Sassar * 1772445Sassar * 3. Neither the name of the Institute nor the names of its contributors 1872445Sassar * may be used to endorse or promote products derived from this software 1972445Sassar * without specific prior written permission. 2072445Sassar * 2172445Sassar * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 2272445Sassar * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2372445Sassar * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2472445Sassar * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 2572445Sassar * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2672445Sassar * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2772445Sassar * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2872445Sassar * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 2972445Sassar * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 3072445Sassar * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 3172445Sassar * SUCH DAMAGE. 3272445Sassar */ 3372445Sassar 3472445Sassar#ifdef HAVE_CONFIG_H 3572445Sassar#include <config.h> 36178825SdfrRCSID("$Id: error.c 9724 2001-02-28 20:00:13Z joda $"); 3772445Sassar#endif 3872445Sassar#include <stdio.h> 3972445Sassar#include <stdlib.h> 4072445Sassar#include <string.h> 4172445Sassar#include <com_right.h> 4272445Sassar 4372445Sassarconst char * 4472445Sassarcom_right(struct et_list *list, long code) 4572445Sassar{ 4672445Sassar struct et_list *p; 4772445Sassar for (p = list; p; p = p->next) { 4872445Sassar if (code >= p->table->base && code < p->table->base + p->table->n_msgs) 4972445Sassar return p->table->msgs[code - p->table->base]; 5072445Sassar } 5172445Sassar return NULL; 5272445Sassar} 5372445Sassar 5472445Sassarstruct foobar { 5572445Sassar struct et_list etl; 5672445Sassar struct error_table et; 5772445Sassar}; 5872445Sassar 5972445Sassarvoid 6072445Sassarinitialize_error_table_r(struct et_list **list, 6172445Sassar const char **messages, 6272445Sassar int num_errors, 6372445Sassar long base) 6472445Sassar{ 6578527Sassar struct et_list *et, **end; 6672445Sassar struct foobar *f; 6778527Sassar for (end = list, et = *list; et; end = &et->next, et = et->next) 6872445Sassar if (et->table->msgs == messages) 6972445Sassar return; 7072445Sassar f = malloc(sizeof(*f)); 7172445Sassar if (f == NULL) 7272445Sassar return; 7372445Sassar et = &f->etl; 7472445Sassar et->table = &f->et; 7572445Sassar et->table->msgs = messages; 7672445Sassar et->table->n_msgs = num_errors; 7772445Sassar et->table->base = base; 7878527Sassar et->next = NULL; 7978527Sassar *end = et; 8072445Sassar} 8172445Sassar 8272445Sassar 8372445Sassarvoid 8472445Sassarfree_error_table(struct et_list *et) 8572445Sassar{ 8672445Sassar while(et){ 8772445Sassar struct et_list *p = et; 8872445Sassar et = et->next; 8972445Sassar free(p); 9072445Sassar } 9172445Sassar} 92