Conceive Homogeneous Collections

Collections-Homogeneous/Array.extension.st

@@ -0,0 +1,15 @@
+Extension { #name : #Array }
+
+{ #category : #'*Collections-Homogeneous' }
+Array class >> of: elementSpecies [ 
+	| mc c |	
+	mc := HomogeneousArray class copy.
+	c := mc new
+		superclass: HomogeneousArray superclass
+		methodDictionary: HomogeneousArray methodDictionary
+		format: HomogeneousArray format;
+		setName: 'Array of: ', elementSpecies name;
+		instVarNamed: #elementSpecies put: elementSpecies;
+		yourself.
+	^c
+]

Collections-Homogeneous/Class.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #Class }
+
+{ #category : #'*Collections-Homogeneous' }
+Class >> array [
+	^Array of: self
+]

Collections-Homogeneous/Collection.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #Collection }
+
+{ #category : #'*Collections-Homogeneous' }
+Collection >> isHomogeneous [
+	^false
+]

Collections-Homogeneous/HomogeneousArray.class.st

@@ -0,0 +1,26 @@
+Class {
+	#name : #HomogeneousArray,
+	#superclass : #Array,
+	#type : #variable,
+	#classInstVars : [
+		'elementSpecies'
+	],
+	#category : #'Collections-Homogeneous'
+}
+
+{ #category : #accessing }
+HomogeneousArray class >> elementSpecies [
+	^elementSpecies
+]
+
+{ #category : #JSON }
+HomogeneousArray class >> neoJsonMapping: mapper [
+	mapper for: self customDo: [ :mapping |
+		mapping listOfElementSchema: elementSpecies
+	]
+]
+
+{ #category : #testing }
+HomogeneousArray >> isHomogeneous [
+	^true
+]

Collections-Homogeneous/package.st

@@ -0,0 +1 @@
+Package { #name : #'Collections-Homogeneous' }