Changeset 25514 in project


Ignore:
Timestamp:
11/17/11 08:16:20 (10 years ago)
Author:
Ivan Raikov
Message:

9ML-toolkit: support for lsode solver in octave

Location:
release/4/9ML-toolkit/trunk
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/9ML-toolkit/trunk/9ML-toolkit.meta

    r24575 r25514  
    2626 (needs matchable datatype static-modules (miniML 1.4) (getopt-long  1.8)
    2727        uri-generic ssax sxml-transforms sxpath object-graph format-graph
    28         mathh silex lalr setup-helper (signal-diagram 1.5) )
     28        mathh silex lalr setup-helper (signal-diagram 2.1) )
    2929
    3030 (author "Ivan Raikov")
  • release/4/9ML-toolkit/trunk/9ML-toolkit.setup

    r25439 r25514  
    66(required-extension-version 'getopt-long 1.9)
    77(required-extension-version 'miniML 1.7)
    8 (required-extension-version 'signal-diagram 1.5)
    9 
    10 (define version 1.7)
     8(required-extension-version 'signal-diagram 2.1)
     9
     10(define version 1.8)
    1111
    1212(make (
     
    3333        (compile  -s 9ML-repr.import.scm))
    3434
     35       ((dynld-name "9ML-ivp-octave") ("ivp-octave.scm" )
     36        (compile -O -d2 -S -s ivp-octave.scm -o ,(dynld-name "9ML-ivp-octave") -j 9ML-ivp-octave))
     37
     38       ((dynld-name "9ML-ivp-octave.import") ( "9ML-ivp-octave.import.scm" )
     39        (compile  -s 9ML-ivp-octave.import.scm))
     40
    3541       ((dynld-name "9ML-ivp-chicken") ("ivp-chicken.scm" )
    3642        (compile -O -d2 -S -s ivp-chicken.scm -o ,(dynld-name "9ML-ivp-chicken") -j 9ML-ivp-chicken))
     
    3945        (compile  -s 9ML-ivp-chicken.import.scm))
    4046
    41        ((dynld-name "9ML-ivp-mlton") ( "9ML-ivp-chicken.import.scm" )
     47       ((dynld-name "9ML-ivp-mlton") ( "ivp-mlton.scm" )
    4248        (compile -O -d2 -S -s ivp-mlton.scm -o ,(dynld-name "9ML-ivp-mlton") -j 9ML-ivp-mlton))
    4349
     
    4551        (compile  -s 9ML-ivp-mlton.import.scm))
    4652
    47        ((dynld-name "9ML-ivp-octave-mlton") ( "ivp-octave-mlton.scm" (dynld-name "9ML-ivp-mlton") )
     53       ((dynld-name "9ML-ivp-octave-mlton") ( "ivp-octave-mlton.scm" )
    4854        (compile -O -d2 -S -s ivp-octave-mlton.scm -o ,(dynld-name "9ML-ivp-octave-mlton") -j 9ML-ivp-octave-mlton))
    4955
     
    8389        (dynld-name "9ML-repr") (dynld-name "9ML-repr.import")
    8490        (dynld-name "9ML-parse") (dynld-name "9ML-parse.import")
     91        (dynld-name "9ML-ivp-octave") (dynld-name "9ML-ivp-octave.import")
    8592        (dynld-name "9ML-ivp-chicken") (dynld-name "9ML-ivp-chicken.import")
    8693        (dynld-name "9ML-ivp-mlton") (dynld-name "9ML-ivp-mlton.import")
     
    9097  )
    9198
     99
     100(install-extension
     101
     102  ; Name of your extension:
     103  '9ML-ivp-octave
     104
     105  ; Files to install for your extension:
     106  `(,(dynld-name "9ML-ivp-octave") ,(dynld-name "9ML-ivp-octave.import") )
     107
     108  ; Assoc list with properties for your extension:
     109  `((version ,version)
     110    ))
    92111
    93112(install-extension
  • release/4/9ML-toolkit/trunk/ivp.scm

    r25221 r25514  
    2323(require-extension getopt-long ssax sxml-transforms sxpath sxpath-lolevel object-graph signal-diagram)
    2424(require-extension 9ML-parse 9ML-repr )
    25 (require-extension 9ML-ivp-chicken 9ML-ivp-mlton 9ML-ivp-octave-mlton )
     25(require-extension 9ML-ivp-octave 9ML-ivp-chicken 9ML-ivp-mlton 9ML-ivp-octave-mlton )
    2626       
    2727
     
    246246                                              (lset-intersection eq? (alist-ref 'in dfe) (alist-ref 'out dfe))
    247247                                              (list ivar)))
    248                       (pvars (lset-difference eq? (alist-ref 'in dfe) (cons ivar dvars))))
     248                      (pvars (lset-difference eq? (alist-ref 'in dfe) (cons ivar dvars)))
     249                      (events (events sd))
     250                      )
    249251
    250252
    251253                 (case platform
    252254                   
     255                   ((octave)
     256                    (ivp-octave prefix ivp-id hvar ivar dvars pvars events start end ic sd)
     257                    (list ivp-id ivar dvars) )
     258
    253259                   ((octave/mlton octave-mlton)
    254260                    (ivp-octave-mlton prefix ivp-id hvar ivar dvars pvars start end ic sd)
    255261                    (list ivp-id ivar dvars) )
    256 
    257262                   
    258263                   ((mlton)
    259264                    (ivp-mlton  prefix ivp-id ivar dvars pvars start end ic sd)
    260265                    (list ivp-id ivar dvars) )
    261 
    262266
    263267                   ((chicken)
Note: See TracChangeset for help on using the changeset viewer.