Changeset 31587 in project for release/4/nemo/trunk/nemo-nest.scm


Ignore:
Timestamp:
10/05/14 05:49:16 (6 years ago)
Author:
Ivan Raikov
Message:

nemo: bug fixes in NEST templates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/nemo-nest.scm

    r31562 r31587  
    307307
    308308
    309   (let-optionals rest ((dirname ".")  (method #f) (ss-method #f) (abstol #f) (reltol #f) (maxstep #f))
     309  (let-optionals rest ((dirname ".") 
     310                       (method #f) (ss-method #f)
     311                       (abstol #f) (reltol #f) (maxstep #f)
     312                       (dump-template-env #f))
    310313
    311314    (let ((method (or method 'gsl)))
     
    705708                      (stateIndexMap     . ,(map (lambda (x) (cons (first x) (second x))) state-index-map))
    706709                      (steadyStateIndexMap . ,(map (lambda (x) (cons (first x) (second x))) steady-state-index-map))
    707                       (stateDefs           . ,(map first state-index-map))
     710                      (stateDefs           . ,(map (lambda (def)
     711                                                     (let* ((n      (first def))
     712                                                            (nu     (lookup-def n c-units))
     713                                                            (nscale (and nu (nemo:unit-scale nu))))
     714                                                       `(
     715                                                         (name  . ,(nest-name n))
     716                                                         (scale . ,nscale)
     717                                                         )
     718                                                       ))
     719                                                   state-index-map))
    708720                      (defaultDefs         . ,(map first defaults))
    709721
     
    972984                   event-external-eq-defs pscs))
    973985
     986        (if dump-template-env
     987            (for-each (lambda (entry)
     988                        (fprintf (current-error-port)
     989                                 "~A = ~A~%" (car entry)
     990                                 (ersatz:tvalue->pystr (cdr entry))))
     991                      tmpl-env
     992                      ))
     993       
    974994        (let ((cpp-output  (open-output-file (make-output-fname dirname prefix ".cpp")))
    975995              (hpp-output  (open-output-file (make-output-fname dirname prefix ".h"))))
Note: See TracChangeset for help on using the changeset viewer.