Merge pull request #115 from ba-st/114-Add-support-classes-for-Sagan-…

…GemStone 114 add support classes for sagan gem stone
ba-st · Jan 19, 2024 · 1ea8fd3 · 1ea8fd3
2 parents 19a7507 + 5c56398
commit 1ea8fd3
Show file tree

Hide file tree

Showing 34 changed files with 179 additions and 84 deletions.
diff --git a/source/Buoy-GS64-Compatibility/AbstractDictionary.class.st b/source/Buoy-GS64-Compatibility/AbstractDictionary.class.st
@@ -4,7 +4,8 @@ This version is just a placeholder so we can easily create extension methods to
 packages.
 "
 Class {
-	#name : #AbstractDictionary,
-	#superclass : #Collection,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'AbstractDictionary',
+	#superclass : 'Collection',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/ArgumentError.class.st b/source/Buoy-GS64-Compatibility/ArgumentError.class.st
@@ -7,7 +7,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #ArgumentError,
-	#superclass : #ImproperOperation,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'ArgumentError',
+	#superclass : 'ImproperOperation',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/BinaryFloat.class.st b/source/Buoy-GS64-Compatibility/BinaryFloat.class.st
@@ -5,12 +5,13 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #BinaryFloat,
-	#superclass : #Number,
+	#name : 'BinaryFloat',
+	#superclass : 'Number',
 	#classInstVars : [
 		'MinusInfinity',
 		'MinusQuietNaN',
 		'PlusInfinity'
 	],
-	#category : #'Buoy-GS64-Compatibility'
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/Character.extension.st b/source/Buoy-GS64-Compatibility/Character.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Character }
+Extension { #name : 'Character' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Character class >> withValue: anInteger [
 	"Answer the Character whose value is anInteger."
 	<primitive: 170>

diff --git a/source/Buoy-GS64-Compatibility/CharacterCollection.class.st b/source/Buoy-GS64-Compatibility/CharacterCollection.class.st
@@ -4,7 +4,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #CharacterCollection,
-	#superclass : #Collection,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'CharacterCollection',
+	#superclass : 'Collection',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/ClassOrganizer.class.st b/source/Buoy-GS64-Compatibility/ClassOrganizer.class.st
@@ -6,7 +6,8 @@ This version is just a placeholder so we can easily create extension methods ref
 in GS64 specific packages.
 "
 Class {
-	#name : #ClassOrganizer,
-	#superclass : #Object,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'ClassOrganizer',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/Collection.extension.st b/source/Buoy-GS64-Compatibility/Collection.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Collection }
+Extension { #name : 'Collection' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Collection >> any [
 
 	"Answer a representative sample of the receiver. It raises an error when the collection is empty. This method can be helpful when needing to preinfer the nature of the contents of semi-homogeneous collections."
@@ -9,13 +9,13 @@ Collection >> any [
 	self do: [ :each | ^ each ]
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Collection >> sortAscending [
 
 	^self asArray sorted
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Collection >> sortWithBlock: block [
 
 	^self asArray sorted: block

diff --git a/source/Buoy-GS64-Compatibility/Date.extension.st b/source/Buoy-GS64-Compatibility/Date.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #Date }
+Extension { #name : 'Date' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Date >> asStringUsingFormat: format [
 
 	^ self printFormat: format
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Date class >> newDay: day month: month year: year [
 
 	^ self starting: (DateAndTime year: year month: month day: day)

diff --git a/source/Buoy-GS64-Compatibility/DateAndTimeANSI.class.st b/source/Buoy-GS64-Compatibility/DateAndTimeANSI.class.st
@@ -9,7 +9,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #DateAndTimeANSI,
-	#superclass : #Magnitude,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'DateAndTimeANSI',
+	#superclass : 'Magnitude',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/ExecBlock.class.st b/source/Buoy-GS64-Compatibility/ExecBlock.class.st
@@ -6,8 +6,9 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #ExecBlock,
-	#superclass : #BlockClosure,
-	#type : #variable,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'ExecBlock',
+	#superclass : 'BlockClosure',
+	#type : 'variable',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/ExitClientError.class.st b/source/Buoy-GS64-Compatibility/ExitClientError.class.st
@@ -8,7 +8,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #ExitClientError,
-	#superclass : #Error,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'ExitClientError',
+	#superclass : 'Error',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/GsCurrentSession.class.st b/source/Buoy-GS64-Compatibility/GsCurrentSession.class.st
@@ -9,7 +9,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #GsCurrentSession,
-	#superclass : #Object,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'GsCurrentSession',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/GsFile.class.st b/source/Buoy-GS64-Compatibility/GsFile.class.st
@@ -12,7 +12,8 @@ This version is just a placeholder so we can easily create extension methods to
 packages.
 "
 Class {
-	#name : #GsFile,
-	#superclass : #Object,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'GsFile',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/GsIndexOptions.class.st b/source/Buoy-GS64-Compatibility/GsIndexOptions.class.st
@@ -0,0 +1,13 @@
+"
+In GS64, an instance of GsIndexOptions specifies features that will be used when creating a particular index on a collection. GsIndexSpec index definition methods all have variants that accept an instance of GsIndexOptions, although some override certain settings. If no GsIndexOptions is explicitly provided, the session or repository default is used.
+The GsIndexOptions defines if the index is a legacy index or a btreePlus index, as well as other important indexing features.
+
+This version is just a placeholder so we can easily create extensions methods to load in GS64 specific
+packages.
+"
+Class {
+	#name : 'GsIndexOptions',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
+}
diff --git a/source/Buoy-GS64-Compatibility/GsIndexSpec.class.st b/source/Buoy-GS64-Compatibility/GsIndexSpec.class.st
@@ -0,0 +1,14 @@
+"
+In GS64, creating an index involves creating an instance of GsIndexSpec and sending messages to
+define the index and the parameters and options for that index, then use this spec to create
+indexes on a specific collection.
+
+This version is just a placeholder so we can easily create extensions methods to load in GS64 specific
+packages.
+"
+Class {
+	#name : 'GsIndexSpec',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
+}
diff --git a/source/Buoy-GS64-Compatibility/GsNMethod.class.st b/source/Buoy-GS64-Compatibility/GsNMethod.class.st
@@ -5,7 +5,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #GsNMethod,
-	#superclass : #Object,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'GsNMethod',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/GsProcess.class.st b/source/Buoy-GS64-Compatibility/GsProcess.class.st
@@ -6,7 +6,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #GsProcess,
-	#superclass : #Object,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'GsProcess',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/GsQuery.class.st b/source/Buoy-GS64-Compatibility/GsQuery.class.st
@@ -0,0 +1,17 @@
+"
+In GS64, a GsQuery is a programmatic way to define a query, allowing you to easily abstract, store
+and reuse various aspects of the query.
+
+This version is just a placeholder so we can easily create extensions methods to load in GS64 specific
+packages.
+"
+Class {
+	#name : 'GsQuery',
+	#superclass : 'Object',
+	#instVars : [
+		'results',
+		'queryString'
+	],
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
+}
diff --git a/source/Buoy-GS64-Compatibility/GsQueryOptions.class.st b/source/Buoy-GS64-Compatibility/GsQueryOptions.class.st
@@ -0,0 +1,12 @@
+"
+In GS64, GsQueryOptions is part of the Indexing and Querying subsystem. This class encapsulates the optional refinements that may be used when creating a particular query.  Each GsQuery has an associated instance of GsQueryOptions, either the default one or an instance that is created and included in the GsQuery specification method.
+
+This version is just a placeholder so we can easily create extensions methods to load in GS64 specific
+packages.
+"
+Class {
+	#name : 'GsQueryOptions',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
+}
diff --git a/source/Buoy-GS64-Compatibility/GsSocket.class.st b/source/Buoy-GS64-Compatibility/GsSocket.class.st
@@ -11,7 +11,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #GsSocket,
-	#superclass : #Object,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'GsSocket',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/ImproperOperation.class.st b/source/Buoy-GS64-Compatibility/ImproperOperation.class.st
@@ -6,7 +6,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #ImproperOperation,
-	#superclass : #Error,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'ImproperOperation',
+	#superclass : 'Error',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/IndexManager.class.st b/source/Buoy-GS64-Compatibility/IndexManager.class.st
@@ -0,0 +1,6 @@
+Class {
+	#name : 'IndexManager',
+	#superclass : 'Object',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
+}
diff --git a/source/Buoy-GS64-Compatibility/Integer.extension.st b/source/Buoy-GS64-Compatibility/Integer.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #Integer }
+Extension { #name : 'Integer' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Integer >> asHexString [ 
 
 	^ self printStringBase: 16
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Integer >> asHexStringWithLength: minimum [
 
 	^ String streamContents: [ :s |
@@ -17,15 +17,15 @@ Integer >> asHexStringWithLength: minimum [
 			  padded: true ]
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Integer class >> fromStream: aStream [
 
 	^ (NumberParser on: aStream)
 		  nextIntegerBase: 10
 		  ifFail: [ ImproperOperation signal ]
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Integer class >> fromString: aString [
 
 	^ (NumberParser on: aString)

diff --git a/source/Buoy-GS64-Compatibility/LookupError.class.st b/source/Buoy-GS64-Compatibility/LookupError.class.st
@@ -6,7 +6,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #LookupError,
-	#superclass : #ImproperOperation,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'LookupError',
+	#superclass : 'ImproperOperation',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/MultiByteString.class.st b/source/Buoy-GS64-Compatibility/MultiByteString.class.st
@@ -6,7 +6,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #MultiByteString,
-	#superclass : #CharacterCollection,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'MultiByteString',
+	#superclass : 'CharacterCollection',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/Number.extension.st b/source/Buoy-GS64-Compatibility/Number.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Number }
+Extension { #name : 'Number' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Number class >> fromStream: aStream [
 
 	^ [ ( NumberParser on: aStream ) nextNumber ]

diff --git a/source/Buoy-GS64-Compatibility/OffsetError.class.st b/source/Buoy-GS64-Compatibility/OffsetError.class.st
@@ -6,7 +6,8 @@ This version is just a placeholder so we can easily create extensions methods to
 packages.
 "
 Class {
-	#name : #OffsetError,
-	#superclass : #ImproperOperation,
-	#category : #'Buoy-GS64-Compatibility'
+	#name : 'OffsetError',
+	#superclass : 'ImproperOperation',
+	#category : 'Buoy-GS64-Compatibility',
+	#package : 'Buoy-GS64-Compatibility'
 }
diff --git a/source/Buoy-GS64-Compatibility/Process.extension.st b/source/Buoy-GS64-Compatibility/Process.extension.st
@@ -1,14 +1,14 @@
-Extension { #name : #Process }
+Extension { #name : 'Process' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Process >> environmentAt: object ifAbsent: block [
 
 	| index |
 	index := Process allocatePSKey: object.
 	^ (self psValueAt: index) ifNil: block
 ]
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Process >> environmentAt: object put: anotherObject [
 
 	| index |

diff --git a/source/Buoy-GS64-Compatibility/Random.extension.st b/source/Buoy-GS64-Compatibility/Random.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Random }
+Extension { #name : 'Random' }
 
-{ #category : #'*Buoy-GS64-Compatibility' }
+{ #category : '*Buoy-GS64-Compatibility' }
 Random >> integerBetween: anInteger and: anInteger2 [
 
 	^ anInteger2 atRandom: SharedRandom globalGenerator