Перевод красивого кода в директивы форматирования
Я пишу красивый код в стиле языка Common Lisp. Хотя у меня есть интуиция, что этот код можно было бы написать более компактно, используя директивы формата, мне все равно это не удалось, поэтому я делюсь своим примером и спрашиваю, может ли кто-нибудь написать директиву формата с такой же семантикой.
CL-USER> (let ((properties
'(:a "the letter a" :b "the letter b"
:a-property-with-a-long-key "and a very long value")))
(pprint-logical-block (nil properties :prefix "(" :suffix ")")
(loop (write-char #\()
(pprint-indent :block 1)
(write (pprint-pop))
(write-char #\Space)
(pprint-newline :linear)
(write (pprint-pop))
(write-char #\))
(pprint-exit-if-list-exhausted)
(pprint-indent :block 0)
(write-char #\Space)
(pprint-newline :linear))))
;; Ouput
((:A
"the letter a")
(:B
"the letter b")
(:A-PROPERTY-WITH-A-LONG-KEY
"and a very long value"))
;; Return value
NIL
(Приведенный выше код, безусловно, гораздо более понятен, чем заменяющая его директива формата, которую еще предстоит найти. Однако директива формата отлично работает при генерации кода на разовой основе.)
Кроме того, хотите ли вы выводить условные символы новой строки или каждое выражение должно находиться на новой строке (+ с отступом), как показано в вашем примере?
Условный (:linear) перевод строки, но меня также устраивает принудительный перевод строки. Скорее всего, результат все равно не поместится в строку. Никакие свойства не должны быть просто NIL вместо ((NIL NIL)) но это не так уж важно.
Ответы 1
Попробуйте что-то вроде этого:
(let ((properties '(:a "the letter a"
:b "the letter b"
:a-property-with-a-long-key "and a very long value")))
(format t "(~{(~s~& ~s)~^~&~@{ (~s~& ~s)~^~&~}~})" properties))
Выход:
((:A
"the letter a")
(:B
"the letter b")
(:A-PROPERTY-WITH-A-LONG-KEY
"and a very long value"))
Используемые директивы:
~{...~}перебирает элементы списка~@{...~}перебирает оставшиеся элементы из списка~sпечатает элемент (=(write (pprint-pop)))~&печатает условную новую строку (=pprint-newline) (замените на~%для безусловного перевода строки)~^останавливается, если в списке нет других элементов (=pprint-exit-if-list-exhausted)
Зачем нужен ~@{...~}? Насколько я могу судить, просто (format t "(~{(~s~& ~s)~^~&~})" properties) дает тот же результат.
Ой, подождите... нет, есть разница в отступах.
Это здорово, спасибо за ваш ответ и очень подробное описание. Однако в коде есть важное отличие: вы не используете логические блоки «~:<» и «~:>».
Если свойства равны
nil, ваш код выводит((NIL NIL))— это предназначено?