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: 'Sagan'
+          load_spec: 'Sagan-${{ 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: 'Sagan'
+          run_tests: 'true'

rowan/components/Deployment.ston

@@ -0,0 +1,22 @@
+RwSimpleProjectLoadComponentV2 {
+  #name : 'Deployment',
+  #postloadDoitName : 'scripts/deploymentPostLoad',
+  #projectNames : [ 'Kepler', 'SortFunctions' ],
+  #componentNames : [	],
+  #packageNames : [
+    'Sagan-Core',
+    'Sagan-Extensions',
+    'Sagan-Kepler'
+  ],
+  #conditionalPackageMapSpecs : {
+    'gemstone' : {
+      'allusers' : {
+        #packageNameToPlatformPropertiesMap : {
+          'Sagan-Core' : { 'symbolDictName' : 'Sagan' },
+          'Sagan-Extensions' : { 'symbolDictName' : 'Globals' },
+          'Sagan-Kepler' : { 'symbolDictName' : 'Sagan' }
+        }
+      }
+    }
+  }
+}

rowan/components/Tests.ston

@@ -0,0 +1,21 @@
+RwSimpleProjectLoadComponentV2 {
+  #name : 'Tests',
+  #condition : 'tests',
+  #componentNames : [
+    'Deployment'
+  ],
+  #packageNames : [
+    'Sagan-Core-Tests',
+    'Sagan-Kepler-Tests'
+  ],
+  #conditionalPackageMapSpecs : {
+    'gemstone' : {
+      'allusers' : {
+        #packageNameToPlatformPropertiesMap : {
+          'Sagan-Core-Tests' : { 'symbolDictName' : 'Sagan' },
+          'Sagan-Kepler-Tests' : { 'symbolDictName' : 'Sagan' }
+        }
+      }
+    }
+  }
+}

rowan/components/scripts/deploymentPostLoad.st

@@ -0,0 +1,8 @@
+| symbolDictionary |
+
+symbolDictionary := Rowan image 
+	symbolDictNamed: 'Sagan'
+	ifAbsent: [Error signal: 'Sagan symbol dictionary missing' ].
+
+"Register system interfaces"
+(symbolDictionary at: #RepositoryProviderSystem) registerInterfaces.

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 : 'Sagan project specification'
+}

rowan/projects/Kepler.ston

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

rowan/projects/SortFunctions.ston

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

rowan/specs/Sagan-CI.ston

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

rowan/specs/Sagan-Deployment.ston

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

source/.properties

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

source/BaselineOfSagan/BaselineOfSagan.class.st

@@ -1,45 +1,51 @@
 Class {
-	#name : #BaselineOfSagan,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfSagan
+	#name : 'BaselineOfSagan',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfSagan',
+	#package : 'BaselineOfSagan'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 BaselineOfSagan >> baseline: spec [
 
 	<baseline>
-	spec
-		for: #pharo
-		do: [ self
-				setUpDependencies: spec;
-				setUpPackages: spec.
-			spec
-				group: 'Deployment' with: #('Core' 'RDBMS');
-				group: 'CI' with: 'Tests';
-				group: 'Tools' with: 'Buoy-Tools';
-				group: 'Development' with: #('Tests' 'Tools')
-			]
+	spec for: #pharo do: [
+		self
+			setUpDependencies: spec;
+			setUpPackages: spec.
+		spec
+			group: 'Deployment' with: #( 'Core' 'RDBMS' );
+			group: 'CI' with: 'Tests';
+			group: 'Tools' with: #( 'Core' 'Buoy-Tools' );
+			group: 'Development' with: #( 'Tests' 'Tools' ).
+		spec postLoadDoIt: #postLoadInitialization ]
+]
+
+{ #category : 'post load' }
+BaselineOfSagan >> postLoadInitialization [
+
+	RepositoryProviderSystem registerInterfaces
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfSagan >> projectClass [
 
 	^ MetacelloCypressBaselineProject
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 BaselineOfSagan >> setUpDependencies: spec [
 
 	spec
-		baseline: 'Kepler' with: [ spec repository: 'github://ba-st/Kepler:v5/source' ];
+		baseline: 'Kepler' with: [ spec repository: 'github://ba-st/Kepler:v6/source' ];
 		project: 'Kepler-Core' copyFrom: 'Kepler' with: [ spec loads: 'Core' ].
 
 	spec
 		baseline: 'ObjectPool' with: [ spec repository: 'github://pharo-ide/ObjectPool:v1.0.3' ];
 		project: 'ObjectPool-Core' copyFrom: 'ObjectPool' with: [ spec loads: 'Core' ].
 
 	spec
-		baseline: 'Buoy' with: [ spec repository: 'github://ba-st/Buoy:v6/source' ];
+		baseline: 'Buoy' with: [ spec repository: 'github://ba-st/Buoy:v7/source' ];
 		project: 'Buoy-SUnit' copyFrom: 'Buoy' with: [ spec loads: 'Dependent-SUnit-Extensions' ];
 		project: 'Buoy-Tools' copyFrom: 'Buoy' with: [ spec loads: 'Tools' ].
 
@@ -56,22 +62,26 @@ BaselineOfSagan >> setUpDependencies: spec [
 		project: 'Glorp SQLite3' copyFrom: 'SQLite3' with: [ spec loads: 'glorp' ].
 
 	spec
-		baseline: 'Bell' with: [ spec repository: 'github://ba-st/Bell:v1' ];
+		baseline: 'Bell' with: [ spec repository: 'github://ba-st/Bell:v2' ];
 		project: 'Bell-Core' copyFrom: 'Bell' with: [ spec loads: 'Deployment' ];
 		project: 'Bell-SUnit' copyFrom: 'Bell' with: [ spec loads: 'Dependent-SUnit-Extensions' ].
 
 	spec
-		baseline: 'Hyperspace' with: [ spec repository: 'github://ba-st/Hyperspace:v4' ];
+		baseline: 'Hyperspace' with: [ spec repository: 'github://ba-st/Hyperspace:v5' ];
 		project: 'Hyperspace-Deployment' copyFrom: 'Hyperspace' with: [ spec loads: 'Deployment' ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 BaselineOfSagan >> setUpPackages: spec [
 
 	spec
 		package: 'Sagan-Core' with: [ spec requires: 'Kepler-Core' ];
 		group: 'Core' with: 'Sagan-Core'.
 
+	spec
+		package: 'Sagan-Extensions';
+		group: 'Core' with: 'Sagan-Extensions'.
+
 	spec
 		package: 'Sagan-Kepler' with: [ spec requires: 'Kepler-Core' ];
 		group: 'Core' with: 'Sagan-Kepler'.

source/BaselineOfSagan/package.st

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

source/Sagan-Core-Tests/Extraterrestrial.class.st

@@ -2,19 +2,20 @@
 I'm a dummy object used for the persistence tests
 "
 Class {
-	#name : #Extraterrestrial,
-	#superclass : #Object,
+	#name : 'Extraterrestrial',
+	#superclass : 'Object',
 	#instVars : [
 		'sequentialNumber',
 		'firstName',
 		'lastName',
 		'birthDate',
 		'raceName'
 	],
-	#category : #'Sagan-Core-Tests'
+	#category : 'Sagan-Core-Tests',
+	#package : 'Sagan-Core-Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 Extraterrestrial class >> namedFirst: aFirstName last: aLastName bornOn: aDate as: aRace [
 
 	^ self new initializeNamedFirst: aFirstName
@@ -23,19 +24,19 @@ Extraterrestrial class >> namedFirst: aFirstName last: aLastName bornOn: aDate a
 		  as: aRace
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 Extraterrestrial >> birthDate [
 
 	^ birthDate
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 Extraterrestrial >> firstName [
 
 	^ firstName
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 Extraterrestrial >> initializeNamedFirst: aFirstName last: aLastName bornOn: aDate as: aRace [
 
 	firstName := aFirstName.
@@ -44,13 +45,13 @@ Extraterrestrial >> initializeNamedFirst: aFirstName last: aLastName bornOn: aDa
 	raceName := aRace
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 Extraterrestrial >> lastName [
 
 	^ lastName
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 Extraterrestrial >> printOn: aStream [
 
 	aStream
@@ -59,19 +60,19 @@ Extraterrestrial >> printOn: aStream [
 		nextPutAll: firstName
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 Extraterrestrial >> raceName [
 
 	^ raceName
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 Extraterrestrial >> sequentialNumber [
 
 	^ sequentialNumber
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 Extraterrestrial >> synchronizeWith: anExtraterrestial [
 
 	AssertionChecker enforce: [ self raceName = anExtraterrestial raceName ]

source/Sagan-Core-Tests/InMemoryRepositoryProviderTest.class.st

@@ -2,12 +2,13 @@
 I have the Unit Tests for the In Memory Repository implementation. 
 "
 Class {
-	#name : #InMemoryRepositoryProviderTest,
-	#superclass : #RepositoryBasedTest,
-	#category : #'Sagan-Core-Tests'
+	#name : 'InMemoryRepositoryProviderTest',
+	#superclass : 'RepositoryBasedTest',
+	#category : 'Sagan-Core-Tests',
+	#package : 'Sagan-Core-Tests'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 InMemoryRepositoryProviderTest >> setUpRepositoryWith: aConflictCheckingStrategy [
 
 	extraterrestrials := InMemoryRepositoryProvider new
@@ -18,7 +19,7 @@ InMemoryRepositoryProviderTest >> setUpRepositoryWith: aConflictCheckingStrategy
 		checkingConflictsAccordingTo: aConflictCheckingStrategy
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 InMemoryRepositoryProviderTest >> testSpaceshipQueryingForPositiveFirepower [
 
 	| solvalou solgrado zeodalley |
@@ -45,7 +46,7 @@ InMemoryRepositoryProviderTest >> testSpaceshipQueryingForPositiveFirepower [
 			]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 InMemoryRepositoryProviderTest >> testSpaceshipQueryingForZeroFirepower [
 
 	| solvalou solgrado zeodalley |
@@ -65,7 +66,7 @@ InMemoryRepositoryProviderTest >> testSpaceshipQueryingForZeroFirepower [
 		do: [ :spaceships | self assertCollection: spaceships hasSameElements: {solvalou} ]
 ]
 
-{ #category : #utility }
+{ #category : 'utility' }
 InMemoryRepositoryProviderTest >> withAllSpaceshipsMatching: aMatchingCriteria do: aOneArgBlock [
 
 	aOneArgBlock value: ( ships findAllMatching: aMatchingCriteria )