The mnas-path Reference Manual

4.1.1 mnas-path/mnas-path.asd

Source

mnas-path.asd.

Parent Component

mnas-path (system).

ASDF Systems

mnas-path.

---

4.1.2 mnas-path/src/mnas-path.lisp

Source

mnas-path.asd.

Parent Component

src (module).

Packages

mnas-path.

Public Interface

• asdf-path (function).
• directory-basename (function).
• find-directory-parent (function).
• find-filename (function).
• find-filename-directory (function).
• pathname-directory-subtract (function).
• pathname-merge (function).
• walk-directory-by-name (function).
• walk-file-by-extension (function).
• walk-subdirs (function).

---

6.1.1 Ordinary functions

Function: asdf-path (system-name relative-path) ¶

@b(Описание:) функция @b(asdf-path) возвращает полный путь к относительному пути @b(relative-path) в asdf-системе @b(system-name).

Package

mnas-path.

Source

mnas-path.lisp.

Function: directory-basename (path) ¶

@b(Описание:) функция @b(dir-basename) возвращает базовое имя каталога.

@b(Пример использования:)
@begin[lang=lisp](code)
(directory-basename #P"D:/home/_namatv/PRG/msys64/") => "msys64" @end(code)

Package

mnas-path.

Source

mnas-path.lisp.

Function: find-directory-parent (dirname name) ¶

@b(Описание:) find-directory-parent

Package

mnas-path.

Source

mnas-path.lisp.

Function: find-filename (dirname extension) ¶

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

@b(Пример использования:)
@begin[lang=lisp](code)
(find-filename "/_storage/otd11/namatv/develop/git/clisp/" "asd") @end(code)

Package

mnas-path.

Source

mnas-path.lisp.

Function: find-filename-directory (dirname extension) ¶

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

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

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

@b(Пример использования:)
@begin[lang=lisp](code)
(find-filename-directory "/_storage/otd11/namatv/develop/git/clisp/" "asd") @end(code)

Package

mnas-path.

Source

mnas-path.lisp.

Function: pathname-directory-subtract (path-1 path-2 &key absolute) ¶

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

@b(Пример использования:)
@begin[lang=lisp](code)
(pathname-directory-subtract "~/quicklisp/local-projects/" "~/quicklisp/local-projects/mnas/mnas-path/docs/1.txt") => #P"/mnas/mnas-path/docs/1.txt"
@end(code)

Package

mnas-path.

Source

mnas-path.lisp.

Function: pathname-merge (path-root path-file) ¶

Package

mnas-path.

Source

mnas-path.lisp.

Function: walk-directory-by-name (dirname name &key fn) ¶

@b(Описание:) walk-directory-by-name

Package

mnas-path.

Source

mnas-path.lisp.

Function: walk-file-by-extension (dirname extension &key fn fn-extension dir-ignore) ¶

@b(Пример использования:)
@begin[lang=lisp](code)
(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")
@end(code)

Package

mnas-path.

Source

mnas-path.lisp.

Function: walk-subdirs (dir) ¶

Возвращает список директорий начиная с директория dir. Пример использования
(walk-subdirs #P"/home/namatv/My/developer/")

Package

mnas-path.

Source

mnas-path.lisp.

---