1/* 2 * Copyright 1995-2021 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#define OPENSSL_SUPPRESS_DEPRECATED 11 12#include <stdio.h> 13#include <string.h> 14#include <stdlib.h> 15#include "bio_local.h" 16#include "internal/cryptlib.h" 17#include <openssl/err.h> 18 19long BIO_debug_callback_ex(BIO *bio, int cmd, const char *argp, size_t len, 20 int argi, long argl, int ret, size_t *processed) 21{ 22 BIO *b; 23 char buf[256]; 24 char *p; 25 int left; 26 size_t l = 0; 27 28 if (processed != NULL) 29 l = *processed; 30 31 left = BIO_snprintf(buf, sizeof(buf), "BIO[%p]: ", (void *)bio); 32 33 /* Ignore errors and continue printing the other information. */ 34 if (left < 0) 35 left = 0; 36 p = buf + left; 37 left = sizeof(buf) - left; 38 39 switch (cmd) { 40 case BIO_CB_FREE: 41 BIO_snprintf(p, left, "Free - %s\n", bio->method->name); 42 break; 43 case BIO_CB_READ: 44 if (bio->method->type & BIO_TYPE_DESCRIPTOR) 45 BIO_snprintf(p, left, "read(%d,%zu) - %s fd=%d\n", 46 bio->num, len, 47 bio->method->name, bio->num); 48 else 49 BIO_snprintf(p, left, "read(%d,%zu) - %s\n", 50 bio->num, len, bio->method->name); 51 break; 52 case BIO_CB_WRITE: 53 if (bio->method->type & BIO_TYPE_DESCRIPTOR) 54 BIO_snprintf(p, left, "write(%d,%zu) - %s fd=%d\n", 55 bio->num, len, 56 bio->method->name, bio->num); 57 else 58 BIO_snprintf(p, left, "write(%d,%zu) - %s\n", 59 bio->num, len, bio->method->name); 60 break; 61 case BIO_CB_PUTS: 62 BIO_snprintf(p, left, "puts() - %s\n", bio->method->name); 63 break; 64 case BIO_CB_GETS: 65 BIO_snprintf(p, left, "gets(%zu) - %s\n", len, 66 bio->method->name); 67 break; 68 case BIO_CB_CTRL: 69 BIO_snprintf(p, left, "ctrl(%d) - %s\n", argi, 70 bio->method->name); 71 break; 72 case BIO_CB_RETURN | BIO_CB_READ: 73 BIO_snprintf(p, left, "read return %d processed: %zu\n", ret, l); 74 break; 75 case BIO_CB_RETURN | BIO_CB_WRITE: 76 BIO_snprintf(p, left, "write return %d processed: %zu\n", ret, l); 77 break; 78 case BIO_CB_RETURN | BIO_CB_GETS: 79 BIO_snprintf(p, left, "gets return %d processed: %zu\n", ret, l); 80 break; 81 case BIO_CB_RETURN | BIO_CB_PUTS: 82 BIO_snprintf(p, left, "puts return %d processed: %zu\n", ret, l); 83 break; 84 case BIO_CB_RETURN | BIO_CB_CTRL: 85 BIO_snprintf(p, left, "ctrl return %d\n", ret); 86 break; 87 default: 88 BIO_snprintf(p, left, "bio callback - unknown type (%d)\n", cmd); 89 break; 90 } 91 92 b = (BIO *)bio->cb_arg; 93 if (b != NULL) 94 BIO_write(b, buf, strlen(buf)); 95#if !defined(OPENSSL_NO_STDIO) 96 else 97 fputs(buf, stderr); 98#endif 99 return ret; 100} 101 102#ifndef OPENSSL_NO_DEPRECATED_3_0 103long BIO_debug_callback(BIO *bio, int cmd, const char *argp, 104 int argi, long argl, long ret) 105{ 106 size_t processed = 0; 107 108 if (ret > 0) 109 processed = (size_t)ret; 110 BIO_debug_callback_ex(bio, cmd, argp, (size_t)argi, 111 argi, argl, ret > 0 ? 1 : (int)ret, &processed); 112 return ret; 113} 114#endif 115