commit cf7577eb6086d6736e0d325fe24615def1bd6dfa parent c74271c2cabda17fd71566e4baca4de06957196e Author: ChanderG <[email protected]> Date: Thu, 27 Nov 2025 12:53:04 +0530 separate out fs walking for files and dir Diffstat:
| M | grep.lisp | | | 16 | +++++++++++----- |
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/grep.lisp b/grep.lisp @@ -1,14 +1,20 @@ (in-package cl-grep) -(defun queue-file (file match) +(defun queue-file (file) (format t "Visiting file: ~a~%" file)) +(defun fs-walker (dir) + (format t "Visiting dir: ~a~%" dir) + ;; process files in this dir + (fsu:map-directory #'queue-file dir + :type ':file) + ;; go through sub-folders + (fsu:map-directory #'fs-walker dir + :type ':directory)) + ;; Main entrypoint for the grep functionality (defun grep-launcher (str dir) - (fsu:map-directory (lambda (x) (queue-file x str)) - dir - :type ':file - :recursive t)) + (fs-walker dir)) (defun main () (let* ((args (uiop:command-line-arguments))