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

#include "test_quot.h"
#include <stdio.h>

PRIVATE Int8 c_quot(Int8 x, Int8 y) {
  Int8 z = x / y;
  return z;
}

PUBLIC void call_sml_quot() {
  Int8 x = -1;
  Int8 y = 10;
  Int8 z = sml_quot(x, y);
  printf(" sml_z = %i\n", z);
}
Commit	Line	Data
7f918cf1 CE	1	#include "test_quot.h"
	2	#include <stdio.h>
	3
	4	PRIVATE Int8 c_quot(Int8 x, Int8 y) {
	5	Int8 z = x / y;
	6	return z;
	7	}
	8
	9	PUBLIC void call_sml_quot() {
	10	Int8 x = -1;
	11	Int8 y = 10;
	12	Int8 z = sml_quot(x, y);
	13	printf(" sml_z = %i\n", z);
	14	}