YouCompleteMe/cpp/llvm/examples/OCaml-Kaleidoscope/Chapter7/bindings.c
2012-07-05 17:51:06 -07:00

14 lines
294 B
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;
}