1 /* 2 * Copyright (c) 1997 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 #ifdef HAVE_EXECINFO_H 36 #include <execinfo.h> 37 #endif 38 39 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL 40 _krb5_s4u2self_to_checksumdata(krb5_context context, 41 const PA_S4U2Self *self, 42 krb5_data *data) 43 { 44 krb5_error_code ret; 45 krb5_ssize_t ssize; 46 krb5_storage *sp; 47 size_t size; 48 size_t i; 49 50 sp = krb5_storage_emem(); 51 if (sp == NULL) { 52 krb5_clear_error_message(context); 53 return ENOMEM; 54 } 55 krb5_storage_set_flags(sp, KRB5_STORAGE_BYTEORDER_LE); 56 ret = krb5_store_int32(sp, self->name.name_type); 57 if (ret) 58 goto out; 59 for (i = 0; i < self->name.name_string.len; i++) { 60 size = strlen(self->name.name_string.val[i]); 61 ssize = krb5_storage_write(sp, self->name.name_string.val[i], size); 62 if (ssize != (krb5_ssize_t)size) { 63 ret = ENOMEM; 64 goto out; 65 } 66 } 67 size = strlen(self->realm); 68 ssize = krb5_storage_write(sp, self->realm, size); 69 if (ssize != (krb5_ssize_t)size) { 70 ret = ENOMEM; 71 goto out; 72 } 73 size = strlen(self->auth); 74 ssize = krb5_storage_write(sp, self->auth, size); 75 if (ssize != (krb5_ssize_t)size) { 76 ret = ENOMEM; 77 goto out; 78 } 79 80 ret = krb5_storage_to_data(sp, data); 81 krb5_storage_free(sp); 82 return ret; 83 84 out: 85 krb5_clear_error_message(context); 86 return ret; 87 } 88 89 krb5_error_code 90 krb5_enomem(krb5_context context) 91 { 92 krb5_set_error_message(context, ENOMEM, N_("malloc: out of memory", "")); 93 return ENOMEM; 94 } 95 96 void 97 _krb5_debug_backtrace(krb5_context context) 98 { 99 #if defined(HAVE_BACKTRACE) && !defined(HEIMDAL_SMALLER) 100 void *stack[128]; 101 char **strs = NULL; 102 int i, frames = backtrace(stack, sizeof(stack) / sizeof(stack[0])); 103 if (frames > 0) 104 strs = backtrace_symbols(stack, frames); 105 if (strs) { 106 for (i = 0; i < frames; i++) 107 _krb5_debug(context, 10, "frame %d: %s", i, strs[i]); 108 free(strs); 109 } 110 #endif 111 } 112 113 krb5_error_code 114 _krb5_einval(krb5_context context, const char *func, unsigned long argn) 115 { 116 #ifndef HEIMDAL_SMALLER 117 krb5_set_error_message(context, EINVAL, 118 N_("programmer error: invalid argument to %s argument %lu", 119 "function:line"), 120 func, argn); 121 if (_krb5_have_debug(context, 10)) { 122 _krb5_debug(context, 10, "invalid argument to function %s argument %lu", 123 func, argn); 124 _krb5_debug_backtrace(context); 125 } 126 #endif 127 return EINVAL; 128 } 129