/*  Copyright 2018 Oxford Nanopore Technologies, Ltd */

/*  This Source Code Form is subject to the terms of the Oxford Nanopore
 *  Technologies, Ltd. Public License, v. 1.0. If a copy of the License 
 *  was not  distributed with this file, You can obtain one at
 *  http://nanoporetech.com
 */

#pragma once
#ifndef FLAPPIE_STDLIB
#    define FLAPPIE_STDLIB
#    include <assert.h>
#    include <err.h>
#    include <errno.h>
#    include <stdlib.h>
#    include <string.h>

#    if defined(CHAOSMONKEY) && ! defined(BANANA)
#        define FUZZTHRESH (long int)(CHAOSMONKEY * RAND_MAX)
#        define malloc(A) ((warnx("Opportunity for chaos at %s:%d", __FILE__, __LINE__),  rand() > FUZZTHRESH) \
                            ? malloc(A) \
                            : (warnx("Injected NULL at %s:%d", __FILE__, __LINE__), NULL))

#        define calloc(A, B) ((warnx("Opportunity for chaos at %s:%d", __FILE__, __LINE__), rand() > FUZZTHRESH) \
                               ? calloc(A, B) \
                               : (warnx("Injected NULL at %s:%d", __FILE__, __LINE__), NULL))

#        define flappie_memalign(A, B, C) ((warnx("Opportunity for chaos at %s:%d", __FILE__, __LINE__), rand() > FUZZTHRESH) \
                                             ? posix_memalign(A, B, C) \
                                             : (warnx("Injected NULL at %s:%d", __FILE__, __LINE__), ENOMEM))
#    else
#        define malloc(A) malloc(A)
#        define calloc(A, B) calloc(A, B)
#        define flappie_memalign(A, B, C) posix_memalign(A, B, C)
#    endif /* CHAOSMONKEY */

#    ifdef ABORT_ON_NULL
#       define RETURN_NULL_IF(A, B) \
		if (A) {  	\
			warnx("Failure at %s : %d", __FILE__, __LINE__);	\
            abort(); \
		}
#    else
#        define RETURN_NULL_IF(A, B) if (A) { return B; }
#    endif


//  strlen on NULL is undefined.  Define it.
#    define strlen(A) (NULL != A) ? strlen(A) : 0
#endif /* FLAPPIE_STDLIB */