Функции

find-filename(dirname extension)

Описание: find-filename возвращает список файлов с расширением extension. Поиск начинается с каталога dirname, вглубь дерева каталогов. Элементами возврвщаемого списка являются строки.

Пример использования:

(find-filename  "/_storage/otd11/namatv/develop/git/clisp/"  "asd")

find-filename-directory(dirname extension)

Описание: find-filename-directory возвращает список каталогов, в которых присутствуют файлы с расширением extension;

Поиск начинается с каталога dirname, вглубь дерева каталогов;

Елементами возврвщаемого списка являются строки;Пример использования:

(find-filename-directory "/_storage/otd11/namatv/develop/git/clisp/" "asd")

pathname-directory-subtract(path-1 path-2 &key (absolute t))

Описание: функция pathname-directory-subtract вычитает из пути path-1 путь path-2.

Пример использования:

(pathname-directory-subtract "~/quicklisp/local-projects/" 
                              "~/quicklisp/local-projects/mnas/mnas-path/docs/1.txt")
 => #P"/mnas/mnas-path/docs/1.txt"

walk-file-by-extension

(dirname extension &key (fn (function (lambda (x) (write-line (namestring x))))) (fn-extension (function (lambda (x) (string= (pathname-type x) extension)))) (dir-ignore (function (lambda (x) (string= (first (last (pathname-directory x))) .git)))))

Пример использования:

(walk-file-by-extension  "/_storage/otd11/namatv/develop/git/clisp/" "" :fn-extension #'(lambda (x)(member (pathname-type x) '("lisp" "txt") :test #'string=)))
 (walk-file-by-extension "/_storage/otd11/namatv/develop/git/clisp/" "asd")

Mnas-Path » MNAS-PATH

Функции