1c19800e8SDoug Rabson /*
2*ae771770SStanislav Sedov * Copyright (c) 1997 - 2001, 2003, 2006 Kungliga Tekniska Högskolan
3c19800e8SDoug Rabson * (Royal Institute of Technology, Stockholm, Sweden).
4c19800e8SDoug Rabson * All rights reserved.
5c19800e8SDoug Rabson *
6c19800e8SDoug Rabson * Redistribution and use in source and binary forms, with or without
7c19800e8SDoug Rabson * modification, are permitted provided that the following conditions
8c19800e8SDoug Rabson * are met:
9c19800e8SDoug Rabson *
10c19800e8SDoug Rabson * 1. Redistributions of source code must retain the above copyright
11c19800e8SDoug Rabson * notice, this list of conditions and the following disclaimer.
12c19800e8SDoug Rabson *
13c19800e8SDoug Rabson * 2. Redistributions in binary form must reproduce the above copyright
14c19800e8SDoug Rabson * notice, this list of conditions and the following disclaimer in the
15c19800e8SDoug Rabson * documentation and/or other materials provided with the distribution.
16c19800e8SDoug Rabson *
17c19800e8SDoug Rabson * 3. Neither the name of the Institute nor the names of its contributors
18c19800e8SDoug Rabson * may be used to endorse or promote products derived from this software
19c19800e8SDoug Rabson * without specific prior written permission.
20c19800e8SDoug Rabson *
21c19800e8SDoug Rabson * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22c19800e8SDoug Rabson * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c19800e8SDoug Rabson * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24c19800e8SDoug Rabson * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25c19800e8SDoug Rabson * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26c19800e8SDoug Rabson * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27c19800e8SDoug Rabson * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28c19800e8SDoug Rabson * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29c19800e8SDoug Rabson * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30c19800e8SDoug Rabson * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31c19800e8SDoug Rabson * SUCH DAMAGE.
32c19800e8SDoug Rabson */
33c19800e8SDoug Rabson
34*ae771770SStanislav Sedov #include "gsskrb5_locl.h"
35c19800e8SDoug Rabson
36c19800e8SDoug Rabson static HEIMDAL_MUTEX context_mutex = HEIMDAL_MUTEX_INITIALIZER;
37c19800e8SDoug Rabson static int created_key;
38c19800e8SDoug Rabson static HEIMDAL_thread_key context_key;
39c19800e8SDoug Rabson
40c19800e8SDoug Rabson static void
destroy_context(void * ptr)41c19800e8SDoug Rabson destroy_context(void *ptr)
42c19800e8SDoug Rabson {
43c19800e8SDoug Rabson krb5_context context = ptr;
44c19800e8SDoug Rabson
45c19800e8SDoug Rabson if (context == NULL)
46c19800e8SDoug Rabson return;
47c19800e8SDoug Rabson krb5_free_context(context);
48c19800e8SDoug Rabson }
49c19800e8SDoug Rabson
50c19800e8SDoug Rabson krb5_error_code
_gsskrb5_init(krb5_context * context)51c19800e8SDoug Rabson _gsskrb5_init (krb5_context *context)
52c19800e8SDoug Rabson {
53c19800e8SDoug Rabson krb5_error_code ret = 0;
54c19800e8SDoug Rabson
55c19800e8SDoug Rabson HEIMDAL_MUTEX_lock(&context_mutex);
56c19800e8SDoug Rabson
57c19800e8SDoug Rabson if (!created_key) {
58c19800e8SDoug Rabson HEIMDAL_key_create(&context_key, destroy_context, ret);
59c19800e8SDoug Rabson if (ret) {
60c19800e8SDoug Rabson HEIMDAL_MUTEX_unlock(&context_mutex);
61c19800e8SDoug Rabson return ret;
62c19800e8SDoug Rabson }
63c19800e8SDoug Rabson created_key = 1;
64c19800e8SDoug Rabson }
65c19800e8SDoug Rabson HEIMDAL_MUTEX_unlock(&context_mutex);
66c19800e8SDoug Rabson
67c19800e8SDoug Rabson *context = HEIMDAL_getspecific(context_key);
68c19800e8SDoug Rabson if (*context == NULL) {
69c19800e8SDoug Rabson
70c19800e8SDoug Rabson ret = krb5_init_context(context);
71c19800e8SDoug Rabson if (ret == 0) {
72c19800e8SDoug Rabson HEIMDAL_setspecific(context_key, *context, ret);
73c19800e8SDoug Rabson if (ret) {
74c19800e8SDoug Rabson krb5_free_context(*context);
75c19800e8SDoug Rabson *context = NULL;
76c19800e8SDoug Rabson }
77c19800e8SDoug Rabson }
78c19800e8SDoug Rabson }
79c19800e8SDoug Rabson
80c19800e8SDoug Rabson return ret;
81c19800e8SDoug Rabson }
82