Prepare to detect index changes in OCSP responder.
[openssl.git] / crypto / rsa / rsa_prn.c
1 /*
2  * Copyright 2006-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 "internal/cryptlib.h"
12 #include <openssl/rsa.h>
13 #include <openssl/evp.h>
14
15 #ifndef OPENSSL_NO_STDIO
16 int RSA_print_fp(FILE *fp, const RSA *x, int off)
17 {
18     BIO *b;
19     int ret;
20
21     if ((b = BIO_new(BIO_s_file())) == NULL) {
22         RSAerr(RSA_F_RSA_PRINT_FP, ERR_R_BUF_LIB);
23         return 0;
24     }
25     BIO_set_fp(b, fp, BIO_NOCLOSE);
26     ret = RSA_print(b, x, off);
27     BIO_free(b);
28     return ret;
29 }
30 #endif
31
32 int RSA_print(BIO *bp, const RSA *x, int off)
33 {
34     EVP_PKEY *pk;
35     int ret;
36     pk = EVP_PKEY_new();
37     if (pk == NULL || !EVP_PKEY_set1_RSA(pk, (RSA *)x))
38         return 0;
39     ret = EVP_PKEY_print_private(bp, pk, off, NULL);
40     EVP_PKEY_free(pk);
41     return ret;
42 }