Changeset 12469 in project


Ignore:
Timestamp:
11/11/08 05:15:33 (11 years ago)
Author:
Ivan Raikov
Message:

Added an option for user-supplied depend variables.

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

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/nemo-nmodl.scm

    r12466 r12469  
    823823      (let* ((indent      0)
    824824             (indent+     (+ 2 indent ))
     825             (table-with  (and table? (inexact->exact (round (/ (abs (- max-v min-v)) step)))))
    825826             (eval-const  (dis 'eval-const))
    826827             (sysname     (nmodl-name ((dis 'sysname) sys)))
     
    983984           (pp indent "}")
    984985           
    985            (let* ((with      (inexact->exact (round (/ (abs (- max-v min-v)) step))))
    986                   (define-fn (make-define-fn table? min-v max-v with depend)))
     986           (let* ((define-fn (make-define-fn table? min-v max-v table-with depend)))
    987987             (for-each (lambda (fndef)
    988988                         (if (not (member (car fndef) builtin-fns))
     
    10181018                 (let ((locals    (find-locals (map second asgn-eq-defs))) )
    10191019                   (if (not (null? locals)) (pp indent+ (LOCAL ,(sl\ ", " locals)))))
     1020#|
     1021                 (if (and table? min-v max-v table-with)
     1022                     (pp indent+ (TABLE ,(sl\ ", " (map first asgn-eq-defs))
     1023                                  ,@(if depend `(DEPEND ,depend) `(""))
     1024                                  FROM ,min-v TO ,max-v WITH ,table-with)))
     1025|#
     1026
    10201027                 (for-each (lambda (def)
    10211028                             (let ((n (nmodl-name (first def)) )
  • release/3/nemo/trunk/nemo.scm

    r12466 r12469  
    8181                                 "(or for all state complexes)"))
    8282           (args:make-option (nmodl-method)       (required: "METHOD")
    83                              (s+ "specify NMODL integration method (cnexp, derivimplicit)")
    84                              (string->symbol arg)))
     83                             (s+ "specify NMODL integration method")
     84                             (string->symbol arg))
     85           (args:make-option (nmodl-depend)       (required: "VARS")
     86                             (s+ "specify DEPEND variables for NMODL interpolation tables")
     87                             (map string->symbol (string-split arg ","))))
    8588          `())
    8689    ,(args:make-option (t)       #:none
     
    188191      (lambda (options model)
    189192        (nemo:nmodl-translator model (lookup-def 'method options) (lookup-def 'table options)
    190                                -150 150 1 #f
     193                               -150 150 1 (lookup-def 'depend options)
    191194                               (lookup-def 'kinetic options) ))
    192195      (lambda (options model)
     
    628631                                                    (s+  (pathname-strip-extension operand) ".m"))))
    629632                             (assoc 'matlab options)))
     633                (nmodl-depend  (lookup-def 'nmodl-depend options))
    630634                                 
    631635                (nmodl-method
     
    646650               (with-output-to-file
    647651                   mod-fname  (lambda ()
    648                                 (model->nmodl `((method  . ,nmodl-method)
     652                                (model->nmodl `((depend  . ,nmodl-depend)
     653                                                (method  . ,nmodl-method)
    649654                                                (table   . ,(assoc 't options))
    650655                                                (kinetic
Note: See TracChangeset for help on using the changeset viewer.