1 | /* |
2 | * Copyright 1995-2019 The OpenSSL Project Authors. All Rights Reserved. |
3 | * |
4 | * Licensed under the Apache License 2.0 (the "License"). You may not use |
5 | * this file except in compliance with the License. You can obtain a copy |
6 | * in the file LICENSE in the source distribution or at |
7 | * https://www.openssl.org/source/license.html |
8 | */ |
9 | |
10 | /* TODO: When ERR_STATE becomes opaque, this musts be removed */ |
11 | #define OSSL_FORCE_ERR_STATE |
12 | |
13 | #include <stdio.h> |
14 | #include "internal/cryptlib.h" |
15 | #include <openssl/crypto.h> |
16 | #include <openssl/buffer.h> |
17 | #include <openssl/err.h> |
18 | #include "err_local.h" |
19 | |
20 | void ERR_print_errors_cb(int (*cb) (const char *str, size_t len, void *u), |
21 | void *u) |
22 | { |
23 | CRYPTO_THREAD_ID tid = CRYPTO_THREAD_get_current_id(); |
24 | unsigned long l; |
25 | char buf[4096], *hex; |
26 | const char *lib, *reason; |
27 | const char *file, *data, *func; |
28 | int line, flags; |
29 | |
30 | while ((l = ERR_get_error_all(&file, &line, &func, &data, &flags)) != 0) { |
31 | lib = ERR_lib_error_string(l); |
32 | reason = ERR_reason_error_string(l); |
33 | if (func == NULL) |
34 | func = "unknown function" ; |
35 | if ((flags & ERR_TXT_STRING) == 0) |
36 | data = "" ; |
37 | hex = OPENSSL_buf2hexstr((const unsigned char *)&tid, sizeof(tid)); |
38 | BIO_snprintf(buf, sizeof(buf), "%s:error:%s:%s:%s:%s:%d:%s\n" , |
39 | hex == NULL ? "<null>" : hex, lib, func, reason, file, |
40 | line, data); |
41 | OPENSSL_free(hex); |
42 | if (cb(buf, strlen(buf), u) <= 0) |
43 | break; /* abort outputting the error report */ |
44 | } |
45 | } |
46 | |
47 | static int print_bio(const char *str, size_t len, void *bp) |
48 | { |
49 | return BIO_write((BIO *)bp, str, len); |
50 | } |
51 | |
52 | void ERR_print_errors(BIO *bp) |
53 | { |
54 | ERR_print_errors_cb(print_bio, bp); |
55 | } |
56 | |
57 | #ifndef OPENSSL_NO_STDIO |
58 | void ERR_print_errors_fp(FILE *fp) |
59 | { |
60 | BIO *bio = BIO_new_fp(fp, BIO_NOCLOSE); |
61 | if (bio == NULL) |
62 | return; |
63 | |
64 | ERR_print_errors_cb(print_bio, bio); |
65 | BIO_free(bio); |
66 | } |
67 | #endif |
68 | |