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 struct mem_object_data_st
82 STORE_ATTR_INFO *attr_info;
88 STACK *data; /* A stack of mem_object_data_st,
89 sorted with STORE_ATTR_INFO_compare(). */
90 unsigned int compute_components : 1; /* Currently unused, but can
91 be used to add attributes
92 from parts of the data. */
97 int type; /* The type we're searching for */
98 STACK *search_attributes; /* Sets of attributes to search for.
99 Each element is a STORE_ATTR_INFO. */
100 int search_index; /* which of the search attributes we found a match
101 for, -1 when we still haven't found any */
102 int index; /* -1 as long as we're searching for the first */
105 static int mem_init(STORE *s);
106 static void mem_clean(STORE *s);
107 static STORE_OBJECT *mem_generate(STORE *s, STORE_OBJECT_TYPES type,
108 OPENSSL_ITEM parameters[], OPENSSL_ITEM attributes[]);
109 static STORE_OBJECT *mem_get(STORE *s, STORE_OBJECT_TYPES type,
110 OPENSSL_ITEM attributes[]);
111 static int mem_store(STORE *s, STORE_OBJECT_TYPES type,
112 STORE_OBJECT *data, OPENSSL_ITEM attributes[]);
113 static int mem_modify(STORE *s, STORE_OBJECT_TYPES type,
114 OPENSSL_ITEM search_attributes[], OPENSSL_ITEM add_attributes[],
115 OPENSSL_ITEM modify_attributes[], OPENSSL_ITEM delete_attributes[]);
116 static int mem_delete(STORE *s, STORE_OBJECT_TYPES type,
117 OPENSSL_ITEM attributes[]);
118 static void *mem_list_start(STORE *s, STORE_OBJECT_TYPES type,
119 OPENSSL_ITEM attributes[]);
120 static STORE_OBJECT *mem_list_next(STORE *s, void *handle);
121 static int mem_list_end(STORE *s, void *handle);
122 static int mem_list_endp(STORE *s, void *handle);
123 static int mem_lock(STORE *s, OPENSSL_ITEM attributes[]);
124 static int mem_unlock(STORE *s, OPENSSL_ITEM attributes[]);
125 static int mem_ctrl(STORE *s, int cmd, long l, void *p, void (*f)());
127 static STORE_METHOD store_memory =
129 "OpenSSL memory store interface",
148 const STORE_METHOD *STORE_Memory(void)
150 return &store_memory;
153 static int mem_init(STORE *s)
158 static void mem_clean(STORE *s)
163 static STORE_OBJECT *mem_generate(STORE *s, STORE_OBJECT_TYPES type,
164 OPENSSL_ITEM parameters[], OPENSSL_ITEM attributes[])
166 STOREerr(STORE_F_MEM_GENERATE, STORE_R_NOT_IMPLEMENTED);
169 static STORE_OBJECT *mem_get(STORE *s, STORE_OBJECT_TYPES type,
170 OPENSSL_ITEM attributes[])
172 void *context = mem_list_start(s, type, attributes);
176 STORE_OBJECT *object = mem_list_next(s, context);
178 if (mem_list_end(s, context))
183 static int mem_store(STORE *s, STORE_OBJECT_TYPES type,
184 STORE_OBJECT *data, OPENSSL_ITEM attributes[])
186 STOREerr(STORE_F_MEM_STORE, STORE_R_NOT_IMPLEMENTED);
189 static int mem_modify(STORE *s, STORE_OBJECT_TYPES type,
190 OPENSSL_ITEM search_attributes[], OPENSSL_ITEM add_attributes[],
191 OPENSSL_ITEM modify_attributes[], OPENSSL_ITEM delete_attributes[])
193 STOREerr(STORE_F_MEM_STORE, STORE_R_NOT_IMPLEMENTED);
196 static int mem_delete(STORE *s, STORE_OBJECT_TYPES type,
197 OPENSSL_ITEM attributes[])
199 STOREerr(STORE_F_MEM_DELETE, STORE_R_NOT_IMPLEMENTED);
203 /* The list functions may be the hardest to nuderstand. Basically,
204 mem_list_start compiles a stack of attribute info elements, and
205 puts that stack into the context to be returned. mem_list_next
206 will then find the first matching element in the store, and then
207 walk all the way to the end of the store (since any combination
208 of attribute bits above the starting point may match the searched
209 for bit pattern...). */
210 static void *mem_list_start(STORE *s, STORE_OBJECT_TYPES type,
211 OPENSSL_ITEM attributes[])
213 struct mem_ctx_st *context =
214 (struct mem_ctx_st *)OPENSSL_malloc(sizeof(struct mem_ctx_st));
215 void *attribute_context = NULL;
216 STORE_ATTR_INFO *attrs = NULL;
220 STOREerr(STORE_F_MEM_LIST_START, ERR_R_MALLOC_FAILURE);
223 memset(context, 0, sizeof(struct mem_ctx_st));
225 attribute_context = STORE_parse_attrs_start(attributes);
226 if (!attribute_context)
228 STOREerr(STORE_F_MEM_LIST_START, ERR_R_STORE_LIB);
232 while((attrs = STORE_parse_attrs_next(attribute_context)))
234 if (context->search_attributes == NULL)
236 context->search_attributes =
237 sk_new((int (*)(const char * const *, const char * const *))STORE_ATTR_INFO_compare);
238 if (!context->search_attributes)
240 STOREerr(STORE_F_MEM_LIST_START,
241 ERR_R_MALLOC_FAILURE);
245 sk_push(context->search_attributes,(char *)attrs);
247 if (!STORE_parse_attrs_endp(attribute_context))
249 STORE_parse_attrs_end(attribute_context);
250 context->search_index = -1;
254 if (attribute_context) STORE_parse_attrs_end(attribute_context);
255 mem_list_end(s, context);
258 static STORE_OBJECT *mem_list_next(STORE *s, void *handle)
261 struct mem_ctx_st *context = (struct mem_ctx_st *)handle;
262 struct mem_object_data_st key = { 0, 0, 1 };
263 struct mem_data_st *store =
264 (struct mem_data_st *)STORE_get_ex_data(s, 1);
270 STOREerr(STORE_F_MEM_LIST_NEXT, ERR_R_PASSED_NULL_PARAMETER);
275 STOREerr(STORE_F_MEM_LIST_NEXT, STORE_R_NO_STORE);
279 if (context->search_index == -1)
281 for (i = 0; i < sk_num(context->search_attributes); i++)
284 (STORE_ATTR_INFO *)sk_value(context->search_attributes, i);
285 srch = sk_find_ex(store->data, (char *)&key);
289 context->search_index = srch;
294 if (context->search_index < 0)
298 (STORE_ATTR_INFO *)sk_value(context->search_attributes,
299 context->search_index);
300 for(srch = context->search_index;
301 srch < sk_num(store->data)
302 && !(cres = STORE_ATTR_INFO_in_ex(key.attr_info,
303 (STORE_ATTR_INFO *)sk_value(store->data, srch)));
307 context->search_index = srch;
309 return ((struct mem_object_data_st *)sk_value(store->data,
313 static int mem_list_end(STORE *s, void *handle)
315 struct mem_ctx_st *context = (struct mem_ctx_st *)handle;
319 STOREerr(STORE_F_MEM_LIST_NEXT, ERR_R_PASSED_NULL_PARAMETER);
322 if (context && context->search_attributes)
323 sk_free(context->search_attributes);
324 if (context) OPENSSL_free(context);
327 static int mem_list_endp(STORE *s, void *handle)
329 struct mem_ctx_st *context = (struct mem_ctx_st *)handle;
332 || context->search_index == sk_num(context->search_attributes))
336 static int mem_lock(STORE *s, OPENSSL_ITEM attributes[])
340 static int mem_unlock(STORE *s, OPENSSL_ITEM attributes[])
344 static int mem_ctrl(STORE *s, int cmd, long l, void *p, void (*f)())