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 -O2 -d0 -s |
---|
9 | ,@(if has-exports? '(-check-imports -emit-exports uri-generic.exports) '()) |
---|
10 | uri-generic.scm) |
---|
11 | |
---|
12 | (install-extension |
---|
13 | |
---|
14 | ;; Name of your extension: |
---|
15 | 'uri-generic |
---|
16 | |
---|
17 | ;; Files to install for your extension: |
---|
18 | `(,(dynld-name "uri-generic") |
---|
19 | ,@(if has-exports? '("uri-generic.exports") (list)) ) |
---|
20 | |
---|
21 | |
---|
22 | ;; Assoc list with properties for your extension: |
---|
23 | '((version 1.9) |
---|
24 | (documentation "uri-generic.html") |
---|
25 | ,@(if has-exports? `((exports "uri-generic.exports")) (list)) )) |
---|
Note: See
TracBrowser
for help on using the repository browser.