Move collection extensions to extensions package

ba-st · Aug 7, 2023 · a53f24e · a53f24e
1 parent efcc662
commit a53f24e
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 30 deletions.
diff --git a/.../Buoy-Collections/Collection.extension.st → ...ctions-Extensions/Collection.extension.st b/.../Buoy-Collections/Collection.extension.st → ...ctions-Extensions/Collection.extension.st
@@ -1,30 +1,30 @@
 Extension { #name : #Collection }
 
-{ #category : #'*Buoy-Collections' }
+{ #category : #'*Buoy-Collections-Extensions' }
 Collection >> asOrderedSet [
 
 	^ self as: OrderedSet
 ]
 
-{ #category : #'*Buoy-Collections' }
+{ #category : #'*Buoy-Collections-Extensions' }
 Collection >> maxUsing: aBlock [
 
 	^ self maxUsing: aBlock ifEmpty: [ self errorEmptyCollection ]
 ]
 
-{ #category : #'*Buoy-Collections' }
+{ #category : #'*Buoy-Collections-Extensions' }
 Collection >> maxUsing: aBlock ifEmpty: ifEmptyBlock [
 
 	^ self ifEmpty: ifEmptyBlock ifNotEmpty: [ self inject: ( aBlock value: self anyOne ) into: [ :max :each | max max: ( aBlock value: each ) ] ]
 ]
 
-{ #category : #'*Buoy-Collections' }
+{ #category : #'*Buoy-Collections-Extensions' }
 Collection >> minUsing: aBlock [
 
 	^ self minUsing: aBlock ifEmpty: [ self errorEmptyCollection ]
 ]
 
-{ #category : #'*Buoy-Collections' }
+{ #category : #'*Buoy-Collections-Extensions' }
 Collection >> minUsing: aBlock ifEmpty: ifEmptyBlock [
 
 	^ self ifEmpty: ifEmptyBlock ifNotEmpty: [ self inject: ( aBlock value: self anyOne ) into: [ :max :each | max min: ( aBlock value: each ) ] ]

diff --git a/source/Buoy-Collections-Extensions/SequenceableCollection.extension.st b/source/Buoy-Collections-Extensions/SequenceableCollection.extension.st
@@ -1,5 +1,29 @@
 Extension { #name : #SequenceableCollection }
 
+{ #category : #'*Buoy-Collections-Extensions' }
+SequenceableCollection >> copyFirst: n [
+
+	^ [ self copyFrom: 1 to: n ] unless: n = 0 inWhichCase: [ self species new ]
+]
+
+{ #category : #'*Buoy-Collections-Extensions' }
+SequenceableCollection >> copyLast: n [
+
+	^ [ self copyFrom: self size - n + 1 to: self size ] unless: n = 0 inWhichCase: [ self species new ]
+]
+
+{ #category : #'*Buoy-Collections-Extensions' }
+SequenceableCollection >> copyNoMoreThanFirst: n [
+
+	^ self copyFirst: ( self size min: n )
+]
+
+{ #category : #'*Buoy-Collections-Extensions' }
+SequenceableCollection >> copyNoMoreThanLast: n [
+
+	^ self copyLast: ( n min: self size )
+]
+
 { #category : #'*Buoy-Collections-Extensions' }
 SequenceableCollection >> equalityChecker [
 

diff --git a/source/Buoy-Collections/SequenceableCollection.extension.st b/source/Buoy-Collections/SequenceableCollection.extension.st