source: project/release/4/picnic/trunk/picnic.setup @ 30637

Last change on this file since 30637 was 30637, checked in by Ivan Raikov, 7 years ago

npccl renamed to picnic

File size: 2.3 KB
Line 
1; -*- Hen -*-
2
3(define (dynld-name fn)         
4  (make-pathname #f fn ##sys#load-dynamic-extension))   
5
6(include "picnic-version.scm")
7
8(use make)
9
10(make (
11       ((dynld-name "picnic-utils") ("picnic-utils.scm")
12        (compile -O -d2 -S -s picnic-utils.scm -j picnic-utils))
13
14       ((dynld-name "picnic-utils.import") ("picnic-utils.import.scm")
15        (compile -O2 -s picnic-utils.import.scm))
16       )
17  (list (dynld-name "picnic-utils")
18        (dynld-name "picnic-utils.import"))
19  )
20
21(install-extension
22
23  ; Name of your extension:
24  'picnic-utils
25
26  ; Files to install for your extension:
27  `(,(dynld-name "picnic-utils") ,(dynld-name "picnic-utils.import"))
28
29  ; Assoc list with properties for your extension:
30  `((version ,picnic-version)))
31
32(make (
33       ((dynld-name "picnic-core") ("picnic-core.scm")
34        (compile -O -d2 -S -s picnic-core.scm -j picnic-core))
35
36       ((dynld-name "picnic-core.import") ("picnic-core.import.scm")
37        (compile -O2 -s picnic-core.import.scm))
38       )
39  (list (dynld-name "picnic-core")
40        (dynld-name "picnic-core.import"))
41  )
42
43(install-extension
44
45  ; Name of your extension:
46  'picnic-core
47
48  ; Files to install for your extension:
49  `(,(dynld-name "picnic-core") ,(dynld-name "picnic-core.import"))
50
51  ; Assoc list with properties for your extension:
52  `((version ,picnic-version)))
53
54
55(if (deployment-mode)
56
57    (begin
58      (run (csi -s expr.grm))
59      (compile -deploy -uses files -O -d2 picnic.scm
60               -o ,(installation-prefix))
61      )
62
63    (begin
64      (make (
65             ("expr.grm.scm" ("expr.grm")
66              (run (csi -s expr.grm)))
67
68             ("picnic" ("picnic.scm" "expr.grm.scm")
69              (compile -O -d2 picnic.scm))
70             )
71        "picnic")
72     
73      (install-program
74       'picnic
75       
76       `("picnic" )
77       
78       `((version ,picnic-version)
79         ))
80      )
81    )
82
83;; From setup-header.scm by Kon Lovett
84
85(define (installation-chicken-home)
86  (if (not (installation-prefix)) (chicken-home)
87    (make-pathname `(,(installation-prefix) "share") "chicken") ) )
88
89;;; Constants & Procedures
90
91(define SHARED-DIR (installation-chicken-home))
92(define PICNIC-DIR (make-pathname SHARED-DIR "picnic"))
93
94;; File Copy Operations
95
96(define (copy-file-to-picnic-dir fn)
97  (let ([fn (->string fn)])
98    (copy-file fn (make-pathname PICNIC-DIR fn)) ) )
99
Note: See TracBrowser for help on using the repository browser.