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 /binding.lisp | |
| parent | dbbf8084e8e4d6c30bf38d649c6cbbb2c86c0134 (diff) | |
| download | clink-master.tar.gz clink-master.tar.bz2 clink-master.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 'binding.lisp')
| -rw-r--r-- | binding.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/binding.lisp b/binding.lisp new file mode 100644 index 0000000..a1c1e21 --- /dev/null +++ b/binding.lisp @@ -0,0 +1,15 @@ +(eval-when (:compile-toplevel :load-toplevel :execute) + (setf ffi:*output-c-functions* t) + (setf ffi:*output-c-variables* t)) + +(ffi:def-call-out call-out + (:language :stdc) + (:name "call_out") + (:arguments (value ffi:c-string)) + (:return-type)) + +(ffi:def-call-in call-in + (:language :stdc) + (:name "call_in") + (:arguments (value ffi:c-string)) + (:return-type)) |