LispBox 集成开发环境分析 (一)Windows版本分析

LispBox 集成开发环境分析 (一)Windows版本分析

LispBox 是一个开源的LISP 集成开发环境,由 SLIME (The Superior Lisp Interaction Mode for Emacs) 交互接口、 Quicklisp 库管理器、Clozure Common Lisp 编译器和 Emacs 编辑器组成,有WINDOWS、LINUX和MAC OSX三种版本,目前已经停止更新,下载地址为:
http://www.common-lisp.net/project/lispbox/

使用方法很简单,只要把对应的版本下载回去,然后直接执行对应的程序即可启动整个LISP 开发环境了,比如:
1、在WINDOWS下执行 lispbox.bat  
2、在LINUX下执行 lispbox.sh 
3、在MAC环境下执行 Emacs

对于新手来说不需要进行任何配置工作,非常方便,所以虽然 LispBox 已经停止更新,但是对于Lisp初学者我还是推荐使用LispBox。

本文是一个学习记录,为了避免学了后面的忘记前面的,所以把学习过程中每个阶段理解的内容都用书面的形式做一个总结,以便温故而知新。

首先从LISPBOX的目录结构开始:

解压后的Lispbox 目录名为 "\lispbox-0.7-ccl-1.6-windowsx86\lispbox-0.7\" ,里面有4个目录,如下:
"\ccl-1.6-windowsx86" 
"\emacs-23.2" 
"\Quicklisp"
"\slime-20110205.092829"

有3个文件,分别为:
asdf.lisp
asdf-extensions.lisp
lispbox.bat

前两个文件稍微有些复杂暂时不讨论,第三个文件 lispbox.bat 就是我们要启动 lispbox 的集成开发环境时执行的文件,它是一个批处理文件,先看看它的内容:

@echo off
rem Thanks to Venkat who provided this bit of COMMAND wizardry.

if NOT %OS%==Windows_NT goto checkhome
for %%i in ( "%CD%" ) do set LISPBOX_HOME=%%~si%
goto start

:checkhome

rem
rem if the environment variable is not defined, dereferencing
rem it produces the same string!
rem

if %LISPBOX_HOME%==%LISPBOX_HOME% goto noenv
:start

set EMACS=%LISPBOX_HOME%/emacs-23.2/bin/runemacs.exe
set TO_EVAL="(progn (load \"lispbox\") (slime))"

%EMACS% --no-init-file --no-site-file --eval=%TO_EVAL%

goto end

:noenv

echo LISPBOX_HOME environment variable should be set and
echo point to the installation directory of LISPBOX before
echo launching this command.

:end

感觉又有判断又有跳转的,还有循环,有些看不太清楚,那就换个方法来看,把第一行修改一下,改成如下:
@echo on

也就是说打开屏幕回显,然后开启一个命令行窗口,执行一下 lispbox.bat ,显示结果如下:
LispBox 集成开发环境分析 (一)Windows版本分析_第1张图片


这下就清楚了,首先是判断操作系统是否为WINDOWS,然后设置当前LISPBOX所在目录 LISPBOX_HOME 的值,最后执行了emacs目录下的 runemacs.exe 文件,执行参数有3个:
1、 --no-init-file 表示不加载 emacs 的初始化文件(~\.emacs)
2、 --no-site-file 表示不加载 emacs 的全站点配置文件(emacs 一般使用这些文件作为默认的全站点初始化文件 site-load.el  site-init.el site-start.el)
3、 --eval="(progn (load \"lispbox\") (slime))"  EVAL是lisp里的一个求值函数,该语句表示由 emacs 顺序执行如下两条命令: (load "lispbox")  ,(slime) ,第一条命令表示首先要加载 lispbox (也就是emacs-23.2/site-lisp/目录下的 lispbox.el 文件,所以你也可以把这条命令改写为 (load \"lispbox.el\") ,效果是一样的),然后再执行 slime ,我们可以看一下 lispbox.el 文件有哪些内容,如下:

;; lispbox.el

(require 'cl)

(defun lispbox-list-to-filename (list)
  (apply 
   #'concat 
   (maplist
    #'(lambda (cons)
        (if (cdr cons) (file-name-as-directory (car cons)) (car cons)))
    list)))

(defun lispbox-file (rest)
  (concat 
   (file-name-as-directory
    (expand-file-name
     (or (getenv "LISPBOX_HOME")
         (file-name-directory load-file-name))))
   rest))

(defun lispbox-find-lisps ()
  (dolist (file (file-expand-wildcards (lispbox-file "*/lispbox-register.el")))
    (load file)))

(defun lispbox-install-lisp-license (license-path lisp-name)
  (let ((license (concat (file-name-directory load-file-name) (lispbox-list-to-filename license-path))))
    (if (not (file-exists-p license))
      (let* ((prompt (format "Need to install license for %s . Please enter name of file where you saved it: " lisp-name))
             (to-install (read-file-name prompt)))
        (copy-file (expand-file-name to-install) license)))))

(global-font-lock-mode t)

(setq load-path (cons (lispbox-file "slime-20110205.092829") load-path))
(setenv "SBCL_HOME" (lispbox-file "sbcl-1.0.42/lib/sbcl"))
(setenv "CCL_DEFAULT_DIRECTORY" (lispbox-file "ccl-1.6-windowsx86"))

;(require :aserve)
(require 'slime)

(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(prefer-coding-system 'utf-8)


(setq slime-net-coding-system 'utf-8-unix)
(slime-setup '(slime-fancy slime-asdf slime-banner))
(lispbox-find-lisps)

(provide 'lispbox)

 

关键是这几句:

(setq load-path (cons (lispbox-file "slime-20110205.092829") load-path))
(setenv "SBCL_HOME" (lispbox-file "sbcl-1.0.42/lib/sbcl"))
(setenv "CCL_DEFAULT_DIRECTORY" (lispbox-file "ccl-1.6-windowsx86"))


第一句指定了 slime 的目录,这样执行 slime 时EMACS就能够自动到 slime 的安装目录下找到 slime.el 文件了

你可能感兴趣的:(emacs,lisp,lispbox,Slime,lispbox.bat)