Skip to content
Snippets Groups Projects
Commit f6c0f8b9 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add a new contrib, detect-multiply-used-files.

parent e5e19249
No related branches found
No related tags found
No related merge requests found
(uiop:define-package :detect-multiply-used-files
(:use :asdf :uiop :common-lisp)
(:export #:find-fishy-components #:register-component-files #:*file-components*))
(in-package :detect-multiply-used-files)
(defparameter *file-components* (make-hash-table :test 'equal))
(defun register-component-files (component)
(let ((c (find-component () component)))
(if-let (p (component-pathname c))
(pushnew (component-find-path c) (gethash (namestring p) *file-components*)))
(when (typep c 'parent-component)
(dolist (cc (component-children c))
(register-component-files cc)))))
(defun table-keys (table)
(loop :for s :being :the :hash-keys :of table :collect s))
(defun find-fishy-components ()
(clrhash *file-components*)
(map () 'register-component-files (table-keys asdf::*defined-systems*))
(loop :for p :in (sort (table-keys *file-components*) 'string<)
:for l = (gethash p *file-components*)
:when (and (file-pathname-p p) (not (length=n-p l 1)))
:do (format t "~&~S =>~{ ~S~}~%" p l)))
#| ;; Use it like that:
(detect-multiply-used-files:find-fishy-components)
|#
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