Pass one function to handle scanned file

Q&A's, tips, howto's
Locked
csfreebird
Posts: 107
Joined: Tue Jan 15, 2013 11:54 am
Location: China, Beijing
Contact:

Pass one function to handle scanned file

Post by 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 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)
I got error message:

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

csfreebird
Posts: 107
Joined: Tue Jan 15, 2013 11:54 am
Location: China, Beijing
Contact:

Re: Pass one function to handle scanned file

Post by csfreebird »

My bad, forgot to pass file-op to next call
(recursive-access-dir (append dir-path nde "/") file-op)

rickyboy
Posts: 607
Joined: Fri Apr 08, 2005 7:13 pm
Location: Front Royal, Virginia

Re: Pass one function to handle scanned file

Post by rickyboy »

Should you change this:

Code: Select all

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

Code: Select all

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

csfreebird
Posts: 107
Joined: Tue Jan 15, 2013 11:54 am
Location: China, Beijing
Contact:

Re: Pass one function to handle scanned file

Post by csfreebird »

Yes, thanks. I changed it:

Code: Select all

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

Locked