;;;; -*- Hen -*-

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


(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 1.2)
    (documentation "signal-diagram.html")
    ))


(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 1.2)
    (documentation "signal-diagram-dynamics.html")
    ))


;; 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 SD-DIR (make-pathname SHARED-DIR "signal-diagram"))

;; File Copy Operations

(define (copy-file-to-sd-dir fn)
  (let ([fn (->string fn)])
    (copy-file fn (make-pathname SD-DIR fn)) ) )

(copy-file-to-sd-dir "examples/sml-lib/rk/rk.sml")
(copy-file-to-sd-dir "examples/sml-lib/rk/rk.mlb")