X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fcoverage.scm;h=0f1ae319ad627bf2f79eee457b13785d3ba41646;hb=acae40c266a7df9b4882f937c733745c803ac9e4;hp=e7392bb6837b8e5fe459d0001d3a29d2229299e3;hpb=52c47ff08943021305e5d40bf5a4963e3e520af8;p=lilypond.git

diff --git a/scm/coverage.scm b/scm/coverage.scm
index e7392bb683..0f1ae319ad 100644
--- a/scm/coverage.scm
+++ b/scm/coverage.scm
@@ -1,28 +1,30 @@
+;;;; coverage.scm
+
 (define-module (scm coverage))
 
 (use-modules (lily)
-	     (ice-9 rdelim)
-	     (ice-9 regex)
-	     (ice-9 format) ;; needed for ~8@ 
-	     )
+             (ice-9 rdelim)
+             (ice-9 regex)
+             (ice-9 format) ;; needed for ~8@
+             )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-public (coverage:show-all filter?)
   (let*
       ((keys
-	(filter filter?
-		(sort (map car (hash-table->alist coverage-table)) string<? ))))
-    
-  (newline)
-  (for-each
-   (lambda (k)
+        (filter filter?
+                (sort (map car (hash-table->alist coverage-table)) string<? ))))
+
+    (newline)
+    (for-each
+     (lambda (k)
 
-     (format #t "Coverage for file: ~a\n" k)
-     (display-coverage
-      k (hash-ref coverage-table k)
-      (format #f "~a.cov" (basename k))))
-   keys)))
+       (format #t "Coverage for file: ~a\n" k)
+       (display-coverage
+        k (hash-ref coverage-table k)
+        (format #f "~a.cov" (basename k))))
+     keys)))
 
 
 (define-public (coverage:enable)
@@ -30,7 +32,7 @@
   (trap-enable 'memoize-symbol)
   (trap-enable 'traps))
 
-     
+
 (define-public (coverage:disable)
   (trap-set! memoize-symbol-handler #f)
   (trap-disable 'memoize-symbol))
@@ -47,27 +49,27 @@
       ((lines (read-lines (open-file file "r")))
        (format-str "~8@a: ~5@a:~a\n")
        (out (if out-file (open-output-file out-file)
-		(current-output-port))))
+                (current-output-port))))
 
     (format out format-str "-" 0 (format #f "Source:~a" file))
     (do
-	((i 0 (1+ i))
-	 (l lines (cdr l)))
-	((or (null? l) ))
+        ((i 0 (1+ i))
+         (l lines (cdr l)))
+        ((or (null? l) ))
 
       (format out format-str
-		       (cond
-			((and (< i (vector-length vec)) (vector-ref vec i)) "1")
-			((and (string-contains file ".ly") (string-match "^[ \t]*%.*$" (car l)))
-			 "-")
-			((string-match  "^[ \t]*[()'`,]*$" (car l))
-			 "-")
-			((string-match  "^[ \t]*;.*$" (car l))
-
-			 "-")
-			(else "0"))
-		       (1+ i)
-		       (car l)))))
+              (cond
+               ((and (< i (vector-length vec)) (vector-ref vec i)) "1")
+               ((and (string-contains file ".ly") (string-match "^[ \t]*%.*$" (car l)))
+                "-")
+               ((string-match  "^[ \t]*[()'`,]*$" (car l))
+                "-")
+               ((string-match  "^[ \t]*;.*$" (car l))
+
+                "-")
+               (else "0"))
+              (1+ i)
+              (car l)))))
 
 (define (record-coverage key cont exp env)
   (let*
@@ -76,22 +78,17 @@
        (vec (and name (hash-ref coverage-table name #f)))
        (veclen (and vec (vector-length vec)))
        (veccopy (lambda (src dst)
-		  (vector-move-left! src 0 (vector-length src)
-				     dst 0)
-		  dst)))
+                  (vector-move-left! src 0 (vector-length src)
+                                     dst 0)
+                  dst)))
     (if (and line name)
-	(begin
-	  (if (or (not vec) (>= line (vector-length vec)))
-	      (set! vec
-		    (hash-set! coverage-table name
-				(if vec
-				    (veccopy vec (make-vector (1+ line) #f))
-				    (make-vector (1+ line) #f)))))
-
-	  (vector-set! vec line #t))
-    )))
-
-
-
-
-
+        (begin
+          (if (or (not vec) (>= line (vector-length vec)))
+              (set! vec
+                    (hash-set! coverage-table name
+                               (if vec
+                                   (veccopy vec (make-vector (1+ line) #f))
+                                   (make-vector (1+ line) #f)))))
+
+          (vector-set! vec line #t))
+        )))