Changeset 15529 in project


Ignore:
Timestamp:
08/22/09 05:36:27 (10 years ago)
Author:
kon
Message:

Use of setup-api 'copy-file'

Location:
release/4/html-form
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/html-form/tags/1.2.1/html-form.setup

    r14982 r15529  
    3030;; File Copy Operations
    3131
    32 (define (*file-copy fn dn)
     32#;(define (*file-copy fn dn)
    3333  (let ([fn (->string fn)])
    3434    (copy-file fn (make-pathname dn fn)) ) )
    3535
    36 (define (copy-to-shared fn)
     36#;(define (copy-to-shared fn)
    3737  (*file-copy (->string fn) (chicken-home)) )
    3838
    39 (define (copy-file-to-html-form-dir fn)
     39#;(define (copy-file-to-html-form-dir fn)
    4040  (*file-copy (->string fn) HTML-FORM-DIR) )
    4141
    42 (if (not (file-exists? HTML-FORM-DIR))
     42#;(if (not (file-exists? HTML-FORM-DIR))
    4343    (create-directory HTML-FORM-DIR))
    4444
     45(define (copy-file-to-html-form-dir fn)
     46  (let ([fn (->string fn)])
     47    (copy-file fn (make-pathname HTML-FORM-DIR fn)) ) )
     48
    4549(copy-file-to-html-form-dir "wforms.css" )
  • release/4/html-form/trunk/html-form.setup

    r14982 r15529  
    3030;; File Copy Operations
    3131
    32 (define (*file-copy fn dn)
     32#;(define (*file-copy fn dn)
    3333  (let ([fn (->string fn)])
    3434    (copy-file fn (make-pathname dn fn)) ) )
    3535
    36 (define (copy-to-shared fn)
     36#;(define (copy-to-shared fn)
    3737  (*file-copy (->string fn) (chicken-home)) )
    3838
    39 (define (copy-file-to-html-form-dir fn)
     39#;(define (copy-file-to-html-form-dir fn)
    4040  (*file-copy (->string fn) HTML-FORM-DIR) )
    4141
    42 (if (not (file-exists? HTML-FORM-DIR))
     42#;(if (not (file-exists? HTML-FORM-DIR))
    4343    (create-directory HTML-FORM-DIR))
    4444
     45(define (copy-file-to-html-form-dir fn)
     46  (let ([fn (->string fn)])
     47    (copy-file fn (make-pathname HTML-FORM-DIR fn)) ) )
     48
    4549(copy-file-to-html-form-dir "wforms.css" )
Note: See TracChangeset for help on using the changeset viewer.