summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2002-05-19 05:12:04 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2002-05-19 05:12:04 +0000
commitef018514daab61fb65f618b3f4fc8494d7b96dc3 (patch)
tree93ae9b623461ab2cee3bde34aa0f1139b3430d07 /scripts
parent0926d46e069e07bf56b387c9b00a2d9f893a5eb4 (diff)
downloadguile-ef018514daab61fb65f618b3f4fc8494d7b96dc3.tar.gz
(group-diff): Also output +N and -N adds and subs details, respectively.
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/api-diff20
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)