Changeset 14651 in project


Ignore:
Timestamp:
05/15/09 10:05:49 (10 years ago)
Author:
Ivan Raikov
Message:

Strip whitespace from field names.

Location:
release/4/neuromorpho
Files:
2 edited

Legend:

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

    r14641 r14651  
    171171
    172172(define (parse-sxml fpath)
    173   (cons '*TOP* (html->sxml (open-input-file fpath)))) 
     173  (with-input-from-file fpath
     174    (lambda () (cons '*TOP* (html->sxml (current-input-port))))))
    174175
    175176(define (anchor->url tree)
     
    299300    ,(args:make-option (fm)       (required: "NAME1=VALUE1[,NAME2=VALUE2 ...]")   
    300301                       "filter pages based on metadata"
    301                        (meta-filter (map (lambda (x) (string-split x "=")) (string-split arg ","))))
     302                       (meta-filter (map (lambda (x) (map string-trim-both (string-split x "=")))
     303                                         (string-split arg ","))))
    302304    ,(args:make-option (pm)       #:none
    303305                       "print metadata"
     
    309311                       (string-append "comma-separated list of index fields "
    310312                                      "(default is " (string-intersperse (index-fields) ", ") ")")
    311                        (index-fields (string-split (or arg "") ",")))
     313                       (index-fields (map string-trim-both (string-split (or arg "") ","))))
    312314    ,(args:make-option (h help)  #:none               "Print help"
    313315                       (usage))))
  • release/4/neuromorpho/neuromorpho.setup

    r14639 r14651  
    1010
    1111  ; Assoc list with properties for the program:
    12   '((version 1.3)))
     12  '((version 1.4)))
    1313;    (documentation "neuromorpho.html")))
Note: See TracChangeset for help on using the changeset viewer.