Changeset 15000 in project for chicken

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:

• chicken-install.scm (modified) (1 diff)
• manual/Extensions (modified) (1 diff)
• setup-api.scm (modified) (12 diffs)

chicken/trunk/chicken-install.scm

@@ -282 +282 @@
      (if (sudo-install) " -e \"(sudo-install #t)\"" "")
      (if *keep* " -e \"(keep-intermediates #t)\"" "")
-     (if *no-install* " -e \"(setup-install-flag #f)\"" "")
+     (if *no-install* " -e \"(setup-install-mode #f)\"" "")
      (if *host-extension* " -e \"(host-extension #t)\"" "")
      (if *prefix* (sprintf " -e \"(installation-prefix \\\"~a\\\")\"" *prefix*) "")

chicken/trunk/manual/Extensions

@@ -270 +270 @@
 
 
-==== setup-install-flag
-
- [parameter] (setup-install-flag [BOOL])
+==== setup-install-mode
+
+ [parameter] (setup-install-mode [BOOL])
 
 Reflects the setting of the {{-no-install}} option, i.e. is {{#f}}, if {{-no-install}} was

chicken/trunk/setup-api.scm

@@ -40 +40 @@
      host-extension
      install-extension install-program install-script
-     setup-verbose-flag
-     setup-install-flag installation-prefix chicken-prefix 
+     setup-verbose-mode setup-install-mode
+     setup-verbose-flag setup-install-flag                      ; DEPRECATED
+     installation-prefix chicken-prefix 
      find-library find-header 
      program-path remove-file* 
@@ -117 +118 @@
 
 (define setup-root-directory      (make-parameter *base-directory*))
-(define setup-verbose-flag        (make-parameter #f))
-(define setup-install-flag        (make-parameter #t))
+(define setup-verbose-mode        (make-parameter #f))
+(define setup-install-mode        (make-parameter #t))
+(define setup-verbose-flag setup-verbose-mode) ; DEPRECATED
+(define setup-install-flag setup-install-mode) ; DEPRECATED
 (define program-path              (make-parameter *chicken-bin-path*))
 (define keep-intermediates (make-parameter #f))
@@ -186 +189 @@
               (create-directory dir))) ) ) )
     (define (verb dir)
-      (when (setup-verbose-flag) (printf "  creating directory `~a'~%~!" dir)) )
+      (when (setup-verbose-mode) (printf "  creating directory `~a'~%~!" dir)) )
     (if *windows-shell*
         (lambda (dir)
@@ -213 +216 @@
   
 (define (patch which rx subst)
-  (when (setup-verbose-flag) (printf "patching ~A ...~%" which))
+  (when (setup-verbose-mode) (printf "patching ~A ...~%" which))
   (if (list? which)
       (with-output-to-file (cadr which)
@@ -334 +337 @@
                      (date (and (file-exists? s2)
                                 (file-modification-time s2))))
-                (when (setup-verbose-flag)
+                (when (setup-verbose-mode)
                   (printf "make: ~achecking ~a~%" indent s2))
                 (if line
@@ -354 +357 @@
                             (unless (null? l)
                               (set! made (cons s made))
-                              (when (setup-verbose-flag)
+                              (when (setup-verbose-mode)
                                 (printf "make: ~amaking ~a~a~%"
                                         indent
@@ -381 +384 @@
      ((null? argv) (make-file (caar spec) ""))
      (else (for-each (lambda (f) (make-file f "")) argv)))
-    (when (setup-verbose-flag)
+    (when (setup-verbose-mode)
       (for-each (lambda (item)
                   (printf "make: made ~a~%" item))
@@ -439 +442 @@
   (let ((info `((files ,@files) 
                 ,@info)) )
-    (when (setup-verbose-flag) (printf "writing info ~A -> ~S ...~%" id info))
+    (when (setup-verbose-mode) (printf "writing info ~A -> ~S ...~%" id info))
     (let* ((sid (->string id))
            (setup-file (make-setup-info-pathname sid (repo-path #t))))
@@ -500 +503 @@
 
 (define (install-extension id files #!optional (info '()))
-  (when (setup-install-flag)
+  (when (setup-install-mode)
     (let* ((files (check-filelist (if (list? files) files (list files))))
            (rpath (repo-path))
@@ -548 +551 @@
      f
      (if *windows-shell* "exe" #f) ) )
-  (when (setup-install-flag)
+  (when (setup-install-mode)
     (let* ((files (check-filelist (if (list? files) files (list files))))
            (ppath ((lambda (pre)
@@ -573 +576 @@
 
 (define (install-script id files #!optional (info '()))
-  (when (setup-install-flag)
+  (when (setup-install-mode)
     (let* ((files (check-filelist (if (list? files) files (list files))))
            (ppath ((lambda (pre) 
@@ -616 +619 @@
 
 (define (try-compile code #!key c++ (cc (if c++ *cxx* *cc*)) (cflags "") (ldflags "") 
-                     (verb (setup-verbose-flag)) (compile-only #f))
+                     (verb (setup-verbose-mode)) (compile-only #f))
   (let* ((fname (create-temporary-file "c"))
          (oname (pathname-replace-extension fname "o"))