Browse Source

Pretty-print :DEPENDS-ON

master
Michał "phoe" Herda 5 years ago
parent
commit
3e18c69e09
1 changed files with 13 additions and 3 deletions
  1. 13
    3
      asd-generator.lisp

+ 13
- 3
asd-generator.lisp View File

@@ -145,9 +145,12 @@
(with-open-file (stream pathname :direction :output)
(format stream ";;;; Autogenerated ASD file for system ~S~%"
(string-upcase (asdf:component-name system)))
(format stream ";;;; In order to regenerate it, run update-asdf from shell (see https://github.com/phoe-krk/asd-generator)~%")
(format stream ";;;; For those who do not have update-asdf, run `ros install asd-generator` (if you have roswell installed)~%")
(format stream ";;;; There are also an interface available from lisp: (asd-generator:regen &key im-sure)~%")
(format stream ";;;; In order to regenerate it, run update-asdf~%")
(format stream ";;;; from shell (see https://github.com/phoe-krk/asd-generator)~%")
(format stream ";;;; For those who do not have update-asdf,~%")
(format stream ";;;; run `ros install asd-generator` (if you have roswell installed)~%")
(format stream ";;;; There are also an interface available from lisp:~%")
(format stream ";;;; (asd-generator:regen &key im-sure)~%")
(pprint-asd asdf-definition stream)
(terpri stream)
(force-output stream))
@@ -176,6 +179,13 @@
(pprint-asd (pprint-pop) *standard-output*)
(pprint-exit-if-list-exhausted)
(pprint-newline :mandatory))))
(:depends-on
(pprint-logical-block (*standard-output* (pprint-pop) :prefix "(" :suffix ")")
(loop
(pprint-exit-if-list-exhausted)
(pprint-asd (pprint-pop) *standard-output*)
(pprint-exit-if-list-exhausted)
(pprint-newline :mandatory))))
(otherwise
(pprint-fill *standard-output* (pprint-pop)))))
(pprint-exit-if-list-exhausted)

Loading…
Cancel
Save