;;;; -*- Hen -*-

(define (dynld-name fn)		
  (make-pathname #f fn ##sys#load-dynamic-extension))	

(define version 4.1)

(use make)

(make (
       ((dynld-name "signal-diagram") ("signal-diagram.scm" "expr-utils.scm" )
	(compile -O -d2 -S -s signal-diagram.scm -j signal-diagram))

       ((dynld-name "signal-diagram.import") ("signal-diagram.import.scm")
	(compile -O -d2 -S -s signal-diagram.import.scm))
       )

  (list (dynld-name "signal-diagram")
	(dynld-name "signal-diagram.import"))
  )

(install-extension

  ; Name of your extension:
  'signal-diagram

  ; Files to install for your extension:
  `(,(dynld-name "signal-diagram") ,(dynld-name "signal-diagram.import") )

  ; Assoc list with properties for your extension:
  `((version ,version)
    ))


(make (
       ((dynld-name "signal-diagram-dynamics") ("signal-diagram-dynamics.scm" "expr-utils.scm" )
	(compile -O -d2 -S -s signal-diagram-dynamics.scm -j signal-diagram-dynamics))

       ((dynld-name "signal-diagram-dynamics.import") ("signal-diagram-dynamics.import.scm")
	(compile -O -d2 -S -s signal-diagram-dynamics.import.scm))
       )

  (list (dynld-name "signal-diagram-dynamics")
	(dynld-name "signal-diagram-dynamics.import"))
  )

(install-extension

  ; Name of your extension:
  'signal-diagram-dynamics

  ; Files to install for your extension:
  `(,(dynld-name "signal-diagram-dynamics") ,(dynld-name "signal-diagram-dynamics.import") )

  ; Assoc list with properties for your extension:
  `((version ,version)
    ))


(make (
       ((dynld-name "algebraic-system") ("algebraic-system.scm" "expr-utils.scm" )
	(compile -O -d2 -S -s algebraic-system.scm -j algebraic-system))

       ((dynld-name "algebraic-system.import") ("algebraic-system.import.scm")
	(compile -O -d2 -S -s algebraic-system.import.scm))
       )

  (list (dynld-name "algebraic-system")
	(dynld-name "algebraic-system.import"))
  )

(install-extension

  ; Name of your extension:
  'algebraic-system

  ; Files to install for your extension:
  `(,(dynld-name "algebraic-system") ,(dynld-name "algebraic-system.import") )

  ; Assoc list with properties for your extension:
  `((version ,version)
    ))


(make (
       ((dynld-name "runge-kutta") ("runge-kutta.scm" )
	(compile -O2 -S -s runge-kutta.scm -j runge-kutta))

       ((dynld-name "runge-kutta.import") ("runge-kutta.import.scm")
	(compile -O2 -S -s runge-kutta.import.scm))
       )

  (list (dynld-name "runge-kutta")
	(dynld-name "runge-kutta.import"))
  )

(install-extension

  ; Name of your extension:
  'runge-kutta

  ; Files to install for your extension:
  `(,(dynld-name "runge-kutta") ,(dynld-name "runge-kutta.import") )

  ; Assoc list with properties for your extension:
  `((version ,version)
    ))


;; From setup-header.scm by Kon Lovett

(define (installation-chicken-home)
  (if (not (installation-prefix)) (chicken-home)
    (make-pathname `(,(installation-prefix) "share") "chicken") ) )

;;; Constants & Procedures

(define SHARED-DIR (installation-chicken-home))
(define SIGNAL-DIAGRAM-DIR (make-pathname SHARED-DIR "signal-diagram"))

;; File Copy Operations

(define (copy-file-to-signal-diagram-dir fn)
  (let ([fn (->string fn)])
    (copy-file fn (make-pathname SIGNAL-DIAGRAM-DIR fn)) ) )

(copy-file-to-signal-diagram-dir "sml-lib/rk/rk.sml")
(copy-file-to-signal-diagram-dir "sml-lib/rk/rk.mlb")

(copy-file-to-signal-diagram-dir "sml-lib/randmtzig/randmtziglib.c")
(copy-file-to-signal-diagram-dir "sml-lib/randmtzig/randmtzig.sml")
(copy-file-to-signal-diagram-dir "sml-lib/randmtzig/randmtzig.mlb")

(copy-file-to-signal-diagram-dir "sml-lib/tensor/DynArray.sml")
(copy-file-to-signal-diagram-dir "sml-lib/tensor/tensor.sml")
(copy-file-to-signal-diagram-dir "sml-lib/tensor/sparse.sml")
(copy-file-to-signal-diagram-dir "sml-lib/tensor/tensor.mlb")
(copy-file-to-signal-diagram-dir "sml-lib/tensor/sparse.mlb")


(copy-file-to-signal-diagram-dir "octave-lib/ode15s.m")