; -*- Hen -*-

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

(make (
       ("expr.grm.scm" ("expr.grm")
	(run (csi -s expr.grm)))

       ((dynld-name "nemo-core") ("nemo-core.scm" "expr.grm.scm")
	(compile -O -d2 -s nemo-core.scm -j nemo-core))

       ((dynld-name "nemo-core.import") ("nemo-core.import.scm")
	(compile -O2 -s nemo-core.import.scm))
       )
  (list (dynld-name "nemo-core")
	(dynld-name "nemo-core.import"))
  )

(install-extension

  ; Name of your extension:
  'nemo-core

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

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


(make (
       ((dynld-name "nemo-utils") ("nemo-utils.scm")
	(compile -O -d2 -s nemo-utils.scm -j nemo-utils))

       ((dynld-name "nemo-utils.import") ("nemo-utils.import.scm")
	(compile -O2 -s nemo-utils.import.scm)) 
       )
  (list (dynld-name "nemo-utils")
	(dynld-name "nemo-utils.import"))
  )


(install-extension

  ; Name of your extension:
  'nemo-utils

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

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


(make (
       ((dynld-name "nemo-ionch") ("nemo-ionch.scm")
	(compile -O -d2 -s nemo-ionch.scm -j nemo-ionch)) 

       ((dynld-name "nemo-ionch.import") ("nemo-ionch.import.scm")
	(compile -O2 -s nemo-ionch.import.scm)) 
       )
  (list (dynld-name "nemo-ionch")
	(dynld-name "nemo-ionch.import"))
  )



(install-extension

  ; Name of your extension:
  'nemo-ionch

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

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


(make (
       ((dynld-name "nemo-macros") ("nemo-macros.scm")
	(compile -O -d2 -s nemo-macros.scm -j nemo-macros)) 

       ((dynld-name "nemo-macros.import") ("nemo-macros.import.scm")
	(compile -O2 -s nemo-macros.import.scm)) 
       )
  (list (dynld-name "nemo-macros")
	(dynld-name "nemo-macros.import"))
  )

(install-extension

  ; Name of your extension:
  'nemo-macros

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

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


(make (
       ((dynld-name "nemo-nmodl") ("nemo-nmodl.scm")
	(compile -O -d2 -s nemo-nmodl.scm -j nemo-nmodl)) 

       ((dynld-name "nemo-nmodl.import") ("nemo-nmodl.import.scm")
	(compile -O2 -s nemo-nmodl.import.scm)) 
       )
  (list (dynld-name "nemo-nmodl")
	(dynld-name "nemo-nmodl.import"))
  )

(install-extension

  ; Name of your extension:
  'nemo-nmodl

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

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

(if (file-exists? "nemo-matlab.scm")
    (begin
      (make (
	     ((dynld-name "nemo-matlab") ("nemo-matlab.scm")
	      (compile -O -d2 -s nemo-matlab.scm -j nemo-matlab)) 
	     
	     ((dynld-name "nemo-matlab.import") ("nemo-matlab.import.scm")
	      (compile -O2 -s nemo-matlab.import.scm)) 
	     )
	(list (dynld-name "nemo-matlab")
	      (dynld-name "nemo-matlab.import"))
	)))


(if (file-exists? "nemo-matlab.scm")
    (install-extension
     
     ;; Name of your extension:
     'nemo-matlab
     
     ;; Files to install for your extension:
     `(,(dynld-name "nemo-matlab")  ,(dynld-name "nemo-matlab.import")  )
     
     ;; Assoc list with properties for your extension:
     `((version 2.4))))


(make (
       ((dynld-name "nemo-hh") ("extensions/nemo-hh.scm")
	(compile -O -d2 -s extensions/nemo-hh.scm -j nemo-hh 
		 -o ,(dynld-name "nemo-hh")) )

       ((dynld-name "nemo-hh.import") ("nemo-hh.import.scm")
	(compile -O2 -s nemo-hh.import.scm)) 
       )
  (list (dynld-name "nemo-hh")
	(dynld-name "nemo-hh.import"))
  )

(install-extension

  ; Name of your extension:
  'nemo-hh

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

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

(run (csi -s nemo-eggdoc.scm > nemo.html))

(make (
       ("nemo" ("nemo.scm")
	(compile -d2 nemo.scm)) 
       )
  "nemo")

(install-program 
 'nemo 
 
 `("nemo" )

  ; Assoc list with properties for the program:
  '((version 2.4)
    (documentation "nemo.html")))

;; From setup-header.scm by Kon Lovett

;;; Constants & Procedures

(define SHARED-DIR (chicken-home))

(define NEMO-DIR (make-pathname SHARED-DIR "nemo"))

;; File Copy Operations

(define (*file-copy fn dn)
  (let ([fn (->string fn)])
    (copy-file fn (make-pathname dn fn)) ) )

(define (copy-file-to-nemo-dir fn)
  (*file-copy (->string fn) NEMO-DIR) )

(copy-file-to-nemo-dir "examples/carelli05.nemo")
(copy-file-to-nemo-dir "examples/carelli05_run.m")

(copy-file-to-nemo-dir "examples/hh-substrate.nemo")
(copy-file-to-nemo-dir "examples/hh-superstrate.nemo")
(copy-file-to-nemo-dir "examples/hh_run.m")

(copy-file-to-nemo-dir "examples/AKP06/AKP06.nemo")