Changeset 27286 in project
- Timestamp:
- 08/23/12 21:59:02 (9 years ago)
- Location:
- release/4/setup-helper
- Files:
-
- 4 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/4/setup-helper/tags/1.5.3/setup-helper.scm
r26550 r27286 11 11 12 12 (use 13 14 15 16 17 18 13 srfi-1 14 posix 15 extras 16 data-structures 17 files 18 setup-api) 19 19 20 20 (define *has-emit-inline* #f) 21 21 (define *has-emit-types* #f) 22 22 (when (version>=? (chicken-version) "4.0.0") 23 23 (set! *has-emit-inline* #t) ) 24 24 (when (version>=? (chicken-version) "4.7.3") 25 25 (set! *has-emit-types* #t) ) 26 26 27 27 ;;; Extension Information … … 37 37 38 38 (define (sh:error-type loc obj #!optional typmsg) 39 40 41 39 (let* ((msg "bad argument type") 40 (msg (if typmsg (string-append msg " - not a " typmsg))) ) 41 (##sys#signal-hook #:type-error loc msg obj) ) ) 42 42 43 43 ;; Filename Support … … 62 62 (make-pathname `(,(installation-prefix) "share") "chicken") ) ) 63 63 64 ; from repo-path in setup-helper.scm 64 65 (define (installation-repository-path) 65 (repository-path) ) 66 (if (deployment-mode) 67 (installation-prefix) ; deploy: copy directly into destdir 68 (let ((p (destination-prefix))) 69 (if p 70 ; installation-prefix changed: use it 71 (make-pathname p (sprintf "lib/chicken/~a" (##sys#fudge 42))) 72 ; otherwise use repo-path 73 (repository-path) ) ) ) ) 66 74 67 75 (define (directory-separator? obj) … … 147 155 (copy-file-relative fn dn) ) 148 156 157 (define (copy-to-installation-repository fn) 158 (copy-file-relative fn (installation-repository-path)) ) 159 149 160 (define (copy-to-repository fn) 150 (copy- file-relative fn (installation-repository-path)) )161 (copy-to-installation-repository fn) ) 151 162 152 163 (define (copy-to-home fn) … … 269 280 270 281 (define (has-emit-inline inline? nam) 271 272 282 (if (not (and *has-emit-inline* inline?)) '() 283 `(-emit-inline-file ,(inline-filename nam)) ) ) 273 284 274 285 (define (has-emit-types types? nam) 275 276 286 (if (not (and *has-emit-types* types?)) '() 287 `(-emit-type-file ,(types-filename nam)) ) ) 277 288 278 289 ;compile expands using back-quote -
release/4/setup-helper/tags/1.5.3/setup-helper.setup
r26550 r27286 1 1 ;;;; setup-helper.setup -*- Hen -*- 2 2 3 (define this-verno "1.5. 2")3 (define this-verno "1.5.3") 4 4 5 5 (define (shared-filename bn) -
release/4/setup-helper/trunk/setup-helper.scm
r26550 r27286 11 11 12 12 (use 13 14 15 16 17 18 13 srfi-1 14 posix 15 extras 16 data-structures 17 files 18 setup-api) 19 19 20 20 (define *has-emit-inline* #f) 21 21 (define *has-emit-types* #f) 22 22 (when (version>=? (chicken-version) "4.0.0") 23 23 (set! *has-emit-inline* #t) ) 24 24 (when (version>=? (chicken-version) "4.7.3") 25 25 (set! *has-emit-types* #t) ) 26 26 27 27 ;;; Extension Information … … 37 37 38 38 (define (sh:error-type loc obj #!optional typmsg) 39 40 41 39 (let* ((msg "bad argument type") 40 (msg (if typmsg (string-append msg " - not a " typmsg))) ) 41 (##sys#signal-hook #:type-error loc msg obj) ) ) 42 42 43 43 ;; Filename Support … … 62 62 (make-pathname `(,(installation-prefix) "share") "chicken") ) ) 63 63 64 ; from repo-path in setup-helper.scm 64 65 (define (installation-repository-path) 65 (repository-path) ) 66 (if (deployment-mode) 67 (installation-prefix) ; deploy: copy directly into destdir 68 (let ((p (destination-prefix))) 69 (if p 70 ; installation-prefix changed: use it 71 (make-pathname p (sprintf "lib/chicken/~a" (##sys#fudge 42))) 72 ; otherwise use repo-path 73 (repository-path) ) ) ) ) 66 74 67 75 (define (directory-separator? obj) … … 147 155 (copy-file-relative fn dn) ) 148 156 157 (define (copy-to-installation-repository fn) 158 (copy-file-relative fn (installation-repository-path)) ) 159 149 160 (define (copy-to-repository fn) 150 (copy- file-relative fn (installation-repository-path)) )161 (copy-to-installation-repository fn) ) 151 162 152 163 (define (copy-to-home fn) … … 269 280 270 281 (define (has-emit-inline inline? nam) 271 272 282 (if (not (and *has-emit-inline* inline?)) '() 283 `(-emit-inline-file ,(inline-filename nam)) ) ) 273 284 274 285 (define (has-emit-types types? nam) 275 276 286 (if (not (and *has-emit-types* types?)) '() 287 `(-emit-type-file ,(types-filename nam)) ) ) 277 288 278 289 ;compile expands using back-quote -
release/4/setup-helper/trunk/setup-helper.setup
r26550 r27286 1 1 ;;;; setup-helper.setup -*- Hen -*- 2 2 3 (define this-verno "1.5. 2")3 (define this-verno "1.5.3") 4 4 5 5 (define (shared-filename bn)
Note: See TracChangeset
for help on using the changeset viewer.