Changeset 12413 in project for release/3/sigma/trunk/sigma.setup


Ignore:
Timestamp:
11/09/08 02:59:17 (12 years ago)
Author:
Ivan Raikov
Message:

Updated for version 1.15.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/sigma/trunk/sigma.setup

    r11282 r12413  
    1010
    1111  ; Assoc list with properties for the program:
    12   '((version 1.14)
     12  '((version 1.15)
    1313    (documentation "sigma.html")))
    1414
     15;; From setup-header.scm by Kon Lovett
    1516
    16 (create-directory "/usr/share/sigma")
    17 (copy-file "sigma.html" "/usr/share/sigma")
    18 (copy-file "sigma.css"  "/usr/share/sigma")
    19 (copy-file "index-template.scm" "/usr/share/sigma")
    20 (copy-file "slide-template.scm" "/usr/share/sigma")
     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 TracChangeset for help on using the changeset viewer.