source: project/release/4/sigma/tags/1.19/sigma.setup @ 14851

Last change on this file since 14851 was 14851, checked in by Ivan Raikov, 11 years ago

sigma release 1.19

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