;; -*- Hen -*-

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

(compile -O2 -d0 -s formular.scm -j formular)
(compile -s formular.import.scm)

(compile -O2 -d0 form2txt.scm)
(compile -O2 -d0 form2wiki.scm)


(install-extension

 ;; Name of your extension:
  'formular

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

  ;; Assoc list with properties for your extension:
  '((version 2.3)
    (documentation "formular.html")
    ))

	
(install-program
 'form2txt
	 
 `("form2txt" )
 
 '((version 2.3))
 )

	
(install-program
 'form2wiki
	 
 `("form2wiki" )
 
 '((version 2.3))
 )

;; From setup-header.scm by Kon Lovett
	
;;; Constants & Procedures

(define SHARED-DIR (chicken-home))

(define FORMULAR-DIR (make-pathname SHARED-DIR "formular"))
	
;; File Copy Operations
	
(if (not (file-exists? FORMULAR-DIR))
    (create-directory FORMULAR-DIR))

(copy-file "FormMail.pl" FORMULAR-DIR)