[hcoop/debian/mlton.git] / doc / examples / ffi / ffi-import.c

#include "export.h"

Int32 FFI_INT = 13;
Word32 FFI_WORD = 0xFF;
Bool FFI_BOOL = 1;
Real64 FFI_REAL = 3.14159;

Char8 ffi (Pointer a1, Int32 a1len, Pointer a2, Pointer a3, Int32 n) {
        double *ds = (double*)a1;
        int *pi = (int*)a2;
        char *pc = (char*)a3;
        int i;
        double sum;

        sum = 0.0;
        for (i = 0; i < a1len; ++i) {
                sum += ds[i];
                ds[i] += n;
        }
        *pi = (int)sum;
        *pc = 'c';
        return 'c';
}
Commit	Line	Data
7f918cf1 CE	1	#include "export.h"
	2
	3	Int32 FFI_INT = 13;
	4	Word32 FFI_WORD = 0xFF;
	5	Bool FFI_BOOL = 1;
	6	Real64 FFI_REAL = 3.14159;
	7
	8	Char8 ffi (Pointer a1, Int32 a1len, Pointer a2, Pointer a3, Int32 n) {
	9	double ds = (double)a1;
	10	int pi = (int)a2;
	11	char pc = (char)a3;
	12	int i;
	13	double sum;
	14
	15	sum = 0.0;
	16	for (i = 0; i < a1len; ++i) {
	17	sum += ds[i];
	18	ds[i] += n;
	19	}
	20	*pi = (int)sum;
	21	*pc = 'c';
	22	return 'c';
	23	}