janet/examples/ffi/so.c

#include <stdio.h>
#include <stdint.h>
#include <string.h>

#ifdef _WIN32
#define EXPORTER __declspec(dllexport)
#else
#define EXPORTER
#endif

/* Structs */

typedef struct {
    int a, b;
    float c, d;
} Split;

typedef struct {
    float c, d;
    int a, b;
} SplitFlip;

typedef struct {
    int u, v, w, x, y, z;
} SixInts;

typedef struct {
    int a;
    int b;
} intint;

typedef struct {
    int a;
    int b;
    int c;
} intintint;

typedef struct {
    uint64_t a;
    uint64_t b;
} uint64pair;

typedef struct {
    int64_t a;
    int64_t b;
    int64_t c;
} big;

/* Functions */

EXPORTER
int int_fn(int a, int b) {
    return (a << 2) + b;
}

EXPORTER
double my_fn(int64_t a, int64_t b, const char *x) {
    return (double)(a + b) + 0.5 + strlen(x);
}

EXPORTER
double double_fn(double x, double y, double z) {
    return (x + y) * z * 3;
}

EXPORTER
double double_many(double x, double y, double z, double w, double a, double b) {
    return x + y + z + w + a + b;
}

EXPORTER
double double_lots(
    double a,
    double b,
    double c,
    double d,
    double e,
    double f,
    double g,
    double h,
    double i,
    double j) {
    return i + j;
}

EXPORTER
double double_lots_2(
    double a,
    double b,
    double c,
    double d,
    double e,
    double f,
    double g,
    double h,
    double i,
    double j) {
    return a +
           10.0 * b +
           100.0 * c +
           1000.0 * d +
           10000.0 * e +
           100000.0 * f +
           1000000.0 * g +
           10000000.0 * h +
           100000000.0 * i +
           1000000000.0 * j;
}

EXPORTER
double float_fn(float x, float y, float z) {
    return (x + y) * z;
}

EXPORTER
int intint_fn(double x, intint ii) {
    printf("double: %g\n", x);
    return ii.a + ii.b;
}

EXPORTER
int intintint_fn(double x, intintint iii) {
    printf("double: %g\n", x);
    return iii.a + iii.b + iii.c;
}

EXPORTER
intint return_struct(int i) {
    intint ret;
    ret.a = i;
    ret.b = i * i;
    return ret;
}

EXPORTER
big struct_big(int i, double d) {
    big ret;
    ret.a = i;
    ret.b = (int64_t) d;
    ret.c = ret.a + ret.b + 1000;
    return ret;
}

EXPORTER
void void_fn(void) {
    printf("void fn ran\n");
}

EXPORTER
void void_fn_2(double y) {
    printf("y = %f\n", y);
}

EXPORTER
void void_ret_fn(int x) {
    printf("void fn ran: %d\n", x);
}

EXPORTER
int intintint_fn_2(intintint iii, int i) {
    fprintf(stderr, "iii.a = %d, iii.b = %d, iii.c = %d, i = %d\n", iii.a, iii.b, iii.c, i);
    return i * (iii.a + iii.b + iii.c);
}

EXPORTER
float split_fn(Split s) {
    return s.a * s.c + s.b * s.d;
}

EXPORTER
float split_flip_fn(SplitFlip s) {
    return s.a * s.c + s.b * s.d;
}

EXPORTER
Split split_ret_fn(int x, float y) {
    Split ret;
    ret.a = x;
    ret.b = x;
    ret.c = y;
    ret.d = y;
    return ret;
}

EXPORTER
SplitFlip split_flip_ret_fn(int x, float y) {
    SplitFlip ret;
    ret.a = x;
    ret.b = x;
    ret.c = y;
    ret.d = y;
    return ret;
}

EXPORTER
SixInts sixints_fn(void) {
    return (SixInts) {
        6666, 1111, 2222, 3333, 4444, 5555
    };
}

EXPORTER
int sixints_fn_2(int x, SixInts s) {
    return x + s.u + s.v + s.w + s.x + s.y + s.z;
}

EXPORTER
int sixints_fn_3(SixInts s, int x) {
    return x + s.u + s.v + s.w + s.x + s.y + s.z;
}

EXPORTER
intint stack_spill_fn(uint8_t a, uint8_t b, uint8_t c, uint8_t d,
                   uint8_t e, uint8_t f, uint8_t g, uint8_t h,
                   float i, float j, float k, float l,
                   float m, float n, float o, float p,
                   float s1, int8_t s2, uint8_t s3, double s4, uint8_t s5, intint s6) {
    return (intint) {
        (a | b | c | d | e | f | g | h) + (i + j + k + l + m + n + o + p),
        s1 * s6.a + s2 * s6.b + s3 * s4 * s5
    };
}

EXPORTER
double stack_spill_fn_2(uint64pair a, uint64pair b, uint64pair c, int8_t d, uint64pair e, int8_t f) {
    return (double)(a.a * c.a + a.b * c.b + b.a * e.a) * f - (double)(b.b * e.b) + d;
}