Changeset 11850 in project


Ignore:
Timestamp:
09/01/08 10:33:54 (13 years ago)
Author:
Ivan Raikov
Message:

Renaming oru to nemo.

File:
1 edited

Legend:

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

    r11797 r11850  
    2626(require-extension strictly-pretty)
    2727(require-extension environments)
    28 (require-extension oru-core)
     28(require-extension nemo-core)
    2929(require-extension srfi-1)
    3030(require-extension srfi-4)
     
    341341                                   (loop (cons s0 (cons s1 lst)) (cdr tlst)))
    342342                                  (('-> _)
    343                                    (oru:error 'oru:nmodl-state-eqs ": invalid transition equation "
     343                                   (nemo:error 'nemo:nmodl-state-eqs ": invalid transition equation "
    344344                                                  (car tlst) " in state complex " n))
    345345                                  (else (loop lst (cdr tlst)))))))
     
    404404              (match-let (((i . n)  x))
    405405                         (let ((en (environment-ref sys n)))
    406                            (if (oru:quantity? en)
    407                                (cases oru:quantity en
     406                           (if (nemo:quantity? en)
     407                               (cases nemo:quantity en
    408408                                      (ASGN  (name value rhs) (cons (asgn-eq name rhs) ax))
    409409                                      (else  ax))
     
    419419              (match-let (((i . n)  x))
    420420                         (let ((en (environment-ref sys n)))
    421                            (if (oru:quantity? en)
    422                                (cases oru:quantity en
     421                           (if (nemo:quantity? en)
     422                               (cases nemo:quantity en
    423423                                      (TSCOMP  (name initial open transitions power)
    424424                                               (append (state-eqs name initial open transitions power) ax))
     
    435435              (match-let (((i . n)  x))
    436436                         (let ((en (environment-ref sys n)))
    437                            (if (oru:quantity? en)
    438                                (cases oru:quantity en
     437                           (if (nemo:quantity? en)
     438                               (cases nemo:quantity en
    439439                                      (TSCOMP  (name initial open transitions power)
    440440                                               (cons (stcomp-eq name open transitions) ax))
     
    450450              (match-let (((i . n)  x))
    451451                         (let ((en (environment-ref sys n)))
    452                            (if (oru:quantity? en)
    453                                (cases oru:quantity en
     452                           (if (nemo:quantity? en)
     453                               (cases nemo:quantity en
    454454                                      (TSCOMP  (name initial open transitions power)
    455455                                               (cons* (state-init name initial) (state-init open name) ax))
     
    467467(define (state-power sys n)
    468468  (let ((en (environment-ref sys n)))
    469     (if (oru:quantity? en)
    470         (cases oru:quantity en
     469    (if (nemo:quantity? en)
     470        (cases nemo:quantity en
    471471               (TSCOMP  (name initial open transitions power)  power)
    472472               (else  #f))  #f)))
     
    483483
    484484
    485 (define (oru:nmodl-translator sys)
    486   (match-let ((($ oru:quantity 'DISPATCH  dis) (environment-ref sys (oru-intern 'dispatch))))
     485(define (nemo:nmodl-translator sys . rest)
     486  (let-optionals? rest ((method 'cnexp) (table? #f) (max-v -100) (min-v 100) (step 0.5))
     487  (match-let ((($ nemo:quantity 'DISPATCH  dis) (environment-ref sys (nemo-intern 'dispatch))))
    487488    (let ((imports  ((dis 'imports)  sys))
    488489          (exports  ((dis 'exports)  sys)))
     
    651652                                                 (gion  `(* ,gmax . ,(map (lambda (st pwr) `(pow ,st ,pwr)) sts pwrs))))
    652653                                           (list i #f gion)))
    653                                          (else (oru:error 'oru:nmodl-translator ": invalid ion channel definition " n))
     654                                         (else (nemo:error 'nemo:nmodl-translator ": invalid ion channel definition " n))
    654655                                        )))
    655656                                 ionchs))
     
    675676                 (if (not (null? locals))   (pp indent+ (LOCAL ,(sl\ ", " locals))))
    676677                 (if (not (null? asgns))    (pp indent+ (rates ())))
    677                  (pp indent+ (SOLVE states))
     678                 (if (not method) (pp indent+ (SOLVE states))
     679                     (pp indent+ (SOLVE states METHOD ,method)))
    678680                 (if (not (null? stcomps))  (pp indent+ (stcomps ())))
    679681                 (for-each (lambda (p) (pp indent+ ,(expr->string/NMODL (second p) (first p)))) i-eqs)
     
    704706
    705707               )))
    706          )))))
     708         ))))))
Note: See TracChangeset for help on using the changeset viewer.