base/error.c

   1 /*
   2  * Copyright (c) 2010 Kungliga Tekniska Högskolan
   3  * (Royal Institute of Technology, Stockholm, Sweden).
   4  * All rights reserved.
   5  *
   6  * Portions Copyright (c) 2010 Apple Inc. 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 #include "baselocl.h"
  37
  38 struct heim_error {
  39     int error_code;
  40     heim_string_t msg;
  41     struct heim_error *next;
  42 };
  43
  44 static void
  45 error_dealloc(void *ptr)
  46 {
  47     struct heim_error *p = ptr;
  48     heim_release(p->msg);
  49     heim_release(p->next);
  50 }
  51
  52 static int
  53 error_cmp(void *a, void *b)
  54 {
  55     struct heim_error *ap = a, *bp = b;
  56     if (ap->error_code == ap->error_code)
  57         return ap->error_code - ap->error_code;
  58     return heim_cmp(ap->msg, bp->msg);
  59 }
  60
  61 static unsigned long
  62 error_hash(void *ptr)
  63 {
  64     struct heim_error *p = ptr;
  65     return p->error_code;
  66 }
  67
  68 struct heim_type_data _heim_error_object = {
  69     HEIM_TID_ERROR,
  70     "error-object",
  71     NULL,
  72     error_dealloc,
  73     NULL,
  74     error_cmp,
  75     error_hash
  76 };
  77
  78 heim_error_t
  79 heim_error_enomem(void)
  80 {
  81     /* This is an immediate object; see heim_number_create() */
  82     return (heim_error_t)heim_number_create(ENOMEM);
  83 }
  84
  85 heim_error_t
  86 heim_error_create(int error_code, const char *fmt, ...)
  87 {
  88     heim_error_t e;
  89     va_list ap;
  90
  91     va_start(ap, fmt);
  92     e = heim_error_createv(error_code, fmt, ap);
  93     va_end(ap);
  94
  95     return e;
  96 }
  97
  98 heim_error_t
  99 heim_error_createv(int error_code, const char *fmt, va_list ap)
 100 {
 101     heim_error_t e;
 102     char *str;
 103     int len;
 104     int save_errno = errno;
 105
 106     str = malloc(1024);
 107     errno = save_errno;
 108     if (str == NULL)
 109         return heim_error_enomem();
 110     len = vsnprintf(str, 1024, fmt, ap);
 111     errno = save_errno;
 112     if (len < 0) {
 113         free(str);
 114         return NULL; /* XXX We should have a special heim_error_t for this */
 115     }
 116
 117     e = _heim_alloc_object(&_heim_error_object, sizeof(struct heim_error));
 118     if (e) {
 119         e->msg = heim_string_create(str);
 120         e->error_code = error_code;
 121     }
 122     free(str);
 123
 124     errno = save_errno;
 125     return e;
 126 }
 127
 128 heim_string_t
 129 heim_error_copy_string(heim_error_t error)
 130 {
 131     if (heim_get_tid(error) != HEIM_TID_ERROR) {
 132         if (heim_get_tid(error) == heim_number_get_type_id())
 133             return __heim_string_constant(strerror(heim_number_get_int((heim_number_t)error)));
 134         heim_abort("invalid heim_error_t");
 135     }
 136     /* XXX concat all strings */
 137     return heim_retain(error->msg);
 138 }
 139
 140 int
 141 heim_error_get_code(heim_error_t error)
 142 {
 143     if (heim_get_tid(error) != HEIM_TID_ERROR) {
 144         if (heim_get_tid(error) == heim_number_get_type_id())
 145             return heim_number_get_int((heim_number_t)error);
 146         heim_abort("invalid heim_error_t");
 147     }
 148     return error->error_code;
 149 }
 150
 151 heim_error_t
 152 heim_error_append(heim_error_t top, heim_error_t append)
 153 {
 154     if (heim_get_tid(top) != HEIM_TID_ERROR) {
 155         if (heim_get_tid(top) == heim_number_get_type_id())
 156             return top;
 157         heim_abort("invalid heim_error_t");
 158     }
 159     if (top->next)
 160         heim_release(top->next);
 161     top->next = heim_retain(append);
 162     return top;
 163 }