text: /*
   * Copyright 2006-2020 The OpenSSL Project Authors. All Rights Reserved.
   *
   * Licensed under the Apache License 2.0 (the "License").  You may not use
   * this file except in compliance with the License.  You can obtain a copy
   * in the file LICENSE in the source distribution or at
   * https://www.openssl.org/source/license.html
   */
  
  /*
   * RSA low level APIs are deprecated for public use, but still ok for
   * internal use.
   */
  #include "internal/deprecated.h"
  
  #include <stdio.h>
  #include "internal/cryptlib.h"
  #include <openssl/rsa.h>
  #include <openssl/evp.h>
  
  #ifndef OPENSSL_NO_STDIO
  int RSA_print_fp(FILE *fp, const RSA *x, int off)
  {
      BIO *b;
      int ret;
  
      if ((b = BIO_new(BIO_s_file())) == NULL) {
          ERR_raise(ERR_LIB_RSA, ERR_R_BUF_LIB);
          return 0;
      }
      BIO_set_fp(b, fp, BIO_NOCLOSE);
      ret = RSA_print(b, x, off);
      BIO_free(b);
      return ret;
  }
  #endif
  
  int RSA_print(BIO *bp, const RSA *x, int off)
  {
      EVP_PKEY *pk;
      int ret;
      pk = EVP_PKEY_new();
      if (pk == NULL)
          return 0;
      ret = EVP_PKEY_set1_RSA(pk, (RSA *)x);
      if (ret)
          ret = EVP_PKEY_print_private(bp, pk, off, NULL);
      EVP_PKEY_free(pk);
      return ret;
  }
  