add support for 3.7.1 Rowan v3: templates and GDKrowan3StoneDirectory…

…Spec; input.topaz is useful script; update tests/test_help.sh
GsDevKit · Dec 7, 2023 · cbb432e · cbb432e
1 parent 2fec53e
commit cbb432e
Show file tree

Hide file tree

Showing 9 changed files with 44 additions and 2 deletions.
diff --git a/bin/input.topaz b/bin/input.topaz
@@ -0,0 +1,10 @@
+#!/usr/bin/env superdoit_topaz
+#
+# execute the topaz commands in a file called inp, in the current directory.
+# 
+# If the inp file does not exist, you will be left at a topaz prompt, not logged in.
+#
+# If the inp does exist the script will be run and if there are no errors, the script will exit
+#
+
+input inp
diff --git a/src/GsDevKit_stones-Core.package/GDKrowan3StoneDirectorySpec.class/README.md b/src/GsDevKit_stones-Core.package/GDKrowan3StoneDirectorySpec.class/README.md
diff --git a/...GsDevKit_stones-Core.package/GDKrowan3StoneDirectorySpec.class/instance/isRowanEnabled.st b/...GsDevKit_stones-Core.package/GDKrowan3StoneDirectorySpec.class/instance/isRowanEnabled.st
@@ -0,0 +1,3 @@
+testing
+isRowanEnabled
+	^ true
diff --git a/...nes-Core.package/GDKrowan3StoneDirectorySpec.class/instance/populateStoneBinDirectory..st b/...nes-Core.package/GDKrowan3StoneDirectorySpec.class/instance/populateStoneBinDirectory..st
@@ -0,0 +1,11 @@
+stone creation
+populateStoneBinDirectory: stoneSpec
+	| stoneRoot gs |
+	super populateStoneBinDirectory: stoneSpec.
+	stoneRoot := stoneSpec rootDir.
+	gs := (System gemEnvironmentVariable: 'GEMSTONE') asFileReference.
+	#('exportRowanProjectAsTopaz.solo')
+		do: [ :scriptName | 
+			stoneSpec class
+				symbolicLink: gs / 'rowan3' / 'bin' / scriptName
+				linkName: stoneSpec rootDir / 'bin' / scriptName ]
diff --git a/src/GsDevKit_stones-Core.package/GDKrowan3StoneDirectorySpec.class/properties.json b/src/GsDevKit_stones-Core.package/GDKrowan3StoneDirectorySpec.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "GsDevKit_stones-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "GDKrowan3StoneDirectorySpec",
+	"pools" : [
+		 ],
+	"super" : "GDKStoneDirectorySpec",
+	"type" : "normal" }
diff --git a/...ones-Core.package/GDKrowanStoneDirectorySpec.class/instance/populateStoneBinDirectory..st b/...ones-Core.package/GDKrowanStoneDirectorySpec.class/instance/populateStoneBinDirectory..st
@@ -1,6 +1,7 @@
 stone creation
 populateStoneBinDirectory: stoneSpec
 	| stoneRoot gs |
+	super populateStoneBinDirectory: stoneSpec.
 	stoneRoot := stoneSpec rootDir.
 	gs := (System gemEnvironmentVariable: 'GEMSTONE') asFileReference.
 	#('exportRowanProjectAsTopaz.solo')

diff --git a/templates/default_rowan3.ston b/templates/default_rowan3.ston
@@ -1,4 +1,4 @@
-GDKrowanStoneDirectorySpec {
+GDKrowan3StoneDirectorySpec {
 	#name : 'default_rowan3',
 	#backups : 'backups',
 	#bin : 'bin',

diff --git a/templates/minimal_rowan3.ston b/templates/minimal_rowan3.ston
@@ -1,4 +1,4 @@
-GDKrowanStoneDirectorySpec {
+GDKrowan3StoneDirectorySpec {
 	#name : 'minimal_rowan3',
 	#customenv : 'customenv',
 	#dbfSource : '$GEMSTONE/bin/extent0.rowan3.dbf',

diff --git a/tests/test_help.sh b/tests/test_help.sh
@@ -14,19 +14,22 @@ deleteStone.solo -h
 downloadGemStone.solo -h
 generateGsDevKitProjectSet.solo -h
 gslist.solo --help
+newExtent.solo --help
 registerProductDirectory.solo -h
 registerProduct.solo -h
 registerProjectDirectory.solo -h
 registerStonesDirectory.solo -h
 registerStone.solo -h
 registerTodeSharedDir.solo -h
+registryQuery.solo -h
 registryReport.solo --help
 startNetldi.solo --help
 startStone.solo -h
 stopNetldi.solo --help
 stopStone.solo --help
 template.solo -h
 todeIt.solo -h
+updateClientLibs.solo -h
 updateCustomEnv.solo -h
 updateProjectSet.solo --help
 versionReport.gs_solo -h