From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.devel Subject: Re: master e820f16: Added file-tree-walk to files.el. Date: Fri, 05 Dec 2014 19:37:23 +0100 Message-ID: <87y4qmosd8.fsf@web.de> References: <20141203142859.24393.98673@vcs.savannah.gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1417804712 31571 80.91.229.3 (5 Dec 2014 18:38:32 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 5 Dec 2014 18:38:32 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Dec 05 19:38:26 2014 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Xwxlp-0006QW-M5 for ged-emacs-devel@m.gmane.org; Fri, 05 Dec 2014 19:38:25 +0100 Original-Received: from localhost ([::1]:51977 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xwxlp-0005u5-5j for ged-emacs-devel@m.gmane.org; Fri, 05 Dec 2014 13:38:25 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:60080) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xwxl1-0004gX-Gd for emacs-devel@gnu.org; Fri, 05 Dec 2014 13:37:42 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xwxkv-0003Br-1I for emacs-devel@gnu.org; Fri, 05 Dec 2014 13:37:35 -0500 Original-Received: from mout.web.de ([212.227.17.12]:58459) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xwxku-0003BR-HY for emacs-devel@gnu.org; Fri, 05 Dec 2014 13:37:28 -0500 Original-Received: from drachen.dragon ([90.186.215.205]) by smtp.web.de (mrweb101) with ESMTPSA (Nemesis) id 0LZvUH-1XZPdT12dx-00ln0k; Fri, 05 Dec 2014 19:37:26 +0100 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux) Cancel-Lock: sha1:MVGxrA9q5LIA/g3yoze5B8lm9fY= In-Reply-To: (Eric S. Raymond's message of "Wed, 03 Dec 2014 14:28:59 +0000") X-Provags-ID: V03:K0:j9SiG0ndDFgIr6HcUTOvLFkC+AJ7rsxRmQ7oyV/MRJ7mefx0SAc suDDrmZq4/IYkqRmofRCHkASYCFKDBXgm3jp2nANDNjQleS1fYgGZ5QjTza6T1t3t7jd+h6 iYBdAH2DSZ3oteeq2NGD9n5nD+7tg1K99bAE2+pHNmdsp0AxcRUOq2YJNXblZdCWolDDpRG BfE2JndywH2gIzJ0oXZrw== X-UI-Out-Filterresults: notjunk:1; X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-Received-From: 212.227.17.12 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:178980 Archived-At: "Eric S. Raymond" writes: > Added file-tree-walk to files.el. FWIW, I recently wrote quite the same as addition to my iterator package. Whereby I use a recursion predicate of it's own, and the action is to be applied after defining the iterator: --8<---------------cut here---------------start------------->8--- (defun gen-of-files-df (dir &optional exclude-dirs) (cl-callf or exclude-dirs #'ignore) (let ((files (if (funcall exclude-dirs dir) '() (directory-files dir t))) subgen file) (gen-delq nil (gen-make (if (not subgen) (if (not files) 'gen-done (setq file (pop files)) (if (string-match-p "\\`\\.+\\'" (file-name-nondirectory file)) nil (when (and (file-directory-p file) (not (file-symlink-p file))) (setq subgen (gen-of-files-df file exclude-dirs))) file)) (setq file (gen-next subgen)) (if (not (eq file 'gen-done)) file (setq subgen nil) nil)))))) --8<---------------cut here---------------end--------------->8--- And I guess it would be cool to have a breadth-first file-tree walker as well? Regards, Michael.