Gs64 support

.github/workflows/loading-gs64-components.yml

@@ -0,0 +1,22 @@
+name: 'GS64 Components Loading'
+on:
+  - push
+  - pull_request
+  - workflow_dispatch
+
+jobs:
+   component-loading:
+    runs-on: ubuntu-latest
+    strategy:
+      fail-fast: false
+      matrix:
+        load-spec:
+          - Deployment
+    name: GS64 + ${{ matrix.load-spec }}
+    steps:
+      - uses: actions/checkout@v3
+      - name: Load component in image
+        uses: ba-st-actions/gs64-ci@v2
+        with:
+          project_name: 'Kepler'
+          load_spec: 'Kepler-${{ matrix.load-spec }}'

.github/workflows/unit-tests-gs64.yml

@@ -0,0 +1,17 @@
+name: 'GS64 Unit Tests'
+on:
+  - push
+  - pull_request
+  - workflow_dispatch
+
+jobs:
+  unit-tests:
+    runs-on: ubuntu-latest
+    name: GS64 Unit Tests
+    steps:
+      - uses: actions/checkout@v3
+      - name: Load Image and Run Tests
+        uses: ba-st-actions/gs64-ci@v2
+        with:
+          project_name: 'Kepler'
+          run_tests: 'true'

rowan/components/Deployment.ston

@@ -0,0 +1,23 @@
+RwSimpleProjectLoadComponentV2 {
+  #name : 'Deployment',
+  #preloadDoitName : 'scripts/deploymentPreLoad',
+  #postloadDoitName : 'scripts/deploymentPostLoad',
+  #projectNames : [ 'Chalten' ],
+  #componentNames : [	],
+  #packageNames : [
+    'Kepler-Notifications',
+    'Kepler-System',
+    'Kepler-Time'
+  ],
+  #conditionalPackageMapSpecs : {
+    'gemstone' : {
+      'allusers' : {
+        #packageNameToPlatformPropertiesMap : {
+          'Kepler-Notifications' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-System' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-Time' : { 'symbolDictName' : 'Kepler' }
+        }
+      }
+    }
+  }
+}

rowan/components/Tests.ston

@@ -0,0 +1,27 @@
+RwSimpleProjectLoadComponentV2 {
+  #name : 'Tests',
+  #preloadDoitName : 'scripts/developmentPreLoad',
+  #postloadDoitName : 'scripts/developmentPostLoad',
+  #condition : 'tests',
+  #componentNames : [
+    'Deployment'
+  ],
+  #packageNames : [
+    'Kepler-Notifications-Tests',
+    'Kepler-SUnit-Model',
+    'Kepler-System-Tests',
+    'Kepler-Time-Tests'
+  ],
+  #conditionalPackageMapSpecs : {
+    'gemstone' : {
+      'allusers' : {
+        #packageNameToPlatformPropertiesMap : {
+          'Kepler-Notifications-Tests' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-SUnit-Model' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-System-Tests' : { 'symbolDictName' : 'Kepler' },
+          'Kepler-Time-Tests' : { 'symbolDictName' : 'Kepler' }
+        }
+      }
+    }
+  }
+}

rowan/components/scripts/deploymentPostLoad.st

@@ -0,0 +1,19 @@
+| symbolDictionary |
+
+symbolDictionary := Rowan image 
+	symbolDictNamed: 'Kepler'
+	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
+
+"Global variables definition"
+symbolDictionary
+	at: #SystemInterfaces
+	ifPresent: [:namespace | namespace ifNil: [symbolDictionary at: #SystemInterfaces put: Namespace new]]
+	ifAbsentPut: [Namespace new "anyway, should never happen because preload script defines it"].
+
+"Register Kepler's built-in system interfaces"
+(OrderedCollection new
+	add: #InstalledModuleRegistrationSystem;
+	add: #EventNotificationSystem;
+	add: #TimeSystem;
+	yourself)
+		do: [:each | (symbolDictionary at: each) registerInterfaces].

rowan/components/scripts/deploymentPreLoad.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.

rowan/components/scripts/developmentPostLoad.st

@@ -0,0 +1,23 @@
+| symbolDictionary |
+
+symbolDictionary := Rowan image 
+	symbolDictNamed: 'Kepler'
+	ifAbsent: [Error signal: 'Kepler symbol dictionary missing' ].
+
+"Global variables definition"
+symbolDictionary
+	at: #SystemInterfaces
+	ifPresent: [:namespace | namespace ifNil: [symbolDictionary at: #SystemInterfaces put: Namespace new]]
+	ifAbsentPut: [Namespace new "anyway, should never happen because preload script defines it"].
+
+"Register Kepler's built-in system interfaces"
+(OrderedCollection new
+	add: #InstalledModuleRegistrationSystem;
+	add: #EventNotificationSystem;
+	add: #TimeSystem;
+	add: #FixedCustomerManagementSystem;
+	add: #FixedCustomerSystem;
+	add: #SampleCustomerSystem;
+	add: #SampleProjectSystem;
+	yourself)
+		do: [:each | (symbolDictionary at: each) registerInterfaces].

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.

rowan/project.ston

@@ -0,0 +1,11 @@
+RwProjectSpecificationV2 {
+	#specName : 'project',
+	#projectSpecPath : 'rowan',
+	#componentsPath : 'rowan/components',
+	#packagesPath : 'source',
+	#projectsPath : 'rowan/projects',
+	#specsPath : 'rowan/specs',
+	#packageFormat : 'tonel',
+	#packageConvention : 'Rowan',
+	#comment : 'Kepler project specification'
+}

rowan/projects/Chalten.ston

@@ -0,0 +1,10 @@
+RwLoadSpecificationV2 {
+  #specName: 'Chalten',
+  #projectName : 'Chalten',
+  #gitUrl : 'https://github.com/ba-st/Chalten.git',
+  #revision : 'v9',
+  #projectSpecFile : 'rowan/project.ston',
+  #componentNames : [
+    'Deployment'
+  ]
+}

rowan/specs/Kepler-CI.ston

@@ -0,0 +1,14 @@
+RwLoadSpecificationV2 {
+  #specName: 'Kepler-CI',
+  #projectName : 'Kepler',
+  #diskUrl : 'Kepler',
+  #projectSpecFile : 'rowan/project.ston',
+  #componentNames : [
+      'Tests'
+  ],
+  #customConditionalAttributes : [
+    'sunit',
+    'tests'
+  ],
+  #comment : 'Kepler continuous integration setup'
+}

rowan/specs/Kepler-Deployment.ston

@@ -0,0 +1,9 @@
+RwLoadSpecificationV2 {
+  #specName: 'Kepler-Deployment',
+  #projectName : 'Kepler',
+  #diskUrl : 'Kepler',
+  #projectSpecFile : 'rowan/project.ston',
+  #componentNames : [
+      'Deployment'
+  ]
+}

source/.properties

@@ -1,3 +1,4 @@
 {
+	#convention : 'Rowan',
 	#format : #tonel
-}
+}

source/BaselineOfKepler/BaselineOfKepler.class.st

@@ -1,54 +1,61 @@
 Class {
-	#name : #BaselineOfKepler,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfKepler
+	#name : 'BaselineOfKepler',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfKepler',
+	#package : 'BaselineOfKepler'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfKepler >> baseline: spec [
 
 	<baseline>
-	spec
-		for: #pharo
-		do: [ self
-				setUpDependencies: spec;
-				setUpPackages: spec.
-			spec
-				group: 'Deployment' with: #('Core' 'Extended');
-				group: 'CI' with: 'Tests';
-				group: 'Tools' with: 'Buoy-Tools';
-				group: 'Development' with: #('Tests' 'Tools')
-			].
-	spec for: #'pharo10.x' do: [ self setUpPharo10Packages: spec ]
+	spec for: #pharo do: [
+		self
+			setUpDependencies: spec;
+			setUpPackages: spec.
+		spec
+			group: 'Deployment' with: #( 'Core' 'Extended' );
+			group: 'CI' with: 'Tests';
+			group: 'Tools' with: #( 'Buoy-Tools' 'Deployment' );
+			group: 'Development' with: #( 'Tests' 'Tools' ).
+		spec postLoadDoIt: #postLoadInitialization ].
+	spec for: 'pharo10.x' do: [ self setUpPharo10Packages: spec ]
+]
+
+{ #category : 'post load' }
+BaselineOfKepler >> postLoadInitialization [
+
+	Smalltalk at: #SystemInterfaces put: Namespace new.
+	SubsystemImplementation allSubclassesDo: [ :each | each registerInterfaces ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfKepler >> projectClass [
 
 	^ MetacelloCypressBaselineProject
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfKepler >> setUpDependencies: spec [
 
 	spec
-		baseline: 'Buoy' with: [ spec repository: 'github://ba-st/Buoy:v6' ];
+		baseline: 'Buoy' with: [ spec repository: 'github://ba-st/Buoy:v7' ];
 		project: 'Buoy-Deployment' copyFrom: 'Buoy' with: [ spec loads: 'Deployment' ];
 		project: 'Buoy-SUnit' copyFrom: 'Buoy' with: [ spec loads: 'Dependent-SUnit-Extensions' ];
 		project: 'Buoy-Tools' copyFrom: 'Buoy' with: [ spec loads: 'Tools' ].
 
 	spec
-		baseline: 'Chalten' with: [ spec repository: 'github://ba-st/Chalten:v8' ];
-		project: 'Chalten-Gregorian' copyFrom: 'Chalten' with: [ spec loads: 'Chalten-Gregorian-Calendar' ]
+		baseline: 'Chalten' with: [ spec repository: 'github://ba-st/Chalten:v9' ];
+		project: 'Chalten-Deployment-Gregorian' copyFrom: 'Chalten' with: [ spec loads: 'Deployment-Gregorian' ].
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfKepler >> setUpPackages: spec [
 
 	spec
 		package: 'Kepler-System' with: [ spec requires: 'Buoy-Deployment' ];
 		group: 'Core' with: 'Kepler-System';
-		package: 'Kepler-Time' with: [ spec requires: #('Core' 'Chalten-Gregorian') ];
+		package: 'Kepler-Time' with: [ spec requires: #('Core' 'Chalten-Deployment-Gregorian') ];
 		group: 'Extended' with: 'Kepler-Time';
 		package: 'Kepler-Notifications' with: [ spec requires: 'Core' ];
 		group: 'Extended' with: 'Kepler-Notifications';
@@ -65,7 +72,7 @@ BaselineOfKepler >> setUpPackages: spec [
 		group: 'Tests' with: 'Kepler-Notifications-Tests'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 BaselineOfKepler >> setUpPharo10Packages: spec [
 
 	spec

source/BaselineOfKepler/package.st

@@ -1 +1 @@
-Package { #name : #BaselineOfKepler }
+Package { #name : 'BaselineOfKepler' }

source/Kepler-Notifications-Tests/EventNotificationModuleTest.class.st

@@ -2,21 +2,22 @@
 An EventNotificationModuleTest is a test class for testing the behavior of EventNotificationModule
 "
 Class {
-	#name : #EventNotificationModuleTest,
-	#superclass : #TestCase,
+	#name : 'EventNotificationModuleTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'userStory'
 	],
-	#category : #'Kepler-Notifications-Tests'
+	#category : 'Kepler-Notifications-Tests',
+	#package : 'Kepler-Notifications-Tests'
 }
 
-{ #category : #'private - accessing' }
+{ #category : 'private - accessing' }
 EventNotificationModuleTest >> installedModuleRegistrationSystem [
 
 	^ userStory rootSystem >> #InstalledModuleRegistrationSystem
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 EventNotificationModuleTest >> setUp [
 
 	super setUp.
@@ -25,7 +26,7 @@ EventNotificationModuleTest >> setUp [
 	userStory setUp
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 EventNotificationModuleTest >> testAccessing [
 
 	| eventNotificationModule |