使用ECL在C程序中调用Lisp代码

开发 开发工具 后端
Lisp是极好的。人人都知道。关于Lisp唯一的问题是,我们生活在一个C的世界里。因此,我想在可以移植的C程序中调用一些Lisp代码……

Lisp是极好的。人人都知道。关于Lisp唯一的问题是,我们生活在一个C的世界里。因此,我想在可以移植的C程序中调用一些Lisp代码。

首先,你需要安装ECL安装指南)。

让我们来书写一个非常简单的Lisp程序:

  1. (in-package :cl-user)(defun add (x y)  
  2.   (+ x y)) 

没错,我知道这个程序看上去很蠢。但是我们仅仅只是想让一切东西正常运行起来。

接下来,我们将要使用ECL的compile-file创建一个build文件。该build文件会编译产生一个object文件。

  1. (compile-file "add.lisp" :system-p t) 

它将会生成add.o对象文件。我们也可以通过如下方式创建一个静态库:

  1. (c:build-static-library "add"   
  2.             :lisp-files '("add.o")  
  3.             :init-name "init_add")  
  4. (quit) 

这一步会产生一个名为libadd.a的静态库。我们便可以在C程序中使用该静态库。

接着,我们来写一个小小的C程序。这个C程序将会使用我们的加法Lisp库。

  1. #include <ecl/ecl.h>  
  2. #include <stdlib.h>  
  3. #include <stdio.h>  
  4. extern void init_add(cl_object cblock);  
  5.    
  6. // Make sure this doesn't get called before 'cl_boot'  
  7. int lisp_add(int x, int y)  
  8. {  
  9.   cl_object sum = cl_funcall(3, c_string_to_object("add"), ecl_make_int(x), ecl_make_int(y));  
  10.   return ecl_to_int(sum);  
  11. }  
  12.    
  13. int main(int argc, char *argv[])  
  14. {  
  15.   if (argc<2) {  
  16.     printf("I need 2 arguments to add\n");  
  17.     return 1;  
  18.   }  
  19.   int x = atoi(argv[1]);  
  20.   int y = atoi(argv[2]);  
  21.   cl_boot(argc, argv);  
  22.   read_VV(OBJNULL, init_add);  
  23.   int sum = lisp_add(x, y);  
  24.   printf("%d\n", sum);  
  25.   cl_shutdown();  
  26.   return 0;  

***,添加一个Makefile:

  1. CC=cc  
  2. C_SOURCE=lispadd.c  
  3. LISP_BUILD=build.lisp  
  4. INCLUDE=/usr/local/include  
  5. LIBRARIES=-L/usr/local/lib -L.  
  6. OUTPUT=lispadd  
  7. CFLAGS=-I$(INCLUDE) $(LIBRARIES) -ladd -lecl  
  8.    
  9. all: lispadd  
  10.    
  11. libadd.a:  
  12.     ecl -load $(LISP_BUILD)  
  13.    
  14. lispadd: libadd.a  
  15.     $(CC) $(C_SOURCE) $(CFLAGS) -o $(OUTPUT)  
  16.    
  17. clean:  
  18.     rm -f libadd.a  
  19.     rm -f add.o  
  20.     rm -f lispadd  
  21.     rm -f add.fas 

请按照你自己的设置,修改该Makefile最开始的几个变量。

现在,敲下make命令来编译吧!

  1. ./lispadd 7 8 => 15 

这个例子可以在Github上下载。

如果你想深入了解能用ECL做什么,请阅读这篇手册

英文原文:Calling Lisp from C using ECL

译文链接:http://www.oschina.net/translate/calling-lisp-from-c-using-ecl

责任编辑:林师授 来源: 开源中国社区
相关推荐

2012-04-28 15:28:21

JNI混合编程Java

2009-07-14 16:07:59

调用JavaFX代码Swing程序

2017-02-06 18:42:37

Linuxgdb程序

2021-04-01 11:28:44

C++ LinuxWindows

2012-04-16 13:47:37

JavaMatlab

2011-05-19 08:19:50

Lisp

2009-08-11 14:26:56

C#动态调用WebSe

2010-03-10 19:18:10

Python scri

2012-03-20 11:37:24

JavaJNI

2009-06-10 17:03:36

JSP动态生成

2011-08-22 17:13:00

LuaC++函数

2016-01-25 15:09:22

JavaScriptC程序

2009-06-16 15:20:48

ApplicationJSP程序

2011-05-30 17:31:51

Android 模拟SD卡

2011-07-27 16:18:42

Objective-c 协议

2017-01-05 13:31:33

Lisp加法运算

2024-03-11 08:11:27

Node.js.NET低代码平台

2009-04-14 14:53:06

C++Lambda函数多线程

2010-02-02 13:15:00

C++ lambda函

2018-04-22 00:04:04

PHP C 代码数据
点赞
收藏

51CTO技术栈公众号