Thay thế chuỗi con nhận biết cú pháp

Question

Tôi có một chuỗi chứa biểu mẫu Clojure hợp lệ. Tôi muốn thay thế một phần của nó, giống như với assoc-in, nhưng xử lý toàn bộ chuỗi như mã thông báo.

=> (assoc-in [:a [:b :c]] [1 0] :new) 
[:a [:new :c]] 
=> (assoc-in [:a 
       [:b,, :c]] [1 0] :new) 
[:a [:new :c]] 
=> (string-assoc-in "[:a 
         [:b,, :c]]" [1 0] ":new") 
"[:a 
    [:new,, :c]]" 

Tôi muốn viết string-assoc-in. Lưu ý rằng đối số đầu tiên và cuối cùng của nó là các chuỗi, và nó giữ ngắt dòng và dấu phẩy. Nó có thể làm được trong Clojure không? Điều gần nhất tôi tìm thấy là read gọi clojure.lang.LispReader, nhưng tôi không biết cách hoạt động.

Tôi muốn sử dụng nó để đọc tệp nguồn Clojure và hiển thị nó với một số sửa đổi, giữ cấu trúc của tệp.

Answer 1

Tôi nghĩ rằng điều này sẽ làm việc, hoàn toàn nói chung và không yêu cầu đọc riêng của mình/phân tích cú pháp:

(defn is-clojure-whitespace? [c] 
    (or (Character/isSpace c) 
     (= \, c))) 

(defn whitespace-split 
    "Returns a map of true -> (maximal contiguous substrings of s 
    consisting of Clojure whitespace), false -> (as above, non-whitespace), 
    :starts-on-whitespace? -> (whether s starts on whitespace)." 
    [s] 
    (if (empty? s) 
    {} 
    (assoc (group-by (comp is-clojure-whitespace? first) 
        (map (partial apply str) 
          (partition-by is-clojure-whitespace? s))) 
     :starts-on-whitespace? 
     (if (is-clojure-whitespace? (first s)) true false)))) 

(defn string-assoc-in [s coords subst] 
    (let [{space-blocks true 
     starts-on-whitespace? :starts-on-whitespace?} 
     (whitespace-split s) 
     s-obj (assoc-in (binding [*read-eval* false] (read-string s)) 
         coords 
         (binding [*read-eval* false] (read-string subst))) 
     {non-space-blocks false} 
     (whitespace-split (pr-str s-obj))] 
    (apply str 
      (if starts-on-whitespace? 
      (interleave space-blocks (concat non-space-blocks [nil])) 
      (interleave non-space-blocks (concat space-blocks [nil])))))) 

Ví dụ:

user> (string-assoc-in "[:a [:b,, :c]]" [1 0] ":new") 
"[:a [:new,, :c]]" 

Cập nhật: Ouch, bắt một lỗi:

user> (string-assoc-in "[:a [:b,, :c\n]]" [1 0] ":new") 
"[:a [:new,, :c]]\n" 

Tôi rất thích nó nếu nó không quan trọng, nhưng tôi đoán tôi sẽ hav e để thử và làm điều gì đó về nó ... thở dài

Answer 2

Tôi giả sử bạn không muốn thực sự đọc trong biểu mẫu và đánh giá nó? fnparse có Clojure parser (được viết bằng Clojure sử dụng fnparse). Bạn có thể sử dụng nó để giúp bạn từ chuỗi thành dạng, sau đó thao tác, sau đó đặt nó trở lại chuỗi?

Answer 3

Bạn có thể làm điều này với một sự kết hợp của (string đọc) và một số chuỗi thao tác:

(defn string-assoc-in 
    [a b c] 
    (.replaceAll 
    (str 
    (assoc-in (read-string (.replaceAll a ",," ",_,")) b (read-string c))) 
    " _ " ",, ")) 

user> (string-assoc-in "[:a [:b,, :c]]" [1 0] ":new") 
"[:a [:new,, :c]]" 

Lưu ý rằng chúng tôi yêu cầu một nhân vật giữ chỗ dành riêng (trong trường hợp này, _) mà bạn sẽ không muốn trong từ khóa của bạn. Bí quyết là để có được những người, trên con đường khi người đọc được crunching trên chuỗi vector, sau đó đưa chúng trở lại.

Mẫu này không giải quyết các dòng mới, nhưng tôi nghĩ rằng bạn có thể xử lý các mẫu đó theo cùng một cách.

Answer 4

Hoặc một tùy chọn khác là sử dụng mã số ANTLR đến parse the Clojure vào AST, sau đó chuyển AST và xuất trở lại chuỗi.