Faz um Clojure proxy invocar sempre super.(método)?
-
17-09-2020 - |
Pergunta
Enquanto estiver usando Clojure proxies, fns
passou para o proxy deve substituir os métodos existentes ou eles são chamados em conjunto com super.method()
?
No código a seguir, RequestHandler.get() é invocada, juntamente com o proxy get []
.
;see: http://github.com/paulosuzart/JTornado
(ns org.ctornadoweb)
(import '(org.jtornadoweb Web$RequestHandler))
(import '(org.jtornadoweb HttpServer Web$Application))
(let [myHandler (proxy [Web$RequestHandler] []
(get []
(.write "Hi CLJ"))
(post []
(.write "POST")))]
(.listen
(HttpServer.
(.add (Web$Application.) "/" (class myHandler))
false nil false) 8089))
O mesmo acontece para o compilado/herança versão:
; Starts a JTornado HTTP Server and a sample RequestHandler.
; Bit verbose due to compilation directives. Recommendation is to generate
; a set of macros to hide this.
(ns org.ctornadoweb
; Compiled and implements a static main method to start the server
(:import (org.jtornadoweb HttpServer)
(org.jtornadoweb.Web$Application)
(org.jtornadoweb.Web$RequestHandler))
(:gen-class :prefix "server-"))
(gen-class
:name org.ctornadoweb.MyHandler
:extends org.jtornadoweb.Web$RequestHandler
:prefix "do")
(defn do-get [this]
"Handles the HTTP GET method"
(.write "hello clojure"))
(defn do-post [this]
"Handles the HTTP POST method"
(.write (.getArgument "name" "default" false)))
(defn server-main []
"main method"
(.listen
(org.jtornadoweb.HttpServer.
(.add (org.jtornadoweb.Web$Application.) "/" org.ctornadoweb.MyHandler)
false nil false) 8089))
;use (compile 'org.ctornadoweb)
O rastreamento mostra o proxy obter a ser invocado e, em seguida, o super.obter, o que joga (por padrão) é uma exceção.
HTTP 405: Method Not Allowed
at org.jtornadoweb.Web$RequestHandler.get(Web.java:72)
at org.ctornadoweb.proxy$org.jtornadoweb.Web$RequestHandler$0.get(Unknown Source)
Eu tentei encontrar algumas palavras sobre o comportamento real do Clojure Proxies.Alguém pode dar essa ajuda?
Solução
Não, o super método não pode ser chamado automaticamente, mas você pode chamar explicitamente com proxy-super
.
O seguinte caso de teste mostra as coisas funcionando como deveriam:
user=> (def foo
(proxy [java.util.ArrayList] []
(clear [] (println "not clearing"))))
#'user/foo
user=> (.size foo)
0
user=> (.add foo "hi")
true
user=> (.add foo "bye")
true
user=> (.size foo)
2
user=> (.clear foo)
not clearing
nil
user=> (.size foo)
2
Se super.clear()
foram ficando chamado, o tamanho seria mostrar como 0.