Clojurescript协议的用法？

首先在ClojureScript中使用协议。以下是协议定义/实现：Clojurescript协议的用法？

(defprotocol IDataTable 
    (-pages [this]) 
    (-cnt! [this cnt]) 
    (-paginate [this]) 
) 

(deftype DataTable [id url info] 
IDataTable 
(-cnt! [_ cnt] (swap! info (fn [v] (assoc v :cnt cnt)))) 
(-pages [_] 
    (inc (.round js/Math (/ (:cnt @info) (:length @info)))) 
) 

(-paginate [_] 
    (let [arr (take 5 (drop (- (:page @info) 1) (range 1 (pages))))] 
    (c/paging id (flatten ["Prev" arr "Next"])) 
)) 
)

我很困惑如何调用协议中定义的功能。

以下是代码实例：

(def table-id "some-table") 
(def paging (atom {:page 1 :length 10 :cnt 0 })) 
(def data-table (DataTable. table-id "/list/data" paging))

上面的代码工作，并可以使用以下格式访问属性：

(js/alert (.-id data-table))

我现在面临的问题是如何调用该函数在协议中定义。以下表单导致错误（运行时）。

(-cnt! data-table 10) ;; Error: -cnt! is not a method 
(.-cnt! data-table 10) ;; Error

浏览了生成的Javascript代码，它的功能很冗长。

谢谢

编辑：认为我找到了答案。看起来我需要在命名空间中支持函数。

(defn cnt! [t cnt] 
    (when (satisfies? IDataTable t) 
    (-cnt! t cnt)) 
)

通过上面定义的功能，我可以访问函数。不知道这是否正确？

EDIT2：好了，有了进一步的分析生成的JavaScript代码来实现一个并不需要的辅助功能如上述编辑，函数调用需要与命名空间前缀：

(:require [table :as tbl]) 

(def table-id "some-table") 
(def paging (atom {:page 1 :length 10 :cnt 0 })) 
(def data-table (DataTable. table-id "/list/data" paging)) 

(tbl/-cnt! data-table 10) ;; Works!!!

来源

2012-07-10 user922621

看起来你回答了你自己问题，但万一任何人在这里结束...

协议方法会自动提升到它们声明的名称空间，这意味着如果你想调用这些函数，你可以调用它们，就好像它们是函数中的常规函数一样命名空间。

来源

2013-03-27 11:14:00

如果你想知道更多关于clojurescript的协议：http：//blog.klipse.tech/clojurescript/2016/04/09/clojurescript-protocols-secret.html – 2016-04-10 14:49:12

Clojurescript协议的用法？

回答

相关问题