java – 将常规Servlet编码转换为我的DSL的起点

如果您选择实现类似的方法(将您的servlet基于Java类提供一些现成的方法impls),您将需要使用代理;如果你只需要实现接口(没有子类),那么你可能需要改进.宏是否有用取决于实现的哪些部分将被修复; Ring的Jetty适配器不会受益于宏的使用,但您可以(例如,如果您希望将类扩展/接口实现为参数,如问题似乎表明的那样).

在任何情况下,您选择实施的任何功能都需要成为接口或协议的一部分.因此,实现javax.servlet.Servlet以及其他操作foo可能如下所示：

(import (javax.servlet Servlet ServletRequest ServletResponse))

(defprotocol PFoo
  (foo [this x y z]))

(reify
  Servlet
  (service [this ^ServletRequest req ^ServletResponse res]
    ...)
  ;; other Servlet methods here...
  PFoo
  (foo [this x y z]
    ...))

然后,您可以将其包装在宏中以提供任何所需的语法糖.请注意,reify实际上并不关心在其体内交换接口/协议名称和方法定义的方式,因此您可以让宏发出

(reify
  Servlet PFoo ... ; other interfaces & protocols
  (service [...] ...)
  (foo [...] ...)
  ;; other methods
  )

如果那更方便.

一个宏的草图,以servlet接口的名称来实现(可能是扩展javax.servlet.Servlet)并使用一些额外的方法注入协议：

(defprotocol PFancyServlet
  (do-get [this ...])
  (do-post [this ...]))

(defmacro servlet [servlet-iface & meths]
   `(reify ~servlet-iface PFancyServlet
      ~@meths))

方法需要包括do-get和do-post以及servlet-iface方法;你可以添加一些参数验证来确保这种情况.一个示例电话：

(servlet SomeServletInterface
  (service [this ...] ...)
  ;; ...
  (do-get [this ...] ...)
  (do-post [this ...] ...))