| ;;(ql:quickload :fiveam) | |
| (require :fiveam) | |
| (defpackage try-fiveam | |
| (:use :cl) | |
| (:import-from :fiveam test run run! def-suite is)) | |
| (in-package try-fiveam) | |
| (test test+ |
This is a practice project to test Common Lisp + C with CFFI.
CFFI is a protocal for common lisp, and most popular impl like sbcl,ccl,cmucl,ecl and abcl have to this. So We can eazy to access C code from Common Lisp.
just only write for Linux(Unix) and need a lisp impl with cffi package. I pratice it with sbcl. You can install it with Roswell, or you can also ues more friendly env - cl-repl which also can install by roswell.
| (defun send-region-to-term nil | |
| (interactive) | |
| (send-string "*terminal*" (buffer-substring-no-properties (region-beginning) (region-end))) | |
| (send-string "*terminal*" "\n")) | |
| (local-set-key (kbd "C-c C-r") | |
| 'send-region-to-term) |
| #include "lua.h" | |
| #include "lauxlib.h" | |
| #include<stdio.h> | |
| #include<stdlib.h> | |
| int l_bar0(lua_State *L){ | |
| printf("----------- in the bar0 ---------------\n"); | |
| printf("----------- out the bar0 ---------------\n\n"); | |
| return 0; |
| #include "hello.h" | |
| #include<Python.h> | |
| using namespace std; | |
| extern "C"{ | |
| static PyObject *_hello(PyObject *self, PyObject *args){ | |
| hello(); | |
| return self; | |
| } |