Beispiel zu POSIX-Dateifunktionen

(define directory
  (lambda(path)
    (let ((dir (posix-opendir path)))
      (letrec ((get-file (lambda()
                           (posix-readdir dir)))
               (loop (lambda(file)
                       (if file
                           (cons file (loop (get-file)))
                           '()))))
        (loop (get-file))))))

(write (directory "."))
(newline)

In diesem Beispiel wird der Inhalt des aktuellen Verzeichnisses ausgegeben.

Impressum und Datenschutz