Skip to content
Snippets Groups Projects
Commit 62712868 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

Add load-source-op as documented in README, mark code changes by KMR

parent ed5e1a79
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.31 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.32 $
;;; ;;;
;;; The canonical source for asdf is presently the cCLan CVS repository, ;;; The canonical source for asdf is presently the cCLan CVS repository,
;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/>
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
(:export #:defsystem #:oos #:operate #:find-system #:run-shell-command (:export #:defsystem #:oos #:operate #:find-system #:run-shell-command
#:system-definition-pathname #:find-component ; miscellaneous #:system-definition-pathname #:find-component ; miscellaneous
#:compile-op #:load-op #:test-system-version #:compile-op #:load-op #:load-source-op #:test-system-version
#:operation ; operations #:operation ; operations
#:feature ; sort-of operation #:feature ; sort-of operation
#:version ; metaphorically sort-of an operation #:version ; metaphorically sort-of an operation
...@@ -612,6 +612,18 @@ system.")) ...@@ -612,6 +612,18 @@ system."))
nil nil
(file-write-date (car output-files)))))) (file-write-date (car output-files))))))
;;; >>>> Added KMR 8/02
;;; Add load-source-op for cl-source-file as documented in README
(defclass load-source-op (operation) ())
(defmethod perform ((o load-source-op) (c cl-source-file))
(let* ((output-files (output-files o c)))
(setf (component-property c 'last-loaded)
(if (some #'not (map 'list #'load output-files))
nil
(file-write-date (car output-files))))))
(defmethod output-files ((operation load-source-op) (c component))
(list (component-pathname c)))
;;; <<<< End KMR
(defmethod perform ((operation load-op) (c static-file)) (defmethod perform ((operation load-op) (c static-file))
nil) nil)
...@@ -815,6 +827,7 @@ output to *trace-output*. Returns the shell's exit code." ...@@ -815,6 +827,7 @@ output to *trace-output*. Returns the shell's exit code."
(list "-c" command) (list "-c" command)
:input nil :output *trace-output*)))) :input nil :output *trace-output*))))
;;; Added KMR 8/02
#+allegro #+allegro
(defun run-shell-command (control-string &rest args) (defun run-shell-command (control-string &rest args)
"Interpolate ARGS into CONTROL-STRING as if by FORMAT, and "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and
...@@ -826,6 +839,7 @@ output to *trace-output*. Returns the shell's exit code." ...@@ -826,6 +839,7 @@ output to *trace-output*. Returns the shell's exit code."
(make-array 3 :initial-contents (list "/bin/sh" "-c" command)) (make-array 3 :initial-contents (list "/bin/sh" "-c" command))
:input nil :output *trace-output*))) :input nil :output *trace-output*)))
;;; Added KMR 8/02
#+lispworks #+lispworks
(defun run-shell-command (control-string &rest args) (defun run-shell-command (control-string &rest args)
"Interpolate ARGS into CONTROL-STRING as if by FORMAT, and "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment