Hi, I have one function from wiki to iterate folder tree recursively, It works fine. Then I want to modify it to accept a function as argument to handle the scanned file, I try function and macro, but failed. Below is my function version:
(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)
I got error message:
./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
My bad, forgot to pass file-op to next call
(recursive-access-dir (append dir-path nde "/") file-op)
Should you change this:
To this?:
(Not to solve your original issue. It's an extra consideration. Cheers!)
Yes, thanks. I changed it:
(define (recursive-access-dir dir-path file-op)
(dolist (nde (directory dir-path {^[^.]}))
(if (directory? (append dir-path nde))
(recursive-access-dir (append dir-path nde "/") file-op)
(file-op (append dir-path nde)))))