Line data Source code
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 HEIM_CALLCONV
45 173 : error_dealloc(void *ptr)
46 : {
47 173 : struct heim_error *p = ptr;
48 173 : heim_release(p->msg);
49 173 : heim_release(p->next);
50 173 : }
51 :
52 : static int
53 0 : error_cmp(void *a, void *b)
54 : {
55 0 : struct heim_error *ap = a, *bp = b;
56 0 : if (ap->error_code == bp->error_code)
57 0 : return 0;
58 0 : return heim_cmp(ap->msg, bp->msg);
59 : }
60 :
61 : static uintptr_t
62 0 : error_hash(void *ptr)
63 : {
64 0 : struct heim_error *p = ptr;
65 0 : 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 : NULL
77 : };
78 :
79 : heim_error_t
80 0 : heim_error_create_enomem(void)
81 : {
82 : /* This is an immediate object; see heim_number_create() */
83 0 : return (heim_error_t)heim_number_create(ENOMEM);
84 : }
85 :
86 :
87 : void
88 0 : heim_error_create_opt(heim_error_t *error, int error_code, const char *fmt, ...)
89 : HEIMDAL_PRINTF_ATTRIBUTE((__printf__, 3, 4))
90 : {
91 0 : if (error) {
92 0 : va_list ap;
93 0 : va_start(ap, fmt);
94 0 : *error = heim_error_createv(error_code, fmt, ap);
95 0 : va_end(ap);
96 : }
97 0 : }
98 :
99 : heim_error_t
100 0 : heim_error_create(int error_code, const char *fmt, ...)
101 : HEIMDAL_PRINTF_ATTRIBUTE((__printf__, 2, 3))
102 : {
103 0 : heim_error_t e;
104 0 : va_list ap;
105 :
106 0 : va_start(ap, fmt);
107 0 : e = heim_error_createv(error_code, fmt, ap);
108 0 : va_end(ap);
109 :
110 0 : return e;
111 : }
112 :
113 : heim_error_t
114 180 : heim_error_createv(int error_code, const char *fmt, va_list ap)
115 : HEIMDAL_PRINTF_ATTRIBUTE((__printf__, 2, 0))
116 : {
117 8 : heim_error_t e;
118 8 : char *str;
119 8 : int len;
120 180 : int save_errno = errno;
121 :
122 180 : str = malloc(1024);
123 180 : errno = save_errno;
124 180 : if (str == NULL)
125 0 : return heim_error_create_enomem();
126 180 : len = vsnprintf(str, 1024, fmt, ap);
127 180 : errno = save_errno;
128 180 : if (len < 0) {
129 0 : free(str);
130 0 : return NULL; /* XXX We should have a special heim_error_t for this */
131 : }
132 :
133 180 : e = _heim_alloc_object(&_heim_error_object, sizeof(struct heim_error));
134 180 : if (e) {
135 180 : e->msg = heim_string_create(str);
136 180 : e->error_code = error_code;
137 : }
138 180 : free(str);
139 :
140 180 : errno = save_errno;
141 180 : return e;
142 : }
143 :
144 : heim_string_t
145 41 : heim_error_copy_string(heim_error_t error)
146 : {
147 41 : if (heim_get_tid(error) != HEIM_TID_ERROR) {
148 0 : if (heim_get_tid(error) == heim_number_get_type_id())
149 0 : return __heim_string_constant(strerror(heim_number_get_int((heim_number_t)error)));
150 0 : heim_abort("invalid heim_error_t");
151 : }
152 : /* XXX concat all strings */
153 41 : return heim_retain(error->msg);
154 : }
155 :
156 : int
157 41 : heim_error_get_code(heim_error_t error)
158 : {
159 41 : if (error == NULL)
160 0 : return -1;
161 41 : if (heim_get_tid(error) != HEIM_TID_ERROR) {
162 0 : if (heim_get_tid(error) == heim_number_get_type_id())
163 0 : return heim_number_get_int((heim_number_t)error);
164 0 : heim_abort("invalid heim_error_t");
165 : }
166 41 : return error->error_code;
167 : }
168 :
169 : heim_error_t
170 0 : heim_error_append(heim_error_t top, heim_error_t append)
171 : {
172 0 : if (heim_get_tid(top) != HEIM_TID_ERROR) {
173 0 : if (heim_get_tid(top) == heim_number_get_type_id())
174 0 : return top;
175 0 : heim_abort("invalid heim_error_t");
176 : }
177 0 : if (top->next)
178 0 : heim_release(top->next);
179 0 : top->next = heim_retain(append);
180 0 : return top;
181 : }
|
