创建同一类型的记录作为另一个

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的反射方法效率较低。