Changeset 11603 in project


Ignore:
Timestamp:
08/12/08 08:37:10 (13 years ago)
Author:
Ivan Raikov
Message:

Some updates to the nmodl backend and hh extension.

Location:
release/3/oru
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/oru/examples/hh-superstrate.scm

    r11325 r11603  
    8282        (print ((oru 'imports) hh1))
    8383        (for-each (lambda (x)
    84                     (print x ": " ((oru 'component-exports) hh1 x)))
     84                    (print x ": " ((oru 'component-exports) hh1 (second x))))
    8585                  ((oru 'components) hh1))
    8686        (oru:nmodl-translator hh1))
    8787      )
    8888  )
    89 
    90 
    91      
    92 
  • release/3/oru/extensions/oru-hh.scm

    r11412 r11603  
    7878            ;; check for required decls in m
    7979            (check-decls ion '(initial-m) alst)
    80             (if (not (check-decls ion '(m-inf tau-m) alst #f))
     80            (if (not (check-decls ion '(m-inf m-tau) alst #f))
    8181                (check-decls ion '(m-alpha m-beta) alst))
    8282           
     
    8484            (if (positive? h-power)
    8585                (begin (check-decls ion '(initial-h) alst)
    86                        (if (check-decls ion '(h-inf tau-h) alst #f)
     86                       (if (not (check-decls ion '(h-inf h-tau) alst #f))
    8787                           (check-decls ion '(h-alpha h-beta) alst))))
    8888           
  • release/3/oru/nmodl.scm

    r11596 r11603  
    607607                      (i-eqs  (fold (lambda (b ax)
    608608                                      (match b
     609                                             ((and ps ((i e gion) . rst)) 
     610                                              (let* ((sum   `(* ,(sum (map third ps)) (- v ,e)))
     611                                                     (sum0  (rhsexpr sum))
     612                                                     (sum1  (canonicalize-expr/NMODL sum0)))
     613                                                (cons (list i sum1) ax)))
     614
    609615                                             ((i e gion)
    610616                                              (let* ((expr0  (rhsexpr `(* ,gion (- v ,e))))
     
    612618                                                (cons (list i expr1) ax)))
    613619                                                     
    614                                              ((and ps ((i e gion) . rst)) 
    615                                               (let* ((sum   `(* (+ . ,(map third ps)) (- v ,e)))
    616                                                      (sum0  (rhsexpr sum))
    617                                                      (sum1  (canonicalize-expr/NMODL sum0)))
    618                                                 (cons (list i sum1) ax)))
    619620
    620621                                             (else ax)))
Note: See TracChangeset for help on using the changeset viewer.