Merge pull request #584 from ApptiveGrid/Categorize-Some

Categorize some methods
ApptiveGrid · Jan 29, 2024 · 3cdcc64 · 3cdcc64
2 parents 6dc52a5 + 7e7efb6
commit 3cdcc64
Show file tree

Hide file tree

Showing 14 changed files with 35 additions and 35 deletions.
diff --git a/src/Soil-Core/Soil.class.st b/src/Soil-Core/Soil.class.st
@@ -103,7 +103,7 @@ Soil >> destroy [
 	path delete
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #public }
 Soil >> findRecord: aBlock [ 
 	| tx |
 	tx := self newTransaction.

diff --git a/src/Soil-Core/SoilClusterRecord.class.st b/src/Soil-Core/SoilClusterRecord.class.st
@@ -81,7 +81,7 @@ SoilClusterRecord >> committed [
 	committed := true
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #api }
 SoilClusterRecord >> findReferencesTo [
 	^ SoilReferenceFinder new
 		soil: transaction database;

diff --git a/src/Soil-Core/SoilCopyOnWriteSkipList.class.st b/src/Soil-Core/SoilCopyOnWriteSkipList.class.st
@@ -17,13 +17,13 @@ SoilCopyOnWriteSkipList >> newPage [
 	^ wrapped newPage
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #reindexing }
 SoilCopyOnWriteSkipList >> reIndex [
 	wrapped reIndex. 
 	self flushCachedPages 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #reindexing }
 SoilCopyOnWriteSkipList >> reIndexUsing: itemBlock [
 	wrapped reIndexUsing: itemBlock.
 	self flushCachedPages 

diff --git a/src/Soil-Core/SoilDatabaseJournal.class.st b/src/Soil-Core/SoilDatabaseJournal.class.st
@@ -37,7 +37,7 @@ SoilDatabaseJournal >> do: aBlock [
 	transactionJournals do: aBlock
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilDatabaseJournal >> lastIndex [
 	^ self lastTransactionJournal 
 		ifNotNil: [ :journal | journal index ]

diff --git a/src/Soil-Core/SoilJournalConverter.class.st b/src/Soil-Core/SoilJournalConverter.class.st
@@ -7,7 +7,7 @@ Class {
 	#category : #'Soil-Core-Journal'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #api }
 SoilJournalConverter >> convert [ 
 	| allJournalFiles |
 	"reset database checkpoint to process all of the transaction logs and set the 

diff --git a/src/Soil-Core/SoilJournalEntry.class.st b/src/Soil-Core/SoilJournalEntry.class.st
@@ -4,7 +4,7 @@ Class {
 	#category : #'Soil-Core-Journal'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #api }
 SoilJournalEntry class >> allMapped [ 
 	| map |
 	map := Dictionary new.

diff --git a/src/Soil-Core/SoilJournalFragmentFile.class.st b/src/Soil-Core/SoilJournalFragmentFile.class.st
@@ -39,7 +39,7 @@ SoilJournalFragmentFile >> basename [
 	^ path basename
 ]
 
-{ #category : #'initialize-release' }
+{ #category : #'open/close' }
 SoilJournalFragmentFile >> close [
 	stream close
 ]
@@ -65,12 +65,12 @@ SoilJournalFragmentFile >> createdPosition [
 	^ self versionPosition + self versionSize 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilJournalFragmentFile >> createdSize [
 	^ 6
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilJournalFragmentFile >> currentLogSequenceNumber [ 
 	^ SoilLogSequenceNumber 
 		fileNumber: (ByteArray readHexFrom: path pathSegments last) asInteger 
@@ -130,7 +130,7 @@ SoilJournalFragmentFile >> initializeVersion [
 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #inspector }
 SoilJournalFragmentFile >> inspectionTransactionJournals [
 	<inspectorPresentationOrder: 0 title: 'transaction journals'>
 
@@ -184,7 +184,7 @@ SoilJournalFragmentFile >> printOn: aStream [
 		<< path asString
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #journal }
 SoilJournalFragmentFile >> transactionJournals [
 	| transactionJournals entry |
 	self stream position: self dataPosition.

diff --git a/src/Soil-Core/SoilLogSequenceNumber.class.st b/src/Soil-Core/SoilLogSequenceNumber.class.st
@@ -7,7 +7,7 @@ Class {
 	#category : #'Soil-Core-Journal'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #'instance creation' }
 SoilLogSequenceNumber class >> fileNumber: number offset: offset [ 
 	^ self new 
 		fileNumber: number offset: offset
@@ -31,12 +31,12 @@ SoilLogSequenceNumber >> fileNumber: number offset: offset [
 	value := value bitOr: offset 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilLogSequenceNumber >> fileOffset [ 
 	^ value bitAnd: 16rFFFFFF
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilLogSequenceNumber >> hexOffset [ 
 	^ (self fileOffset printStringBase: 16 length: 6 padded: true) asLowercase 
 ]
@@ -46,7 +46,7 @@ SoilLogSequenceNumber >> isInitial [
 	^ value = 0
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilLogSequenceNumber >> nextFilename [
 	^ self filename: self fileNumber + 1
 ]

diff --git a/src/Soil-Core/SoilMemoryDatabaseJournal.class.st b/src/Soil-Core/SoilMemoryDatabaseJournal.class.st
@@ -10,7 +10,7 @@ SoilMemoryDatabaseJournal >> initialize [
 	transactionJournals := Dictionary new
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #inspector }
 SoilMemoryDatabaseJournal >> inspectionTransactionJournals [
 	<inspectorPresentationOrder: 0 title: 'transaction journals'>
 

diff --git a/src/Soil-Core/SoilNewClusterVersion.class.st b/src/Soil-Core/SoilNewClusterVersion.class.st
@@ -184,7 +184,7 @@ SoilNewClusterVersion >> shouldBeCommitted [
 	^ true
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #api }
 SoilNewClusterVersion >> validateReadVersion [
 	"a new object record cannot conflict as the record is not on disk"
 	| currentPosition |

diff --git a/src/Soil-Core/SoilPersistentDatabaseJournal.class.st b/src/Soil-Core/SoilPersistentDatabaseJournal.class.st
@@ -118,7 +118,7 @@ SoilPersistentDatabaseJournal >> initializeFilesystem [
 
 ]
 
-{ #category : #tools }
+{ #category : #inspector }
 SoilPersistentDatabaseJournal >> inspectionContent [
 	<inspectorPresentationOrder: 0 title: 'transaction journals'>
 

diff --git a/src/Soil-Core/SoilSetup.class.st b/src/Soil-Core/SoilSetup.class.st
@@ -7,30 +7,30 @@ Class {
 	#category : #'Soil-Core-Model'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #caching }
 SoilSetup >> cacheMetaRecords: anInteger [
 	soil objectRepository cacheSegmentAt: 0 upTo: anInteger  
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #caching }
 SoilSetup >> cacheObjectRecords: anInteger [
 	1 to: soil objectRepository segments size do: [:n |
 		soil objectRepository cacheSegmentAt: n upTo: anInteger ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #caching }
 SoilSetup >> cacheRecords [
 	self cacheRecords: self defaultCacheRecordsSize
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #caching }
 SoilSetup >> cacheRecords: anInteger [
 	self 
 		cacheMetaRecords: anInteger;
 		cacheObjectRecords: anInteger
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SoilSetup >> defaultCacheRecordsSize [
 	^ 1000
 ]
@@ -41,13 +41,13 @@ SoilSetup >> flushCachedIndexes [
 		segment flushIndexes ]
 ]
 
-{ #category : #accessing }
+{ #category : #flushing }
 SoilSetup >> flushCachedObjectRecords [
 	soil objectRepository segmentsDo: [ :segment |
 		segment flushCachedObjectRecords ]
 ]
 
-{ #category : #accessing }
+{ #category : #flushing }
 SoilSetup >> flushCaches [ 
 	self 
 		flushCachedObjectRecords;

diff --git a/src/Soil-Core/SoilSkipList.class.st b/src/Soil-Core/SoilSkipList.class.st
@@ -101,7 +101,7 @@ SoilSkipList >> newPage [
 		yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #reindexing }
 SoilSkipList >> newReIndexer [
 	^ SoilReindexer new 
 		index: self
@@ -129,12 +129,12 @@ SoilSkipList >> path: aStringOrFileReference [
 	path := aStringOrFileReference asFileReference 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #reindexing }
 SoilSkipList >> reIndex [
 	self newReIndexer run
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #reindexing }
 SoilSkipList >> reIndexUsing: itemBlock [ 
 	self newReIndexer 
 		itemBlock: itemBlock;

diff --git a/src/Soil-Core/SoilTransactionJournal.class.st b/src/Soil-Core/SoilTransactionJournal.class.st
@@ -35,7 +35,7 @@ SoilTransactionJournal >> addEntry: aJournalEntry [
 	entries add: aJournalEntry 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #searching }
 SoilTransactionJournal >> anyEntrySatisfy: aBlock [
 	^ entries anySatisfy: aBlock
 ]
@@ -69,7 +69,7 @@ SoilTransactionJournal >> commitIn: soil [
 	entries do: [ :each | each commitIn: soil ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #committing }
 SoilTransactionJournal >> committedAt [
 	^ entries last committedAt 
 ]
@@ -122,7 +122,7 @@ SoilTransactionJournal >> initialize [
 	entries := OrderedCollection new
 ]
 
-{ #category : #tools }
+{ #category : #inspector }
 SoilTransactionJournal >> inspectionEntries [
 	<inspectorPresentationOrder: 0 title: 'journal entries'>
 
@@ -162,7 +162,7 @@ SoilTransactionJournal >> printOn: aStream [
 
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'reading-writing' }
 SoilTransactionJournal >> readFrom: aStream [ 
 	| entry |
 	[ aStream atEnd ] whileFalse: [
@@ -191,14 +191,14 @@ SoilTransactionJournal >> validateIn: aSoilTransaction [
 	entries do: [ :each | each validateIn: aSoilTransaction ]
 ]
 
-{ #category : #writing }
+{ #category : #'reading-writing' }
 SoilTransactionJournal >> writeOn: aStream [
 	entries do: [ :each | each writeOn: aStream ].
 	aStream 
 		flush
 ]
 
-{ #category : #writing }
+{ #category : #'reading-writing' }
 SoilTransactionJournal >> writeVersion [
 	^ entries first transactionId
 ]