2 * Copyright (c) 2006 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
53 void (*destroy
)(ENGINE
*);
54 const RSA_METHOD
*rsa
;
56 const RAND_METHOD
*rand
;
60 ENGINE_finish(ENGINE
*engine
)
62 if (engine
->references
-- <= 0)
64 if (engine
->references
> 0)
72 (*engine
->destroy
)(engine
);
74 memset(engine
, 0, sizeof(engine
));
75 engine
->references
= -1;
83 ENGINE_up_ref(ENGINE
*engine
)
85 if (engine
->references
< 0)
92 ENGINE_set_id(ENGINE
*engine
, const char *id
)
94 engine
->id
= strdup(id
);
95 return (engine
->id
== NULL
) ? 0 : 1;
99 ENGINE_set_name(ENGINE
*engine
, const char *name
)
101 engine
->name
= strdup(name
);
102 return (engine
->name
== NULL
) ? 0 : 1;
106 ENGINE_set_RSA(ENGINE
*engine
, const RSA_METHOD
*method
)
108 engine
->rsa
= method
;
113 ENGINE_set_DH(ENGINE
*engine
, const DH_METHOD
*method
)
120 ENGINE_set_destroy_function(ENGINE
*e
, void (*destroy
)(ENGINE
*))
122 e
->destroy
= destroy
;
127 ENGINE_get_id(const ENGINE
*engine
)
133 ENGINE_get_name(const ENGINE
*engine
)
139 ENGINE_get_RSA(const ENGINE
*engine
)
145 ENGINE_get_DH(const ENGINE
*engine
)
151 ENGINE_get_RAND(const ENGINE
*engine
)
160 #define SG_default_engine(type) \
161 static ENGINE *type##_engine; \
163 ENGINE_set_default_##type(ENGINE *engine) \
166 ENGINE_finish(type##_engine); \
167 type##_engine = engine; \
169 ENGINE_up_ref(type##_engine); \
173 ENGINE_get_default_##type(void) \
176 ENGINE_up_ref(type##_engine); \
177 return type##_engine; \
180 SG_default_engine(RSA
)
181 SG_default_engine(DH
)
183 #undef SG_default_engine
189 static ENGINE
**engines
;
190 static unsigned int num_engines
;
193 add_engine(ENGINE
*engine
)
197 dup
= ENGINE_by_id(engine
->id
);
203 d
= realloc(engines
, (num_engines
+ 1) * sizeof(*engines
));
207 engines
[num_engines
++] = engine
;
213 ENGINE_load_builtin_engines(void)
218 engine
= calloc(1, sizeof(*engine
));
222 ENGINE_set_id(engine
, "builtin");
223 ENGINE_set_name(engine
,
224 "Heimdal crypto builtin engine version " PACKAGE_VERSION
);
225 ENGINE_set_RSA(engine
, RSA_imath_method());
226 ENGINE_set_DH(engine
, DH_imath_method());
228 ret
= add_engine(engine
);
230 ENGINE_finish(engine
);
234 ENGINE_by_dso(const char *path
, const char *id
)
241 engine
= calloc(1, sizeof(*engine
));
245 handle
= dlopen(path
, RTLD_NOW
);
246 if (handle
== NULL
) {
247 /* printf("error: %s\n", dlerror()); */
253 unsigned long version
;
254 openssl_v_check v_check
;
256 v_check
= (openssl_v_check
)dlsym(handle
, "v_check");
257 if (v_check
== NULL
) {
263 version
= (*v_check
)(OPENSSL_DYNAMIC_VERSION
);
272 openssl_bind_engine bind_engine
;
274 bind_engine
= (openssl_bind_engine
)dlsym(handle
, "bind_engine");
275 if (bind_engine
== NULL
) {
281 ret
= (*bind_engine
)(engine
, id
, NULL
); /* XXX fix third arg */
289 ENGINE_up_ref(engine
);
291 ret
= add_engine(engine
);
294 ENGINE_finish(engine
);
305 ENGINE_by_id(const char *id
)
309 for (i
= 0; i
< num_engines
; i
++) {
310 if (strcmp(id
, engines
[i
]->id
) == 0) {
311 ENGINE_up_ref(engines
[i
]);
319 ENGINE_add_conf_module(void)