Code: Select all
(define (recursive-access-dir dir-path file-op)
(println dir-path)
(dolist (nde (directory dir-path {^[^.]}))
(if (directory? (append dir-path nde))
(recursive-access-dir (append dir-path nde "/"))
(begin
(println nde)
(eval (list file-op nde)))))
)
(recursive-access-dir "/home/dean/work/gitlab_cloud/newlisp/cppwizard/console/" println)
(exit)
Code: Select all
./test.lsp
newlisp armory home folder: /home/dean/github/newlisp_armory
/home/dean/work/gitlab_cloud/newlisp/cppwizard/console/
/home/dean/work/gitlab_cloud/newlisp/cppwizard/console/builder/
profile
ERR: invalid function : (nil "profile")
called from user defined function recursive-access-dir
called from user defined function recursive-access-dir