#include <stdio.h>
#include <stdlib.h>
#include <pthread.h>
#include <openssl/err.h>
#include <openssl/evp.h>
#include <openssl/rsa.h>
#include <openssl/bn.h>
#include <openssl/provider.h>
#include <string.h>

#define OSSLPATH "/path/to/openssl"

OSSL_LIB_CTX *libctx;

void do_digest();
void *gen_rsa_keypair(void *arg);

int
main(int argc, char **argv)
{
    pthread_t t;
    int ret;

    libctx = OSSL_LIB_CTX_new();
    if (libctx == NULL) {
        fputs("ERROR: OSSL_LIB_CTX_new()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    OSSL_PROVIDER_set_default_search_path(libctx, OSSLPATH "/lib/ossl-modules");
    if (!OSSL_LIB_CTX_load_config(libctx, OSSLPATH "/openssl.cnf")) {
        fputs("ERROR: OSSL_LIB_CTX_load_config()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    fprintf(stdout, "Version: %s\n", OpenSSL_version(OPENSSL_VERSION));

    do_digest();

    puts("starting thread");
    if ((ret = pthread_create(&t, NULL, gen_rsa_keypair, NULL)) != 0) {
        fprintf(stderr, "ERROR: pthread_create() ret=%d\n", ret);
        goto err;
    }

    puts("joining thread");
    if ((ret = pthread_join(t, NULL)) != 0) {
        fprintf(stderr, "ERROR: pthread_join() ret=%d\n", ret);
        goto err;
    }
    puts("done");

err:
    OSSL_LIB_CTX_free(libctx);
    libctx = NULL;
    OPENSSL_cleanup();
    return 0;
}

void
do_digest()
{
    EVP_MD_CTX *ctx;
    EVP_MD *md = NULL;
    unsigned char outbuf[128];
    unsigned int outlen = 0;

    ctx = EVP_MD_CTX_new();
    if (ctx == NULL) {
        fputs("ERROR: EVP_MD_CTX_new()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    md = EVP_MD_fetch(libctx, "SHA-1", NULL);
    if (md == NULL) {
        fputs("ERROR: EVP_MD_fetch()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    if (EVP_DigestInit_ex(ctx, md, NULL) <= 0) {
        fputs("ERROR: EVP_DigestInit_ex()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }
    EVP_MD_free(md);
    md = NULL;

    if (EVP_DigestUpdate(ctx, "Test String 001", 15) <= 0) {
        fputs("ERROR: EVP_DigestUpdate()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    if (EVP_DigestFinal_ex(ctx, outbuf, &outlen) <= 0) {
        fputs("ERROR: EVP_DigestFinal_ex()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

err:
    EVP_MD_free(md);
    EVP_MD_CTX_free(ctx);
}

void *
gen_rsa_keypair(void *arg)
{
    EVP_PKEY_CTX *ctx = NULL;
    EVP_PKEY *pkey = NULL;

    ctx = EVP_PKEY_CTX_new_from_name(libctx, "RSA", NULL);
    if (ctx == NULL) {
        fputs("ERROR: EVP_PKEY_CTX_new_from_name()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    if (EVP_PKEY_keygen_init(ctx) <= 0) {
        fputs("ERROR: EVP_PKEY_keygen_init()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    if (EVP_PKEY_CTX_set_rsa_keygen_bits(ctx, 2048) <= 0) {
        fputs("ERROR: EVP_PKEY_CTX_set_rsa_keygen_bits()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

    if (EVP_PKEY_keygen(ctx, &pkey) <= 0) {
        fputs("ERROR: EVP_PKEY_keygen()\n", stderr);
        ERR_print_errors_fp(stderr);
        goto err;
    }

err:
    EVP_PKEY_free(pkey);
    EVP_PKEY_CTX_free(ctx);
    return NULL;
}