freesasa-sys 0.1.12

Rust raw FFI bindings for the freesasa C library
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

#define _GNU_SOURCE
#include <stdio.h>
#include <math.h>
#include <dlfcn.h>
#include "tools.h"

static int n_fails = 0;
static int fail_after = 0;

void*
malloc(size_t s)
{
    if (fail_after > 0) {
        ++n_fails;
        if (n_fails >= fail_after) return NULL;
    }
    void *(*real_malloc)(size_t) = dlsym(RTLD_NEXT, "malloc");
    return real_malloc(s);
}


void*
realloc(void * ptr, size_t s)
{
    if (fail_after > 0) {
        ++n_fails;
        if (n_fails >= fail_after)
            return NULL;
    }
    void *(*real_realloc)(void *, size_t) = dlsym(RTLD_NEXT, "realloc");
    return real_realloc(ptr, s);
}

void*
strdup(const char *s)
{
    if (fail_after > 0) {
        ++n_fails;
        if (n_fails >= fail_after) {
            return NULL;
        }
    }
    void *(*real_strdup)(const char*) = dlsym(RTLD_NEXT, "strdup");
    return real_strdup(s);
}

void
set_fail_after(int limit) {
    if (limit < 0) limit = 0;
    fail_after = limit;
    n_fails = 0;
}

int float_eq(double a, double b, double tolerance) 
{
    if (fabs(a-b) < tolerance) return 1;
    printf("floats not equal: a = %f, b = %f, diff = %f, tolerance = %f\n",
           a, b, fabs(a-b), tolerance);
    fflush(stdout);
    return 0;
}