Commit ba041345 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Move EXPLAIN to backward-interface.

parent e2bd9ddd
......@@ -8,7 +8,7 @@
:asdf/component :asdf/system #:asdf/cache :asdf/find-system :asdf/find-component :asdf/operation)
(:export
#:action #:define-convenience-action-methods
#:explain #:action-description
#:action-description
#:downward-operation #:upward-operation #:sideway-operation #:selfward-operation #:non-propagating-operation
#:component-depends-on
#:input-files #:output-files #:output-file #:operation-done-p
......@@ -107,14 +107,6 @@ You can put together sentences using this phrase."))
(format nil (compatfmt "~@<~A on ~A~@:>")
(type-of operation) component))
;; This is for compatibility with ASDF 1, and is deprecated.
;; TODO: move it to backward-interface
(defgeneric* (explain) (operation component)
(:documentation "Display a message describing an action"))
(defmethod explain ((o operation) (c component))
(asdf-message (compatfmt "~&~@<; ~@;~A~:>~%") (action-description o c)))
(define-convenience-action-methods explain (operation component))
(defun format-action (stream action &optional colon-p at-sign-p)
"FORMAT helper to display an action's action-description.
Use it in FORMAT control strings as ~/asdf-action:format-action/"
......
......@@ -16,7 +16,8 @@
#:operation-on-failure #:operation-on-warnings #:on-failure #:on-warnings
#:component-property
#:run-shell-command
#:system-definition-pathname))
#:system-definition-pathname
#:explain))
(in-package :asdf/backward-interface)
(with-upgradability ()
......@@ -180,10 +181,12 @@ Please use UIOP:RUN-PROGRAM instead."
((integer 0 255) exit-code)
(t 255))))))
(with-upgradability ()
(defvar *asdf-verbose* nil)) ;; backward-compatibility with ASDF2 only. Unused.
;; backward-compatibility methods. Do NOT use in new code. NOT SUPPORTED.
;;; backward-compatibility methods. Do NOT use in new code. NOT SUPPORTED.
(with-upgradability ()
(defgeneric component-property (component property))
(defgeneric (setf component-property) (new-value component property))
......@@ -198,3 +201,15 @@ Please use UIOP:RUN-PROGRAM instead."
(setf (slot-value c 'properties)
(acons property new-value (slot-value c 'properties)))))
new-value))
;;; This method survives from ASDF 1, but really it is superseded by action-description.
(with-upgradability ()
(defgeneric* (explain) (operation component)
(:documentation "Display a message describing an action.
DEPRECATED. Use ASDF:ACTION-DESCRIPTION and/or ASDF::FORMAT-ACTION instead."))
(defmethod explain ((o operation) (c component))
(asdf-message (compatfmt "~&~@<; ~@;~A~:>~%") (action-description o c)))
(define-convenience-action-methods explain (operation component)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment