Wie durchlaufe ich ein Verzeichnis in Common Lisp?

Ich bin mit OpenMCL auf Darwin, und ich würde gerne etwas machen wie:

(loop for f in (directory "somedir")
  collect (some-per-file-processing f))

Aber ich kann Sie nicht directory Rückkehr alles andere als NILund ich kann nicht scheinen zu finden, eine gute Erklärung online (anderes als "sein für jedes system anders").

Irgendwelche Hinweise?

InformationsquelleAutor der Frage Justicle | 2009-09-10

18

Macht Ihr pathname Spezifikation enthalten eine wildcard? Common Lisp ist Pfadnamen Zeug ist etwas schwer zu fassen ist zunächst - zumindest für mich war es... Wie die CLHS Staaten auf der directory Funktion:

Wenn die Pfadangabe ist nicht wild, die
die resultierende Liste enthält entweder
null oder eins-Elemente.

Damit Ihre Pfadnamen enthalten eine wildcard, die Sie könnten versuchen, die make-pathname-Funktion, wie
```
(directory (make-pathname :directory '(:absolute "srv" "hunchentoot") :name :wild :type "lisp"))
```
Oder sogar
```
(directory (make-pathname :directory '(:absolute "srv" "hunchentoot") :name :wild :type :wild))
```
Fand ich die CL-FAD Bibliothek eine große Hilfe für den Umgang mit Pfadnamen und das Datei-system. Insbesondere seine list-Verzeichnis Funktion könnte einfacher zu bedienen als die einfachen standard - directory Funktion.

InformationsquelleAutor der Antwort Dirk
27

Gibt es grundsätzlich zwei Möglichkeiten zur Angabe von Pfadnamen:
- mit strings
Saiten sind natürlich abhängig von der Plattform: Unix-syntax vs. Windows-syntax, zum Beispiel.
```
"/Users/foo/bar.text"  is a valid pathname
"/Users/foo/*/foo.*"   is a valid pathname with two wildcards
```
Können Sie erstellen ein Pfad-Objekt aus einem string:
```
? (pathname "/Users/bar/foo.text")
#P"/Users/bar/foo.text"
```
#P oben stellt sicher, dass ein Pfadname Objekt (und kein string) erstellt wird, wenn Sie es Lesen zurück.
```
? #P"/Users/bar/foo.text"
#P"/Users/bar/foo.text"
```
So, intern Common Lisp arbeitet mit Pfadnamen Objekte, aber es ermöglicht Ihnen die Verwendung von normalen Saiten und macht Pfadname Objekte aus Ihnen, wenn nötig.

Wenn Common Lisp sieht ein Pfadname, der nicht alle Komponenten mit angegeben (zum Beispiel das Verzeichnis fehlt), dann füllt er die Komponenten von Pfadnamen-Objekt, das der Wert der variabel *STANDARD-PFADNAME-DEFAULTS* .

Mit der Funktion BESCHREIBEN, kann man sich die Komponenten eines Pfades (hier Clozure CL):
```
? (describe (pathname "/Users/bar/*.text"))
#P"/Users/bar/*.text"
Type: PATHNAME
Class: #<BUILT-IN-CLASS PATHNAME>
TYPE: (PATHNAME . #<CCL::CLASS-WRAPPER PATHNAME #x3000401D03BD>)
%PATHNAME-DIRECTORY: (:ABSOLUTE "Users" "bar")
%PATHNAME-NAME: :WILD
%PATHNAME-TYPE: "text"
%PHYSICAL-PATHNAME-VERSION: :NEWEST
%PHYSICAL-PATHNAME-DEVICE: NIL
```
- mit dem Lisp-Funktionen, die das erstellen Pfadname Objekte
MAKE-PFADNAME ist der Funktion und es dauert ein paar keyword-Argumente zu den Komponenten.

Manchmal ist es auch nützlich, um einen neuen Pfadnamen auf der Basis von vorhandenen:
```
(make-pathname :name "foo" :defaults (pathname "/Users/bar/baz.text"))
```
Wenn Sie-VERZEICHNIS ist es sinnvoll, einen Pfad mit wildcards. VERZEICHNIS wird dann zurück eine Liste der gefundenen Pfadnamen. Der name 'VERZEICHNIS' ist etwas irreführend, da VERZEICHNIS nicht auflisten des Inhalts eines Verzeichnisses, sondern listet die passenden Pfade für (in der Regel) eines Pfades mit Platzhaltern. Die wildcards kann eine Folge von Zeichen-Komponenten, wie /foo/s*c/Liste*.l*". Es gibt auch die wild-Karte ** , die werden verwendet, um Teile einer directory-Hierarchie wie /foo/**/test.lisp , die entspricht, Sie alle Dateien testen.lisp unter dem Verzeichnis " foo " und seinen Unterverzeichnissen.
```
(directory "/Users/foo/Lisp/**/*.lisp")
```
Oben zurückkehren sollte, eine Liste mit allen 'lisp' - Dateien in '/Users/foo/Lisp/' und seinen Unterverzeichnissen.

Zurückgeben .c-Dateien in einem einzigen Verzeichnis zu verwenden:
```
(directory "/Users/foo/c/src/*.c")
```
Beachten Sie, dass die VERZEICHNIS gibt eine Liste von Pfadnamen Objekte (nicht eine Liste von strings).
```
? (directory (make-pathname
               :name "md5"
               :type :wild
               :directory '(:absolute "Lisp" "cl-http" "cl-http-342" "server")))
(#P"/Lisp/cl-http/cl-http-342/server/md5.lisp"
 #P"/Lisp/cl-http/cl-http-342/server/md5.xfasl")
```
Oben verwendet einen Pfadnamen Objekt, das erstellt wird, durch MAKE-PFADNAMEN. Es gibt alle Dateien mit /Lisp/cl-http/cl-http-342/server/md5.* .

Dies ist das gleiche wie:
```
(directory "/Lisp/cl-http/cl-http-342/server/md5.*")
```
was kürzer ist, sondern hängt von der Unix-Pfadname syntax.

InformationsquelleAutor der Antwort Rainer Joswig
8

Den modernen Common Lisp-Bibliothek Implementierung der Verzeichnis-Auflistung ist IOLIB.

Funktioniert es so:
```
CL-USER> (iolib.os:list-directory "/etc/apt")
(#/p/"trusted.gpg~" #/p/"secring.gpg" #/p/"trustdb.gpg" #/p/"sources.list"
 #/p/"sources.list~" #/p/"apt-file.conf" #/p/"apt.conf.d" #/p/"trusted.gpg"
 #/p/"sources.list.d")
```
Beachten Sie, dass kein nachgestellter Schrägstrich oder Platzhalter sind erforderlich. Es ist sehr robust und können auch Dateinamen mit falsch codierte unicode-Zeichen.

Unterschiede im Vergleich zu CL-FAD:
- Die Objekte, die Sie erhalten, sind IOLIB-Datei Wege, einen Ersatz für CL-Pfadnamen, die näher ist, was der zugrunde liegende OS funktioniert.
- IOLIB setzt seine Routinen mit CFFI, so dass es funktioniert auf die gleiche auf allen Lisp-Implementierungen (sofern IOLIB hat ein backend für das Betriebssystem), im Gegensatz zu CL-FAD, die versucht, die Abstrakt über die Umsetzung der VERZEICHNIS-Funktion mit all seinen Macken.
- Im Gegensatz zu CL-FAD, iolib beschäftigt sich richtig mit symlinks (ein wichtiges Problem, mit CL-FAD, macht es praktisch unbrauchbar auf anderen Plattformen als Windows IMHO).
InformationsquelleAutor der Antwort David Lichteblau
1

Füge ich ein Beispiel, das funktioniert für mich, für das Interesse der ein code-snippet. Ich benutze osicat (ähnlich cl-fad) und str.

Bearbeiten: auch mit uiop:directory-files. str:enthält? könnte das mit search.
```
;; searching for "ref".
(setf *data-directory* "~/books/lisp")
(remove-if-not (lambda (it)
                   (str:contains? "ref" (namestring it)))
                (osicat:list-directory *data-directory*))
```
gibt
```
(#P"~/books/lisp/common-lisp-quick-reference-clqr-a4-booklet-all.pdf"
 #P"~/books/lisp/common-lisp-quick-reference-clqr-a4-consec.pdf"
 #P"~/books/lisp/commonLisp-interactive-approach-reference-buffalo.pdf")
```
Es kann sicherlich verbessert werden, meine eine ordnungsgemäße Verwendung von wildcards. Aber das ist ein snippet, das Sie verwenden können, jetzt : )

Referenzen:
- https://github.com/CodyReichert/awesome-cl#files-and-directories
- https://lispcookbook.github.io/cl-cookbook/files.html
InformationsquelleAutor der Antwort Ehvince

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.