mirror of https://codeberg.org/cage/tinmop/
- changed variable name.
This commit is contained in:
parent
321eede79c
commit
daee794759
|
@ -93,16 +93,20 @@
|
||||||
:documentation "function with two parameter the path and a feature
|
:documentation "function with two parameter the path and a feature
|
||||||
to query Valid feature values are :size. Returns nil if Returns
|
to query Valid feature values are :size. Returns nil if Returns
|
||||||
nil if the path does not point to an actual file.")
|
nil if the path does not point to an actual file.")
|
||||||
(filesystem-list-all-file-paths-function
|
(filesystem-collect-tree
|
||||||
:initform #'fs:collect-tree
|
:initform #'fs:collect-tree
|
||||||
:accessor filesystem-list-all-file-paths-function
|
:accessor filesystem-collect-tree
|
||||||
:type function
|
:type function
|
||||||
:documentation "function with a single parameter, the
|
:documentation "function with a single parameter, the
|
||||||
path. Returns a list of path to all the reachable files from the
|
path. Returns a two values a list of path to all the reachable files from the
|
||||||
argument as root directory e.g
|
argument as root directory and a list of the paths to all directory reachable from the root
|
||||||
(funcall filesystem-list-all-file-paths-function \"foo/\")
|
e.g
|
||||||
; => (foo/bar/baz
|
(funcall filesystem-collect-tree \"foo/\")
|
||||||
|
; => (values (foo/bar/baz
|
||||||
foo/a/b
|
foo/a/b
|
||||||
|
...)
|
||||||
|
(foo/bar/
|
||||||
|
foo/a/
|
||||||
...)")
|
...)")
|
||||||
(filesystem-close-connection-function
|
(filesystem-close-connection-function
|
||||||
:initform (constantly t)
|
:initform (constantly t)
|
||||||
|
@ -131,8 +135,8 @@
|
||||||
(getf handlers-plist :filesystem-upload-function))
|
(getf handlers-plist :filesystem-upload-function))
|
||||||
(setf (filesystem-query-path-function object)
|
(setf (filesystem-query-path-function object)
|
||||||
(getf handlers-plist :filesystem-query-path-function))
|
(getf handlers-plist :filesystem-query-path-function))
|
||||||
(setf (filesystem-list-all-file-paths-function object)
|
(setf (filesystem-collect-tree object)
|
||||||
(getf handlers-plist :filesystem-list-all-file-paths-function))
|
(getf handlers-plist :filesystem-collect-tree))
|
||||||
(setf (filesystem-close-connection-function object)
|
(setf (filesystem-close-connection-function object)
|
||||||
(getf handlers-plist :filesystem-close-connection-function)))
|
(getf handlers-plist :filesystem-close-connection-function)))
|
||||||
object)
|
object)
|
||||||
|
@ -454,7 +458,7 @@
|
||||||
(declare (ignore filename file-count all-files-number)))))
|
(declare (ignore filename file-count all-files-number)))))
|
||||||
(with-accessors ((root-node filesystem-root)
|
(with-accessors ((root-node filesystem-root)
|
||||||
(filesystem-expand-function filesystem-expand-function)
|
(filesystem-expand-function filesystem-expand-function)
|
||||||
(list-all-file-function filesystem-list-all-file-paths-function))
|
(list-all-file-function filesystem-collect-tree))
|
||||||
window
|
window
|
||||||
(let* ((matching-node (find-node root-node path))
|
(let* ((matching-node (find-node root-node path))
|
||||||
(filep (not (tree-dir-p (data matching-node)))))
|
(filep (not (tree-dir-p (data matching-node)))))
|
||||||
|
|
|
@ -182,7 +182,7 @@
|
||||||
:filesystem-download-function (download-node *stream* *root-fid*)
|
:filesystem-download-function (download-node *stream* *root-fid*)
|
||||||
:filesystem-upload-function (upload-node *stream* *root-fid*)
|
:filesystem-upload-function (upload-node *stream* *root-fid*)
|
||||||
:filesystem-query-path-function (query-path *stream* *root-fid*)
|
:filesystem-query-path-function (query-path *stream* *root-fid*)
|
||||||
:filesystem-list-all-file-paths-function (collect-tree *stream* *root-fid*)
|
:filesystem-collect-tree (collect-tree *stream* *root-fid*)
|
||||||
:filesystem-close-connection-function (lambda ()
|
:filesystem-close-connection-function (lambda ()
|
||||||
(9p:close-client socket))))))
|
(9p:close-client socket))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue