Changeset 7329 in project


Ignore:
Timestamp:
01/10/08 02:15:11 (12 years ago)
Author:
Ivan Raikov
Message:

Renamed the hhsbp extension to hhsm, and changed the API to allow for any rate transformer.

Location:
ode/trunk
Files:
4 edited
1 moved

Legend:

Unmodified
Added
Removed
  • ode/trunk/examples/carelli05.scm

    r7201 r7329  
    1414(require-extension ode-lambda)
    1515(require-extension ode-hhs)
    16 (require-extension ode-hhsbp)
     16(require-extension ode-hhsm)
    1717
    1818(define I_stim_seed (random-mtzig:init))
  • ode/trunk/examples/poirazi03.scm

    r7201 r7329  
    1212(require-extension ode-lambda)
    1313(require-extension ode-hhs)
    14 (require-extension ode-hhsbp)
     14(require-extension ode-hhsm)
    1515
    1616
  • ode/trunk/extensions/ode-hhsm.scm

    r7328 r7329  
    2222
    2323(require-extension ode)
    24 (require-extension ode-bpr)
    2524(require-extension srfi-1)
    2625(require-extension environments)
     
    175174
    176175
    177 (define (ode:hhsbp-transformer sys . rest)
     176(define (ode:hhsm-transformer pr-transformer sys . rest)
    178177 (let-optionals rest ((debug #f))
    179178  (let ((ode        (match (environment-ref sys (ode-intern 'odecore))
     
    290289                                       (take states (- nstates 1)))
    291290                           (let ((rates (make-rates ion gamma-val delta-val eps-val)))
    292                              (if debug (print "ode-hhsbp:transformer: rates = " rates))
     291                             (if debug (print "ode-hhsm:transformer: rates = " rates))
    293292                             (env-extend! (gensym 'rate) '(rate)
    294293                                          (if seed-val (cons `(seed ,seed-val) rates) rates))))))))))
    295294                           
    296295                (else (void)))))
    297      (ode:bpr-transformer new-env)))))
    298 
     296     (pr-transformer new-env)))))
     297
  • ode/trunk/ode.meta

    r7225 r7329  
    66        "ode.setup" "ode.scm" "euler.scm" "rkf45.scm" "abm4.scm" "ode-macros.scm" "ode-eggdoc.scm"
    77        "extensions/ode-waveform.scm" "extensions/ode-rate.scm" "extensions/ode-hhs.scm"
    8         "extensions/ode-lambda.scm" "extensions/ode-bpr.scm" "extensions/ode-hhsbp.scm"
     8        "extensions/ode-lambda.scm" "extensions/ode-bpr.scm" "extensions/ode-hhsm.scm"
    99        "extensions/ode-ctranslator.scm" "extensions/ode-solvers.scm"
    1010        "examples/run.scm" "examples/ctranslate.scm"
  • ode/trunk/ode.setup

    r7225 r7329  
    2424
    2525  ; Assoc list with properties for your extension:
    26   `((version 2.6)
     26  `((version 2.7)
    2727    (documentation "ode.html")
    2828    ,@(if has-exports? `((exports "ode.exports")) (list)) ))
     
    5151
    5252  ; Assoc list with properties for your extension:
    53   `((version 2.6)
     53  `((version 2.7)
    5454    ,@(if has-exports? `((exports "ode-abm4.exports")) (list)) ))
    5555
     
    6565
    6666  ; Assoc list with properties for your extension:
    67   `((version 2.6)
     67  `((version 2.7)
    6868    ,@(if has-exports? `((exports "ode-rkf45.exports")) (list)) ))
    6969
     
    7878    ,@(if has-exports? '("ode-euler.exports") (list)) )
    7979  ; Assoc list with properties for your extension:
    80   `((version 2.6)
     80  `((version 2.7)
    8181    ,@(if has-exports? `((exports "ode-euler.exports")) (list)) ))
    8282
     
    9494         extensions/ode-bpr.scm)
    9595
    96 (compile -d2 -O -s -o ,(dynld-name "ode-hhsbp")
    97          ,@(if has-exports? '(-check-imports -emit-exports ode-hhsbp.exports) '())
    98          extensions/ode-hhsbp.scm)
     96(compile -d2 -O -s -o ,(dynld-name "ode-hhsm")
     97         ,@(if has-exports? '(-check-imports -emit-exports ode-hhsm.exports) '())
     98         extensions/ode-hhsm.scm)
    9999
    100100(compile -d2 -O -s -o ,(dynld-name "ode-waveform")
     
    130130
    131131  ; Assoc list with properties for your extension:
    132   `((version 2.6)
     132  `((version 2.7)
    133133    ,@(if has-exports? `((exports "ode-solvers.exports")) (list)) ))
    134134
     
    144144
    145145  ; Assoc list with properties for your extension:
    146   `((version 2.6)
     146  `((version 2.7)
    147147    ,@(if has-exports? `((exports "ode-ctranslator.exports")) (list)) ))
    148148
     
    151151
    152152  ; Name of your extension:
    153   'ode-hhsbp
    154 
    155   ; Files to install for your extension:
    156   `(,(dynld-name "ode-hhsbp") 
    157     ,@(if has-exports? '("ode-hhsbp.exports") (list)) )
    158 
    159   ; Assoc list with properties for your extension:
    160   `((version 2.6)
    161     ,@(if has-exports? `((exports "ode-hhsbp.exports")) (list)) ))
     153  'ode-hhsm
     154
     155  ; Files to install for your extension:
     156  `(,(dynld-name "ode-hhsm") 
     157    ,@(if has-exports? '("ode-hhsm.exports") (list)) )
     158
     159  ; Assoc list with properties for your extension:
     160  `((version 2.7)
     161    ,@(if has-exports? `((exports "ode-hhsm.exports")) (list)) ))
    162162
    163163
     
    172172
    173173  ; Assoc list with properties for your extension:
    174   `((version 2.6)
     174  `((version 2.7)
    175175    ,@(if has-exports? `((exports "ode-bpr.exports")) (list)) ))
    176176
     
    187187
    188188  ; Assoc list with properties for your extension:
    189   `((version 2.6)
     189  `((version 2.7)
    190190    ,@(if has-exports? `((exports "ode-waveform.exports")) (list)) ))
    191191
     
    201201
    202202  ; Assoc list with properties for your extension:
    203   `((version 2.6)
     203  `((version 2.7)
    204204    ,@(if has-exports? `((exports "ode-hhs.exports")) (list)) ))
    205205
     
    215215
    216216  ; Assoc list with properties for your extension:
    217   `((version 2.6)
     217  `((version 2.7)
    218218    ,@(if has-exports? `((exports "ode-lambda.exports")) (list)) ))
    219219
     
    229229
    230230  ; Assoc list with properties for your extension:
    231   `((version 2.6)
     231  `((version 2.7)
    232232    ,@(if has-exports? `((exports "ode-rate.exports")) (list)) ))
    233233
     
    238238 'ode-macros
    239239 `("ode-macros.scm" )
    240  `((version 2.6)
     240 `((version 2.7)
    241241   (syntax)
    242242   (require-at-runtime ode)))
Note: See TracChangeset for help on using the changeset viewer.