From 5583d516d284f0c51149b9d3a263b05be3d3542d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 10 May 2010 21:26:53 +0000 Subject: [PATCH] gnupdate: Add `--dry-run' option. * maintainers/scripts/gnu/gnupdate.scm (%options): Add `dry-run'. (main): Handle `--dry-run'. svn path=/nixpkgs/trunk/; revision=21716 --- maintainers/scripts/gnu/gnupdate.scm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/maintainers/scripts/gnu/gnupdate.scm b/maintainers/scripts/gnu/gnupdate.scm index 4df48f931fea..c00184665884 100644 --- a/maintainers/scripts/gnu/gnupdate.scm +++ b/maintainers/scripts/gnu/gnupdate.scm @@ -658,9 +658,13 @@ (format #t "~%") (format #t " -x, --xml=FILE Read XML output of `nix-instantiate'~%") (format #t " from FILE.~%") + (format #t " -d, --dry-run Don't actually update Nix expressions~%") (format #t " -h, --help Give this help list.~%~%") (format #t "Report bugs to ~%") (exit 0))) + (option '(#\d "dry-run") #f #f + (lambda (opt name arg result) + (alist-cons 'dry-run #t result))) (option '(#\x "xml") #t #f (lambda (opt name arg result) @@ -695,8 +699,13 @@ old-version old-hash new-version new-hash location) - (update-nix-expression (location-file location) - old-version old-hash - new-version new-hash)) + (if (assoc-ref opts 'dry-run) + (format #t "`~a' would be updated from ~a to ~a (~a -> ~a)~%" + name old-version new-version + old-hash new-hash) + (update-nix-expression (location-file location) + old-version old-hash + new-version new-hash))) (_ #f))) - updates))) + updates) + #t))