Remove "dummy" BIO create and destroy functions
[openssl.git] / crypto / bio / bio_cb.c
1 /*
2  * Copyright 1995-2017 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the OpenSSL license (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 #include <stdio.h>
11 #include <string.h>
12 #include <stdlib.h>
13 #include "bio_lcl.h"
14 #include "internal/cryptlib.h"
15 #include <openssl/err.h>
16
17 long BIO_debug_callback(BIO *bio, int cmd, const char *argp,
18                         int argi, long argl, long ret)
19 {
20     BIO *b;
21     char buf[256];
22     char *p;
23     long r = 1;
24     int len, left;
25
26     if (BIO_CB_RETURN & cmd)
27         r = ret;
28
29     len = BIO_snprintf(buf, sizeof(buf), "BIO[%p]: ", (void *)bio);
30
31     /* Ignore errors and continue printing the other information. */
32     if (len < 0)
33         len = 0;
34     p = buf + len;
35     left = sizeof(buf) - len;
36
37     switch (cmd) {
38     case BIO_CB_FREE:
39         BIO_snprintf(p, left, "Free - %s\n", bio->method->name);
40         break;
41     case BIO_CB_READ:
42         if (bio->method->type & BIO_TYPE_DESCRIPTOR)
43             BIO_snprintf(p, left, "read(%d,%lu) - %s fd=%d\n",
44                          bio->num, (unsigned long)argi,
45                          bio->method->name, bio->num);
46         else
47             BIO_snprintf(p, left, "read(%d,%lu) - %s\n",
48                     bio->num, (unsigned long)argi, bio->method->name);
49         break;
50     case BIO_CB_WRITE:
51         if (bio->method->type & BIO_TYPE_DESCRIPTOR)
52             BIO_snprintf(p, left, "write(%d,%lu) - %s fd=%d\n",
53                          bio->num, (unsigned long)argi,
54                          bio->method->name, bio->num);
55         else
56             BIO_snprintf(p, left, "write(%d,%lu) - %s\n",
57                          bio->num, (unsigned long)argi, bio->method->name);
58         break;
59     case BIO_CB_PUTS:
60         BIO_snprintf(p, left, "puts() - %s\n", bio->method->name);
61         break;
62     case BIO_CB_GETS:
63         BIO_snprintf(p, left, "gets(%lu) - %s\n", (unsigned long)argi,
64                      bio->method->name);
65         break;
66     case BIO_CB_CTRL:
67         BIO_snprintf(p, left, "ctrl(%lu) - %s\n", (unsigned long)argi,
68                      bio->method->name);
69         break;
70     case BIO_CB_RETURN | BIO_CB_READ:
71         BIO_snprintf(p, left, "read return %ld\n", ret);
72         break;
73     case BIO_CB_RETURN | BIO_CB_WRITE:
74         BIO_snprintf(p, left, "write return %ld\n", ret);
75         break;
76     case BIO_CB_RETURN | BIO_CB_GETS:
77         BIO_snprintf(p, left, "gets return %ld\n", ret);
78         break;
79     case BIO_CB_RETURN | BIO_CB_PUTS:
80         BIO_snprintf(p, left, "puts return %ld\n", ret);
81         break;
82     case BIO_CB_RETURN | BIO_CB_CTRL:
83         BIO_snprintf(p, left, "ctrl return %ld\n", ret);
84         break;
85     default:
86         BIO_snprintf(p, left, "bio callback - unknown type (%d)\n", cmd);
87         break;
88     }
89
90     b = (BIO *)bio->cb_arg;
91     if (b != NULL)
92         BIO_write(b, buf, strlen(buf));
93 #if !defined(OPENSSL_NO_STDIO)
94     else
95         fputs(buf, stderr);
96 #endif
97     return r;
98 }