155682Smarkm/* 2233294Sstas * Copyright (c) 1997 - 2000, 2002 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" 35102644Snectar#include "store-int.h" 3655682Smarkm 3755682Smarkmtypedef struct mem_storage{ 3855682Smarkm unsigned char *base; 3955682Smarkm size_t size; 4055682Smarkm unsigned char *ptr; 4155682Smarkm}mem_storage; 4255682Smarkm 4355682Smarkmstatic ssize_t 4455682Smarkmmem_fetch(krb5_storage *sp, void *data, size_t size) 4555682Smarkm{ 4655682Smarkm mem_storage *s = (mem_storage*)sp->data; 47233294Sstas if(size > (size_t)(s->base + s->size - s->ptr)) 4855682Smarkm size = s->base + s->size - s->ptr; 4955682Smarkm memmove(data, s->ptr, size); 5055682Smarkm sp->seek(sp, size, SEEK_CUR); 5155682Smarkm return size; 5255682Smarkm} 5355682Smarkm 5455682Smarkmstatic ssize_t 5572445Sassarmem_store(krb5_storage *sp, const void *data, size_t size) 5655682Smarkm{ 5755682Smarkm mem_storage *s = (mem_storage*)sp->data; 58233294Sstas if(size > (size_t)(s->base + s->size - s->ptr)) 5955682Smarkm size = s->base + s->size - s->ptr; 6055682Smarkm memmove(s->ptr, data, size); 6155682Smarkm sp->seek(sp, size, SEEK_CUR); 6255682Smarkm return size; 6355682Smarkm} 6455682Smarkm 65178825Sdfrstatic ssize_t 66178825Sdfrmem_no_store(krb5_storage *sp, const void *data, size_t size) 67178825Sdfr{ 68178825Sdfr return -1; 69178825Sdfr} 70178825Sdfr 7155682Smarkmstatic off_t 7255682Smarkmmem_seek(krb5_storage *sp, off_t offset, int whence) 7355682Smarkm{ 7455682Smarkm mem_storage *s = (mem_storage*)sp->data; 7555682Smarkm switch(whence){ 7655682Smarkm case SEEK_SET: 77233294Sstas if((size_t)offset > s->size) 7855682Smarkm offset = s->size; 7955682Smarkm if(offset < 0) 8055682Smarkm offset = 0; 8155682Smarkm s->ptr = s->base + offset; 8255682Smarkm break; 8355682Smarkm case SEEK_CUR: 8455682Smarkm return sp->seek(sp, s->ptr - s->base + offset, SEEK_SET); 8555682Smarkm case SEEK_END: 8655682Smarkm return sp->seek(sp, s->size + offset, SEEK_SET); 8755682Smarkm default: 8855682Smarkm errno = EINVAL; 8955682Smarkm return -1; 9055682Smarkm } 9155682Smarkm return s->ptr - s->base; 9255682Smarkm} 9355682Smarkm 94233294Sstasstatic int 95233294Sstasmem_trunc(krb5_storage *sp, off_t offset) 96233294Sstas{ 97233294Sstas mem_storage *s = (mem_storage*)sp->data; 98233294Sstas if((size_t)offset > s->size) 99233294Sstas return ERANGE; 100233294Sstas s->size = offset; 101233294Sstas if ((s->ptr - s->base) > offset) 102233294Sstas s->ptr = s->base + offset; 103233294Sstas return 0; 104233294Sstas} 105233294Sstas 106233294Sstasstatic int 107233294Sstasmem_no_trunc(krb5_storage *sp, off_t offset) 108233294Sstas{ 109233294Sstas return EINVAL; 110233294Sstas} 111233294Sstas 112233294Sstas/** 113233294Sstas * Create a fixed size memory storage block 114233294Sstas * 115233294Sstas * @return A krb5_storage on success, or NULL on out of memory error. 116233294Sstas * 117233294Sstas * @ingroup krb5_storage 118233294Sstas * 119233294Sstas * @sa krb5_storage_mem() 120233294Sstas * @sa krb5_storage_from_readonly_mem() 121233294Sstas * @sa krb5_storage_from_data() 122233294Sstas * @sa krb5_storage_from_fd() 123233294Sstas */ 124233294Sstas 125233294SstasKRB5_LIB_FUNCTION krb5_storage * KRB5_LIB_CALL 12655682Smarkmkrb5_storage_from_mem(void *buf, size_t len) 12755682Smarkm{ 12855682Smarkm krb5_storage *sp = malloc(sizeof(krb5_storage)); 12955682Smarkm mem_storage *s; 13055682Smarkm if(sp == NULL) 13155682Smarkm return NULL; 13255682Smarkm s = malloc(sizeof(*s)); 13355682Smarkm if(s == NULL) { 13455682Smarkm free(sp); 13555682Smarkm return NULL; 13655682Smarkm } 13755682Smarkm sp->data = s; 13855682Smarkm sp->flags = 0; 139102644Snectar sp->eof_code = HEIM_ERR_EOF; 14055682Smarkm s->base = buf; 14155682Smarkm s->size = len; 14255682Smarkm s->ptr = buf; 14355682Smarkm sp->fetch = mem_fetch; 14455682Smarkm sp->store = mem_store; 14555682Smarkm sp->seek = mem_seek; 146233294Sstas sp->trunc = mem_trunc; 14755682Smarkm sp->free = NULL; 148233294Sstas sp->max_alloc = UINT_MAX/8; 14955682Smarkm return sp; 15055682Smarkm} 15155682Smarkm 152233294Sstas/** 153233294Sstas * Create a fixed size memory storage block 154233294Sstas * 155233294Sstas * @return A krb5_storage on success, or NULL on out of memory error. 156233294Sstas * 157233294Sstas * @ingroup krb5_storage 158233294Sstas * 159233294Sstas * @sa krb5_storage_mem() 160233294Sstas * @sa krb5_storage_from_mem() 161233294Sstas * @sa krb5_storage_from_readonly_mem() 162233294Sstas * @sa krb5_storage_from_fd() 163233294Sstas */ 164233294Sstas 165233294SstasKRB5_LIB_FUNCTION krb5_storage * KRB5_LIB_CALL 16655682Smarkmkrb5_storage_from_data(krb5_data *data) 16755682Smarkm{ 168178825Sdfr return krb5_storage_from_mem(data->data, data->length); 16955682Smarkm} 170178825Sdfr 171233294Sstas/** 172233294Sstas * Create a fixed size memory storage block that is read only 173233294Sstas * 174233294Sstas * @return A krb5_storage on success, or NULL on out of memory error. 175233294Sstas * 176233294Sstas * @ingroup krb5_storage 177233294Sstas * 178233294Sstas * @sa krb5_storage_mem() 179233294Sstas * @sa krb5_storage_from_mem() 180233294Sstas * @sa krb5_storage_from_data() 181233294Sstas * @sa krb5_storage_from_fd() 182233294Sstas */ 183233294Sstas 184233294SstasKRB5_LIB_FUNCTION krb5_storage * KRB5_LIB_CALL 185178825Sdfrkrb5_storage_from_readonly_mem(const void *buf, size_t len) 186178825Sdfr{ 187178825Sdfr krb5_storage *sp = malloc(sizeof(krb5_storage)); 188178825Sdfr mem_storage *s; 189178825Sdfr if(sp == NULL) 190178825Sdfr return NULL; 191178825Sdfr s = malloc(sizeof(*s)); 192178825Sdfr if(s == NULL) { 193178825Sdfr free(sp); 194178825Sdfr return NULL; 195178825Sdfr } 196178825Sdfr sp->data = s; 197178825Sdfr sp->flags = 0; 198178825Sdfr sp->eof_code = HEIM_ERR_EOF; 199178825Sdfr s->base = rk_UNCONST(buf); 200178825Sdfr s->size = len; 201178825Sdfr s->ptr = rk_UNCONST(buf); 202178825Sdfr sp->fetch = mem_fetch; 203178825Sdfr sp->store = mem_no_store; 204178825Sdfr sp->seek = mem_seek; 205233294Sstas sp->trunc = mem_no_trunc; 206178825Sdfr sp->free = NULL; 207233294Sstas sp->max_alloc = UINT_MAX/8; 208178825Sdfr return sp; 209178825Sdfr} 210