diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-05-19 05:12:04 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-05-19 05:12:04 +0000 |
commit | ef018514daab61fb65f618b3f4fc8494d7b96dc3 (patch) | |
tree | 93ae9b623461ab2cee3bde34aa0f1139b3430d07 /scripts | |
parent | 0926d46e069e07bf56b387c9b00a2d9f893a5eb4 (diff) | |
download | guile-ef018514daab61fb65f618b3f4fc8494d7b96dc3.tar.gz |
(group-diff): Also output +N and -N adds and subs details, respectively.
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/api-diff | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/scripts/api-diff b/scripts/api-diff index cee9668ca..433ff0f45 100755 --- a/scripts/api-diff +++ b/scripts/api-diff @@ -113,11 +113,23 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@" (old-count (and old (length old))) (new-count (and new (length new))) (delta (and old new (- new-count old-count)))) - (format #t " ~5@A ~5@A ~5@A ~A\n" + (format #t " ~5@A ~5@A : " (or old-count "-") - (or new-count "-") - (or delta "-") - group))) + (or new-count "-")) + (cond ((and old new) + (let ((add-count 0) (sub-count 0)) + (diff+note! + old new + (lambda (subs) + (set! sub-count (length subs))) + (lambda (adds) + (set! add-count (length adds))) + (lambda () #t)) + (format #t "~5@D ~5@D : ~5@D" + add-count (- sub-count) delta))) + (else + (format #t "~5@A ~5@A : ~5@A" "-" "-" "-"))) + (format #t " ~A\n" group))) (sort (union g-old-names g-new-names) (lambda (a b) (string<? (symbol->string a) |