[Chicken-users] Question about find-files

[Ivan Raikov]

Hi all,

   I have noticed that the find-files procedure ignores all
subdirectories it finds in the target directory, and I wondered why
that is, since it is inconsistent with the Unix find command. So is
this a bug or a feature? Also, would it be possible to add an option
to include dot files, similar to the directory procedure? Thanks,

   -Ivan

P.S.: Here is a variant of find-files that includes subdirectories:


(define find-files
  (let ([glob glob]
        [string-match string-match]
        [make-pathname make-pathname]
        [directory? directory?] )
    (lambda (dir pred . action-id-limit)
      (let-optionals action-id-limit
          ([action (lambda (x y) (cons x y))] ; we want cons inlined
           [id '()]
           [limit #f] )
        (##sys#check-string dir 'find-files)
        (let* ([depth 0]
               [lproc
                (cond [(not limit) (lambda _ #t)]
                      [(fixnum? limit) (lambda _ (fx< depth limit))]
                      [else limit] ) ]
               [pproc
                (if (or (string? pred) (regexp? pred))
                    (lambda (x) (string-match pred x))
                    pred) ] )
          (let loop ([fs (glob (make-pathname dir "*"))]
                     [r id] )
            (if (null? fs)
                r
                (let ([f (##sys#slot fs 0)]
                      [rest (##sys#slot fs 1)] )
                  (cond [(directory? f)
                         (cond [(member (pathname-file f) '("." "..")) (loop 
rest r)]
                               [(lproc f)
                                (loop rest
                                      (fluid-let ([depth (fx+ depth 1)])
                                        (loop (glob (make-pathname f "*")) 
                                              (if (pproc f) (action f r) r)) ) 
) ]
                               [else (loop rest (if (pproc f) (action f r) r))] 
) ]
                        [(pproc f) (loop rest (action f r))]
                        [else (loop rest r)] ) ) ) ) ) ) ) ) )