Pass one function to handle scanned file

[csfreebird]

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:

Code Select Expand


(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:

Code Select Expand


./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


[csfreebird]

My bad, forgot to pass file-op to next call

   (recursive-access-dir (append dir-path nde "/") file-op)

[rickyboy]

Should you change this:

Code Select Expand

(eval (list file-op nde))
To this?:

Code Select Expand

(file-op nde)
(Not to solve your original issue.  It's an extra consideration.  Cheers!)

[csfreebird]

Yes, thanks. I changed it:

Code Select Expand


(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)))))