error_string.c revision 78527 
1/*
2 * Copyright (c) 2001 Kungliga Tekniska H�gskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 *
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 *
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.
16 *
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.
20 *
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
31 * SUCH DAMAGE.
32 */
33
34#include "krb5_locl.h"
35
36RCSID("$Id: error_string.c,v 1.1 2001/05/06 23:07:22 assar Exp $");
37
38#undef __attribute__
39#define __attribute__(X)
40
41void
42krb5_free_error_string(krb5_context context, char *str)
43{
44    if (str != context->error_buf)
45	free(str);
46}
47
48void
49krb5_clear_error_string(krb5_context context)
50{
51    if (context->error_string != NULL
52	&& context->error_string != context->error_buf)
53	free(context->error_string);
54    context->error_string = NULL;
55}
56
57krb5_error_code
58krb5_set_error_string(krb5_context context, const char *fmt, ...)
59    __attribute__((format (printf, 2, 3)))
60{
61    krb5_error_code ret;
62    va_list ap;
63
64    va_start(ap, fmt);
65    ret = krb5_vset_error_string (context, fmt, ap);
66    va_end(ap);
67    return ret;
68}
69
70krb5_error_code
71krb5_vset_error_string(krb5_context context, const char *fmt, va_list args)
72    __attribute__ ((format (printf, 2, 0)))
73{
74    krb5_clear_error_string(context);
75    vasprintf(&context->error_string, fmt, args);
76    if(context->error_string == NULL) {
77	vsnprintf (context->error_buf, sizeof(context->error_buf), fmt, args);
78	context->error_string = context->error_buf;
79    }
80    return 0;
81}
82
83char*
84krb5_get_error_string(krb5_context context)
85{
86    char *ret = context->error_string;
87    context->error_string = NULL;
88    return ret;
89}
90
91krb5_boolean
92krb5_have_error_string(krb5_context context)
93{
94    return context->error_string != NULL;
95}
96