Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
ba041345
Commit
ba041345
authored
Sep 19, 2016
by
Francois-Rene Rideau
Browse files
Move EXPLAIN to backward-interface.
parent
e2bd9ddd
Changes
2
Hide whitespace changes
Inline
Side-by-side
action.lisp
View file @
ba041345
...
...
@@ -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/"
...
...
backward-interface.lisp
View file @
ba041345
...
...
@@ -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
)))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment