Ticket #947: phony.diff

make.scm

@@ -40 +40 @@
 #f.
 
 > (make-print-reasons [on?]) If #t, make prints the reason for each
-dependancy that fires. Defaultly #t.
+dependency that fires. Defaultly #t.
 |#
 
 (require-library srfi-1 posix)
 
 (module make (make make/proc make-print-checking
                    make-print-dep-no-line
-                   make-print-reasons)
+                   make-print-reasons
+                   make-nonfile-targets)
  
 (import scheme chicken extras posix srfi-1)
 
 (define make-print-checking (make-parameter #f))
 (define make-print-dep-no-line (make-parameter #f))
 (define make-print-reasons (make-parameter #f))
+(define make-nonfile-targets (make-parameter '()))
 
 (define (make:find-matching-line str spec)
   (let ((match? (lambda (s) (string=? s str))))
@@ -130 +132 @@
                       (let ((reason
                              (or (not date)
                                  (find (lambda (dep)
-                                         (unless (file-exists? dep)
-                                           (error (sprintf "dependancy ~a was not made~%" dep)))
-                                         (and (> (file-modification-time dep) date)
-                                              dep))
+                                         (and (not (member dep (make-nonfile-targets)))
+                                              (unless (file-exists? dep)
+                                                (error (sprintf "dependency ~a was not made~%" dep)))
+                                              (and (> (file-modification-time dep) date)
+                                                   dep)))
                                        deps))))
                         (when reason
                           (let ((l (cddr line)))
@@ -145 +148 @@
                                s
                                (if (make-print-reasons)
                                    (cond
-                                    ((not date)
+                                    ((and (not date) (not (member s (make-nonfile-targets))))
                                      (string-append " because " s " does not exist"))
                                     ((string? reason)
                                      (string-append " because " reason " changed"))