How can I apply a function to all file in a directory,recursively?

How can I apply a function to all file in a directory,recursively?

[Wang Yin]

Hi,

I need some elisp code that can apply a function (actually,
semanticdb-get-database) to all file in a directory and it's
subdirectories recursively.

I know little Elisp, but I need this code urgently.
Can anyone write the code for me?

Thank you very much!

Re: How can I apply a function to all file in a directory,recursively?

[Kai Großjohann]

Wang Yin <wang-y01@mails.tsinghua.edu.cn> writes:

> I need some elisp code that can apply a function (actually,
> semanticdb-get-database) to all file in a directory and it's
> subdirectories recursively.

The function directory-files gives you a list of files and
directories in a directory.  You can then examine each element of the
list whether it is a directory.  If it is, call yourself recursively.

(defun walk-subtree (dir)
  (mapcar (lambda (f)
            (setq f (expand-file-name f dir))
            (if (file-directory-p f) 
                (walk-subtree f)
              (message "Found a file: %s" f)))
          (directory-files dir)))

-- 
This line is not blank.