ruby - 如何在 elisp 中定义以 "blocks"作为参数的函数？

Question

在 Ruby 中，一个方法可以采用 block /lambda，并使您能够编写看起来像是语言一部分的结构。例如，Fixnum 类的 times 方法:

2.times do
  # whatever code is between do and end, will be executed 2 times
end

或者例如File类中的open方法:

File.open(some_file) do |file|
   # do something with the file; once the block finishes execution, the handle is automatically closed
end

open 方法可以有一个类似于此的实现(请原谅 Ruby 的“伪代码”):

class File
  def open(file,mode="r",&blk)
    begin
      handle = probably_sys_open(file)
      if block_given?
         blk.call(handle) 
         close(handle)
      else
         return handle
      end
    rescue SomeException => e
      # whatever error handling goes on here
    end
  end
end

我如何在 elisp 中编写这样的函数/方法，以便在使用它们时，我只需要关心任务的“相关”部分，而不是一直遍历所有样板文件？

Answer 1

How could I write such functions/methods in elisp, so that when I use them, I would only need to care about the "relevant" parts of a tasks, instead of going through all the boilerplate all the time?

你可以为此使用宏。

例如，如果没有 dotimes，您可以轻松地自己编写类似的东西:

(defmacro do-times (n &rest body)
  (let ((i (gensym)))
    `(do ((,i 0 (1+ ,i)))
         ((= ,i ,n))
       ,@body)))

现在，(do-times 3 (princ 'x)) 将执行您期望的操作(您可能需要先执行 (require 'cl))。

这是通过编写为您编写样板的代码来实现的。我不会在这里为您提供完整的宏教程 -- 快速谷歌搜索将为您提供足够的教程和其他信息以帮助您入门。

您可以对文件处理做同样的事情。查看 with-temp-file 中的 emacs lisp 示例。例如，在 CL 中，有 with-open-file，它与您的第二个 Ruby 代码段具有几乎相同的功能。所以:

File.open(some_file) do |file|
   # do something with the file; once the block finishes execution, the handle is automatically closed
end

变成:

(with-open-file (file "some_file")
  # do something ...
  )

除了你可以用宏做的句法抽象，你也可以写高阶函数:

(defun times (n function)
  (do-times n (funcall function)))

现在，此函数将接受计数和另一个函数，该函数将执行 n 次。 (times 3 (lambda () (princ 'x))) 将执行您期望的操作。或多或少，Ruby block 只是这类东西的语法糖。