創建同一類型的記錄作爲另一個

Question

我有，我想創建基於作爲參數連同地圖的屬性來記錄實例的類型記錄的新實例的情況下。

(defn record-from-instance 
    [other attrs] 
    ;; Code that creates the new record based on "other" 
) 

我現在所擁有的是在電線之間的東西：

(defn record-from-instance 
    [other attrs] 
    (let [matched (s/split (subs (str (class other)) 6) #"\.") 
     path (s/join "." (pop matched)) 
     class-name (peek matched)] 
    ((resolve (symbol (str path "/" "map->" class-name))) attrs))) 

是否有其他更簡單更地道的方式來做到這一點，我不能看？

謝謝！

編輯

給一些更多的細節，我建設有節點被記錄和我使用的是拉鍊參觀，並可能更改/刪除AST的部分的AST。我有一個IZipableTreeNode協議

(defprotocol IZipableTreeNode 
    (branch? [node]) 
    (children [node]) 
    (make-node [node children])) 

實現了不同類型之間的IZipableTreeNode是IPersistentMap

IPersistentMap 
    (branch? [node] true) 
    (children [node] (seq node)) 
    (make-node [node children] 
    (let [hmap (into {} (filter #(= (count %) 2)) children)] 
     (if (record? node) 
     (record/from-instance node hmap) 
     hmap))) 

當訪問者說，從節點刪除字段（或改變吧）make-node被調用node成爲創紀錄的AST節點和children新的鍵/值對（可能不包含node中的某些字段）。

Answer 1

我想clojure.core/empty來做到這一點。也就是說，我認爲

(defrecord Foo [x]) 
(empty (Foo. 1)) 

將返回

#user.Foo{:x nil} 

但它肯定不會做，現在：我不知道這是否改變或者我記錯。我找不到一個超級乾淨的方式來做到這一點，但我至少有一些比你的方法更好的東西。您正在使用的user/map->Foo函數基於與類user.Foo/create一起生成的靜態方法，並且通過反射直接調用該函數會更有幫助。

user> ((fn [r attrs] 
     (.invoke (.getMethod (class r) "create" 
           (into-array [clojure.lang.IPersistentMap])) 
        nil, (into-array Object [attrs]))) 
     (Foo. 1) {:x 5}) 
#user.Foo{:x 5} 

但是，它現在發生在我身上，現在你可能不需要做任何這些！你首先想到的是，實現「基於以前的事情構建新事物」的目標是從頭開始，但爲什麼要這樣做？只要記錄被傳遞到你的函數沒有任何「擴展名」字段中添加到它（即記錄定義本身的那些不是一部分），那麼你可以簡單地使用clojure.core/into：

(into (Foo. 1) {:x 5}) ;=> #user.Foo{:x 5} 

Answer 2

你也可以這樣做：

(defn clear [record] 
    (reduce (fn [record k] 
      (let [without (dissoc record k)] 
       (if (= (type record) (type without)) 
       without 
       (assoc record k nil)))) 
      record 
      (keys record))) 

(defn map->record [record m] 
    (into (clear record) m)) 

例子：

(defrecord Foo [x y]) 

(map->record (map->Foo {:x 1 :y 2 :z 3}) {:y 4}) 
;;=> #example.core.Foo{:x nil, :y 4} 

我不知道這是否會更有效率或大於@ amalloy的反射方法效率較低。