Changeset 29485 in project


Ignore:
Timestamp:
08/03/13 09:20:20 (6 years ago)
Author:
Ivan Raikov
Message:

nemo: added ability to load sxslt files

Location:
release/4/nemo/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/examples/Golgi/Golgi_DeSouza10.nemo

    r29297 r29485  
    21102110        nseg = 1
    21112111
    2112 {% with diam = default(diam, 1), L = default(L, 1), celsius = default(celsius, 23) %}
     2112{% with diam = default(diam, 5.65), L = default(L, 5.65), celsius = default(celsius, 23) %}
    21132113        diam = {{diam}}
    21142114        L = {{L}}
  • release/4/nemo/trunk/nemo-version.scm

    r29474 r29485  
    11
    2 (define nemo-version 8.29)
     2(define nemo-version "8.30")
  • release/4/nemo/trunk/nemo.scm

    r29300 r29485  
    12621262
    12631263(define (ncml->model-decls options doc)
    1264   (let* ((parse-expr    (or (lookup-def 'parse-expr options) identity))
     1264
     1265  (define (load-ss in)
     1266    (eval `(begin
     1267             ,@sxslt-preamble
     1268             (sxml:make-ss ,@(read in))
     1269             )))
     1270
     1271  (define (make-ss-fname dirname fname)
     1272    (or (and dirname (make-pathname dirname fname)) fname))
     1273
     1274  (let* ((source-path   (lookup-def 'source-path options))
     1275         (dirname       (pathname-directory source-path))
     1276         (parse-expr    (or (lookup-def 'parse-expr options) identity))
    12651277         (ncml:model    ((lambda (x)
    12661278                           (if (null? x) (error 'ncml->model "ncml:model element not found in input document") (car x)))
     
    12751287                                (let ((ss (map
    12761288                                           (lambda (x)
    1277                                              (call-with-input-string (sxml:text x)
    1278                                                (lambda (in) (eval `(begin
    1279                                                                      ,@sxslt-preamble
    1280                                                                      (sxml:make-ss ,@(read in))
    1281                                                                      ))
    1282                                                        )))
     1289                                             (let ((fn (sxml:attr x 'filename)))
     1290                                               (or (and fn (call-with-input-file (make-ss-fname dirname fn) load-ss))
     1291                                                   (call-with-input-string (sxml:text x) load-ss))
     1292                                               ))
    12831293                                           ncml-ss)))
    12841294                                  (fold (lambda (s doc) (stx:apply-templates doc s doc (list))) doc ss))
     
    19731983                              ((sxml xml ixml)     (ncml->model-decls
    19741984                                                    `((parse-expr . ,parse-expr)
    1975                                                       (debug . ,(opt 'debug) ))
     1985                                                      (debug . ,(opt 'debug) )
     1986                                                      (source-path . ,operand)
     1987                                                      )
    19761988                                                    (car doc.iexpr)))
    19771989                              ((sexp nemo)         (sexp->model-decls (car doc.iexpr)))
Note: See TracChangeset for help on using the changeset viewer.