coffi/test/c/ffi_test.c

#include <stdio.h>
#include <stdlib.h>

int add_numbers(int a, int b) {
    return a + b;
}

typedef struct point {
    float x;
    float y;
} Point;

Point add_points(Point a, Point b) {
    Point res = {};

    res.x = a.x + b.x;
    res.y = a.y + b.y;

    return res;
}

typedef char *CString;

typedef CString (*StringFactory)(void);

CString upcall_test(StringFactory fun) {
    return fun();
}

int upcall_test2(int (*f)(void)) {
    return f();
}

int counter = 0;

static char* responses[] = { "Hello, world!", "Goodbye friend.", "co'oi prenu" };

char* upcall_test_int_fn_string_ret(int (*f)(void)) {
    return responses[f()];
}

CString get_string1(void) {
    return responses[counter++ % 3];
}

CString get_string2(void) {
    return "Alternate string";
}

StringFactory get_downcall(int whichString) {
    switch (whichString % 2) {
    case 0:
        return get_string1;
    case 1:
        return get_string2;
    default:
        return 0;
    }
}

typedef struct alignment_test {
    char a;
    double x;
    float y;
} AlignmentTest;

AlignmentTest get_struct() {
    AlignmentTest ret = {};
    ret.a = 'x';
    ret.x = 3.14;
    ret.y = 42.0;

    return ret;
}

void test_call_with_trailing_string_arg(int a, int b, char* text) {
    printf("call of `test_call_with_trailing_string_arg` with a=%i b=%i text='%s'",1,2,text);
    printf("\r                                                                          ");
    return;
}

int freed = 0;

int get_variable_length_array(float **arr) {
    freed = 0;
    *arr = malloc(sizeof(float) * 7);

    for (int i = 0; i < 7; ++i) {
        (*arr)[i] = 1.5f * i;
    }

    return 7;
}

void free_variable_length_array(float *arr) {
    freed = 1;
    free(arr);
}