Changeset 13046 in project


Ignore:
Timestamp:
01/21/09 02:38:53 (11 years ago)
Author:
Ivan Raikov
Message:

removed sigma-find-files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/sigma/trunk/sigma.scm

    r12413 r13046  
    310310
    311311
    312 (define sigma-find-files
    313   (let ([glob glob]
    314         [string-match string-match]
    315         [make-pathname make-pathname]
    316         [directory? directory?] )
    317     (lambda (dir pred . action-id-limit)
    318       (let-optionals action-id-limit
    319           ([action (lambda (x y) (cons x y))] ; we want cons inlined
    320            [id '()]
    321            [limit #f] )
    322         (##sys#check-string dir 'sigma-find-files)
    323         (let* ([depth 0]
    324                [lproc
    325                 (cond [(not limit) (lambda _ #t)]
    326                       [(fixnum? limit) (lambda _ (fx< depth limit))]
    327                       [else limit] ) ]
    328                [pproc
    329                 (if (or (string? pred) (regexp? pred))
    330                     (lambda (x)
    331                       (string-match pred x))
    332                     pred) ] )
    333           (let loop ([fs (glob (make-pathname dir "*"))]
    334                      [r id] )
    335             (if (null? fs)  r
    336                 (let ([f (##sys#slot fs 0)]
    337                       [rest (##sys#slot fs 1)] )
    338                   (cond [(directory? f)
    339                          (cond [(member (pathname-file f) '("." "..")) (loop rest r)]
    340                                [(lproc f)
    341                                 (loop rest
    342                                       (fluid-let ([depth (fx+ depth 1)])
    343                                         (loop (glob (make-pathname f "*"))
    344                                               (if (pproc f) (action f r) r)) ) ) ]
    345                                [else (loop rest (if (pproc f) (action f r) r))] ) ]
    346                         [(pproc f) (loop rest (action f r))]
    347                         [else (loop rest r)] ) ) ) ) ) ) ) ) )
    348 
    349312
    350313(define (run:execute explist)
     
    635598      (let ((pat   (s+ jpgpat "|" pngpat "|" gifpat))
    636599            (expat (regexp (s+ ".*((" thumbpat ")|(" slidepat ")).*"))))
    637         (let ((flst (sigma-find-files path pat
    638                                       (lambda (x ax) (if (string-match expat x) ax
    639                                                         (cons (pathname-strip-directory x) ax)))
    640                                       (list) 0)))
     600        (let ((flst (find-files path pat
     601                                (lambda (x ax) (if (string-match expat x) ax
     602                                                  (cons (pathname-strip-directory x) ax)))
     603                                (list) 0)))
    641604          (sort flst string<?))))))
    642605
    643606(define (read-subdirs path)
    644   (sigma-find-files
     607  (find-files
    645608   path (lambda (x)
    646609          (let ((canx (canonical-path x))
     
    10921055       (let ((pat (s+ ".*/(" thumbprefix ".*|" slideprefix ".*|" css-tmpl-file "|"
    10931056                      index-tmpl-file "|" slide-tmpl-file "|.*\\.html|" caption-file ")")))
    1094          (let ((flst (sigma-find-files target-dir pat (lambda (x ax) (delete-file x) (cons x ax)) (list) 0)))
     1057         (let ((flst (find-files target-dir pat (lambda (x ax) (delete-file x) (cons x ax)) (list) 0)))
    10951058           (message "deleted files: " flst))))
    10961059   (let ((flst  (read-imagedir image-dir)))
Note: See TracChangeset for help on using the changeset viewer.