source: project/release/4/html-form/trunk/html-form.setup @ 14981

Last change on this file since 14981 was 14413, checked in by Ivan Raikov, 12 years ago

html-form ported to Chicken 4

File size: 1.0 KB
Line 
1; -*- Hen -*-
2
3(define (dynld-name fn)         
4  (make-pathname #f fn ##sys#load-dynamic-extension))   
5
6(compile -O2 -d0 -s html-form.scm -j html-form)
7(compile -O2 -d0 -s html-form.import.scm)
8
9(install-extension
10
11  ; Name of your extension:
12  'html-form
13
14  ; Files to install for your extension:
15  `(,(dynld-name "html-form") ,(dynld-name "html-form.import") )
16
17  ; Assoc list with properties for your extension:
18  '((version 1.1)
19    (documentation "html-form.html")))
20
21;; From setup-header.scm by Kon Lovett
22
23;;; Constants & Procedures
24
25(define SHARED-DIR (chicken-home))
26
27(define HTML-FORM-DIR (make-pathname SHARED-DIR "html-form"))
28
29
30;; File Copy Operations
31
32(define (*file-copy fn dn)
33  (let ([fn (->string fn)])
34    (copy-file fn (make-pathname dn fn)) ) )
35
36(define (copy-to-shared fn)
37  (*file-copy (->string fn) (chicken-home)) )
38
39(define (copy-file-to-html-form-dir fn)
40  (*file-copy (->string fn) HTML-FORM-DIR) )
41
42(if (not (file-exists? HTML-FORM-DIR))
43    (create-directory HTML-FORM-DIR))
44
45(copy-file-to-html-form-dir "wforms.css" )
Note: See TracBrowser for help on using the repository browser.