source: project/release/3/sigma/trunk/sigma.setup @ 12413

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

Updated for version 1.15.

File size: 912 bytes
Line 
1
2(compile -O2 sigma.scm -lchicken -lm)
3
4(run (csi -qbs sigma-eggdoc.scm > sigma.html))
5
6(install-program
7 'sigma
8 
9 `("sigma" )
10
11  ; Assoc list with properties for the program:
12  '((version 1.15)
13    (documentation "sigma.html")))
14
15;; From setup-header.scm by Kon Lovett
16
17;;; Constants & Procedures
18
19(define SHARED-DIR (chicken-home))
20
21(define SIGMA-DIR (make-pathname SHARED-DIR "sigma"))
22
23
24;; File Copy Operations
25
26(define (*file-copy fn dn)
27  (let ([fn (->string fn)])
28    (copy-file fn (make-pathname dn fn)) ) )
29
30(define (copy-to-shared fn)
31  (*file-copy (->string fn) (chicken-home)) )
32
33(define (copy-file-to-sigma-dir fn)
34  (*file-copy (->string fn) SIGMA-DIR) )
35
36(if (not (file-exists? SIGMA-DIR))
37    (create-directory SIGMA-DIR))
38
39(copy-file-to-sigma-dir "sigma.html" )
40(copy-file-to-sigma-dir "sigma.css" )
41(copy-file-to-sigma-dir "index-template.scm")
42(copy-file-to-sigma-dir "slide-template.scm")
Note: See TracBrowser for help on using the repository browser.