Changeset 13056 in project


Ignore:
Timestamp:
01/22/09 02:24:24 (11 years ago)
Author:
Ivan Raikov
Message:

Using compiled regular expressions with find-files.

Location:
release/3/sigma/trunk
Files:
3 edited

Legend:

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

    r12413 r13056  
    3636
    3737     (history
     38      (version "1.16" "Using compiled regular expressions with find-files")
    3839      (version "1.15" "Added some error checking for temporary directory creation")
    3940      (version "1.14" "Another bug fix in directory path escaping")
     
    181182
    182183     (license
    183       "Copyright 2007-2008 Ivan Raikov.
     184      "Copyright 2007-2009 Ivan Raikov.
    184185
    185186Based on the igal program by Eric Pop. 
  • release/3/sigma/trunk/sigma.scm

    r13046 r13056  
    598598      (let ((pat   (s+ jpgpat "|" pngpat "|" gifpat))
    599599            (expat (regexp (s+ ".*((" thumbpat ")|(" slidepat ")).*"))))
    600         (let ((flst (find-files path pat
     600        (let ((flst (find-files path (regexp pat)
    601601                                (lambda (x ax) (if (string-match expat x) ax
    602602                                                   (cons (pathname-strip-directory x) ax)))
     
    10531053  (let-optionals rest ((subdirs (list)) (up #f) (toplevel? #f) (slide-dir #f))
    10541054   (if (commands 'clean?)
    1055        (let ((pat (s+ ".*/(" thumbprefix ".*|" slideprefix ".*|" css-tmpl-file "|"
    1056                       index-tmpl-file "|" slide-tmpl-file "|.*\\.html|" caption-file ")")))
    1057          (let ((flst (find-files target-dir pat (lambda (x ax) (delete-file x) (cons x ax)) (list) 0)))
    1058            (message "deleted files: " flst))))
     1055       (let* ((pat (s+ ".*/(" thumbprefix ".*|" slideprefix ".*|" css-tmpl-file "|"
     1056                       index-tmpl-file "|" slide-tmpl-file "|.*\\.html|" caption-file ")"))
     1057              (flst (find-files target-dir (regexp pat)
     1058                                (lambda (x ax) (delete-file x) (cons x ax)) (list) 0)))
     1059         (message "deleted files: " flst)))
    10591060   (let ((flst  (read-imagedir image-dir)))
    10601061     ;; make sure there are some image files or subdirectories in the given directory
  • release/3/sigma/trunk/sigma.setup

    r12413 r13056  
    1010
    1111  ; Assoc list with properties for the program:
    12   '((version 1.15)
     12  '((version 1.16)
    1313    (documentation "sigma.html")))
    1414
Note: See TracChangeset for help on using the changeset viewer.