SeasideSt · theseion · Dec 25, 2023 · Jul 23, 2019 · Jul 23, 2019 · Jul 23, 2019
diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st
@@ -28,8 +28,8 @@ baselineadaptors: spec
 						repository: 'http://ss3.gemtalksystems.com/ss/WebClient' ].
 			spec
 				package: 'WebClient-Seaside-Adaptor'
-				with: [ 
-					spec 
+				with: [
+					spec
 						repository: 'http://ss3.gemtalksystems.com/ss/WebClient';
 					 	requires: #('WebClient Project' 'Seaside-Core') ].
 			spec group: 'WebClient' with: #('WebClient-Seaside-Adaptor') ].
@@ -38,14 +38,18 @@ baselineadaptors: spec
 
 	spec
 		for: #pharo
-		do: [ spec
+		do: [
+			spec
 				package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ];
 				package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ];
 				package: 'Seaside-Tests-Adaptors-Comanche' with: [ spec requires: #('Seaside-Adaptors-Comanche') ];
-				package: 'Zinc-Seaside' with: [ spec requires: #('Seaside-Core') ].
+				package: 'Seaside-Zinc-Core' with: [ spec requires: #('Seaside-Core') ];
+				package: 'Seaside-Zinc-Pharo' with: [ spec requires: #('Seaside-Zinc-Core') ];
+				package: 'Seaside-Zinc-Tests' with: [ spec requires: #('Seaside-Zinc-Pharo') ].
 			spec
 				group: 'Kom' with: #('Seaside-Adaptors-Comanche');
-				group: 'Zinc' with: #('Zinc-Seaside');
+				group: 'Zinc' with: #('Seaside-Zinc-Pharo');
+				group: 'Tests' with: #('Seaside-Zinc-Tests');
 				group: 'default' with: #('Zinc');
 				group: 'CI' with: #('Zinc') ].
 
@@ -69,22 +73,24 @@ baselineadaptors: spec
 						repository: 'github://GsDevKit/zinc:gs_master/repository' ].
 			spec
 				package: 'Seaside-GemStone-GemServer-Core' with: [ spec requires: #('GsApplicationTools' 'Seaside-Core') ];
-				package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development'  'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ];
-				package: 'Zinc-Seaside'
+				package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ];
+				package: 'Seaside-Zinc-Core'
 					with: [ spec
 						requires: #('Zinc Project' 'Seaside-Core');
 						includes: #('Seaside-GemStone-Adaptors-Zinc') ];
 				package: 'Seaside-Adaptors-FastCGI' with: [ spec requires: #('Seaside-Core' 'FastCGI Project' 'Seaside-GemStone-GemServer-Core') ];
-				package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ].
+				package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Seaside-Zinc-Core' 'Seaside-GemStone-GemServer-Core') ];
+				package: 'Seaside-Zinc-Tests' with: [ spec requires: #('Seaside-Zinc-Core') ].
 			spec
 				group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI');
-				group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests');
-				group: 'Zinc' with: #('Zinc-Seaside') ].
+				group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests' 'Seaside-Zinc-Tests');
+				group: 'Zinc' with: #('Seaside-Zinc-Core') ].
+
 	spec
 		for:  #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' )
 		do: [
 			spec
 				package: 'Seaside-GemStone-GemServer-Tests' with: [ spec includes: #( 'Seaside-GemStone-GemServer-Swazoo-Tests') ];
 				package: 'Seaside-GemStone-GemServer-Swazoo-Tests' with: [ spec requires: #('Seaside-GemStone-Adaptors-Swazoo') ];
 				package: 'Seaside-Adaptors-Swazoo' with: [ spec includes: #('Seaside-GemStone-Adaptors-Swazoo') ];
-				package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ] ].
+				package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ] ]
diff --git a/...e.package/monticello.meta/initializers.st → ...re.package/WAAbstractFile.class/README.md b/...e.package/monticello.meta/initializers.st → ...re.package/WAAbstractFile.class/README.md
diff --git a/...age/WAFile.class/instance/contentType..st → ...stractFile.class/instance/contentType..st b/...age/WAFile.class/instance/contentType..st → ...stractFile.class/instance/contentType..st
diff --git a/...kage/WAFile.class/instance/contentType.st → ...bstractFile.class/instance/contentType.st b/...kage/WAFile.class/instance/contentType.st → ...bstractFile.class/instance/contentType.st
diff --git a/...ackage/WAFile.class/instance/fileName..st → ...AAbstractFile.class/instance/fileName..st b/...ackage/WAFile.class/instance/fileName..st → ...AAbstractFile.class/instance/fileName..st
diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/instance/fileName.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/fileName.st
@@ -0,0 +1,3 @@
+accessing
+fileName
+	^ fileName
diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/instance/rawContents.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/rawContents.st
@@ -0,0 +1,3 @@
+accessing
+rawContents
+	^ self subclassResponsibility
diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/instance/size.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/size.st
@@ -0,0 +1,3 @@
+accessing
+size
+	^ self subclassResponsibility
diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/properties.json b/repository/Seaside-Core.package/WAAbstractFile.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "",
+	"super" : "WAObject",
+	"category" : "Seaside-Core-HTTP",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"contentType",
+		"fileName"
+	],
+	"name" : "WAAbstractFile",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/README.md b/repository/Seaside-Core.package/WAExternalFile.class/README.md
@@ -0,0 +1,7 @@
+I represent a file on a file system.
+
+I know the name, the location and the MIME type of the file. I am mainly used for representing temporary files from streamed multipart uploads.
+
+You will probably want to move me from my initial directory (which is probably a temporary directory) to my final destination. E.g.
+
+externalFile fullyQualifiedFilePath asFileReference moveTo: FileLocator imageDirectory / 'final-destination'
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st
@@ -0,0 +1,4 @@
+testing
+exists
+
+	^ GRPlatform current fileExists: self fullyQualifiedFilePath
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/filePath..st b/repository/Seaside-Core.package/WAExternalFile.class/instance/filePath..st
@@ -0,0 +1,3 @@
+accessing
+filePath: aString
+	filePath := aString
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fullyQualifiedFilePath.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/fullyQualifiedFilePath.st
@@ -0,0 +1,3 @@
+accessing
+fullyQualifiedFilePath
+	^ filePath
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/rawContents.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/rawContents.st
@@ -0,0 +1,3 @@
+accessing
+rawContents
+	^ GRPlatform current contentsOfFile: filePath binary: true
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st
@@ -0,0 +1,5 @@
+accessing
+size
+	^ self exists
+		ifTrue: [ GRPlatform current sizeOfFile: self fullyQualifiedFilePath ]
+		ifFalse: [ 0 ]
diff --git a/repository/Seaside-Core.package/WAExternalFile.class/properties.json b/repository/Seaside-Core.package/WAExternalFile.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "mml 07/23/2019 09:57",
+	"super" : "WAAbstractFile",
+	"category" : "Seaside-Core-HTTP",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"filePath"
+	],
+	"name" : "WAExternalFile",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Core.package/WAFile.class/properties.json b/repository/Seaside-Core.package/WAFile.class/properties.json
@@ -1,14 +1,12 @@
 {
 	"commentStamp" : "pmm 5/31/2008 23:54",
-	"super" : "WAObject",
+	"super" : "WAAbstractFile",
 	"category" : "Seaside-Core-HTTP",
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [
-		"contents",
-		"contentType",
-		"fileName"
+		"contents"
 	],
 	"name" : "WAFile",
 	"type" : "normal"

diff --git a/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st b/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st
@@ -2,10 +2,10 @@ writing
 writeStatusOn: aStream 
 	aStream nextPutAll: self httpVersion.
 	aStream
-		nextPut: $ ;
+		space;
 		nextPutAll: self status greaseString.
 	self message isNil ifFalse:  [
 		aStream
-			nextPut: $ ;
+			space;
 			nextPutAll: self message ].
 	aStream crlf
diff --git a/repository/Seaside-Core.package/WAUploadCallback.class/instance/valueForField..st b/repository/Seaside-Core.package/WAUploadCallback.class/instance/valueForField..st
@@ -1,3 +1,3 @@
 converting
 valueForField: anObject
-	^ (anObject isKindOf: WAFile) ifTrue: [ anObject ]
+	^ (anObject isKindOf: WAAbstractFile) ifTrue: [ anObject ]
diff --git a/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/instance/fileReference.st b/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/instance/fileReference.st
@@ -0,0 +1,3 @@
+*Seaside-Pharo-Core
+fileReference
+	^ self fullyQualifiedFilePath asFileReference
diff --git a/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/properties.json b/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "WAExternalFile"
+}
diff --git a/repository/Zinc-Seaside.package/.filetree → ...itory/Seaside-Zinc-Core.package/.filetree b/repository/Zinc-Seaside.package/.filetree → ...itory/Seaside-Zinc-Core.package/.filetree
diff --git a/repository/Seaside-Zinc-Core.package/GRPlatform.extension/instance/ringBufferClass.st b/repository/Seaside-Zinc-Core.package/GRPlatform.extension/instance/ringBufferClass.st
@@ -0,0 +1,4 @@
+*Seaside-Zinc-Core
+ringBufferClass
+
+	^ ZnRingBuffer
diff --git a/repository/Seaside-Zinc-Core.package/GRPlatform.extension/properties.json b/repository/Seaside-Zinc-Core.package/GRPlatform.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "GRPlatform"
+}
diff --git a/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/crlf.st
@@ -0,0 +1,3 @@
+*Seaside-Zinc-Core
+crlf
+	self nextPutAll: String crlf
diff --git a/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/space.st
@@ -0,0 +1,3 @@
+*Seaside-Zinc-Core
+space
+	self nextPut: Character space asciiValue
diff --git a/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "ZdcAbstractSocketStream"
+}
diff --git a/...ackage/ZnDeferredResponse.class/README.md → ...ackage/ZnDeferredResponse.class/README.md b/...ackage/ZnDeferredResponse.class/README.md → ...ackage/ZnDeferredResponse.class/README.md
diff --git a/...nDeferredResponse.class/class/onWrite..st → ...nDeferredResponse.class/class/onWrite..st b/...nDeferredResponse.class/class/onWrite..st → ...nDeferredResponse.class/class/onWrite..st
diff --git a/...ferredResponse.class/instance/onWrite..st → ...ferredResponse.class/instance/onWrite..st b/...ferredResponse.class/instance/onWrite..st → ...ferredResponse.class/instance/onWrite..st
diff --git a/...ferredResponse.class/instance/writeOn..st → ...ferredResponse.class/instance/writeOn..st b/...ferredResponse.class/instance/writeOn..st → ...ferredResponse.class/instance/writeOn..st
diff --git a/.../ZnDeferredResponse.class/properties.json → .../ZnDeferredResponse.class/properties.json b/.../ZnDeferredResponse.class/properties.json → .../ZnDeferredResponse.class/properties.json
@@ -1,7 +1,7 @@
 {
 	"commentStamp" : "<historical>",
 	"super" : "ZnResponse",
-	"category" : "Zinc-Seaside",
+	"category" : "Seaside-Zinc-Core",
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],

diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md
@@ -0,0 +1,15 @@
+I am an implementation of a ring buffer, i.e. a buffer where the start index can be moved along a virtual ring.
+
+I buffer a fixed amount of data and provide array like access to it.
+
+Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the
+buffer to the specified position. Example:
+
+buffer
+	at: 1 put: 1;
+	at: 2 put: 2;
+	at: 1. "----> 1"
+
+buffer
+	moveStartTo: 2;
+	at: 1 "----> 2"
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new..st
@@ -0,0 +1,6 @@
+instance creation
+new: aInteger
+	^ self basicNew
+		initialize: aInteger;
+		initialize;
+		yourself
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new.st
@@ -0,0 +1,3 @@
+instance creation
+new
+	ZnRingBufferIllegalUse signal: 'Use #new and specify an explicit size'
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/on..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/on..st
@@ -0,0 +1,6 @@
+instance creation
+on: aCollection
+	^ self basicNew
+		initializeWithCollection: aCollection;
+		initialize;
+		yourself
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/^equals.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/^equals.st
@@ -0,0 +1,8 @@
+comparing
+= aCollection
+	1
+		to: self size
+		do: [ :index |
+			(self at: index) ~= (aCollection at: index) ifTrue: [ ^ false ] ].
+
+	^ true
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st
@@ -0,0 +1,7 @@
+accessing
+at: anInteger
+
+	| wrappedPosition |
+	self checkBoundsFor: anInteger.
+	wrappedPosition := ((anInteger + offset - 1) rem: buffer size) + 1.
+	^ buffer at: wrappedPosition
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st
@@ -0,0 +1,9 @@
+accessing
+at: anInteger put: anObject
+
+	| wrappedPosition |
+	self checkBoundsFor: anInteger.
+	wrappedPosition := ((anInteger + offset - 1) rem: buffer size) + 1.
+	buffer
+		at: wrappedPosition
+		put: anObject
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/checkBoundsFor..st
@@ -0,0 +1,6 @@
+private
+checkBoundsFor: anInteger
+	(anInteger < 1 or: [
+		anInteger > self size ]) ifFalse: [ ^ self ].
+
+	ZnRingBufferIllegalAccess signal
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/copyFrom.to..st
@@ -0,0 +1,19 @@
+accessing
+copyFrom: start to: stop
+	| copy endIndex copySize |
+	copySize := stop - start + 1.
+	copy := buffer species new: copySize.
+	endIndex := copySize min: self size - start - offset + 1.
+	copy
+		replaceFrom: 1
+		to: endIndex
+		with: buffer
+		startingAt: start + offset.
+
+	stop + offset > self size ifFalse: [ ^ copy ].
+
+	^ copy
+		replaceFrom: endIndex + 1
+		to: copySize
+		with: buffer
+		startingAt: 1
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/do..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/do..st
@@ -0,0 +1,6 @@
+enumerating
+do: aBlock
+	1
+		to: self size
+		do: [ :index |
+			aBlock value: (self at: index) ]
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/hash.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/hash.st
@@ -0,0 +1,9 @@
+comparing
+hash
+	"Copy of SequenceableCollection>>hash"
+	| hash |
+	hash := self species hash.
+	1
+		to: self size
+		do: [ :i | hash := (hash + (self at: i) hash) hashMultiply ].
+	^ hash
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st
@@ -0,0 +1,10 @@
+accessing
+indexOf: anElement ifAbsent: exceptionBlock
+	| index |
+	index := buffer
+		indexOf: anElement
+		ifAbsent: [ ^ exceptionBlock value ].
+
+	^ index > offset
+		ifTrue: [ index - offset ]
+		ifFalse: [ self size - offset + index ]
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize..st
@@ -0,0 +1,3 @@
+initialization
+initialize: anInteger
+	self initializeWithCollection: (Array new: anInteger)
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize.st
@@ -0,0 +1,5 @@
+initialization
+initialize
+	super initialize.
+
+	offset := 0
diff --git a/...sitory/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/...sitory/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initializeWithCollection..st
@@ -0,0 +1,4 @@
+initialization
+initializeWithCollection: aCollection
+	buffer := aCollection.
+	offset := 0
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/moveStartTo..st
@@ -0,0 +1,5 @@
+operations
+moveStartTo: anInteger
+	self checkBoundsFor: anInteger.
+
+	offset := (offset + anInteger - 1) \\ self size
diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/printOn..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/printOn..st
@@ -0,0 +1,9 @@
+printing
+printOn: aStream
+	super printOn: aStream.
+
+	aStream nextPut: $(.
+	(self
+		copyFrom: 1
+		to: self size) printOn: aStream.
+	aStream nextPut: $)