Changeset 22128 in project


Ignore:
Timestamp:
12/26/10 17:41:00 (9 years ago)
Author:
Ivan Raikov
Message:

funsim fixes

Location:
release/4/funsim/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/funsim/trunk/funsim.meta

    r22125 r22128  
    55 ; List here all the files that should be bundled as part of your egg. 
    66
    7  (files "funsim.setup" "funsim.scm" )
     7 (files "funsim.setup" "funsim.scm" "runge-kutta.scm" "tests")
    88
    99 ; Your egg's license:
     
    1818 ; A list of eggs funsim depends on.
    1919
    20  (needs datatype)
     20 (needs numbers datatype)
    2121
    2222 (author "Ivan Raikov")
  • release/4/funsim/trunk/funsim.scm

    r22125 r22128  
    3636       
    3737        (require-extension extras data-structures srfi-1 datatype)
     38
     39(define nl "\n")
    3840
    3941
     
    252254)
    253255
    254 (print-fragments
    255  `(("(define " ,solver " (make-" ,solver "))" ,nl)
    256    ("(define (make_stepper deriv) (" ,solver " scaler summer deriv))" ,nl)
    257    ))
     256`(("(define " ,solver " (make-" ,solver "))" ,nl)
     257  ("(define (make_stepper deriv) (" ,solver " scaler summer deriv))" ,nl))
    258258)
    259259
     
    397397)
    398398
    399 (print-fragments
    400399 `(("val " ,solver ": (real list) stepper1 = make_" ,solver "()" ,nl)
    401    ("fun make_stepper (deriv) = " ,solver " (scaler,summer,deriv)" ,nl)))
     400   ("fun make_stepper (deriv) = " ,solver " (scaler,summer,deriv)" ,nl))
    402401
    403402)
  • release/4/funsim/trunk/funsim.setup

    r22125 r22128  
    2828    (documentation "funsim.html")
    2929    ))
     30
     31(make (
     32       ((dynld-name "runge-kutta") ("runge-kutta.scm" )
     33        (compile -O2 -S -s runge-kutta.scm -j runge-kutta))
     34
     35       ((dynld-name "runge-kutta.import") ("runge-kutta.import.scm")
     36        (compile -O2 -S -s runge-kutta.import.scm))
     37       )
     38
     39  (list (dynld-name "runge-kutta")
     40        (dynld-name "runge-kutta.import"))
     41  )
     42
     43(install-extension
     44
     45  ; Name of your extension:
     46  'runge-kutta
     47
     48  ; Files to install for your extension:
     49  `(,(dynld-name "runge-kutta") ,(dynld-name "runge-kutta.import") )
     50
     51  ; Assoc list with properties for your extension:
     52  `((version 1.0)
     53    (documentation "runge-kutta.html")
     54    ))
Note: See TracChangeset for help on using the changeset viewer.