Split Rowan scripts into 2 variants: deployment and development

ba-st · Nov 24, 2023 · 7ebc51f · 7ebc51f
1 parent d2b6456
commit 7ebc51f
Show file tree

Hide file tree

Showing 6 changed files with 43 additions and 14 deletions.
diff --git a/rowan/components/Deployment.ston b/rowan/components/Deployment.ston
@@ -1,7 +1,7 @@
 RwSimpleProjectLoadComponentV2 {
   #name : 'Deployment',
-  #preloadDoitName : 'scripts/preLoad',
-  #postloadDoitName : 'scripts/postLoad',
+  #preloadDoitName : 'scripts/deploymentPreLoad',
+  #postloadDoitName : 'scripts/deploymentPostLoad',
   #projectNames : [ 'Chalten' ],
   #componentNames : [	],
   #packageNames : [
@@ -13,9 +13,9 @@ RwSimpleProjectLoadComponentV2 {
     'gemstone' : {
       'allusers' : {
         #packageNameToPlatformPropertiesMap : {
-          'Kepler-Notifications' : { 'symbolDictName' : 'KeplerCore' },
-          'Kepler-System' : { 'symbolDictName' : 'KeplerCore' },
-          'Kepler-Time' : { 'symbolDictName' : 'KeplerCore' }
+          'Kepler-Notifications' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-System' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-Time' : { 'symbolDictName' : 'Kepler' }
         }
       }
     }

diff --git a/rowan/components/Tests.ston b/rowan/components/Tests.ston
@@ -1,5 +1,7 @@
 RwSimpleProjectLoadComponentV2 {
   #name : 'Tests',
+  #preloadDoitName : 'scripts/developmentPreLoad',
+  #postloadDoitName : 'scripts/developmentPostLoad',
   #condition : 'tests',
   #componentNames : [
     'Deployment'
@@ -14,10 +16,10 @@ RwSimpleProjectLoadComponentV2 {
     'gemstone' : {
       'allusers' : {
         #packageNameToPlatformPropertiesMap : {
-          'Kepler-Notifications-Tests' : { 'symbolDictName' : 'KeplerCore' },
-          'Kepler-SUnit-Model' : { 'symbolDictName' : 'KeplerCore' },
-          'Kepler-System-Tests' : { 'symbolDictName' : 'KeplerCore' },
-          'Kepler-Time-Tests' : { 'symbolDictName' : 'KeplerCore' }
+          'Kepler-Notifications-Tests' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-SUnit-Model' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-System-Tests' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-Time-Tests' : { 'symbolDictName' : 'Kepler' }
         }
       }
     }

diff --git a/rowan/components/scripts/deploymentPostLoad.st b/rowan/components/scripts/deploymentPostLoad.st
@@ -0,0 +1,16 @@
+| symbolDictionary |
+
+symbolDictionary := Rowan image 
+	symbolDictNamed: 'Kepler'
+	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
+
+"Global variables definition"
+symbolDictionary at: #SystemInterfaces put: Namespace new.
+
+"Register Kepler's built-in system interfaces"
+(OrderedCollection new
+	add: #InstalledModuleRegistrationSystem;
+	add: #EventNotificationSystem;
+	add: #TimeSystem;
+	yourself)
+		do: [:each | (symbolDictionary at: each) registerInterfaces].
diff --git a/rowan/components/scripts/preLoad.st → ...n/components/scripts/deploymentPreLoad.st b/rowan/components/scripts/preLoad.st → ...n/components/scripts/deploymentPreLoad.st
@@ -1,9 +1,9 @@
 | symbolDictionary |
 symbolDictionary := Rowan image 
-	symbolDictNamed: 'KeplerCore'
+	symbolDictNamed: 'Kepler'
 	ifAbsent: [
-			Rowan image symbolList createDictionaryNamed: 'KeplerCore' at: Rowan image symbolList size + 1.
-			Rowan image symbolDictNamed: 'KeplerCore'
+			Rowan image symbolList createDictionaryNamed: 'Kepler' at: Rowan image symbolList size + 1.
+			Rowan image symbolDictNamed: 'Kepler'
 	].
 
 "Preliminar definition of global variables for source code to compile.

diff --git a/rowan/components/scripts/postLoad.st → ...components/scripts/developmentPostLoad.st b/rowan/components/scripts/postLoad.st → ...components/scripts/developmentPostLoad.st
@@ -1,8 +1,8 @@
 | symbolDictionary |
 
 symbolDictionary := Rowan image 
-	symbolDictNamed: 'KeplerCore'
-	ifAbsent: [Error signal: 'KeplerCore symbol dictionary missing' ].
+	symbolDictNamed: 'Kepler'
+	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
 
 "Global variables definition"
 symbolDictionary at: #SystemInterfaces put: Namespace new.

diff --git a/rowan/components/scripts/developmentPreLoad.st b/rowan/components/scripts/developmentPreLoad.st
@@ -0,0 +1,11 @@
+| symbolDictionary |
+symbolDictionary := Rowan image 
+	symbolDictNamed: 'Kepler'
+	ifAbsent: [
+			Rowan image symbolList createDictionaryNamed: 'Kepler' at: Rowan image symbolList size + 1.
+			Rowan image symbolDictNamed: 'Kepler'
+	].
+
+"Preliminar definition of global variables for source code to compile.
+ These will be properly replaced later in the post load script."
+symbolDictionary at: #SystemInterfaces put: nil.