2 * Copyright (c) 1999 - 2001 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
34 #include "krb5_locl.h"
39 * Copy the list of realms from `from' to `to'.
41 * @param context Kerberos 5 context.
42 * @param from list of realms to copy from.
43 * @param to list of realms to copy to, free list of krb5_free_host_realm().
45 * @return Returns 0 to indicate success. Otherwise an kerberos et
46 * error code is returned, see krb5_get_error_message().
51 krb5_error_code KRB5_LIB_FUNCTION
52 krb5_copy_host_realm(krb5_context context
,
53 const krb5_realm
*from
,
59 for (n
= 1, p
= from
; *p
!= NULL
; ++p
)
62 *to
= calloc (n
, sizeof(**to
));
64 krb5_set_error_string (context
, "malloc: out of memory");
68 for (i
= 0, p
= from
; *p
!= NULL
; ++p
, ++i
) {
69 (*to
)[i
] = strdup(*p
);
70 if ((*to
)[i
] == NULL
) {
71 krb5_free_host_realm (context
, *to
);
72 krb5_set_error_string (context
, "malloc: out of memory");