Changeset 11694 in project


Ignore:
Timestamp:
08/22/08 02:52:45 (13 years ago)
Author:
Ivan Raikov
Message:

More updates to the NMODL backend.

Location:
release/3/oru
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/oru/nmodl.scm

    r11639 r11694  
    260260
    261261       ((op . rest) 
    262        (let ((op (case op ((pow)  '^) (else op))))
     262       (let ((op (case op ((pow)  '^) ((abs) 'fabs) (else op))))
    263263         (let ((fe
    264264                (if (member op nmodl-ops)
     
    327327(define (define-state indent n)
    328328  (pp indent (,n)))
    329 
    330 (define (define-asgn indent n)
    331   (pp indent (,n)))
    332 
    333 (define (define-import indent n)
    334   (pp indent (,(car n))))
    335329
    336330
     
    572566
    573567               (pp indent ,nl (ASSIGNED "{"))
    574                (for-each (lambda (x) (apply define-asgn (list indent+ x)))
    575                          asgns)
    576                (for-each (lambda (x) (apply define-import (list indent+ x)))
    577                          imports)
    578                (for-each (lambda (x) (pp indent+ ,(second x) ,(third x))) perm-ions)
    579                (for-each (lambda (x) (pp indent+ ,(second x) ,(third x) ,(fourth x))) acc-ions)
     568               (let* ((asgns0 (append asgns (map first imports)
     569                                      (map second perm-ions) (map third perm-ions)
     570                                      (map second acc-ions) (map fourth acc-ions)))
     571                      (asgns1 (delete-duplicates asgns0)))
     572                 (for-each (lambda (x) (pp indent+ ,x)) asgns1))
    580573               (pp indent "}")
    581574
  • release/3/oru/oru.setup

    r11285 r11694  
    88(compile -d2 -O -s -o ,(dynld-name "oru-core")
    99         ,@(if has-exports? '(-check-imports -emit-exports oru-core.exports) '())
    10          core.scm)
     10         oru.scm)
    1111
    1212
Note: See TracChangeset for help on using the changeset viewer.