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
;
64 engine
= calloc(1, sizeof(*engine
));
65 engine
->references
= 1;
71 ENGINE_free(ENGINE
*engine
)
77 ENGINE_finish(ENGINE
*engine
)
79 if (engine
->references
-- <= 0)
81 if (engine
->references
> 0)
89 (*engine
->destroy
)(engine
);
91 memset(engine
, 0, sizeof(engine
));
92 engine
->references
= -1;
100 ENGINE_up_ref(ENGINE
*engine
)
102 if (engine
->references
< 0)
104 engine
->references
++;
109 ENGINE_set_id(ENGINE
*engine
, const char *id
)
111 engine
->id
= strdup(id
);
112 return (engine
->id
== NULL
) ? 0 : 1;
116 ENGINE_set_name(ENGINE
*engine
, const char *name
)
118 engine
->name
= strdup(name
);
119 return (engine
->name
== NULL
) ? 0 : 1;
123 ENGINE_set_RSA(ENGINE
*engine
, const RSA_METHOD
*method
)
125 engine
->rsa
= method
;
130 ENGINE_set_DH(ENGINE
*engine
, const DH_METHOD
*method
)
137 ENGINE_set_destroy_function(ENGINE
*e
, void (*destroy
)(ENGINE
*))
139 e
->destroy
= destroy
;
144 ENGINE_get_id(const ENGINE
*engine
)
150 ENGINE_get_name(const ENGINE
*engine
)
156 ENGINE_get_RSA(const ENGINE
*engine
)
162 ENGINE_get_DH(const ENGINE
*engine
)
168 ENGINE_get_RAND(const ENGINE
*engine
)
177 #define SG_default_engine(type) \
178 static ENGINE *type##_engine; \
180 ENGINE_set_default_##type(ENGINE *engine) \
183 ENGINE_finish(type##_engine); \
184 type##_engine = engine; \
186 ENGINE_up_ref(type##_engine); \
190 ENGINE_get_default_##type(void) \
193 ENGINE_up_ref(type##_engine); \
194 return type##_engine; \
197 SG_default_engine(RSA
)
198 SG_default_engine(DH
)
200 #undef SG_default_engine
206 static ENGINE
**engines
;
207 static unsigned int num_engines
;
210 add_engine(ENGINE
*engine
)
214 dup
= ENGINE_by_id(engine
->id
);
218 d
= realloc(engines
, (num_engines
+ 1) * sizeof(*engines
));
222 engines
[num_engines
++] = engine
;
228 ENGINE_load_builtin_engines(void)
233 engine
= ENGINE_new();
237 ENGINE_set_id(engine
, "builtin");
238 ENGINE_set_name(engine
,
239 "Heimdal crypto builtin engine version " PACKAGE_VERSION
);
240 ENGINE_set_RSA(engine
, RSA_tfm_method());
241 ENGINE_set_DH(engine
, DH_tfm_method());
243 ret
= add_engine(engine
);
245 ENGINE_finish(engine
);
251 engine
= ENGINE_new();
255 ENGINE_set_id(engine
, "tfm");
256 ENGINE_set_name(engine
,
257 "Heimdal crypto tfm engine version " PACKAGE_VERSION
);
258 ENGINE_set_RSA(engine
, RSA_tfm_method());
259 ENGINE_set_DH(engine
, DH_tfm_method());
261 ret
= add_engine(engine
);
263 ENGINE_finish(engine
);
269 engine
= ENGINE_new();
273 ENGINE_set_id(engine
, "imath");
274 ENGINE_set_name(engine
,
275 "Heimdal crypto imath engine version " PACKAGE_VERSION
);
276 ENGINE_set_RSA(engine
, RSA_imath_method());
277 ENGINE_set_DH(engine
, DH_imath_method());
279 ret
= add_engine(engine
);
281 ENGINE_finish(engine
);
286 ENGINE_by_dso(const char *path
, const char *id
)
293 engine
= calloc(1, sizeof(*engine
));
297 handle
= dlopen(path
, RTLD_NOW
);
298 if (handle
== NULL
) {
299 /* printf("error: %s\n", dlerror()); */
305 unsigned long version
;
306 openssl_v_check v_check
;
308 v_check
= (openssl_v_check
)dlsym(handle
, "v_check");
309 if (v_check
== NULL
) {
315 version
= (*v_check
)(OPENSSL_DYNAMIC_VERSION
);
324 openssl_bind_engine bind_engine
;
326 bind_engine
= (openssl_bind_engine
)dlsym(handle
, "bind_engine");
327 if (bind_engine
== NULL
) {
333 ret
= (*bind_engine
)(engine
, id
, NULL
); /* XXX fix third arg */
341 ENGINE_up_ref(engine
);
343 ret
= add_engine(engine
);
346 ENGINE_finish(engine
);
357 ENGINE_by_id(const char *id
)
361 for (i
= 0; i
< num_engines
; i
++) {
362 if (strcmp(id
, engines
[i
]->id
) == 0) {
363 ENGINE_up_ref(engines
[i
]);
371 ENGINE_add_conf_module(void)