MB
Т.е. насколько я понял, нельзя в макросе эвалить локальные переменные
Can't eval localsSize: a a a
2020 November 08
ST
ну оно и не может здесь работать, проблема-то не в эвале
ST
Т.е. насколько я понял, нельзя в макросе эвалить локальные переменные
ну поставь себя на место компилятора...
MB
Ну я догадываюсь, что я тут головой не слишком хорошо подумал)
MB
Ну вот в этой функции такое ощущение, что должна быть возможность это сделать
ST
Ну я догадываюсь, что я тут головой не слишком хорошо подумал)
ну бывают такие фазы в написании кода, когда всё само собой получается и мозг отключается 😊
MB
Мне по идее же нужно в рантайме собрать функцию
ST
Ну вот в этой функции такое ощущение, что должна быть возможность это сделать
вернуть литерал?
есть
написать литерал ручками, статический 😊
есть
написать литерал ручками, статический 😊
MB
Что-то мне кажется, что мне нужно в макросе просто поменять defmacro на defn
ST
Что-то мне кажется, что мне нужно в макросе просто поменять defmacro на defn
ну-ну 😊
ST
Что-то мне кажется, что мне нужно в макросе просто поменять defmacro на defn
сделай паузу, скушай твикс
MB
Вроде сработало)
ST
((regex "(?<name>[a-zA-Z]+) (?<surname>[a-zA-Z]+)") "John Smith")
у меня это не работает, если «в макросе просто поменять defmacro на defn»
MB
Ну, нужно еще eval убрать для входного аргумента и сделать eval на форму выходящую
ST
Ну, нужно еще eval убрать для входного аргумента и сделать eval на форму выходящую
боюсь, что eval будет работать совсем медленно
MB
(defn regex
"Given an expression that returns a string returns a function
that given a string returns nil if pattern did not match
and a map of named groups if pattern matches."
[regex-string]
(let [re-group-regex #"(?<!\\)(?:\\\\)*\((?:\?<(\w+)>|[^?])"
string-arg (gensym)
matcher-arg (gensym)
pattern (re-pattern regex-string)
group-names (mapv second (re-seq re-group-regex regex-string))
mappings (apply concat (map-indexed (fn [^long i group-name]
`(~group-name (.group ~matcher-arg ~(inc i))))
group-names))]
(eval `(fn [~string-arg]
(let [~matcher-arg (re-matcher ~pattern ~string-arg)]
(if (.matches ~matcher-arg)
{~@mappings ~@mappings}
nil))))))
MB
Ну у меня это в целом код, который выполняется один раз, поэтому мне нестрашно
ST
рантайм макросы 😊
MB
Ну, я бы мог все свое добро на макросах написать почти, но что-то не хочется)
A
Лиспи интересный на бумаге но неудобный
Минусую