lisp - 如何使用不对称(未配对)的任意括号创建宏

Question

我想定义一个宏来封装下面的频繁模式。代码为lispworks的FLI。

(fli:with-foreign-string ;; class name pointer
 (cn-p ec bc :external-format (external-format)) "BUTTON"
 (fli:with-foreign-string ;; window name pointer
  (wn-p ec bc :external-format (external-format)) "Configuartion:server"
  (let ((grpbx (createwindowex 0 cn-p wn-p
                               (logior ws_visible ws_child bs_groupbox)
                               0 0 300 420 hwnd 1 (GetModuleHandle-current 0) 0)))
    (fli:with-foreign-string ;; class name pointer
     (cn-p ec bc :external-format (external-format)) "EDIT"
     (fli:with-foreign-string ;; window name pointer
      (wn-p ec bc :external-format (external-format)) "192.168.200.200"
      (createwindowex 0 cn-p wn-p
                      (logior ws_visible ws_child ws_border)
                      10 30 150 30 hwnd 1 (GetModuleHandle-current 0) 0)
      )))))

我要创建的宏如下所示:strs 参数是一个字符串列表，例如("BUTTON""Configuartion:server") 上面，str-syms 累积转换后的字符串，这些字符串将被提供给 createwindoex。令我困惑的是要使用的字符串 (cn-p and wn-p) 在 body 的中间，我不得不将 body 分成两部分:part-bdy 和 &body bdy。

但问题是 part-bdy，它是 LET block 的第一部分(在 createwindoex 之前)，有很多括号，其计数器部分仅在发送部分(&body bdy)。这意味着 part-bdy 中的括号未打开并在计算时导致错误。你有什么好主意建议我解决吗？

(defmacro with-foreign-string (strs str-syms part-bdy &body bdy)
  (let ((g (gensym)))
    (if (null strs)
        (append part-bdy str-syms bdy)
      `(fli:with-foreign-string
        (,g ec bc :external-format (external-format)) ,(car strs)
        (with-foreign-string ,(cdr strs) ,(cons g str-syms) ,part-bdy ,@bdy)))))

Answer 1

只是想分享一下我更改了宏，如下所示:

(defmacro with-foreign-str (strs str-syms bdy)
    (if (null strs)
    bdy
      `(let ((,(car str-syms) (gensym)))
      (fli:with-foreign-string
    (,(car str-syms) ec bc :external-format (external-format)) ,(car strs)
    (with-foreign-str ,(cdr strs) ,(cdr str-syms) ,bdy)))))

那么上面不使用宏的代码代码可以改写成这样:

  (WITH-FOREIGN-STR ("BUTTON" "Configuartion: server") (cn-p wn-p)
    (let ((grpbx (createwindowex 0 cn-p wn-p
                 (logior ws_visible ws_child bs_groupbox)
                 0 0 300 420 hwnd 1 (GetModuleHandle-current 0) 0)))
          (WITH-FOREIGN-STR ("EDIT" "192.168.200.95") (cn-p3 wn-p3) 
               (createwindowex 0 cn-p3 wn-p3
                               (logior ws_visible ws_child ws_border)
               10 30 150 30 hwnd 1 (GetModuleHandle-current 0) 0))))

这仍然不是很干净，但无论如何我可以设法使用宏来简化代码。没有那么多回复只是因为我认为是由于代码中的 FLI 和 win32 API。