Changeset 15000 in project


Ignore:
Timestamp:
06/16/09 13:39:52 (10 years ago)
Author:
felix winkelmann
Message:

renamed setup-{install,verbose}-flag to ...-mode; old names are still available, but deprecated

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-install.scm

    r14870 r15000  
    282282     (if (sudo-install) " -e \"(sudo-install #t)\"" "")
    283283     (if *keep* " -e \"(keep-intermediates #t)\"" "")
    284      (if *no-install* " -e \"(setup-install-flag #f)\"" "")
     284     (if *no-install* " -e \"(setup-install-mode #f)\"" "")
    285285     (if *host-extension* " -e \"(host-extension #t)\"" "")
    286286     (if *prefix* (sprintf " -e \"(installation-prefix \\\"~a\\\")\"" *prefix*) "")
  • chicken/trunk/manual/Extensions

    r13709 r15000  
    270270
    271271
    272 ==== setup-install-flag
    273 
    274  [parameter] (setup-install-flag [BOOL])
     272==== setup-install-mode
     273
     274 [parameter] (setup-install-mode [BOOL])
    275275
    276276Reflects the setting of the {{-no-install}} option, i.e. is {{#f}}, if {{-no-install}} was
  • chicken/trunk/setup-api.scm

    r14656 r15000  
    4040     host-extension
    4141     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
    4445     find-library find-header
    4546     program-path remove-file*
     
    117118
    118119(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
    121124(define program-path              (make-parameter *chicken-bin-path*))
    122125(define keep-intermediates (make-parameter #f))
     
    186189              (create-directory dir))) ) ) )
    187190    (define (verb dir)
    188       (when (setup-verbose-flag) (printf "  creating directory `~a'~%~!" dir)) )
     191      (when (setup-verbose-mode) (printf "  creating directory `~a'~%~!" dir)) )
    189192    (if *windows-shell*
    190193        (lambda (dir)
     
    213216 
    214217(define (patch which rx subst)
    215   (when (setup-verbose-flag) (printf "patching ~A ...~%" which))
     218  (when (setup-verbose-mode) (printf "patching ~A ...~%" which))
    216219  (if (list? which)
    217220      (with-output-to-file (cadr which)
     
    334337                     (date (and (file-exists? s2)
    335338                                (file-modification-time s2))))
    336                 (when (setup-verbose-flag)
     339                (when (setup-verbose-mode)
    337340                  (printf "make: ~achecking ~a~%" indent s2))
    338341                (if line
     
    354357                            (unless (null? l)
    355358                              (set! made (cons s made))
    356                               (when (setup-verbose-flag)
     359                              (when (setup-verbose-mode)
    357360                                (printf "make: ~amaking ~a~a~%"
    358361                                        indent
     
    381384     ((null? argv) (make-file (caar spec) ""))
    382385     (else (for-each (lambda (f) (make-file f "")) argv)))
    383     (when (setup-verbose-flag)
     386    (when (setup-verbose-mode)
    384387      (for-each (lambda (item)
    385388                  (printf "make: made ~a~%" item))
     
    439442  (let ((info `((files ,@files)
    440443                ,@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))
    442445    (let* ((sid (->string id))
    443446           (setup-file (make-setup-info-pathname sid (repo-path #t))))
     
    500503
    501504(define (install-extension id files #!optional (info '()))
    502   (when (setup-install-flag)
     505  (when (setup-install-mode)
    503506    (let* ((files (check-filelist (if (list? files) files (list files))))
    504507           (rpath (repo-path))
     
    548551     f
    549552     (if *windows-shell* "exe" #f) ) )
    550   (when (setup-install-flag)
     553  (when (setup-install-mode)
    551554    (let* ((files (check-filelist (if (list? files) files (list files))))
    552555           (ppath ((lambda (pre)
     
    573576
    574577(define (install-script id files #!optional (info '()))
    575   (when (setup-install-flag)
     578  (when (setup-install-mode)
    576579    (let* ((files (check-filelist (if (list? files) files (list files))))
    577580           (ppath ((lambda (pre)
     
    616619
    617620(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))
    619622  (let* ((fname (create-temporary-file "c"))
    620623         (oname (pathname-replace-extension fname "o"))
Note: See TracChangeset for help on using the changeset viewer.