Comment puis-je parcourir un répertoire dans le répertoire Common Lisp?

Je suis en utilisant OpenMCL sur Darwin, et j'aimerais faire quelque chose comme:

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

Mais je ne peux pas obtenir directory pour revenir à autre chose que de NIL, et je n'arrive pas à trouver une bonne explication en ligne (autre que "son différent pour chaque système").

Les pointeurs?

InformationsquelleAutor Justicle | 2009-09-10

19

Votre chemin spécification contenir un caractère générique? Common Lisp du chemin des choses est quelque peu difficile à saisir au premier abord - au moins pour moi, c'était... Comme le CLHS états sur la directory fonction:

Si le pathspec n'est pas sauvage, la
liste contiendra soit
zéro ou un des éléments.

Afin d'avoir votre nom de chemin d'inclure un caractère générique, vous pouvez essayer de le faire-chemin de fonction, comme
```
(directory (make-pathname :directory '(:absolute "srv" "hunchentoot") :name :wild :type "lisp"))
```
Ou même
```
(directory (make-pathname :directory '(:absolute "srv" "hunchentoot") :name :wild :type :wild))
```
J'ai trouvé le CL-FAD bibliothèque d'une grande aide pour traiter avec les chemins d'accès et le système de fichiers. En particulier, son liste-annuaire fonction pourrait être plus facile à utiliser que la plaine standard directory fonction.
- Yep a fonctionné pour moi - (répertoire "chemin d'accès") retourné NÉANT, d'où (répertoire "chemin/*.*") m'a donné les résultats escomptés.
- Vous avez besoin uniquement les fichiers avec les noms contenant un point?
- Bizarre hein? Je suis en fait après .h et .fichiers cpp, mais "chemin/*" renvoie NIL.
- Peut-être quelque chose à voir avec la façon dont Lisp fusionne "incomplet" les chemins d'accès avec des valeurs par défaut. En tant que votre "/chemin/*" ne contenir qu'un générique pour le nom, mais pas pour le type, je suppose que la CCL prend tout simplement le type de chercher sur le par défaut-chemin ou quelque chose. J'ai été mordu assez souvent par la injustifiée de l'hypothèse, qu'un chemin d'accès/motif valable dans une coquille s'est aussi valable/équivalent Lisp chemins d'accès
InformationsquelleAutor Dirk
27

Il y a fondamentalement deux manières de spécifier les chemins d'accès:
- à l'aide de cordes
Chaînes sont évidemment selon la plate-forme: syntaxe Unix vs syntaxe Windows par exemple.
```
"/Users/foo/bar.text"  is a valid pathname
"/Users/foo/*/foo.*"   is a valid pathname with two wildcards
```
Vous pouvez créer un chemin d'accès d'objet à partir d'une chaîne:
```
? (pathname "/Users/bar/foo.text")
#P"/Users/bar/foo.text"
```
La #p ci-dessus assure qu'un chemin d'accès de l'objet (et non une chaîne de caractères) est créé lorsque vous lisez de nouveau.
```
? #P"/Users/bar/foo.text"
#P"/Users/bar/foo.text"
```
Donc, en interne Common Lisp fonctionne avec chemin d'accès des objets, mais il vous permet d'utiliser des chaînes et rend le chemin d'accès des objets à partir d'eux, si nécessaire.

Lors de la Common Lisp voit un chemin qui n'a pas tous les composants (par exemple, le répertoire est manquant), puis il remplit les composants à partir du chemin d'accès de l'objet qui est la valeur de la variabel *par DÉFAUT-CHEMIN par DÉFAUT* .

Avec la fonction de DÉCRIRE, vous pouvez regarder les composants d'un nom de chemin (ici 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
```
- en utilisant les fonctions Lisp de la création de chemin d'accès des objets
FAIRE-PATHNAME est la fonction qui prend un peu de mot-clé arguments pour spécifier les composants.

Parfois, il est également utile de créer un nouveau chemin d'accès basé sur un existant:
```
(make-pathname :name "foo" :defaults (pathname "/Users/bar/baz.text"))
```
Si vous utilisez le RÉPERTOIRE, il est utile d'utiliser un chemin d'accès avec des caractères génériques. RÉPERTOIRE puis retournera une liste de correspondance des chemins d'accès. Le nom de "RÉPERTOIRE" est un peu trompeur, car le RÉPERTOIRE de ne pas lister le contenu d'un répertoire, mais la liste de la correspondance des noms de chemins de (généralement) un chemin avec des caractères génériques. Les caractères génériques peuvent correspondre à des séquences de caractères dans les composants tels que /foo/s*c/liste*.l*". Il y a aussi le joker ** , qui est utilisé pour faire correspondre les pièces du répertoire de la hiérarchie comme /foo/**/test.lisp , qui correspond à tous les fichiers de test.lisp sous le répertoire foo et ses sous-répertoires.
```
(directory "/Users/foo/Lisp/**/*.lisp")
```
Ci-dessus doit renvoyer une liste de tous les "lisp" les fichiers dans/Utilisateurs/foo/Lisp/' et tous ses sous-répertoires.

Pour revenir la .c fichiers dans un répertoire unique utilisation:
```
(directory "/Users/foo/c/src/*.c")
```
Noter que le RÉPERTOIRE retourne une liste de nom de chemin d'objets (et pas une liste de chaînes de caractères).
```
? (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")
```
Ci-dessus utilise un chemin d'accès de l'objet qui est créé par la MAKE-CHEMIN. Elle retourne tous les fichiers qui correspondent à /Lisp/cl-http/cl-http-342/serveur/md5.* .

C'est la même chose que:
```
(directory "/Lisp/cl-http/cl-http-342/server/md5.*")
```
qui est plus court, mais dépend de l'Unix de la syntaxe.
- +1 Un bon résumé des chemins d'accès en LISP, très utile.
InformationsquelleAutor Rainer Joswig
8

Modernes Common Lisp de la bibliothèque de la mise en œuvre de répertoire la liste est IOLIB.

Il fonctionne comme ceci:
```
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")
```
Noter qu'aucune barre oblique ou des caractères génériques sont nécessaires. Il est très robuste et peut même processus noms de fichiers avec mal des caractères unicode codés.

Différences par rapport à CL-FAD:
- Les objets que vous obtenez sont IOLIB les chemins de fichiers, un remplacement de CL des chemins d'accès qui est plus proche de ce que l'OS sous-jacent n'.
- IOLIB met en œuvre ses routines en utilisant CFFI, de sorte qu'il fonctionne de la même manière sur toutes les implémentations Lisp (à condition IOLIB a un backend pour le système d'exploitation), en revanche pour CL-FAD, qui essaie de faire abstraction sur la mise en œuvre de la fonction RÉPERTOIRE avec toutes ses bizarreries.
- Contrairement à CL-FAD, iolib traite correctement avec les liens symboliques (un problème majeur avec CL-FAD qui le rend quasiment inutilisable sur d'autres plateformes que Windows à mon humble avis).
InformationsquelleAutor David Lichteblau
3

Je vais ajouter un exemple qui fonctionne pour moi, pour l'amour d'un extrait de code. J'utilise osicat (similaire à cl-fad) et str.

modifier: aussi avec uiop:directory-files. str:contient? pourrait être fait avec search.
```
;; searching for "ref".
(setf *data-directory* "~/books/lisp")
(remove-if-not (lambda (it)
                   (str:contains? "ref" (namestring it)))
                (osicat:list-directory *data-directory*))
```
retourne
```
(#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")
```
Il peut certainement être amélioré mon une bonne utilisation de caractères génériques. Cependant, c'est un fragment de code que vous pouvez utiliser dès maintenant : )

Références:
- https://github.com/CodyReichert/awesome-cl#files-and-directories
- https://lispcookbook.github.io/cl-cookbook/files.html
InformationsquelleAutor Ehvince

Vous devez vous connecter pour publier un commentaire.