/* Copyright (c) 2017, Google Inc.
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
 * SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */

// clang-format off

#define FIPS_BOUNDARY_SOURCE

#if !defined(_GNU_SOURCE)
#define _GNU_SOURCE // needed for syscall() on Linux.
#endif /* if !defined(_GNU_SOURCE) */

#include <openssl/crypto.h>

#include <stdlib.h>

#include <openssl/digest.h>
#include <openssl/hmac.h>
#include <openssl/sha.h>

#include "../internal.h"

#include "aes/aes.c"
#include "aes/key_wrap.c"
#include "aes/mode_wrappers.c"
#include "bn/add.c"
#include "bn/asm/x86_64-gcc.c"
#include "bn/bn.c"
#include "bn/bytes.c"
#include "bn/cmp.c"
#include "bn/ctx.c"
#include "bn/div.c"
#include "bn/exponentiation.c"
#include "bn/gcd.c"
#include "bn/generic.c"
#include "bn/jacobi.c"
#include "bn/montgomery.c"
#include "bn/montgomery_inv.c"
#include "bn/mul.c"
#include "bn/prime.c"
#include "bn/random.c"
#include "bn/rsaz_exp.c"
#include "bn/shift.c"
#include "bn/sqrt.c"
#include "cipher/aead.c"
#include "cipher/cipher.c"
#include "cipher/e_aes.c"
#include "cipher/e_des.c"
#include "des/des.c"
#include "digest/digest.c"
#include "digest/digests.c"
#include "ecdsa/ecdsa.c"
#include "ec/ec.c"
#include "ec/ec_key.c"
#include "ec/ec_montgomery.c"
#include "ec/oct.c"
#include "ec/p224-64.c"
#include "fiat/p256.c"
#include "ec/p256-x86_64.c"
#include "ec/simple.c"
#include "ec/util.c"
#include "ec/wnaf.c"
#include "hmac/hmac.c"
#include "md4/md4.c"
#include "md5/md5.c"
#include "modes/cbc.c"
#include "modes/cfb.c"
#include "modes/ctr.c"
#include "modes/gcm.c"
#include "modes/ofb.c"
#include "modes/polyval.c"
#include "rand/ctrdrbg.c"
#include "rand/rand.c"
#include "rand/urandom.c"
#include "rsa/blinding.c"
#include "rsa/padding.c"
#include "rsa/rsa.c"
#include "rsa/rsa_impl.c"
#include "self_check/self_check.c"
#include "sha/sha1-altivec.c"
#include "sha/sha1.c"
#include "sha/sha256.c"
#include "sha/sha512.c"
#include "tls/kdf.c"


#if defined(BORINGSSL_FIPS)

#if !defined(OPENSSL_ASAN)
// These symbols are filled in by delocate.go. They point to the start and end
// of the module, and the location of the integrity hash, respectively.
extern const uint8_t BORINGSSL_bcm_text_start[];
extern const uint8_t BORINGSSL_bcm_text_end[];
extern const uint8_t BORINGSSL_bcm_text_hash[];
#endif /* if !defined(OPENSSL_ASAN) */

static void __attribute__((constructor))
BORINGSSL_bcm_power_on_self_test(void) {
    CRYPTO_library_init();

#if !defined(OPENSSL_ASAN)
    // Integrity tests cannot run under ASAN because it involves reading the full
    // .text section, which triggers the global-buffer overflow detection.
    const uint8_t *const start = BORINGSSL_bcm_text_start;
    const uint8_t *const end = BORINGSSL_bcm_text_end;

    static const uint8_t kHMACKey[64] = { 0 };
    uint8_t result[SHA512_DIGEST_LENGTH];

    unsigned result_len;
    if (!HMAC(EVP_sha512(), kHMACKey, sizeof(kHMACKey), start, end - start,
              result, &result_len) ||
        result_len != sizeof(result))
    {
        goto err;
    }

    const uint8_t *expected = BORINGSSL_bcm_text_hash;

    if (!check_test(expected, result, sizeof(result), "FIPS integrity test"))
    {
        goto err;
    }
#endif /* if !defined(OPENSSL_ASAN) */

    if (!BORINGSSL_self_test())
    {
        goto err;
    }

    return;

err:
    BORINGSSL_FIPS_abort();
}

void BORINGSSL_FIPS_abort(void) {
    for (;;)
    {
#ifndef BF
        abort();
#endif /* ifndef BF */
        exit(1);
    }
}

#endif // BORINGSSL_FIPS

// clang-format on

#if defined(WSM_BLOWFISH)
void qsort(void *base, size_t nmemb, size_t size, int (*compar)(const void *, const void *)) {}

#ifndef BSEARCH_DEFINED
void *bsearch(const void *key, const void *base, size_t nmemb, size_t size, int (*compar)(
                  const void *, const void *))
{
    return NULL;
}

#endif /* ifndef BSEARCH_DEFINED */
#endif /* if defined(WSM_BLOWFISH) */