附录B 在DOS中运行Scheme脚本

DOS的脚本也叫做“批处理”。通常一个输出Hello World!的DOS批处理文件应该这样写:

  1. echo Hello, World!

这里用到了DOS的命令echo。脚本文件被命名为hello.bat,这样会被操作系统认为是可执行的。然后可以放入任一在PATH环境变量中的目录下。然后任何时候在DOS提示符下输入

  1. hello.bat

或者更简单的:

  1. hello

就能立即得到这句俗得不能再俗的问候。

Scheme版本的hello批处理文件会用Scheme产生相同的输出,但是我们需要在文件中写一些东西来告诉DOS让它用Scheme来分析文件内容,而不是理解为它默认的脚本批处理语言。Scheme的批处理文件(也命名为hello.bat),内容如下:

  1. ;@echo off
  2. ;goto :start
  3. #|
  4. :start
  5. echo. > c:\_temp.scm
  6. echo (load (find-executable-path "hello.bat" >> c:\_temp.scm
  7. echo "hello.bat")) >> c:\_temp.scm
  8. mzscheme -r c:\_temp.scm %1 %2 %3 %4 %5 %6 %7 %8 %9
  9. goto :eof
  10. |#
  11. (display "Hello, World!")
  12. (newline)
  13. ;:eof

|#之前全部是标准的DOS批处理命令。后面是Scheme的问候代码。最后还有一行标准的DOS批处理,即;:eof

当用户在DOS提示符下输入hello时,DOS读取并将hello.bat作为一个普通的批处理文件来运行。第一行,;@echo off,关闭了命令运行时产生的输出――我们不想让大量冗余信息淹没我们脚本产生的输出。第二行,;goto :start,让脚本的执行跳转到标号:start即第四行。后面接着的echo行创建了一个叫c:\_temp.scm的Scheme临时文件,其内容如下:

  1. (load (find-executable-path "hello.bat" "hello.bat"))

下一个批处理命令调用MzScheme。-r选项加载Scheme文件c:\_temp.scm。所有的参数(在这个例子里没有)可以在Scheme中通过argv向量来获得。这个调用的Scheme会对我们的脚本进行求值,我们下面会看到。Scheme执行返回后,我们仍然需要让批处理文件正常地结束(否则就会碰到它不认识的Scheme代码了)。下一个批处理命令是goto :eof,这会让控制流跳过所有的Scheme代码,到达文件末尾,也就是包含;:eof标签的一行。然后脚本结束运行。

现在我们知道如何让Scheme来执行它的那部分代码,即运行嵌入在批处理文件中的Scheme表达式。载入c:\_temp.scm会使Scheme找到hello.bat文件的绝对路径(用find-executable-path过程),然后载入hello.bat

因此,Scheme脚本文件现在会以Scheme文件来运行,文件中的Scheme表达式可以通过向量argv来访问脚本的原始参数。

现在Scheme略过脚本中的批处理命令。这是因为这些批处理命令要么以分号开头,要么用#|...|#包裹,这在Scheme看来是注释。

文件剩下的部分当然是Scheme代码,因此表达式被依次求值(最后的表达式;:eof是一个Scheme注释,因此没有关系)总之所有的表达式被求值后,Scheme会退出。

综上所述,在DOS提示符下输入hello会产生

  1. Hello, World!

并返回DOS提示符。