SA
Size: a a a
2020 October 21
SA
по аст
SA
ну бля по листу же лол
SA
короче
SA
я сначала пишу на классах а потом переписываю на структуры
SA
на классах удобно дебажить
SA
на структурах работает с норм скоростью
SA
с функциями потребуется прямо
SA
много писанины какой то
a
ну бля по листу же лол
Если просто по листу как он написан, то там 100% баг, и не один, если этот обходчик дерева не есть 100% правильный code walker.
SA
и не дай бог их руками определять там еще и тиып не проеби вписать и инлайны и все
SA
ну давай пример
SA
я уверен на 100% что перебираю рекурсивно все символы дерева
SA
давай расскажи мне почему это сложно
SA
если хуйня символ и не ключевой то мы его чекаем
если хуйня лист то мы рекурсивно топаем внутрь
в остальных случаях не трогаем
И все это мап
если хуйня лист то мы рекурсивно топаем внутрь
в остальных случаях не трогаем
И все это мап
SA
я сам знаю место где оно может сломаться но поскольку это ваще локальный макрос то
SA
я не суну в него то что его сломает
(имя начинающееся с точки)
(имя начинающееся с точки)
a
Несомненно, что проблема там есть если это не code walker. Чтобы найти конкретный пример, где ломается, нужно видеть имплементацию.
SA
ну и да кст я читаю описание алгоритма
и таки там удобнее делать
и таки там удобнее делать
new.right.parent а не (parent (right new))SA
(defmacro with-snames (&body body)
(labels ((dotsplit (str)
(loop :with acc := (make-array 0 :adjustable t :element-type 'base-char)
:with res := '()
:for char :across str
:if (char= #\. char)
:do (push acc res)
(setf acc (make-array 0 :adjustable t :element-type 'base-char))
:else :do (vector-push-extend char acc)
:finally (push acc res)
(return res)))
(transform (list)
(destructuring-bind (fst . rst) list
(if rst
`(slot-value ,(transform rst) ',(intern (string-upcase fst) 'rb-tree))
(intern (string-upcase fst) 'rb-tree))))
(rec (ls)
(mapcar (lambda (object)
(cond ((and (symbolp object) (not (keywordp object)))
(transform (dotsplit (string object))))
((consp object)
(rec object))
(t object)))
ls)))
`(progn ,@(rec body))))