日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
使用ECL在C程序中調(diào)用Lisp代碼

Lisp是極好的。人人都知道。關(guān)于Lisp唯一的問題是，我們生活在一個C的世界里。因此，我想在可以移植的C程序中調(diào)用一些Lisp代碼。

成都創(chuàng)新互聯(lián)基于分布式IDC數(shù)據(jù)中心構(gòu)建的平臺為眾多戶提供內(nèi)江機(jī)房主機(jī)托管 四川大帶寬租用 成都機(jī)柜租用 成都服務(wù)器租用。

首先，你需要安裝ECL（安裝指南）。

讓我們來書寫一個非常簡單的Lisp程序：

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

沒錯，我知道這個程序看上去很蠢。但是我們僅僅只是想讓一切東西正常運(yùn)行起來。

接下來，我們將要使用ECL的compile-file創(chuàng)建一個build文件。該build文件會編譯產(chǎn)生一個object文件。

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

它將會生成add.o對象文件。我們也可以通過如下方式創(chuàng)建一個靜態(tài)庫：

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

這一步會產(chǎn)生一個名為libadd.a的靜態(tài)庫。我們便可以在C程序中使用該靜態(tài)庫。

接著，我們來寫一個小小的C程序。這個C程序?qū)褂梦覀兊募臃↙isp庫。

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

***，添加一個Makefile：

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

請按照你自己的設(shè)置，修改該Makefile最開始的幾個變量。

現(xiàn)在，敲下make命令來編譯吧！

 
 
    
  
  
  1. ./lispadd 7 8 => 15 
    2.

這個例子可以在Github上下載。

如果你想深入了解能用ECL做什么，請閱讀這篇手冊。

英文原文：Calling Lisp from C using ECL

譯文鏈接：http://www.oschina.net/translate/calling-lisp-from-c-using-ecl


網(wǎng)站欄目：使用ECL在C程序中調(diào)用Lisp代碼
文章出自：http://m.5511xx.com/article/dpioggs.html