From 53ab016bcb85e1b8924440907309b7b89449ca6f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 27 Oct 2016 16:29:52 -0700 Subject: Starting repo for clink. This is old code developed in 2005 to replace the "clisp-link" script in the CLISP project with GNU Makefile rules. * Makefile: New file. * binding.lisp: New file. * call-in.lisp: New file. * call-out.c: New file. * clink.mk: New file. * main.lisp: New file. --- call-out.c | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 call-out.c (limited to 'call-out.c') diff --git a/call-out.c b/call-out.c new file mode 100644 index 0000000..42279a4 --- /dev/null +++ b/call-out.c @@ -0,0 +1,9 @@ +#include + +extern void call_in(const char *); + +void call_out(const char *string) +{ + printf("call_out(\"%s\");\n", string); + call_in(string); +} -- cgit v1.2.3