修改clojure中的Clojure源代码文件

Question

我想知道是否可以将包含在Clojure .clj源文件中的代码作为列表加载，而无需编译它。

如果我可以加载一个.clj文件作为列表，我可以修改该列表并将其打印回相同的文件，然后再次加载。

（也许这是一个坏主意。）有谁知道这是可能的吗？

Answer 1

稍微简单的例子：

user=> (def a '(println (+ 1 1))) ; "'" escapes the form to prevent immediate evaluation 
#'user/a 
user=> (spit "test.code" a) ; write it to a file 
nil 

user=> (def from-file (read-string (slurp "test.code"))) ; read it from a file 
#'user/from-file 
user=> (def modified (clojure.walk/postwalk-replace {1 2} from-file)) ; modify the code 
#'user/modified 
user=> (spit "new.code" modified) ; write it back 
nil 
user=> (load-string (slurp "new.code")) ; check it worked! 
4 
nil 

哪里slurp给你一个字符串，read-string给你一个未评估的形式，load-string给你评估形式的结果。

Answer 2

这不是一个坏主意，它是lisp的主要属性之一，代码是数据。 你可以读取clj文件作为列表使用读取字符串修改它并写回来。

 

(ns tmp 
    (:require [clojure.zip :as zip]) 
    (:use clojure.contrib.pprint)) 

(def some-var true) 

;;stolen from http://nakkaya.com/2011/06/29/ferret-an-experimental-clojure-compiler/ 
(defn morph-form [tree pred f] 
    (loop [loc (zip/seq-zip tree)] 
    (if (zip/end? loc) 
     (zip/root loc) 
     (recur 
     (zip/next 
     (if (pred (zip/node loc)) 
      (zip/replace loc (f (zip/node loc))) 
      loc)))))) 

(let [morphed (morph-form (read-string (str \((slurp "test.clj")\))) 
          #(or (= 'true %) 
           (= 'false %)) 
          (fn [v] (if (= 'true v) 
            'false 
            'true)))] 
    (spit "test.clj" 
     (with-out-str 
      (doseq [f morphed] 
      (pprint f))))) 
 

这会读取自身并切换布尔值并将其写回。

Answer 3

有一个库叫做rewrite-clj它可以这种类型的东西。

https://github.com/xsc/rewrite-clj