[thirdparty/openssl.git] / crypto / bio / bf_nbio.c

/* crypto/bio/bf_nbio.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.]
 */

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

/* BIO_put and BIO_get both add to the digest,
 * BIO_gets returns the digest */

static int nbiof_write(BIO *h,char *buf,int num);
static int nbiof_read(BIO *h,char *buf,int size);
static int nbiof_puts(BIO *h,char *str);
static int nbiof_gets(BIO *h,char *str,int size);
static long nbiof_ctrl(BIO *h,int cmd,long arg1,char *arg2);
static int nbiof_new(BIO *h);
static int nbiof_free(BIO *data);
typedef struct nbio_test_st
	{
	/* only set if we sent a 'should retry' error */
	int lrn;
	int lwn;
	} NBIO_TEST;

static BIO_METHOD methods_nbiof=
	{
	BIO_TYPE_NBIO_TEST,
	"non-blocking IO test filter",
	nbiof_write,
	nbiof_read,
	nbiof_puts,
	nbiof_gets,
	nbiof_ctrl,
	nbiof_new,
	nbiof_free,
	};

BIO_METHOD *BIO_f_nbio_test(void)
	{
	return(&methods_nbiof);
	}

static int nbiof_new(BIO *bi)
	{
	NBIO_TEST *nt;

	nt=(NBIO_TEST *)Malloc(sizeof(NBIO_TEST));
	nt->lrn= -1;
	nt->lwn= -1;
	bi->ptr=(char *)nt;
	bi->init=1;
	bi->flags=0;
	return(1);
	}

static int nbiof_free(BIO *a)
	{
	if (a == NULL) return(0);
	if (a->ptr != NULL)
		Free(a->ptr);
	a->ptr=NULL;
	a->init=0;
	a->flags=0;
	return(1);
	}
	
static int nbiof_read(BIO *b, char *out, int outl)
	{
	NBIO_TEST *nt;
	int ret=0;
#if 0
	int num;
	unsigned char n;
#endif

	if (out == NULL) return(0);
	if (b->next_bio == NULL) return(0);
	nt=(NBIO_TEST *)b->ptr;

	BIO_clear_retry_flags(b);
#if 0
	RAND_pseudo_bytes(&n,1);
	num=(n&0x07);

	if (outl > num) outl=num;

	if (num == 0)
		{
		ret= -1;
		BIO_set_retry_read(b);
		}
	else
#endif
		{
		ret=BIO_read(b->next_bio,out,outl);
		if (ret < 0)
			BIO_copy_next_retry(b);
		}
	return(ret);
	}

static int nbiof_write(BIO *b, char *in, int inl)
	{
	NBIO_TEST *nt;
	int ret=0;
	int num;
	unsigned char n;

	if ((in == NULL) || (inl <= 0)) return(0);
	if (b->next_bio == NULL) return(0);
	nt=(NBIO_TEST *)b->ptr;

	BIO_clear_retry_flags(b);

#if 1
	if (nt->lwn > 0)
		{
		num=nt->lwn;
		nt->lwn=0;
		}
	else
		{
		RAND_pseudo_bytes(&n,1);
		num=(n&7);
		}

	if (inl > num) inl=num;

	if (num == 0)
		{
		ret= -1;
		BIO_set_retry_write(b);
		}
	else
#endif
		{
		ret=BIO_write(b->next_bio,in,inl);
		if (ret < 0)
			{
			BIO_copy_next_retry(b);
			nt->lwn=inl;
			}
		}
	return(ret);
	}

static long nbiof_ctrl(BIO *b, int cmd, long num, char *ptr)
	{
	long ret;

	if (b->next_bio == NULL) return(0);
	switch (cmd)
		{
        case BIO_C_DO_STATE_MACHINE:
		BIO_clear_retry_flags(b);
		ret=BIO_ctrl(b->next_bio,cmd,num,ptr);
		BIO_copy_next_retry(b);
		break;
	case BIO_CTRL_DUP:
		ret=0L;
		break;
	default:
		ret=BIO_ctrl(b->next_bio,cmd,num,ptr);
		break;
		}
	return(ret);
	}

static int nbiof_gets(BIO *bp, char *buf, int size)
	{
	if (bp->next_bio == NULL) return(0);
	return(BIO_gets(bp->next_bio,buf,size));
	}


static int nbiof_puts(BIO *bp, char *str)
	{
	if (bp->next_bio == NULL) return(0);
	return(BIO_puts(bp->next_bio,str));
	}
Commit	Line	Data
d02b48c6	1	/* crypto/bio/bf_nbio.c */
58964a49	2	/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
d02b48c6 RE	3	* All rights reserved.
	4	*
	5	* This package is an SSL implementation written
	6	* by Eric Young (eay@cryptsoft.com).
	7	* The implementation was written so as to conform with Netscapes SSL.
	8	*
	9	* This library is free for commercial and non-commercial use as long as
	10	* the following conditions are aheared to. The following conditions
	11	* apply to all code found in this distribution, be it the RC4, RSA,
	12	* lhash, DES, etc., code; not just the SSL code. The SSL documentation
	13	* included with this distribution is covered by the same copyright terms
	14	* except that the holder is Tim Hudson (tjh@cryptsoft.com).
	15	*
	16	* Copyright remains Eric Young's, and as such any Copyright notices in
	17	* the code are not to be removed.
	18	* If this package is used in a product, Eric Young should be given attribution
	19	* as the author of the parts of the library used.
	20	* This can be in the form of a textual message at program startup or
	21	* in documentation (online or textual) provided with the package.
	22	*
	23	* Redistribution and use in source and binary forms, with or without
	24	* modification, are permitted provided that the following conditions
	25	* are met:
	26	* 1. Redistributions of source code must retain the copyright
	27	* notice, this list of conditions and the following disclaimer.
	28	* 2. Redistributions in binary form must reproduce the above copyright
	29	* notice, this list of conditions and the following disclaimer in the
	30	* documentation and/or other materials provided with the distribution.
	31	* 3. All advertising materials mentioning features or use of this software
	32	* must display the following acknowledgement:
	33	* "This product includes cryptographic software written by
	34	* Eric Young (eay@cryptsoft.com)"
	35	* The word 'cryptographic' can be left out if the rouines from the library
	36	* being used are not cryptographic related :-).
	37	* 4. If you include any Windows specific code (or a derivative thereof) from
	38	* the apps directory (application code) you must include an acknowledgement:
	39	* "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
	40	*
	41	* THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
	42	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	43	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	44	* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
	45	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	46	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	47	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	48	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	49	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	50	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	51	* SUCH DAMAGE.
	52	*
	53	* The licence and distribution terms for any publically available version or
	54	* derivative of this code cannot be changed. i.e. this code cannot simply be
	55	* copied and put under another distribution licence
	56	* [including the GNU Public Licence.]
	57	*/
	58
	59	#include <stdio.h>
	60	#include <errno.h>
	61	#include "cryptlib.h"
ec577822 BM	62	#include <openssl/rand.h>
	63	#include <openssl/bio.h>
	64	#include <openssl/evp.h>
d02b48c6 RE	65
	66	/* BIO_put and BIO_get both add to the digest,
	67	* BIO_gets returns the digest */
	68
d02b48c6 RE	69	static int nbiof_write(BIO h,char buf,int num);
	70	static int nbiof_read(BIO h,char buf,int size);
	71	static int nbiof_puts(BIO h,char str);
	72	static int nbiof_gets(BIO h,char str,int size);
	73	static long nbiof_ctrl(BIO h,int cmd,long arg1,char arg2);
	74	static int nbiof_new(BIO *h);
	75	static int nbiof_free(BIO *data);
d02b48c6 RE	76	typedef struct nbio_test_st
	77	{
	78	/* only set if we sent a 'should retry' error */
	79	int lrn;
	80	int lwn;
	81	} NBIO_TEST;
	82
	83	static BIO_METHOD methods_nbiof=
	84	{
58964a49 RE	85	BIO_TYPE_NBIO_TEST,
58964a49 RE	86	"non-blocking IO test filter",
d02b48c6 RE	87	nbiof_write,
	88	nbiof_read,
	89	nbiof_puts,
	90	nbiof_gets,
	91	nbiof_ctrl,
	92	nbiof_new,
	93	nbiof_free,
	94	};
	95
6b691a5c	96	BIO_METHOD *BIO_f_nbio_test(void)
d02b48c6 RE	97	{
	98	return(&methods_nbiof);
	99	}
	100
6b691a5c	101	static int nbiof_new(BIO *bi)
d02b48c6 RE	102	{
	103	NBIO_TEST *nt;
	104
	105	nt=(NBIO_TEST *)Malloc(sizeof(NBIO_TEST));
	106	nt->lrn= -1;
	107	nt->lwn= -1;
	108	bi->ptr=(char *)nt;
	109	bi->init=1;
	110	bi->flags=0;
	111	return(1);
	112	}
	113
6b691a5c	114	static int nbiof_free(BIO *a)
d02b48c6 RE	115	{
	116	if (a == NULL) return(0);
	117	if (a->ptr != NULL)
	118	Free(a->ptr);
	119	a->ptr=NULL;
	120	a->init=0;
	121	a->flags=0;
	122	return(1);
	123	}
	124
6b691a5c	125	static int nbiof_read(BIO b, char out, int outl)
d02b48c6 RE	126	{
	127	NBIO_TEST *nt;
	128	int ret=0;
	129	#if 0
	130	int num;
	131	unsigned char n;
	132	#endif
	133
	134	if (out == NULL) return(0);
	135	if (b->next_bio == NULL) return(0);
	136	nt=(NBIO_TEST *)b->ptr;
	137
	138	BIO_clear_retry_flags(b);
	139	#if 0
e7f97e2d	140	RAND_pseudo_bytes(&n,1);
d02b48c6 RE	141	num=(n&0x07);
	142
	143	if (outl > num) outl=num;
	144
	145	if (num == 0)
	146	{
	147	ret= -1;
	148	BIO_set_retry_read(b);
	149	}
	150	else
	151	#endif
	152	{
	153	ret=BIO_read(b->next_bio,out,outl);
	154	if (ret < 0)
	155	BIO_copy_next_retry(b);
	156	}
	157	return(ret);
	158	}
	159
6b691a5c	160	static int nbiof_write(BIO b, char in, int inl)
d02b48c6 RE	161	{
	162	NBIO_TEST *nt;
	163	int ret=0;
	164	int num;
	165	unsigned char n;
	166
	167	if ((in == NULL) \|\| (inl <= 0)) return(0);
	168	if (b->next_bio == NULL) return(0);
	169	nt=(NBIO_TEST *)b->ptr;
	170
	171	BIO_clear_retry_flags(b);
	172
	173	#if 1
	174	if (nt->lwn > 0)
	175	{
	176	num=nt->lwn;
	177	nt->lwn=0;
	178	}
	179	else
	180	{
e7f97e2d	181	RAND_pseudo_bytes(&n,1);
d02b48c6 RE	182	num=(n&7);
	183	}
	184
	185	if (inl > num) inl=num;
	186
	187	if (num == 0)
	188	{
	189	ret= -1;
	190	BIO_set_retry_write(b);
	191	}
	192	else
	193	#endif
	194	{
	195	ret=BIO_write(b->next_bio,in,inl);
	196	if (ret < 0)
	197	{
	198	BIO_copy_next_retry(b);
	199	nt->lwn=inl;
	200	}
	201	}
	202	return(ret);
	203	}
	204
6b691a5c	205	static long nbiof_ctrl(BIO b, int cmd, long num, char ptr)
d02b48c6 RE	206	{
	207	long ret;
	208
	209	if (b->next_bio == NULL) return(0);
	210	switch (cmd)
	211	{
	212	case BIO_C_DO_STATE_MACHINE:
	213	BIO_clear_retry_flags(b);
	214	ret=BIO_ctrl(b->next_bio,cmd,num,ptr);
	215	BIO_copy_next_retry(b);
	216	break;
	217	case BIO_CTRL_DUP:
58964a49	218	ret=0L;
d02b48c6 RE	219	break;
	220	default:
	221	ret=BIO_ctrl(b->next_bio,cmd,num,ptr);
	222	break;
	223	}
	224	return(ret);
	225	}
	226
6b691a5c	227	static int nbiof_gets(BIO bp, char buf, int size)
d02b48c6 RE	228	{
	229	if (bp->next_bio == NULL) return(0);
	230	return(BIO_gets(bp->next_bio,buf,size));
	231	}
	232
	233
6b691a5c	234	static int nbiof_puts(BIO bp, char str)
d02b48c6 RE	235	{
	236	if (bp->next_bio == NULL) return(0);
	237	return(BIO_puts(bp->next_bio,str));
	238	}
	239
	240