From 2f8ea466262d149508721251646ef35e30f5cc7a Mon Sep 17 00:00:00 2001
From: Dale Henrichs <dale.henrichs@gemtalksystems.com>
Date: Tue, 2 Apr 2024 09:17:36 -0700
Subject: [PATCH] Issue #74: accept command line gemstone versions and restrict
 them to 3.7.1 or 3.7.2

---
 README.md      |  2 +-
 bin/install.sh | 12 ++++++++++--
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 602e8f9..d76a6a8 100644
--- a/README.md
+++ b/README.md
@@ -13,7 +13,7 @@ BRANCH | STATUS
 ## Versions
 ### v4.2
 Development version intended for use with GsDevKit_stone:v2 and GemStone 3.5.3 and newer versions of GemStone. github actions for superDoit test 3.6.4 thru 3.6.6, and 3.7.0. while the GsDevKit_stones github actions tests 3.5.3, 3.5.8, 3.6.0.
-Note that GemStone 3.7.0 is **unconditionally used for all solo scripts**, which allows for supporting version older that 3.6.4...
+Note that GemStone either 3.7.0 or 3.7.1 is **required for all solo scripts**, which allows for supporting versions older that 3.6.4...
 
 ### v4.1
 Stable branch intended for use with SmalltalkCI, GsDevKit_stones:v1.1.x and versions of GemStone that are shipped with an extent0.rowan.dbf in $GEMSTONE/bin (tested from GemStone 3.6.4 thru 3.7.0).
diff --git a/bin/install.sh b/bin/install.sh
index 19020c8..f530cc1 100755
--- a/bin/install.sh
+++ b/bin/install.sh
@@ -4,9 +4,17 @@ set -e
 
 # Unconditionally download 3.7.0 along and ignor requested GemStone version.
 #
-gemstoneversion="3.7.0"
+gemstoneversion="$1"
 if [ "$gemstoneversion"x = "x" ]; then
-	exit 0
+	gemstoneversion="3.7.0"
+else
+	case "$gemstoneversion" in
+		3.7.0|3.7.1)
+			"we're good"
+			;;
+		*)
+			echo "only gemstone version 3.7.1 or 3.7.2 should be used"
+			exit 1
 fi
 PLATFORM="`uname -sm | tr ' ' '-'`"
 case "$PLATFORM" in