[rustc.git] / src / llvm / examples / OCaml-Kaleidoscope / Chapter6 / bindings.c

#include <stdio.h>

/* putchard - putchar that takes a double and returns 0. */
extern double putchard(double X) {
  putchar((char)X);
  return 0;
}

/* printd - printf that takes a double prints it as "%f\n", returning 0. */
extern double printd(double X) {
  printf("%f\n", X);
  return 0;
}
Commit	Line	Data
223e47cc LB	1	#include <stdio.h>
	2
	3	/* putchard - putchar that takes a double and returns 0. */
	4	extern double putchard(double X) {
	5	putchar((char)X);
	6	return 0;
	7	}
	8
	9	/* printd - printf that takes a double prints it as "%f\n", returning 0. */
	10	extern double printd(double X) {
	11	printf("%f\n", X);
	12	return 0;
	13	}