diff --git a/rowan/components/Deployment.ston b/rowan/components/Deployment.ston index a911a64..0c0ac53 100644 --- 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 index a92a01e..7f663e4 100644 --- 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 new file mode 100644 index 0000000..348fd66 --- /dev/null +++ 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 b/rowan/components/scripts/deploymentPreLoad.st similarity index 59% rename from rowan/components/scripts/preLoad.st rename to rowan/components/scripts/deploymentPreLoad.st index 34e4f6e..80cbdeb 100644 --- a/rowan/components/scripts/preLoad.st +++ b/rowan/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 b/rowan/components/scripts/developmentPostLoad.st similarity index 83% rename from rowan/components/scripts/postLoad.st rename to rowan/components/scripts/developmentPostLoad.st index 1ff90a4..fb641b7 100644 --- a/rowan/components/scripts/postLoad.st +++ b/rowan/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 new file mode 100644 index 0000000..80cbdeb --- /dev/null +++ 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.