- Timestamp:
- 06/16/09 13:39:52 (10 years ago)
- Location:
- chicken/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/chicken-install.scm
r14870 r15000 282 282 (if (sudo-install) " -e \"(sudo-install #t)\"" "") 283 283 (if *keep* " -e \"(keep-intermediates #t)\"" "") 284 (if *no-install* " -e \"(setup-install- flag#f)\"" "")284 (if *no-install* " -e \"(setup-install-mode #f)\"" "") 285 285 (if *host-extension* " -e \"(host-extension #t)\"" "") 286 286 (if *prefix* (sprintf " -e \"(installation-prefix \\\"~a\\\")\"" *prefix*) "") -
chicken/trunk/manual/Extensions
r13709 r15000 270 270 271 271 272 ==== setup-install- flag273 274 [parameter] (setup-install- flag[BOOL])272 ==== setup-install-mode 273 274 [parameter] (setup-install-mode [BOOL]) 275 275 276 276 Reflects the setting of the {{-no-install}} option, i.e. is {{#f}}, if {{-no-install}} was -
chicken/trunk/setup-api.scm
r14656 r15000 40 40 host-extension 41 41 install-extension install-program install-script 42 setup-verbose-flag 43 setup-install-flag installation-prefix chicken-prefix 42 setup-verbose-mode setup-install-mode 43 setup-verbose-flag setup-install-flag ; DEPRECATED 44 installation-prefix chicken-prefix 44 45 find-library find-header 45 46 program-path remove-file* … … 117 118 118 119 (define setup-root-directory (make-parameter *base-directory*)) 119 (define setup-verbose-flag (make-parameter #f)) 120 (define setup-install-flag (make-parameter #t)) 120 (define setup-verbose-mode (make-parameter #f)) 121 (define setup-install-mode (make-parameter #t)) 122 (define setup-verbose-flag setup-verbose-mode) ; DEPRECATED 123 (define setup-install-flag setup-install-mode) ; DEPRECATED 121 124 (define program-path (make-parameter *chicken-bin-path*)) 122 125 (define keep-intermediates (make-parameter #f)) … … 186 189 (create-directory dir))) ) ) ) 187 190 (define (verb dir) 188 (when (setup-verbose- flag) (printf " creating directory `~a'~%~!" dir)) )191 (when (setup-verbose-mode) (printf " creating directory `~a'~%~!" dir)) ) 189 192 (if *windows-shell* 190 193 (lambda (dir) … … 213 216 214 217 (define (patch which rx subst) 215 (when (setup-verbose- flag) (printf "patching ~A ...~%" which))218 (when (setup-verbose-mode) (printf "patching ~A ...~%" which)) 216 219 (if (list? which) 217 220 (with-output-to-file (cadr which) … … 334 337 (date (and (file-exists? s2) 335 338 (file-modification-time s2)))) 336 (when (setup-verbose- flag)339 (when (setup-verbose-mode) 337 340 (printf "make: ~achecking ~a~%" indent s2)) 338 341 (if line … … 354 357 (unless (null? l) 355 358 (set! made (cons s made)) 356 (when (setup-verbose- flag)359 (when (setup-verbose-mode) 357 360 (printf "make: ~amaking ~a~a~%" 358 361 indent … … 381 384 ((null? argv) (make-file (caar spec) "")) 382 385 (else (for-each (lambda (f) (make-file f "")) argv))) 383 (when (setup-verbose- flag)386 (when (setup-verbose-mode) 384 387 (for-each (lambda (item) 385 388 (printf "make: made ~a~%" item)) … … 439 442 (let ((info `((files ,@files) 440 443 ,@info)) ) 441 (when (setup-verbose- flag) (printf "writing info ~A -> ~S ...~%" id info))444 (when (setup-verbose-mode) (printf "writing info ~A -> ~S ...~%" id info)) 442 445 (let* ((sid (->string id)) 443 446 (setup-file (make-setup-info-pathname sid (repo-path #t)))) … … 500 503 501 504 (define (install-extension id files #!optional (info '())) 502 (when (setup-install- flag)505 (when (setup-install-mode) 503 506 (let* ((files (check-filelist (if (list? files) files (list files)))) 504 507 (rpath (repo-path)) … … 548 551 f 549 552 (if *windows-shell* "exe" #f) ) ) 550 (when (setup-install- flag)553 (when (setup-install-mode) 551 554 (let* ((files (check-filelist (if (list? files) files (list files)))) 552 555 (ppath ((lambda (pre) … … 573 576 574 577 (define (install-script id files #!optional (info '())) 575 (when (setup-install- flag)578 (when (setup-install-mode) 576 579 (let* ((files (check-filelist (if (list? files) files (list files)))) 577 580 (ppath ((lambda (pre) … … 616 619 617 620 (define (try-compile code #!key c++ (cc (if c++ *cxx* *cc*)) (cflags "") (ldflags "") 618 (verb (setup-verbose- flag)) (compile-only #f))621 (verb (setup-verbose-mode)) (compile-only #f)) 619 622 (let* ((fname (create-temporary-file "c")) 620 623 (oname (pathname-replace-extension fname "o"))
Note: See TracChangeset
for help on using the changeset viewer.