v
> хотел узнать какие подходы тут можно использовать.
ну как вариант 🙂
ну как вариант 🙂
Size: a a a
2021 September 01
T
тоже хороший вариант, спасибо.
T
имею в виду сконвертить файл рубями и отдать json в кложу
MK
ну вот и нужно написать свою реализацию этого dsl
https://andv.medium.com/%D0%BF%D0%B8%D1%88%D0%B5%D0%BC-%D0%BF%D1%80%D0%BE%D1%81%D1%82%D0%BE%D0%B9-dsl-%D0%BD%D0%B0-ruby-2762ad49e7b1
https://andv.medium.com/%D0%BF%D0%B8%D1%88%D0%B5%D0%BC-%D0%BF%D1%80%D0%BE%D1%81%D1%82%D0%BE%D0%B9-dsl-%D0%BD%D0%B0-ruby-2762ad49e7b1
AC
вариантов масса, но все упирается с парсерами обычно в три варианта. Объясню на примере XML: DOM, SAX и Stax. Полный парсинг со всей грамматикой - DOM, быстро по тегам - SAX, быстро по тегам с заходом в потрошка - Stax.
T
спасибо! примечание: это пет-проект, подумалось, что наконец-то интересные макросы на кложе напишу. но похоже не судьба =).
AC
было дело, на заре компухтерного времени, году в 2004-м делали парсер RTF, было весело. Отталкивались от парсера, который в JDK изначально, но под конец проекта, там вообще от оригинала ничего от него не осталось :)
T
о, это вы красиво в три предложения объясняли подходы парсинга =)
ST
(defn- find-livecheck-url
[source]
(->> (string/split-lines source)
(drop-while #(not (string/starts-with? (string/triml %) "livecheck")))
(some #(let [[label value] (string/split (string/triml %) #"\s+")]
(when (= label "url") value)))
(read-string)))
AC
нууу... а потрындеть?! смотришь так сериал, а тут спойлеры :)
T
это прекрасно, спасибо 🥃
ST
трындеть же предметно нужно
залезешь в репл, вот тебе и спойлер
залезешь в репл, вот тебе и спойлер
AC
тогда покритикую, кажется такой код обработает неправильно
livecheck
....
end
...
urlT
там много нюансов, но идею Сергей описал кажется достаточно. дальше я уже усложню логику =)
ST
вот так пооптимальней будет, без промежуточного вектора со строками
(defn- find-livecheck-url
[source]
(->> (re-seq #".+\r?\n" source)
(drop-while #(not (string/starts-with? (string/triml %) "livecheck")))
(some #(let [[label value] (string/split (string/triml %) #"\s+")]
(when (= label "url") value)))
(read-string)))
ST
лайвчек может быть без урла?
T
нет, он с урлом всегда
ST
take-while значит добавить, чтобы дальше end не заходило 😊
ST
можно ещё усложнить регулярку и упростить обработку
(defn- find-livecheck-url
[source]
(->> (re-seq #"\s*(\w+)\s+(.+)\r?\n" source)
(drop-while (fn [[_ label]] (not= label "livecheck")))
(some (fn [[_ label value]] (when (= label "url") value)))
(read-string)))
DL
а можно и такой подход
(def replacements {#"livecheck do" "{"
#"url" ":url"
#"(?is)strategy.*" "}"})
(->> replacements
(reduce (fn [s [from to]]
(str/replace s from to))
(slurp "/tmp/livecheck.rb"))
edn/read-string
:url)