Changeset 15732 in project


Ignore:
Timestamp:
09/04/09 08:34:55 (10 years ago)
Author:
Ivan Raikov
Message:

fixes to neuromorpho meta filter

Location:
release/4/neuromorpho
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/neuromorpho/neuromorpho.scm

    r15731 r15732  
    2424 matchable html-parser sxml-transforms sxpath uri-generic args)
    2525
     26
     27(define (quotewrapped? str)
     28  (and (string? str) (string-prefix? "\"" str) (string-suffix? "\"" str) ))
     29
     30(define (quotewrap str)
     31  (cond ((quotewrapped? str) str)
     32        ((string-any char-whitespace? str)
     33         (string-append "\"" str "\""))
     34        (else str)))
     35
     36(define (create-directory dir . rest)
     37  (system* "mkdir -p ~a" (quotewrap dir)))
    2638
    2739(define-constant +default-tcp-connect-timeout+ 10000) ; 10 seconds
     
    349361   (d "download directory is ~s~%" (get-data-dir))
    350362   (if (meta-filter) (d "metadata filter is ~s~%" (meta-filter)))
    351 
    352363   (let* ((data-list
    353364           (concatenate
     
    362373                 operands)))
    363374          (meta-filtered-list
    364            (if (and (meta-filter) (pair? (meta-filter)))
     375           (begin
     376             (if (and (meta-filter) (pair? (meta-filter)))
    365377               (let ((ops (map first (meta-filter)))
    366378                     (ks  (map second (meta-filter)))
    367                      (rxs (map (lambda (x) (regexp (third str) #t))
     379                     (rxs (map (lambda (x) (regexp (third x) #t))
    368380                               (meta-filter))))
    369381                 (filter (lambda (x)
     
    380392                         data-list))
    381393               data-list)))
     394          )
    382395     (if (print-meta?) (for-each print meta-filtered-list))
    383396     (let ((morphology-files
  • release/4/neuromorpho/neuromorpho.setup

    r15731 r15732  
    1010
    1111  ; Assoc list with properties for the program:
    12   '((version 1.5)))
     12  '((version 1.6)))
    1313;    (documentation "neuromorpho.html")))
Note: See TracChangeset for help on using the changeset viewer.