1/* 2 * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved. 3 * 4 * The contents of this file constitute Original Code as defined in and are 5 * subject to the Apple Public Source License Version 1.2 (the 'License'). 6 * You may not use this file except in compliance with the License. Please obtain 7 * a copy of the License at http://www.apple.com/publicsource and read it before 8 * using this file. 9 * 10 * This Original Code and all software distributed under the License are 11 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS 12 * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT 13 * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR 14 * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the 15 * specific language governing rights and limitations under the License. 16 */ 17 18 19/* crypto/bio/bss_file.c */ 20/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 21 * All rights reserved. 22 * 23 * This package is an SSL implementation written 24 * by Eric Young (eay@cryptsoft.com). 25 * The implementation was written so as to conform with Netscapes SSL. 26 * 27 * This library is free for commercial and non-commercial use as long as 28 * the following conditions are aheared to. The following conditions 29 * apply to all code found in this distribution, be it the RC4, RSA, 30 * lhash, DES, etc., code; not just the SSL code. The SSL documentation 31 * included with this distribution is covered by the same copyright terms 32 * except that the holder is Tim Hudson (tjh@cryptsoft.com). 33 * 34 * Copyright remains Eric Young's, and as such any Copyright notices in 35 * the code are not to be removed. 36 * If this package is used in a product, Eric Young should be given attribution 37 * as the author of the parts of the library used. 38 * This can be in the form of a textual message at program startup or 39 * in documentation (online or textual) provided with the package. 40 * 41 * Redistribution and use in source and binary forms, with or without 42 * modification, are permitted provided that the following conditions 43 * are met: 44 * 1. Redistributions of source code must retain the copyright 45 * notice, this list of conditions and the following disclaimer. 46 * 2. Redistributions in binary form must reproduce the above copyright 47 * notice, this list of conditions and the following disclaimer in the 48 * documentation and/or other materials provided with the distribution. 49 * 3. All advertising materials mentioning features or use of this software 50 * must display the following acknowledgement: 51 * "This product includes cryptographic software written by 52 * Eric Young (eay@cryptsoft.com)" 53 * The word 'cryptographic' can be left out if the rouines from the library 54 * being used are not cryptographic related :-). 55 * 4. If you include any Windows specific code (or a derivative thereof) from 56 * the apps directory (application code) you must include an acknowledgement: 57 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 58 * 59 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 60 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 61 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 62 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 63 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 64 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 65 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 66 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 67 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 68 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 69 * SUCH DAMAGE. 70 * 71 * The licence and distribution terms for any publically available version or 72 * derivative of this code cannot be changed. i.e. this code cannot simply be 73 * copied and put under another distribution licence 74 * [including the GNU Public Licence.] 75 */ 76 77/* 78 * 03-Dec-1997 rdenny@dc3.com Fix bug preventing use of stdin/stdout 79 * with binary data (e.g. asn1parse -inform DER < xxx) under 80 * Windows 81 */ 82 83#ifndef HEADER_BSS_FILE_C 84#define HEADER_BSS_FILE_C 85 86#include <stdio.h> 87#include <errno.h> 88#include "cryptlib.h" 89#include <openssl/bio.h> 90#include <openssl/err.h> 91 92#if !defined(NO_STDIO) 93 94static int MS_CALLBACK file_write(BIO *h,char *buf,int num); 95static int MS_CALLBACK file_read(BIO *h,char *buf,int size); 96static int MS_CALLBACK file_puts(BIO *h,char *str); 97static int MS_CALLBACK file_gets(BIO *h,char *str,int size); 98static long MS_CALLBACK file_ctrl(BIO *h,int cmd,long arg1,char *arg2); 99static int MS_CALLBACK file_new(BIO *h); 100static int MS_CALLBACK file_free(BIO *data); 101static const BIO_METHOD methods_filep= 102 { 103 BIO_TYPE_FILE, 104 "FILE pointer", 105 file_write, 106 file_read, 107 file_puts, 108 file_gets, 109 file_ctrl, 110 file_new, 111 file_free, 112 NULL, 113 }; 114 115BIO *BIO_new_file(const char *filename, const char *mode) 116 { 117 BIO *ret; 118 FILE *file; 119 120 if ((file=fopen(filename,mode)) == NULL) 121 { 122 SYSerr(SYS_F_FOPEN,get_last_sys_error()); 123 ERR_add_error_data(5,"fopen('",filename,"','",mode,"')"); 124 BIOerr(BIO_F_BIO_NEW_FILE,ERR_R_SYS_LIB); 125 return(NULL); 126 } 127 if ((ret=BIO_new(BIO_s_file_internal())) == NULL) 128 return(NULL); 129 130 BIO_set_fp(ret,file,BIO_CLOSE); 131 return(ret); 132 } 133 134BIO *BIO_new_fp(FILE *stream, int close_flag) 135 { 136 BIO *ret; 137 138 if ((ret=BIO_new(BIO_s_file())) == NULL) 139 return(NULL); 140 141 BIO_set_fp(ret,stream,close_flag); 142 return(ret); 143 } 144 145const BIO_METHOD *BIO_s_file(void) 146 { 147 return(&methods_filep); 148 } 149 150static int MS_CALLBACK file_new(BIO *bi) 151 { 152 bi->init=0; 153 bi->num=0; 154 bi->ptr=NULL; 155 return(1); 156 } 157 158static int MS_CALLBACK file_free(BIO *a) 159 { 160 if (a == NULL) return(0); 161 if (a->shutdown) 162 { 163 if ((a->init) && (a->ptr != NULL)) 164 { 165 fclose((FILE *)a->ptr); 166 a->ptr=NULL; 167 } 168 a->init=0; 169 } 170 return(1); 171 } 172 173static int MS_CALLBACK file_read(BIO *b, char *out, int outl) 174 { 175 int ret=0; 176 177 if (b->init && (out != NULL)) 178 { 179 ret=(int)fread(out,1,outl,(FILE *)b->ptr); 180 } 181 return(ret); 182 } 183 184static int MS_CALLBACK file_write(BIO *b, char *in, int inl) 185 { 186 int ret=0; 187 188 if (b->init && (in != NULL)) 189 { 190 if (fwrite(in,(int)inl,1,(FILE *)b->ptr)) 191 ret=inl; 192 /* ret=fwrite(in,1,(int)inl,(FILE *)b->ptr); */ 193 /* according to Tim Hudson <tjh@cryptsoft.com>, the commented 194 * out version above can cause 'inl' write calls under 195 * some stupid stdio implementations (VMS) */ 196 } 197 return(ret); 198 } 199 200static long MS_CALLBACK file_ctrl(BIO *b, int cmd, long num, char *ptr) 201 { 202 long ret=1; 203 FILE *fp=(FILE *)b->ptr; 204 FILE **fpp; 205 char p[4]; 206 207 switch (cmd) 208 { 209 case BIO_C_FILE_SEEK: 210 case BIO_CTRL_RESET: 211 ret=(long)fseek(fp,num,0); 212 break; 213 case BIO_CTRL_EOF: 214 ret=(long)feof(fp); 215 break; 216 case BIO_C_FILE_TELL: 217 case BIO_CTRL_INFO: 218 ret=ftell(fp); 219 break; 220 case BIO_C_SET_FILE_PTR: 221 file_free(b); 222 b->shutdown=(int)num&BIO_CLOSE; 223 b->ptr=(char *)ptr; 224 b->init=1; 225#if defined(MSDOS) || defined(WINDOWS) 226 /* Set correct text/binary mode */ 227 if (num & BIO_FP_TEXT) 228 _setmode(fileno((FILE *)ptr),_O_TEXT); 229 else 230 _setmode(fileno((FILE *)ptr),_O_BINARY); 231#endif 232 break; 233 case BIO_C_SET_FILENAME: 234 file_free(b); 235 b->shutdown=(int)num&BIO_CLOSE; 236 if (num & BIO_FP_APPEND) 237 { 238 if (num & BIO_FP_READ) 239 strcpy(p,"a+"); 240 else strcpy(p,"a"); 241 } 242 else if ((num & BIO_FP_READ) && (num & BIO_FP_WRITE)) 243 strcpy(p,"r+"); 244 else if (num & BIO_FP_WRITE) 245 strcpy(p,"w"); 246 else if (num & BIO_FP_READ) 247 strcpy(p,"r"); 248 else 249 { 250 BIOerr(BIO_F_FILE_CTRL,BIO_R_BAD_FOPEN_MODE); 251 ret=0; 252 break; 253 } 254#if defined(MSDOS) || defined(WINDOWS) 255 if (!(num & BIO_FP_TEXT)) 256 strcat(p,"b"); 257 else 258 strcat(p,"t"); 259#endif 260 fp=fopen(ptr,p); 261 if (fp == NULL) 262 { 263 SYSerr(SYS_F_FOPEN,get_last_sys_error()); 264 ERR_add_error_data(5,"fopen('",ptr,"','",p,"')"); 265 BIOerr(BIO_F_FILE_CTRL,ERR_R_SYS_LIB); 266 ret=0; 267 break; 268 } 269 b->ptr=(char *)fp; 270 b->init=1; 271 break; 272 case BIO_C_GET_FILE_PTR: 273 /* the ptr parameter is actually a FILE ** in this case. */ 274 if (ptr != NULL) 275 { 276 fpp=(FILE **)ptr; 277 *fpp=(FILE *)b->ptr; 278 } 279 break; 280 case BIO_CTRL_GET_CLOSE: 281 ret=(long)b->shutdown; 282 break; 283 case BIO_CTRL_SET_CLOSE: 284 b->shutdown=(int)num; 285 break; 286 case BIO_CTRL_FLUSH: 287 fflush((FILE *)b->ptr); 288 break; 289 case BIO_CTRL_DUP: 290 ret=1; 291 break; 292 293 case BIO_CTRL_WPENDING: 294 case BIO_CTRL_PENDING: 295 case BIO_CTRL_PUSH: 296 case BIO_CTRL_POP: 297 default: 298 ret=0; 299 break; 300 } 301 return(ret); 302 } 303 304static int MS_CALLBACK file_gets(BIO *bp, char *buf, int size) 305 { 306 int ret=0; 307 308 buf[0]='\0'; 309 fgets(buf,size,(FILE *)bp->ptr); 310 if (buf[0] != '\0') 311 ret=(int)strlen(buf); 312 return(ret); 313 } 314 315static int MS_CALLBACK file_puts(BIO *bp, char *str) 316 { 317 int n,ret; 318 319 n=(int)strlen(str); 320 ret=file_write(bp,str,n); 321 return(ret); 322 } 323 324#endif /* NO_STDIO */ 325 326#endif /* HEADER_BSS_FILE_C */ 327 328 329