factor/native/ffi_test.c

/* This file is linked into the runtime for the sole purpose
 * of testing FFI code. */
#include <stdio.h>
#include "factor.h"
#include "ffi_test.h"

void ffi_test_0(void)
{
	printf("ffi_test_0()\n");
}

int ffi_test_1(void)
{
	printf("ffi_test_1()\n");
	return 3;
}

int ffi_test_2(int x, int y)
{
	printf("ffi_test_2(%d,%d)\n",x,y);
	return x + y;
}

int ffi_test_3(int x, int y, int z, int t)
{
	printf("ffi_test_3(%d,%d,%d,%d)\n",x,y,z,t);
	return x + y + z * t;
}

float ffi_test_4(void)
{
	printf("ffi_test_4()\n");
	return 1.5;
}

double ffi_test_5(void)
{
	printf("ffi_test_5()\n");
	return 1.5;
}

double ffi_test_6(float x, float y)
{
	printf("ffi_test_6(%f,%f)\n",x,y);
	return x * y;
}

double ffi_test_7(double x, double y)
{
	printf("ffi_test_7(%f,%f)\n",x,y);
	return x * y;
}

double ffi_test_8(double x, float y, double z, float t, int w)
{
	printf("ffi_test_8(%f,%f,%f,%f,%d)\n",x,y,z,t,w);
	return x * y + z * t + w;
}

int ffi_test_9(int a, int b, int c, int d, int e, int f, int g)
{
	printf("ffi_test_9(%d,%d,%d,%d,%d,%d,%d)\n",a,b,c,d,e,f,g);
	return a + b + c + d + e + f + g;
}

int ffi_test_10(int a, int b, double c, int d, float e, int f, int g, int h)
{
	printf("ffi_test_10(%d,%d,%f,%d,%f,%d,%d,%d)\n",a,b,c,d,e,f,g,h);
	return a - b - c - d - e - f - g - h;
}

int ffi_test_11(int a, struct foo b, int c)
{
	printf("ffi_test_11(%d,{%d,%d},%d)\n",a,b.x,b.y,c);
	return a * b.x + c * b.y;
}

int ffi_test_12(int a, int b, struct rect c, int d, int e, int f)
{
	printf("ffi_test_12(%d,%d,{%f,%f,%f,%f},%d,%d,%d)\n",a,b,c.x,c.y,c.w,c.h,d,e,f);
	return a + b + c.x + c.y + c.w + c.h + d + e + f;
}

int ffi_test_13(int a, int b, int c, int d, int e, int f, int g, int h, int i, int j, int k)
{
	printf("ffi_test_13(%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)\n",a,b,c,d,e,f,g,h,i,j,k);
	return a + b + c + d + e + f + g + h + i + j + k;
}

void callback_test_1(void (*callback)(void))
{
	printf("callback_test_1 entry\n");
	fflush(stdout);
	callback();
	printf("callback_test_1 leaving\n");
	fflush(stdout);
}

void callback_test_2(void (*callback)(int x, int y), int x, int y)
{
	printf("callback_test_2 entry\n");
	fflush(stdout);
	callback(x,y);
	printf("callback_test_2 leaving\n");
	fflush(stdout);
}

void callback_test_3(void (*callback)(int x, double y, int z),
	int x, double y, int z)
{
	printf("callback_test_3 entry\n");
	fflush(stdout);
	callback(x,y,z);
	printf("callback_test_3 leaving\n");
	fflush(stdout);
}

void callback_test_4(void (*callback)(int a1, int a2, int a3, int a4, int a5, int a6, int a7, int a8, int a9, int a10), int a1, int a2, int a3, int a4, int a5, int a6, int a7, int a8, int a9, int a10)
{
	printf("callback_test_4 entry\n");
	fflush(stdout);
	callback(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10);
	printf("callback_test_4 leaving\n");
	fflush(stdout);
}

int callback_test_5(int (*callback)(void))
{
	int x;
	printf("callback_test_5 entry\n");
	x = callback();
	printf("callback_test_5 exit\n");
	return x;
}

float callback_test_6(float (*callback)(void))
{
	float x;
	printf("callback_test_6 entry\n");
	x = callback();
	printf("callback_test_6 exit\n");
	return x;
}

double callback_test_7(double (*callback)(void))
{
	double x;
	printf("callback_test_7 entry\n");
	x = callback();
	printf("callback_test_7 exit\n");
	return x;
}

int callback_test_8(int (*callback)(struct foo x), struct foo x)
{
	int y;
	printf("callback_test_8 entry\n");
	y = callback(x);
	printf("callback_test_8 exit\n");
	return y;
}