155682Smarkm/* 2233294Sstas * Copyright (c) 1997 Kungliga Tekniska H��gskolan 3233294Sstas * (Royal Institute of Technology, Stockholm, Sweden). 4233294Sstas * All rights reserved. 555682Smarkm * 6233294Sstas * Redistribution and use in source and binary forms, with or without 7233294Sstas * modification, are permitted provided that the following conditions 8233294Sstas * are met: 955682Smarkm * 10233294Sstas * 1. Redistributions of source code must retain the above copyright 11233294Sstas * notice, this list of conditions and the following disclaimer. 1255682Smarkm * 13233294Sstas * 2. Redistributions in binary form must reproduce the above copyright 14233294Sstas * notice, this list of conditions and the following disclaimer in the 15233294Sstas * documentation and/or other materials provided with the distribution. 1655682Smarkm * 17233294Sstas * 3. Neither the name of the Institute nor the names of its contributors 18233294Sstas * may be used to endorse or promote products derived from this software 19233294Sstas * without specific prior written permission. 2055682Smarkm * 21233294Sstas * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 22233294Sstas * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23233294Sstas * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24233294Sstas * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 25233294Sstas * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26233294Sstas * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27233294Sstas * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28233294Sstas * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29233294Sstas * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30233294Sstas * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31233294Sstas * SUCH DAMAGE. 3255682Smarkm */ 3355682Smarkm 3455682Smarkm#include "krb5_locl.h" 35233294Sstas#ifdef HAVE_EXECINFO_H 36233294Sstas#include <execinfo.h> 37233294Sstas#endif 3855682Smarkm 39233294SstasKRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL 40233294Sstas_krb5_s4u2self_to_checksumdata(krb5_context context, 41233294Sstas const PA_S4U2Self *self, 42178825Sdfr krb5_data *data) 43178825Sdfr{ 44178825Sdfr krb5_error_code ret; 45178825Sdfr krb5_ssize_t ssize; 46178825Sdfr krb5_storage *sp; 47178825Sdfr size_t size; 48233294Sstas size_t i; 49178825Sdfr 50178825Sdfr sp = krb5_storage_emem(); 51178825Sdfr if (sp == NULL) { 52233294Sstas krb5_clear_error_message(context); 53178825Sdfr return ENOMEM; 54178825Sdfr } 55178825Sdfr krb5_storage_set_flags(sp, KRB5_STORAGE_BYTEORDER_LE); 56178825Sdfr ret = krb5_store_int32(sp, self->name.name_type); 57178825Sdfr if (ret) 58178825Sdfr goto out; 59178825Sdfr for (i = 0; i < self->name.name_string.len; i++) { 60178825Sdfr size = strlen(self->name.name_string.val[i]); 61178825Sdfr ssize = krb5_storage_write(sp, self->name.name_string.val[i], size); 62233294Sstas if (ssize != (krb5_ssize_t)size) { 63178825Sdfr ret = ENOMEM; 64178825Sdfr goto out; 65178825Sdfr } 66178825Sdfr } 67178825Sdfr size = strlen(self->realm); 68178825Sdfr ssize = krb5_storage_write(sp, self->realm, size); 69233294Sstas if (ssize != (krb5_ssize_t)size) { 70178825Sdfr ret = ENOMEM; 71178825Sdfr goto out; 72178825Sdfr } 73178825Sdfr size = strlen(self->auth); 74178825Sdfr ssize = krb5_storage_write(sp, self->auth, size); 75233294Sstas if (ssize != (krb5_ssize_t)size) { 76178825Sdfr ret = ENOMEM; 77178825Sdfr goto out; 78178825Sdfr } 79178825Sdfr 80178825Sdfr ret = krb5_storage_to_data(sp, data); 81178825Sdfr krb5_storage_free(sp); 82178825Sdfr return ret; 83178825Sdfr 84178825Sdfrout: 85233294Sstas krb5_clear_error_message(context); 86178825Sdfr return ret; 87178825Sdfr} 88233294Sstas 89233294Sstaskrb5_error_code 90233294Sstaskrb5_enomem(krb5_context context) 91233294Sstas{ 92233294Sstas krb5_set_error_message(context, ENOMEM, N_("malloc: out of memory", "")); 93233294Sstas return ENOMEM; 94233294Sstas} 95233294Sstas 96233294Sstasvoid 97233294Sstas_krb5_debug_backtrace(krb5_context context) 98233294Sstas{ 99233294Sstas#if defined(HAVE_BACKTRACE) && !defined(HEIMDAL_SMALLER) 100233294Sstas void *stack[128]; 101233294Sstas char **strs = NULL; 102233294Sstas int i, frames = backtrace(stack, sizeof(stack) / sizeof(stack[0])); 103233294Sstas if (frames > 0) 104233294Sstas strs = backtrace_symbols(stack, frames); 105233294Sstas if (strs) { 106233294Sstas for (i = 0; i < frames; i++) 107233294Sstas _krb5_debug(context, 10, "frame %d: %s", i, strs[i]); 108233294Sstas free(strs); 109233294Sstas } 110233294Sstas#endif 111233294Sstas} 112233294Sstas 113233294Sstaskrb5_error_code 114233294Sstas_krb5_einval(krb5_context context, const char *func, unsigned long argn) 115233294Sstas{ 116233294Sstas#ifndef HEIMDAL_SMALLER 117233294Sstas krb5_set_error_message(context, EINVAL, 118233294Sstas N_("programmer error: invalid argument to %s argument %lu", 119233294Sstas "function:line"), 120233294Sstas func, argn); 121233294Sstas if (_krb5_have_debug(context, 10)) { 122233294Sstas _krb5_debug(context, 10, "invalid argument to function %s argument %lu", 123233294Sstas func, argn); 124233294Sstas _krb5_debug_backtrace(context); 125233294Sstas } 126233294Sstas#endif 127233294Sstas return EINVAL; 128233294Sstas} 129