1 /* crypto/store/str_mem.c -*- mode:C; c-file-style: "eay" -*- */
2 /* Written by Richard Levitte (richard@levitte.org) for the OpenSSL
5 /* ====================================================================
6 * Copyright (c) 2003 The OpenSSL Project. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in
17 * the documentation and/or other materials provided with the
20 * 3. All advertising materials mentioning features or use of this
21 * software must display the following acknowledgment:
22 * "This product includes software developed by the OpenSSL Project
23 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
25 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26 * endorse or promote products derived from this software without
27 * prior written permission. For written permission, please contact
28 * openssl-core@openssl.org.
30 * 5. Products derived from this software may not be called "OpenSSL"
31 * nor may "OpenSSL" appear in their names without prior written
32 * permission of the OpenSSL Project.
34 * 6. Redistributions of any form whatsoever must retain the following
36 * "This product includes software developed by the OpenSSL Project
37 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
39 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
43 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50 * OF THE POSSIBILITY OF SUCH DAMAGE.
51 * ====================================================================
53 * This product includes cryptographic software written by Eric Young
54 * (eay@cryptsoft.com). This product includes software written by Tim
55 * Hudson (tjh@cryptsoft.com).
60 #include <openssl/err.h>
63 /* The memory store is currently highly experimental. It's meant to become
64 a base store used by other stores for internal caching (for full caching
65 support, aging needs to be added).
67 The database use is meant to support as much attribute association as
68 possible, while providing for as small search ranges as possible.
69 This is currently provided for by sorting the entries by numbers that
70 are composed of bits set at the positions indicated by attribute type
71 codes. This provides for ranges determined by the highest attribute
72 type code value. A better idea might be to sort by values computed
73 from the range of attributes associated with the object (basically,
74 the difference between the highest and lowest attribute type code)
75 and it's distance from a base (basically, the lowest associated
79 typedef struct mem_object_data_st
82 STORE_ATTR_INFO *attr_info;
86 DECLARE_STACK_OF(MEM_OBJECT_DATA)
91 * STORE_ATTR_INFO_compare().
93 STACK_OF(MEM_OBJECT_DATA) *data;
95 * Currently unused, but can
96 * be used to add attributes
97 * from parts of the data.
99 unsigned int compute_components : 1;
102 DECLARE_STACK_OF(STORE_ATTR_INFO)
105 /* The type we're searching for */
109 * attributes to search for. Each
110 * element is a STORE_ATTR_INFO.
112 STACK_OF(STORE_ATTR_INFO) *search_attributes;
114 * which of the search attributes we
115 * found a match for, -1 when we still
119 /* -1 as long as we're searching for the first */
123 static int mem_init(STORE *s);
124 static void mem_clean(STORE *s);
125 static STORE_OBJECT *mem_generate(STORE *s, STORE_OBJECT_TYPES type,
126 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[]);
127 static STORE_OBJECT *mem_get(STORE *s, STORE_OBJECT_TYPES type,
128 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[]);
129 static int mem_store(STORE *s, STORE_OBJECT_TYPES type,
130 STORE_OBJECT *data, OPENSSL_ITEM attributes[],
131 OPENSSL_ITEM parameters[]);
132 static int mem_modify(STORE *s, STORE_OBJECT_TYPES type,
133 OPENSSL_ITEM search_attributes[], OPENSSL_ITEM add_attributes[],
134 OPENSSL_ITEM modify_attributes[], OPENSSL_ITEM delete_attributes[],
135 OPENSSL_ITEM parameters[]);
136 static int mem_delete(STORE *s, STORE_OBJECT_TYPES type,
137 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[]);
138 static void *mem_list_start(STORE *s, STORE_OBJECT_TYPES type,
139 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[]);
140 static STORE_OBJECT *mem_list_next(STORE *s, void *handle);
141 static int mem_list_end(STORE *s, void *handle);
142 static int mem_list_endp(STORE *s, void *handle);
143 static int mem_lock(STORE *s, OPENSSL_ITEM attributes[],
144 OPENSSL_ITEM parameters[]);
145 static int mem_unlock(STORE *s, OPENSSL_ITEM attributes[],
146 OPENSSL_ITEM parameters[]);
147 static int mem_ctrl(STORE *s, int cmd, long l, void *p, void (*f)(void));
149 static STORE_METHOD store_memory =
151 "OpenSSL memory store interface",
170 const STORE_METHOD *STORE_Memory(void)
172 return &store_memory;
175 static int mem_init(STORE *s)
180 static void mem_clean(STORE *s)
185 static STORE_OBJECT *mem_generate(STORE *s, STORE_OBJECT_TYPES type,
186 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[])
188 STOREerr(STORE_F_MEM_GENERATE, STORE_R_NOT_IMPLEMENTED);
191 static STORE_OBJECT *mem_get(STORE *s, STORE_OBJECT_TYPES type,
192 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[])
194 void *context = mem_list_start(s, type, attributes, parameters);
198 STORE_OBJECT *object = mem_list_next(s, context);
200 if (mem_list_end(s, context))
205 static int mem_store(STORE *s, STORE_OBJECT_TYPES type,
206 STORE_OBJECT *data, OPENSSL_ITEM attributes[],
207 OPENSSL_ITEM parameters[])
209 STOREerr(STORE_F_MEM_STORE, STORE_R_NOT_IMPLEMENTED);
212 static int mem_modify(STORE *s, STORE_OBJECT_TYPES type,
213 OPENSSL_ITEM search_attributes[], OPENSSL_ITEM add_attributes[],
214 OPENSSL_ITEM modify_attributes[], OPENSSL_ITEM delete_attributes[],
215 OPENSSL_ITEM parameters[])
217 STOREerr(STORE_F_MEM_MODIFY, STORE_R_NOT_IMPLEMENTED);
220 static int mem_delete(STORE *s, STORE_OBJECT_TYPES type,
221 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[])
223 STOREerr(STORE_F_MEM_DELETE, STORE_R_NOT_IMPLEMENTED);
227 /* The list functions may be the hardest to understand. Basically,
228 mem_list_start compiles a stack of attribute info elements, and
229 puts that stack into the context to be returned. mem_list_next
230 will then find the first matching element in the store, and then
231 walk all the way to the end of the store (since any combination
232 of attribute bits above the starting point may match the searched
233 for bit pattern...). */
234 static void *mem_list_start(STORE *s, STORE_OBJECT_TYPES type,
235 OPENSSL_ITEM attributes[], OPENSSL_ITEM parameters[])
237 struct mem_ctx_st *context =
238 (struct mem_ctx_st *)OPENSSL_malloc(sizeof(struct mem_ctx_st));
239 void *attribute_context = NULL;
240 STORE_ATTR_INFO *attrs = NULL;
244 STOREerr(STORE_F_MEM_LIST_START, ERR_R_MALLOC_FAILURE);
247 memset(context, 0, sizeof(struct mem_ctx_st));
249 attribute_context = STORE_parse_attrs_start(attributes);
250 if (!attribute_context)
252 STOREerr(STORE_F_MEM_LIST_START, ERR_R_STORE_LIB);
256 while((attrs = STORE_parse_attrs_next(attribute_context)))
258 if (context->search_attributes == NULL)
260 context->search_attributes =
261 sk_STORE_ATTR_INFO_new(STORE_ATTR_INFO_compare);
262 if (!context->search_attributes)
264 STOREerr(STORE_F_MEM_LIST_START,
265 ERR_R_MALLOC_FAILURE);
269 sk_STORE_ATTR_INFO_push(context->search_attributes,attrs);
271 if (!STORE_parse_attrs_endp(attribute_context))
273 STORE_parse_attrs_end(attribute_context);
274 context->search_index = -1;
278 if (attribute_context) STORE_parse_attrs_end(attribute_context);
279 mem_list_end(s, context);
282 static STORE_OBJECT *mem_list_next(STORE *s, void *handle)
285 struct mem_ctx_st *context = (struct mem_ctx_st *)handle;
286 struct mem_object_data_st key = { 0, 0, 1 };
287 struct mem_data_st *store =
288 (struct mem_data_st *)STORE_get_ex_data(s, 1);
294 STOREerr(STORE_F_MEM_LIST_NEXT, ERR_R_PASSED_NULL_PARAMETER);
299 STOREerr(STORE_F_MEM_LIST_NEXT, STORE_R_NO_STORE);
303 if (context->search_index == -1)
306 i < sk_STORE_ATTR_INFO_num(context->search_attributes);
310 = sk_STORE_ATTR_INFO_value(context->search_attributes,
312 srch = sk_MEM_OBJECT_DATA_find_ex(store->data, &key);
316 context->search_index = srch;
321 if (context->search_index < 0)
325 sk_STORE_ATTR_INFO_value(context->search_attributes,
326 context->search_index);
327 for(srch = context->search_index;
328 srch < sk_MEM_OBJECT_DATA_num(store->data)
329 && STORE_ATTR_INFO_in_range(key.attr_info,
330 sk_MEM_OBJECT_DATA_value(store->data, srch)->attr_info)
331 && !(cres = STORE_ATTR_INFO_in_ex(key.attr_info,
332 sk_MEM_OBJECT_DATA_value(store->data, srch)->attr_info));
336 context->search_index = srch;
338 return (sk_MEM_OBJECT_DATA_value(store->data, srch))->object;
341 static int mem_list_end(STORE *s, void *handle)
343 struct mem_ctx_st *context = (struct mem_ctx_st *)handle;
347 STOREerr(STORE_F_MEM_LIST_END, ERR_R_PASSED_NULL_PARAMETER);
350 if (context && context->search_attributes)
351 sk_STORE_ATTR_INFO_free(context->search_attributes);
352 if (context) OPENSSL_free(context);
355 static int mem_list_endp(STORE *s, void *handle)
357 struct mem_ctx_st *context = (struct mem_ctx_st *)handle;
360 || context->search_index
361 == sk_STORE_ATTR_INFO_num(context->search_attributes))
365 static int mem_lock(STORE *s, OPENSSL_ITEM attributes[],
366 OPENSSL_ITEM parameters[])
370 static int mem_unlock(STORE *s, OPENSSL_ITEM attributes[],
371 OPENSSL_ITEM parameters[])
375 static int mem_ctrl(STORE *s, int cmd, long l, void *p, void (*f)(void))