Issue #261: first draft of doCreateStone [ci skip]

GsDevKit · Oct 25, 2019 · 011cfc3 · 011cfc3
1 parent 4ee296e
commit 011cfc3
Show file tree

Hide file tree

Showing 7 changed files with 158 additions and 2 deletions.
diff --git a/...it_launcher-Core.package/AbstractGsDevKitProgram.class/class/createStone.version.args..st b/...it_launcher-Core.package/AbstractGsDevKitProgram.class/class/createStone.version.args..st
@@ -0,0 +1,11 @@
+gsdevkit utilities
+createStone: stoneName version: gemstoneVersion args: args
+  | commandPath |
+  commandPath := '$GS_HOME/bin/createStone' asFileReference pathString.	"Use asFileReference to resolve $GS_HOME in commandPath"
+  self
+    execute: commandPath , ' ' , args , ' ' stoneName , ' ' , gemstoneVersion
+    exitStatusBlock: [ :exitStatus :stdout :stderr | 
+      exitStatus ~= 0
+        ifTrue: [ Error signal: 'Error , ' , stderr asString ].
+      self stdout nextPutAll: stdout.
+      ^ stdout ]
diff --git a/.../rowan/filetree/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/ln..st b/.../rowan/filetree/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/ln..st
@@ -0,0 +1,10 @@
+shell utilities
+ln: args
+  | cmd |
+  cmd := '/bin/ln ' , args.
+  self
+    execute: cmd
+    exitStatusBlock: [ :exitStatus :stdout :stderr | 
+      exitStatus ~= 0
+        ifTrue: [ Error signal: 'Error , ' , stderr asString ].
+      ^ stdout ]
diff --git a/...letree/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/startNetldi..st b/...letree/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/startNetldi..st
@@ -0,0 +1,3 @@
+gsdevkit utilities
+startNetldi: stoneName
+  ^ self startNetldi: stoneName args: ''
diff --git a/...e/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/startNetldi.args..st b/...e/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/startNetldi.args..st
@@ -0,0 +1,11 @@
+gsdevkit utilities
+startNetldi: stoneName args: startNetldiCommandLineArgs
+  | commandPath |
+  commandPath := '$GS_HOME/bin/startNetldi' asFileReference pathString.	"Use asFileReference to resolve $GS_HOME in commandPath"
+  self
+    execute: commandPath , ' ' stoneName , ' ' , startNetldiCommandLineArgs
+    exitStatusBlock: [ :exitStatus :stdout :stderr | 
+      exitStatus ~= 0
+        ifTrue: [ Error signal: 'Error , ' , stderr asString ].
+      self stdout nextPutAll: stdout.
+      ^ stdout ]
diff --git a/...iletree/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/stopNetldi..st b/...iletree/gsdevkit_launcher-Core.package/AbstractGsDevKitProgram.class/class/stopNetldi..st
@@ -0,0 +1,11 @@
+gsdevkit utilities
+stopNetldi: stoneName
+  | commandPath |
+  commandPath := '$GS_HOME/bin/stopNetldi' asFileReference pathString.	"Use asFileReference to resolve $GS_HOME in commandPath"
+  self
+    execute: commandPath , ' ' stoneName
+    exitStatusBlock: [ :exitStatus :stdout :stderr | 
+      exitStatus ~= 0
+        ifTrue: [ Error signal: 'Error , ' , stderr asString ].
+      self stdout nextPutAll: stdout.
+      ^ stdout ]
diff --git a/...e/gsdevkit_launcher-Scripts.package/GdkL_Install_Launcher.class/instance/doCreateStone.st b/...e/gsdevkit_launcher-Scripts.package/GdkL_Install_Launcher.class/instance/doCreateStone.st
@@ -1,4 +1,59 @@
 actions
 doCreateStone
+  "
+	1. create GsDevKit_home stone
+	2. update custom_stone.env and restart netldi
+	3. populate the stone directory with usful development scripts
+	4. run the newBuild_SystemUser_gsdevkit_launcher_tode script to build initial development stone
+  "
+
+  | createSummary stoneDir customEnv contents gsdevkitStoneScriptDir |
   self createStone
-    ifFalse: [ ^ self summary ]
+    ifFalse: [ ^ self summary ].
+  createSummary := Dictionary new.
+  self summary at: #'create' put: createSummary.
+  stoneDir := ('$GS_HOME/server/stones/' , self stoneName) asFileReference.
+  stoneDir exists
+    ifTrue: [ 
+      createSummary
+        at: self stoneName
+        put: #'skipped' -> ('stone already exists at ' , stoneDir pathString) ]
+    ifFalse: [ 
+      self class createStone: self stoneName version: '3.5.0' args: '-g'.
+      self createSummary
+        at: self stoneName
+        put: #'created' -> stoneDir pathString.
+      customEnv := stoneDir / 'custome_stone.env'.
+      contents := customEnv contents.
+      customEnv
+        writeStreamDo: [ :stream | 
+          stream
+            nextPutAll: contents;
+            lf;
+            nextPutAll: 'export ROWAN_PROJECTS_HOME=$GS_HOME/shared/repos';
+            lf ].
+      self class stopNetldi: self stoneName.
+      self class startNetldi: self stoneName.	"pick up ROWAN_PROJECTS_HOME in netldi process"
+      gsdevkitStoneScriptDir := '$GS_HOME/shared/repos/GsDefKit_launcher/bootstrapping/gemstone/gsdefkit_home'
+        asFileReference.
+      self
+        ln:
+          ' -s '
+            ,
+              (gsdevkitStoneScriptDir / 'newBuild_SystemUser_gsdevkit_launcher_tode')
+                pathString
+            , ' ' , stoneDir pathString.
+      self
+        ln:
+          ' -s '
+            ,
+              (gsdevkitStoneScriptDir / 'newBuild_SystemUser_gsdevkit_launcher_deployer')
+                pathString
+            , ' ' , stoneDir pathString.
+      self stdout
+        nextPutAll:
+            (System
+                performOnServer:
+                  'cd ' , stoneDir pathString , '; ./newBuild_SystemUser_gsdevkit_launcher_tode');
+        lf ].
+  ^ self summary
diff --git a/...os/GsDevKit_launcher/rowan/tonel/gsdevkit_launcher-Scripts/GdkL_Install_Launcher.class.st b/...os/GsDevKit_launcher/rowan/tonel/gsdevkit_launcher-Scripts/GdkL_Install_Launcher.class.st
@@ -126,8 +126,63 @@ GdkL_Install_Launcher >> doClone [
 
 { #category : 'actions' }
 GdkL_Install_Launcher >> doCreateStone [
+  "
+	1. create GsDevKit_home stone
+	2. update custom_stone.env and restart netldi
+	3. populate the stone directory with usful development scripts
+	4. run the newBuild_SystemUser_gsdevkit_launcher_tode script to build initial development stone
+  "
+
+  | createSummary stoneDir customEnv contents gsdevkitStoneScriptDir |
   self createStone
-    ifFalse: [ ^ self summary ]
+    ifFalse: [ ^ self summary ].
+  createSummary := Dictionary new.
+  self summary at: #'create' put: createSummary.
+  stoneDir := ('$GS_HOME/server/stones/' , self stoneName) asFileReference.
+  stoneDir exists
+    ifTrue: [ 
+      createSummary
+        at: self stoneName
+        put: #'skipped' -> ('stone already exists at ' , stoneDir pathString) ]
+    ifFalse: [ 
+      self class createStone: self stoneName version: '3.5.0' args: '-g'.
+      self createSummary
+        at: self stoneName
+        put: #'created' -> stoneDir pathString.
+      customEnv := stoneDir / 'custome_stone.env'.
+      contents := customEnv contents.
+      customEnv
+        writeStreamDo: [ :stream | 
+          stream
+            nextPutAll: contents;
+            lf;
+            nextPutAll: 'export ROWAN_PROJECTS_HOME=$GS_HOME/shared/repos';
+            lf ].
+      self class stopNetldi: self stoneName.
+      self class startNetldi: self stoneName.	"pick up ROWAN_PROJECTS_HOME in netldi process"
+      gsdevkitStoneScriptDir := '$GS_HOME/shared/repos/GsDefKit_launcher/bootstrapping/gemstone/gsdefkit_home'
+        asFileReference.
+      self
+        ln:
+          ' -s '
+            ,
+              (gsdevkitStoneScriptDir / 'newBuild_SystemUser_gsdevkit_launcher_tode')
+                pathString
+            , ' ' , stoneDir pathString.
+      self
+        ln:
+          ' -s '
+            ,
+              (gsdevkitStoneScriptDir / 'newBuild_SystemUser_gsdevkit_launcher_deployer')
+                pathString
+            , ' ' , stoneDir pathString.
+      self stdout
+        nextPutAll:
+            (System
+                performOnServer:
+                  'cd ' , stoneDir pathString , '; ./newBuild_SystemUser_gsdevkit_launcher_tode');
+        lf ].
+  ^ self summary
 ]
 
 { #category : 'main' }