[apple/security.git] / libsecurity_apple_csp / open_ssl / bio / bss_file.c

/*
 * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved.
 * 
 * The contents of this file constitute Original Code as defined in and are
 * subject to the Apple Public Source License Version 1.2 (the 'License').
 * You may not use this file except in compliance with the License. Please obtain
 * a copy of the License at http://www.apple.com/publicsource and read it before
 * using this file.
 * 
 * This Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS
 * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT
 * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
 * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the
 * specific language governing rights and limitations under the License.
 */


/* crypto/bio/bss_file.c */
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
 * All rights reserved.
 *
 * This package is an SSL implementation written
 * by Eric Young (eay@cryptsoft.com).
 * The implementation was written so as to conform with Netscapes SSL.
 * 
 * This library is free for commercial and non-commercial use as long as
 * the following conditions are aheared to.  The following conditions
 * apply to all code found in this distribution, be it the RC4, RSA,
 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
 * included with this distribution is covered by the same copyright terms
 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
 * 
 * Copyright remains Eric Young's, and as such any Copyright notices in
 * the code are not to be removed.
 * If this package is used in a product, Eric Young should be given attribution
 * as the author of the parts of the library used.
 * This can be in the form of a textual message at program startup or
 * in documentation (online or textual) provided with the package.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *    "This product includes cryptographic software written by
 *     Eric Young (eay@cryptsoft.com)"
 *    The word 'cryptographic' can be left out if the rouines from the library
 *    being used are not cryptographic related :-).
 * 4. If you include any Windows specific code (or a derivative thereof) from 
 *    the apps directory (application code) you must include an acknowledgement:
 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
 * 
 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * 
 * The licence and distribution terms for any publically available version or
 * derivative of this code cannot be changed.  i.e. this code cannot simply be
 * copied and put under another distribution licence
 * [including the GNU Public Licence.]
 */

/*
 * 03-Dec-1997	rdenny@dc3.com  Fix bug preventing use of stdin/stdout
 *		with binary data (e.g. asn1parse -inform DER < xxx) under
 *		Windows
 */

#ifndef HEADER_BSS_FILE_C
#define HEADER_BSS_FILE_C

#include <stdio.h>
#include <errno.h>
#include "cryptlib.h"
#include <openssl/bio.h>
#include <openssl/err.h>

#if !defined(NO_STDIO)

static int MS_CALLBACK file_write(BIO *h,char *buf,int num);
static int MS_CALLBACK file_read(BIO *h,char *buf,int size);
static int MS_CALLBACK file_puts(BIO *h,char *str);
static int MS_CALLBACK file_gets(BIO *h,char *str,int size);
static long MS_CALLBACK file_ctrl(BIO *h,int cmd,long arg1,char *arg2);
static int MS_CALLBACK file_new(BIO *h);
static int MS_CALLBACK file_free(BIO *data);
static const BIO_METHOD methods_filep=
	{
	BIO_TYPE_FILE,
	"FILE pointer",
	file_write,
	file_read,
	file_puts,
	file_gets,
	file_ctrl,
	file_new,
	file_free,
	NULL,
	};

BIO *BIO_new_file(const char *filename, const char *mode)
	{
	BIO *ret;
	FILE *file;

	if ((file=fopen(filename,mode)) == NULL)
		{
		SYSerr(SYS_F_FOPEN,get_last_sys_error());
		ERR_add_error_data(5,"fopen('",filename,"','",mode,"')");
		BIOerr(BIO_F_BIO_NEW_FILE,ERR_R_SYS_LIB);
		return(NULL);
		}
	if ((ret=BIO_new(BIO_s_file_internal())) == NULL)
		return(NULL);

	BIO_set_fp(ret,file,BIO_CLOSE);
	return(ret);
	}

BIO *BIO_new_fp(FILE *stream, int close_flag)
	{
	BIO *ret;

	if ((ret=BIO_new(BIO_s_file())) == NULL)
		return(NULL);

	BIO_set_fp(ret,stream,close_flag);
	return(ret);
	}

const BIO_METHOD *BIO_s_file(void)
	{
	return(&methods_filep);
	}

static int MS_CALLBACK file_new(BIO *bi)
	{
	bi->init=0;
	bi->num=0;
	bi->ptr=NULL;
	return(1);
	}

static int MS_CALLBACK file_free(BIO *a)
	{
	if (a == NULL) return(0);
	if (a->shutdown)
		{
		if ((a->init) && (a->ptr != NULL))
			{
			fclose((FILE *)a->ptr);
			a->ptr=NULL;
			}
		a->init=0;
		}
	return(1);
	}
	
static int MS_CALLBACK file_read(BIO *b, char *out, int outl)
	{
	int ret=0;

	if (b->init && (out != NULL))
		{
		ret=(int)fread(out,1,outl,(FILE *)b->ptr);
		}
	return(ret);
	}

static int MS_CALLBACK file_write(BIO *b, char *in, int inl)
	{
	int ret=0;

	if (b->init && (in != NULL))
		{
		if (fwrite(in,(int)inl,1,(FILE *)b->ptr))
			ret=inl;
		/* ret=fwrite(in,1,(int)inl,(FILE *)b->ptr); */
		/* according to Tim Hudson <tjh@cryptsoft.com>, the commented
		 * out version above can cause 'inl' write calls under
		 * some stupid stdio implementations (VMS) */
		}
	return(ret);
	}

static long MS_CALLBACK file_ctrl(BIO *b, int cmd, long num, char *ptr)
	{
	long ret=1;
	FILE *fp=(FILE *)b->ptr;
	FILE **fpp;
	char p[4];

	switch (cmd)
		{
	case BIO_C_FILE_SEEK:
	case BIO_CTRL_RESET:
		ret=(long)fseek(fp,num,0);
		break;
	case BIO_CTRL_EOF:
		ret=(long)feof(fp);
		break;
	case BIO_C_FILE_TELL:
	case BIO_CTRL_INFO:
		ret=ftell(fp);
		break;
	case BIO_C_SET_FILE_PTR:
		file_free(b);
		b->shutdown=(int)num&BIO_CLOSE;
		b->ptr=(char *)ptr;
		b->init=1;
#if defined(MSDOS) || defined(WINDOWS)
		/* Set correct text/binary mode */
		if (num & BIO_FP_TEXT)
			_setmode(fileno((FILE *)ptr),_O_TEXT);
		else
			_setmode(fileno((FILE *)ptr),_O_BINARY);
#endif
		break;
	case BIO_C_SET_FILENAME:
		file_free(b);
		b->shutdown=(int)num&BIO_CLOSE;
		if (num & BIO_FP_APPEND)
			{
			if (num & BIO_FP_READ)
				strcpy(p,"a+");
			else	strcpy(p,"a");
			}
		else if ((num & BIO_FP_READ) && (num & BIO_FP_WRITE))
			strcpy(p,"r+");
		else if (num & BIO_FP_WRITE)
			strcpy(p,"w");
		else if (num & BIO_FP_READ)
			strcpy(p,"r");
		else
			{
			BIOerr(BIO_F_FILE_CTRL,BIO_R_BAD_FOPEN_MODE);
			ret=0;
			break;
			}
#if defined(MSDOS) || defined(WINDOWS)
		if (!(num & BIO_FP_TEXT))
			strcat(p,"b");
		else
			strcat(p,"t");
#endif
		fp=fopen(ptr,p);
		if (fp == NULL)
			{
			SYSerr(SYS_F_FOPEN,get_last_sys_error());
			ERR_add_error_data(5,"fopen('",ptr,"','",p,"')");
			BIOerr(BIO_F_FILE_CTRL,ERR_R_SYS_LIB);
			ret=0;
			break;
			}
		b->ptr=(char *)fp;
		b->init=1;
		break;
	case BIO_C_GET_FILE_PTR:
		/* the ptr parameter is actually a FILE ** in this case. */
		if (ptr != NULL)
			{
			fpp=(FILE **)ptr;
			*fpp=(FILE *)b->ptr;
			}
		break;
	case BIO_CTRL_GET_CLOSE:
		ret=(long)b->shutdown;
		break;
	case BIO_CTRL_SET_CLOSE:
		b->shutdown=(int)num;
		break;
	case BIO_CTRL_FLUSH:
		fflush((FILE *)b->ptr);
		break;
	case BIO_CTRL_DUP:
		ret=1;
		break;

	case BIO_CTRL_WPENDING:
	case BIO_CTRL_PENDING:
	case BIO_CTRL_PUSH:
	case BIO_CTRL_POP:
	default:
		ret=0;
		break;
		}
	return(ret);
	}

static int MS_CALLBACK file_gets(BIO *bp, char *buf, int size)
	{
	int ret=0;

	buf[0]='\0';
	fgets(buf,size,(FILE *)bp->ptr);
	if (buf[0] != '\0')
		ret=(int)strlen(buf);
	return(ret);
	}

static int MS_CALLBACK file_puts(BIO *bp, char *str)
	{
	int n,ret;

	n=(int)strlen(str);
	ret=file_write(bp,str,n);
	return(ret);
	}

#endif /* NO_STDIO */

#endif /* HEADER_BSS_FILE_C */
Commit	Line	Data
b1ab9ed8 A	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
94	static int MS_CALLBACK file_write(BIO h,char buf,int num);
95	static int MS_CALLBACK file_read(BIO h,char buf,int size);
96	static int MS_CALLBACK file_puts(BIO h,char str);
97	static int MS_CALLBACK file_gets(BIO h,char str,int size);
98	static long MS_CALLBACK file_ctrl(BIO h,int cmd,long arg1,char arg2);
99	static int MS_CALLBACK file_new(BIO *h);
100	static int MS_CALLBACK file_free(BIO *data);
101	static 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
115	BIO 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
134	BIO 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
145	const BIO_METHOD *BIO_s_file(void)
146	{
147	return(&methods_filep);
148	}
149
150	static 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
158	static 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
173	static int MS_CALLBACK file_read(BIO b, char out, int outl)
174	{
175	int ret=0;
176
177	if (b->init && (out != NULL))
178	{
427c49bc	179	ret=(int)fread(out,1,outl,(FILE *)b->ptr);
b1ab9ed8 A	180	}
	181	return(ret);
	182	}
	183
	184	static 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
	200	static 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
304	static 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')
427c49bc	311	ret=(int)strlen(buf);
b1ab9ed8 A	312	return(ret);
	313	}
	314
	315	static int MS_CALLBACK file_puts(BIO bp, char str)
	316	{
	317	int n,ret;
	318
427c49bc	319	n=(int)strlen(str);
b1ab9ed8 A	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