cljs.reader/read-raw-string*
function | removed v1.9.854 | added v0.0-2261 | Edit |
(read-raw-string* reader _)
(defn read-raw-string*
[reader _]
(loop [buffer (gstring/StringBuffer.)
ch (read-char reader)]
(cond
(nil? ch) (reader-error reader "EOF while reading")
(identical? "\\" ch) (do (.append buffer ch)
(let [nch (read-char reader)]
(if (nil? nch)
(reader-error reader "EOF while reading")
(recur (doto buffer (.append nch))
(read-char reader)))))
(identical? "\"" ch) (.toString buffer)
:else (recur (doto buffer (.append ch)) (read-char reader)))))