From 73a705790ccd89b6c74805d7b3e7673884a538f4 Mon Sep 17 00:00:00 2001
From: Dale Henrichs <dale.henrichs@gemtalksystems.com>
Date: Tue, 30 May 2023 16:52:25 -0700
Subject: [PATCH] Issue #4: registerProductDirectory.solo,
 downloadGemStone.solo, registerProduct.solo tested and validated

---
 README.md                | 19 ++++++++++---------
 bin/registerProduct.solo | 20 ++++++++++----------
 2 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/README.md b/README.md
index 0825782d..dbba0178 100644
--- a/README.md
+++ b/README.md
@@ -10,23 +10,24 @@ After running install add superDoit/bin and GsDevKit_stones/bin to $PATH
 
 ## Setting up the registry structure
 ```bash
-registryName="issue_4"
+registryName="gsdevkit"
 projectSetName="gsdevkit"
-gemstoneProductsDirectory=""
-projectsDirectory="/bosch1/users/dhenrich/_git/"
+gemstoneProductsDirectory="/bosch1/users/dhenrich/products"
+projectsDirectory="/bosch1/users/dhenrich/projects/"
 
 createRegistry.solo $registryName
 createProjectSet.solo --registry=$registryName --projectSet=$projectSetName --ssh
+createProjectSet.solo --registry=$registryName --projectSet=${projectSetName}_https --https
 cloneProjectsFromProjectSet.solo --registry=$registryName --projectSet=$projectSetName \
   --projectDirectory=$projectsDirectory
-registerProductDirectory.solo --registry=$registryName --productDirectory=$projectsDirectory
+registerProductDirectory.solo --registry=$registryName --productDirectory=$gemstoneProductsDirectory
 
 # GemStone version not previously downloaded
-downloadGemStone.solo --directory=$gemstoneProductsDirectory --registry=$registryName 3.6.6
-# GemStone version previously downloaded
-registerProduct.solo --registry=$registryName --fromDirectory=$GS_HOME/shared/downloads/products 3.6.6
-# internal development
-registerProduct.solo --registry=$registryName --fromDirectory=/bosch1/users/dhenrich/_work/d_37x/noop50/gs/product 3.7.0
+downloadGemStone.solo --registry=$registryName 3.6.6
+# Register full set of previously downloaded product trees
+registerProduct.solo --registry=$registryName --fromDirectory=$GS_HOME/shared/downloads/products
+# register named GemStone version using path to product tree
+registerProduct.solo --registry=$registryName --productPath=/bosch1/users/dhenrich/_work/d_37x/noop50/gs/product 3.7.0
 
 registryReport.solo
 ```
diff --git a/bin/registerProduct.solo b/bin/registerProduct.solo
index 8e2d0ae1..ae605117 100755
--- a/bin/registerProduct.solo
+++ b/bin/registerProduct.solo
@@ -74,16 +74,16 @@ doit
 		ifNotNil: [:productPath |
 			gemstonePath := GsFile serverRealPath: self productPath.
 			gemstoneVersion := self positionalArgs at: 1.
-		(stonesRegistry products at: gemstoneVersion ifAbsent: [])
-			ifNotNil: [:existingPath | 
-				self force 
-					ifFalse: [ 
-						self error: 'There is an existing path (', 
-							existingPath,
-							') for the GemStone version ', 
-							gemstoneVersion, 
-							'. Use the --force option to override.' ].
-				self register: gemstoneVersion path: gemstonePath for: stonesRegistry ] ]
+			(stonesRegistry products at: gemstoneVersion ifAbsent: [])
+				ifNotNil: [:existingPath | 
+					self force 
+						ifFalse: [ 
+							self error: 'There is an existing path (', 
+								existingPath,
+								') for the GemStone version ', 
+								gemstoneVersion, 
+								'. Use the --force option to override.' ] ].
+			self register: gemstoneVersion path: gemstonePath for: stonesRegistry ]
 		ifNil: [
 			self fromDirectory
 				ifNotNil: [:directory |