Changeset 21057 in project


Ignore:
Timestamp:
10/26/10 03:54:06 (11 years ago)
Author:
Ivan Raikov
Message:

sigma: using installation-chicken-home for installing template files

File:
1 edited

Legend:

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

    r20719 r21057  
    99
    1010  ; Assoc list with properties for the program:
    11   '((version 2.1)
     11  '((version 2.2)
    1212    (documentation "sigma.html")))
    1313
    1414;; From setup-header.scm by Kon Lovett
    1515
     16(define (installation-chicken-home)
     17  (if (not (installation-prefix)) (chicken-home)
     18    (make-pathname `(,(installation-prefix) "share") "chicken") ) )
     19
    1620;;; Constants & Procedures
    1721
    18 (define SHARED-DIR (chicken-home))
    19 
     22(define SHARED-DIR (installation-chicken-home))
    2023(define SIGMA-DIR (make-pathname SHARED-DIR "sigma"))
    21 
    2224
    2325;; File Copy Operations
    2426
    25 (define (*file-copy fn dn)
     27(define (copy-file-to-sigma-dir fn)
    2628  (let ([fn (->string fn)])
    27     (copy-file fn (make-pathname dn fn)) ) )
    28 
    29 (define (copy-to-shared fn)
    30   (*file-copy (->string fn) (chicken-home)) )
    31 
    32 (define (copy-file-to-sigma-dir fn)
    33   (*file-copy (->string fn) SIGMA-DIR) )
    34 
    35 (if (not (file-exists? SIGMA-DIR))
    36     (create-directory SIGMA-DIR))
     29    (copy-file fn (make-pathname SIGMA-DIR fn)) ) )
    3730
    3831(copy-file-to-sigma-dir "sigma.css" )
    3932(copy-file-to-sigma-dir "index-template.scm")
    4033(copy-file-to-sigma-dir "slide-template.scm")
     34
Note: See TracChangeset for help on using the changeset viewer.