Line | |
---|
1 | ; -*- Hen -*- |
---|
2 | |
---|
3 | (define has-exports? (string>=? (chicken-version) "2.310")) |
---|
4 | |
---|
5 | (define (dynld-name fn) |
---|
6 | (make-pathname #f fn ##sys#load-dynamic-extension)) |
---|
7 | |
---|
8 | (compile -O -d2 -s |
---|
9 | ,@(if has-exports? '(-check-imports -emit-exports formular.exports) '()) |
---|
10 | formular.scm) |
---|
11 | |
---|
12 | (install-extension |
---|
13 | |
---|
14 | ; Name of your extension: |
---|
15 | 'formular |
---|
16 | |
---|
17 | ; Files to install for your extension: |
---|
18 | `(,(dynld-name "formular") |
---|
19 | ,@(if has-exports? '("formular.exports") (list)) ) |
---|
20 | |
---|
21 | ; Assoc list with properties for your extension: |
---|
22 | '((version 1.12) |
---|
23 | (documentation "formular.html") |
---|
24 | ,@(if has-exports? `((exports "formular.exports")) (list)) )) |
---|
25 | |
---|
26 | |
---|
27 | (compile -O2 -d0 form2wiki.scm -lchicken -lm) |
---|
28 | (compile -O2 -d0 form2txt.scm -lchicken -lm) |
---|
29 | |
---|
30 | (install-program |
---|
31 | 'form2wiki |
---|
32 | |
---|
33 | `("form2wiki" ) |
---|
34 | |
---|
35 | ; Assoc list with properties for the program: |
---|
36 | '((version 1.12))) |
---|
37 | |
---|
38 | (install-program |
---|
39 | 'form2txt |
---|
40 | |
---|
41 | `("form2txt" ) |
---|
42 | |
---|
43 | ; Assoc list with properties for the program: |
---|
44 | '((version 1.12))) |
---|
45 | |
---|
46 | ;; From setup-header.scm by Kon Lovett |
---|
47 | |
---|
48 | ;;; Constants & Procedures |
---|
49 | |
---|
50 | (define SHARED-DIR (chicken-home)) |
---|
51 | |
---|
52 | (define FORMULAR-DIR (make-pathname SHARED-DIR "formular")) |
---|
53 | |
---|
54 | ;; File Copy Operations |
---|
55 | |
---|
56 | (if (not (file-exists? FORMULAR-DIR)) |
---|
57 | (create-directory FORMULAR-DIR)) |
---|
58 | |
---|
59 | (copy-file "FormMail.pl" FORMULAR-DIR) |
---|
Note: See
TracBrowser
for help on using the repository browser.