;; -*- Hen -*-

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

(required-extension-version 'rb-tree 4.0)
(required-extension-version 'abnf 5.0)
(required-extension-version 'mbox 3.0)

(define version 4.0)

(compile -O -d2 -s formular.scm -j formular)
(compile -s formular.import.scm)

(compile -O -d2 form2txt.scm)
(compile -O -d2 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 ,version)
    (documentation "formular.html")
    ))

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

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

;; 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)