clozure common lisp命令行运行脚本解决方案

作者：winterTTr（转载请注明）

 

在 http://blog.csdn.net/winterTTr/archive/2011/03/30/6290211.aspx 这篇文章中，我完成了一个初步的脚本，可以像python一样，直接在命令行运行foo.lisp这样的脚本了，但是仍旧有一些问题没有解决，最主要的就是传入命令行参数，下面给出比较完整的解决办法，算是对上一篇文章的续文。

 

首先，更新脚本ccl.cmd：
@echo off REM Search for the wx86cl.exe, which should be contained in %PATH% REM If not found, alert and exist, without run anything set ccl_exe=wx86cl.exe FOR %%a IN ( %ccl_exe% ) DO ( set ccl_path=%%~$PATH:a ) IF "%ccl_path%" == "" ( echo ccl.cmd: Can't find wx86cl.exe, please add it to %%PATH%% goto end ) REM Because x86-32 and x86-64 is not the same name convention REM Process the exe path and compile filename set lisp_filename=%~1 IF "%PROCESSOR_ARCHITECTURE%" == "x86" ( set fsl_filename=%lisp_filename:.lisp=.wx32fsl% ) ELSE ( set ccl_path=%ccl_path:wx86cl.exe=wx86cl64.exe% set fsl_filename=%lisp_filename:.lisp=.wx64fsl% ) REM Compile the file before the lisp source file is changed REM Bug: cause the time using batch file can just get minite REM but cannot get seconds, this will lead to unchanged REM fsl file to be execute, so I just close the compile REM logic here. REM IF NOT EXIST %fsl_filename% goto compile REM REM for %%a in ("%lisp_filename%") do ( REM set lisp_timestamp=%%~ta REM ) REM REM for %%a in ("%fsl_filename%") do ( REM set fsl_timestamp=%%~ta REM ) REM REM IF "%fsl_timestamp%" LSS "%lisp_timestamp%" ( REM goto compile REM ) ELSE ( REM goto run REM ) REM REM :compile REM %ccl_path% --eval "(progn (compile-file /"%lisp_filename:/=//%/") (ccl:quit))" :run REM run the lisp, which means load the lisp file REM You can get the command line argument using *UNPROCESSED-COMMAND-LINE-ARGUMENTS* shift %ccl_path% --eval "(progn (load /"%lisp_filename:/=//%/") (ccl:quit))" -- %1 %2 %3 %4 %5 %6 %7 %8 %9 :end

 

将上面的内容保存为ccl.cmd，并保留使用，然后处理传入命令行参数的问题。

 

1.右键选择任意lisp文件，在属性中更改文件的打开方式，选择自动使用ccl.cmd打开。

2.打开注册表，找到HKEY_CLASSES_ROOT/lisp_auto_file/shell/open/command

   下面应该会有如下内容： "some_path_to_ccl_cmd/ccl.cmd" "%1"

   将其更改为 "some_path_to_ccl_cmd/ccl.cmd" "%1" %*

3.将wx86cl.exe所包含的路径加入系统PATH

以上，完成命令行参数的传入设置。

 

我们之后，在lisp脚本中，可以使用ccl:*unprocessed-command-line-arguments*取得所有的命令行参数

 

测试一下， test.lisp

(defun main() (format t "~{~a~%~}" *UNPROCESSED-COMMAND-LINE-ARGUMENTS*) 0) (main)

 

在控制台输入：

D:/>test.lisp 12 foo bar
12
foo
bar

 

如果结果上如，那表示设置已经成功，继续lisp的探索之旅~ :D