Re: tool to display library dependencies?

[Kevin Rodgers <ihs_4664@yahoo.com>]

Drew Adams wrote:
 > This has probably been asked before, but I couldn't find it.
 >
 > Is there a tool somewhere that will look at one or more Emacs Lisp 
libraries
 > and output a tree or list of its library dependencies? An Emacs 
command that
 > does this would be great.
 >
 > For example: Library A requires B, which requires C and D. I'd like to be
 > able to determine all of the libraries that A ultimately requires - 
in this
 > case B, C, and D. A dependency tree would be even better:
 >
 >  A-B-+-C
 >      |
 >      +-D
 >
 > I realize that it would be problematic to take autoloads into 
account, but
 > just dealing with the explicit `require's would still be useful. And it
 > would be good if such a tool/command distinguished somehow between 
hard and
 > soft (`(require nil t)') `require's.

,----[ C-h f file-requires RET ]
| file-requires is a compiled Lisp function in `loadhist'.
| (file-requires FILE)
|
| Return the list of features required by FILE.
`----

,----[ C-h f feature-file RET ]
| feature-file is a compiled Lisp function in `loadhist'.
| (feature-file FEATURE)
|
| Return the file name from which a given FEATURE was loaded.
| Actually, return the load argument, if any; this is sometimes the name 
of a
| Lisp file without an extension.  If the feature came from an 
`eval-buffer' on
| a buffer with no associated file, or an `eval-region', return nil.
`----

So:

(require 'loadhist)

(defun file-dependencies (file)
   "Return a list of the files `require'd by FILE.
If any of those files themselves `require' another, return it as a list 
of it
and its dependencies, and so on (recursively)."
   (mapcar (lambda (feature)
             (let* ((required-file (feature-file feature))
                    (required-file-dependencies
                     (file-dependencies required-file)))
               (if required-file-dependencies
                   (cons required-file required-file-dependencies)
                 required-file)))
           (file-requires file)))

Now (progn (require 'w3m) (file-dependencies "w3m")) returns
("browse-url"
  "timezone"
  "w3m-hist"
  ("w3m-e21"
   "wid-edit"
   ("w3m-ccl"
    "ccl")
   "w3m-fsf"
   "w3m-favicon"
   "w3m-image")
  "w3m-proc"
  "w3m-util")

-- 
Kevin Rodgers