emacs - while 和 maphash 之外的迭代？

Question

我正在尝试编写一个小型宏系统来在 Emacs Lisp 中执行迭代任务。我曾想当然地认为，除了 while 循环之外什么都没有。没有更多的原语或一些隐藏的功能，但我决定，我最好问问。

“隐藏功能”是指类似于 tagbody 的东西在 Common Lisp 中，即根据 block 、跳转和标签对代码进行建模的非常原始的形式。 eLisp中有这样的东西吗？甚至没有以任何“骇人听闻”的方式，例如通过字节码？当然，我知道 (catch ... (throw ... )) 构造，但它并不完全相同，因为它只允许“向后”跳转，而不允许向前跳转。我还假设它是一个相当复杂的结构，不适合构建快速迭代原语。

另一件让我烦恼的事情是，似乎没有办法为哈希表创建迭代器。 IE。哈希表必须使用 maphash 进行迭代，一旦退出 maphash 函数，就无法返回到离开它的位置。到目前为止我明白，它必须做类似的事情，导出一个键向量和一个值向量并迭代它们，但似乎没有办法获取这些向量/列表/无论它们是什么。还是我又错了？

我研究了 cl 包如何为 loop 和 dotimes/dolist/do，但他们只是使用 while 或 maphash，以合适的为准，坦率地说，我不太喜欢他们的代码...... 更多除此之外，如果，比方说，在 loop 中有两个 for-as-hash 子句，它们会简单地忽略第一个(你甚至不会收到警告) ) 并为第二个生成代码 :|

是否有一些技巧可以从 eLisp 中的用户代码中获取这些迭代原语？如果不是，用 C 语言编写扩展的可行性如何，真的如此吗？

Answer 1

您可以将 tagbody 作为宏:

   (defmacro cl-tagbody (&rest tags-or-stmts)
     (let ((blocks '()))
       (let ((block (list 'cl--preamble)))
         (dolist (tag-or-stmt tags-or-stmts)
           (if (consp tag-or-stmt) (push tag-or-stmt block)
             ;; Add a "go to next block" to implement the fallthrough.
             (push (nreverse (cons `(go ,tag-or-stmt) block)) blocks)
             (setq block (list tag-or-stmt))))
         (push (nreverse (cons `(go cl--exit) block)) blocks))
       (let ((catch-tag (make-symbol "cl--tagbody-tag")))
         (macroexpand-all
          `(let ((next-tag 'cl--preamble))
             (while
                 (not (eq (setq next-tag
                                (catch ',catch-tag
                                  (cl-case next-tag
                                    ,@blocks)))
                          'cl--exit))))
          `((go . (lambda (tag) `(throw ',catch-tag ',tag)))
            ,@macroexpand-all-environment)))))