From 8ada6e7705685be0d97987d31f23e6cf543ef544 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Sat, 23 Jun 2001 15:06:17 +0000
Subject: [PATCH] New error printing function that gives the possibility to
 print the errors through an arbitrary function.

---
 crypto/err/err.h     |  2 ++
 crypto/err/err_prn.c | 58 +++++++++++++++++++++++---------------------
 2 files changed, 33 insertions(+), 27 deletions(-)

diff --git a/crypto/err/err.h b/crypto/err/err.h
index 1de4620632..0fb8e02650 100644
--- a/crypto/err/err.h
+++ b/crypto/err/err.h
@@ -249,6 +249,8 @@ void ERR_error_string_n(unsigned long e, char *buf, size_t len);
 const char *ERR_lib_error_string(unsigned long e);
 const char *ERR_func_error_string(unsigned long e);
 const char *ERR_reason_error_string(unsigned long e);
+void ERR_print_errors_cb(int (*cb)(const char *str, size_t len, void *u),
+			 void *u);
 #ifndef OPENSSL_NO_FP_API
 void ERR_print_errors_fp(FILE *fp);
 #endif
diff --git a/crypto/err/err_prn.c b/crypto/err/err_prn.c
index 19aaa2891f..b5895a4c6f 100644
--- a/crypto/err/err_prn.c
+++ b/crypto/err/err_prn.c
@@ -64,30 +64,12 @@
 #include <openssl/err.h>
 #include <openssl/crypto.h>
 
-#ifndef OPENSSL_NO_FP_API
-void ERR_print_errors_fp(FILE *fp)
-	{
-	unsigned long l;
-	char buf[200];
-	const char *file,*data;
-	int line,flags;
-	unsigned long es;
-
-	es=CRYPTO_thread_id();
-	while ((l=ERR_get_error_line_data(&file,&line,&data,&flags)) != 0)
-		{
-		ERR_error_string_n(l, buf, sizeof buf);
-		fprintf(fp,"%lu:%s:%s:%d:%s\n",es,buf,
-			file,line,(flags&ERR_TXT_STRING)?data:"");
-		}
-	}
-#endif
-
-void ERR_print_errors(BIO *bp)
+void ERR_print_errors_cb(int (*cb)(const char *str, size_t len, void *u),
+			 void *u)
 	{
 	unsigned long l;
 	char buf[256];
-	char buf2[256];
+	char buf2[4096];
 	const char *file,*data;
 	int line,flags;
 	unsigned long es;
@@ -96,12 +78,34 @@ void ERR_print_errors(BIO *bp)
 	while ((l=ERR_get_error_line_data(&file,&line,&data,&flags)) != 0)
 		{
 		ERR_error_string_n(l, buf, sizeof buf);
-		sprintf(buf2,"%lu:%s:%s:%d:",es,buf,
-			file,line);
-		BIO_write(bp,buf2,strlen(buf2));
-		if (flags & ERR_TXT_STRING)
-			BIO_write(bp,data,strlen(data));
-		BIO_write(bp,"\n",1);
+		BIO_snprintf(buf2, sizeof(buf2), "%lu:%s:%s:%d:%s\n", es, buf,
+			file, line, (flags & ERR_TXT_STRING) ? data : "");
+		cb(buf2, strlen(buf2), u);
 		}
 	}
 
+#ifndef OPENSSL_NO_FP_API
+static int print_fp(const char *str, size_t len, FILE *fp)
+	{
+	return fprintf(fp, "%s", str);
+	}
+void ERR_print_errors_fp(FILE *fp)
+	{
+	ERR_print_errors_cb(
+		(int (*)(const char *, size_t, void *))print_fp,
+		(void *)fp);
+	}
+#endif
+
+static int print_bio(const char *str, size_t len, BIO *bp)
+	{
+	return BIO_write(bp, str, len);
+	}
+void ERR_print_errors(BIO *bp)
+	{
+	ERR_print_errors_cb(
+		(int (*)(const char *, size_t, void *))print_bio,
+		(void *)bp);
+	}
+
+