diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-10-27 16:29:52 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-10-27 16:29:52 -0700 |
commit | 53ab016bcb85e1b8924440907309b7b89449ca6f (patch) | |
tree | 865db22e13e478b06fccf9d164df803e9562390c /call-out.c | |
parent | dbbf8084e8e4d6c30bf38d649c6cbbb2c86c0134 (diff) | |
download | clink-53ab016bcb85e1b8924440907309b7b89449ca6f.tar.gz clink-53ab016bcb85e1b8924440907309b7b89449ca6f.tar.bz2 clink-53ab016bcb85e1b8924440907309b7b89449ca6f.zip |
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.
Diffstat (limited to 'call-out.c')
-rw-r--r-- | call-out.c | 9 |
1 files changed, 9 insertions, 0 deletions
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 <stdio.h> + +extern void call_in(const char *); + +void call_out(const char *string) +{ + printf("call_out(\"%s\");\n", string); + call_in(string); +} |