ccl命令行运行lisp脚本

作者：winterTTr （转载请注明）

 

最近在学习lisp，lisp作为传说中最古老的语言之一，FP的经典语言之一，对我这种喜欢瞎研究的人来说，是很有吸引力滴。

不过，我要说的是，lisp可不像python这么方便快捷，不同dialect之间差别还是挺大的，就执行一个lisp脚本，似乎都不是那么简单的事情。对于被python惯坏了了的我来说，刚刚学习lisp最大的问题在于，没有很方便脚本执行方式。换句话说，就是像python那样，可以直接把脚本本身当作命令直接在console里运行。

 

在search了一大圈google之后，发现的确也没有什么现成的方法。

#当然，也或许是我不知道或者没找到。

似乎sbcl可以提供exe+文件名的方式运行，但是我使用的(clozure cl)似乎没有这种办法，至少没有很直接的办法。

于是，只能采用曲线报国的方式了，自己写了一个简单的脚本，用来启动lisp文件。

 

ccl.cmd

 

@echo off set lisp_filename=%~1 set ccl_path=D:/_play_/lispbox-0.7/ccl-1.6-windowsx86/wx86cl.exe IF "%PROCESSOR_ARCHITECTURE%" == "x86" ( set fsl_filename=%lisp_filename:.lisp=.wx32fsl% ) ELSE ( set ccl_path=%ccl_path:wx86cl=wx86cl64% set fsl_filename=%lisp_filename:.lisp=.wx64fsl% ) IF NOT EXIST %fsl_filename% goto compile for %%a in ("%lisp_filename%") do ( set lisp_timestamp=%%~ta ) for %%a in ("%fsl_filename%") do ( set fsl_timestamp=%%~ta ) IF "%fsl_timestamp%" LSS "%lisp_timestamp%" ( goto compile ) ELSE ( goto run ) :compile REM echo "compile" %ccl_path% --eval "(progn (compile-file /"%lisp_filename:/=//%/") (ccl:quit))" :run REM echo "run" %ccl_path% --eval "(progn (load /"%fsl_filename:/=//%/") (ccl:quit))" :end

 

这个bat会自动compile所要执行的lisp文件为fsl，然后再调用ccl去load编译好的fsl文件。

我加入了timestamp的自动检测，感觉上有点像，python中编译pyc然后执行的过程，看来python中毒很深呀，呵呵

 

然后右键选择lisp文件，将打开方式指向ccl.cmd。

以后就可以双击，或者命令行直接运行lisp文件了。

 

完成~

 

修改了一下，到了公司才意识到，我公司的机器是64位的，加上了64位的判断。