From 0d011a4be65392354cc86c39e881a601178917b9 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 18 Apr 2021 19:26:20 +0100
Subject: [PATCH] update-version: New maintenance script

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 update-versions | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 update-versions

diff --git a/update-versions b/update-versions
new file mode 100755
index 00000000..c017e2c3
--- /dev/null
+++ b/update-versions
@@ -0,0 +1,39 @@
+#!/bin/bash
+# usage:
+#   ./update-versions [--all-meta] 0.5.0
+
+set -e
+
+fail () { echo >&2 "${0##*/}: error: $*"; exit 12; }
+
+case "$1" in
+-*)		fail "unknown option $1" ;;
+esac
+
+version="$1"
+case "$version" in
+'')         fail 'need new version number' ;;
+*[^0-9.]*)  fail 'version number contains bad character' ;;
+[^0-9]*)    fail 'version number starts with non-digit' ;;
+esac
+
+files=$(git ls-files :\*/Cargo.toml :Cargo.toml)
+dirty=$(git status -u --porcelain $files)
+
+if [ "x$dirty" != x ]; then
+    printf >&2 "%s\n" "$dirty"
+    fail 'some Cargo.toml[s] are dirty.'
+fi
+
+for f in $files; do
+    perl -i~ -pe '
+      next unless m{^\[package\]\s*$}...m{^\[};
+        $y=1 if s{^version=".*}{version="'$version'"};
+        END { $y or die "appropriate line not found in '$f'" }
+    ' "$f"
+done
+
+git commit -s -m "Cargo.toml: Update all versions to $version
+
+Commit made automatically by update-versions.
+" $files
-- 
2.30.2