Imported Upstream version 1.20.1
[platform/upstream/krb5.git] / src / lib / gssapi / mechglue / g_del_name_attr.c
1 /* -*- mode: c; indent-tabs-mode: nil -*- */
2 /*
3  * Copyright 2009 by the Massachusetts Institute of Technology.
4  * All Rights Reserved.
5  *
6  * Export of this software from the United States of America may
7  *   require a specific license from the United States Government.
8  *   It is the responsibility of any person or organization contemplating
9  *   export to obtain such a license before exporting.
10  *
11  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
12  * distribute this software and its documentation for any purpose and
13  * without fee is hereby granted, provided that the above copyright
14  * notice appear in all copies and that both that copyright notice and
15  * this permission notice appear in supporting documentation, and that
16  * the name of M.I.T. not be used in advertising or publicity pertaining
17  * to distribution of the software without specific, written prior
18  * permission.  Furthermore if you modify this software you must label
19  * your software as modified software and not distribute it in such a
20  * fashion that it might be confused with the original M.I.T. software.
21  * M.I.T. makes no representations about the suitability of
22  * this software for any purpose.  It is provided "as is" without express
23  * or implied warranty.
24  */
25
26 /* Glue routine for gss_delete_name_attribute */
27
28 #include "mglueP.h"
29
30 OM_uint32 KRB5_CALLCONV
31 gss_delete_name_attribute(OM_uint32 *minor_status,
32                           gss_name_t name,
33                           gss_buffer_t attr)
34 {
35     OM_uint32           status;
36     gss_union_name_t    union_name;
37     gss_mechanism       mech;
38
39     if (minor_status == NULL)
40         return GSS_S_CALL_INACCESSIBLE_WRITE;
41     *minor_status = 0;
42
43     if (name == GSS_C_NO_NAME)
44         return GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME;
45
46     union_name = (gss_union_name_t)name;
47
48     if (union_name->mech_type == GSS_C_NO_OID)
49         return GSS_S_UNAVAILABLE;
50
51     mech = gssint_get_mechanism(name->mech_type);
52     if (mech == NULL)
53         return GSS_S_BAD_NAME;
54
55     if (mech->gss_delete_name_attribute == NULL)
56         return GSS_S_UNAVAILABLE;
57
58     status = (*mech->gss_delete_name_attribute)(minor_status,
59                                                 union_name->mech_name,
60                                                 attr);
61     if (status != GSS_S_COMPLETE)
62         map_error(minor_status, mech);
63
64     return status;
65 }