SeasideSt · pdebruic · Jun 24, 2022 · Jun 25, 2022
diff --git a/repository/Seaside-Canvas.package/WAAnchorTag.class/instance/safeToStream.st b/repository/Seaside-Canvas.package/WAAnchorTag.class/instance/safeToStream.st
@@ -0,0 +1,5 @@
+public
+safeToStream
+	"Will stream this response"
+
+	self url addField: '_f'
diff --git a/repository/Seaside-Core.package/.filetree b/repository/Seaside-Core.package/.filetree
@@ -1,5 +1,4 @@
 {
-	"separateMethodMetaAndSource" : false,
 	"noMethodMetaData" : true,
-	"useCypressPropertiesFile" : true
-}
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }
diff --git a/repository/Seaside-Core.package/WARequest.class/instance/hasQueryField..st b/repository/Seaside-Core.package/WARequest.class/instance/hasQueryField..st
@@ -0,0 +1,5 @@
+testing
+hasQueryField: aString
+
+	^ (self queryFields includesKey: aString) or: [ 
+		  self postFields includesKey: aString ]
diff --git a/repository/Seaside-Core.package/WARequest.class/instance/isSafeToStream.st b/repository/Seaside-Core.package/WARequest.class/instance/isSafeToStream.st
@@ -0,0 +1,4 @@
+testing
+isSafeToStream
+
+	^ self hasQueryField: '_f'
diff --git a/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st b/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st
@@ -1,11 +1,14 @@
 writing
-writeStatusOn: aStream 
-	aStream nextPutAll: self httpVersion.
-	aStream
-		nextPut: $ ;
-		nextPutAll: self status greaseString.
-	self message isNil ifFalse:  [
-		aStream
-			nextPut: $ ;
-			nextPutAll: self message ].
-	aStream crlf
+writeStatusOn: aStream
+  "32 = ascii value for Character space"
+
+  aStream nextPutAll: self httpVersion.
+  aStream
+    space;
+    nextPutAll: self status greaseString.
+  self message isNil
+    ifFalse: [ 
+      aStream
+        space;
+        nextPutAll: self message ].
+  aStream crlf
diff --git a/repository/Seaside-Core.package/WAResponse.class/properties.json b/repository/Seaside-Core.package/WAResponse.class/properties.json
@@ -1,18 +1,17 @@
 {
-	"commentStamp" : "pmm 2/18/2011 23:07",
-	"super" : "WAObject",
 	"category" : "Seaside-Core-HTTP",
-	"classinstvars" : [ ],
-	"pools" : [ ],
+	"classinstvars" : [
+		 ],
 	"classvars" : [
-		"StatusMessages"
-	],
+		"StatusMessages" ],
+	"commentStamp" : "pmm 2/18/2011 23:07",
 	"instvars" : [
 		"headers",
 		"cookies",
 		"status",
-		"message"
-	],
+		"message" ],
 	"name" : "WAResponse",
-	"type" : "normal"
-}
+	"pools" : [
+		 ],
+	"super" : "WAObject",
+	"type" : "normal" }
diff --git a/repository/Seaside-Core.package/monticello.meta/categories.st b/repository/Seaside-Core.package/monticello.meta/categories.st
@@ -1,4 +1,3 @@
-SystemOrganization addCategory: #'Seaside-Core'!
 SystemOrganization addCategory: #'Seaside-Core-Backtracking'!
 SystemOrganization addCategory: #'Seaside-Core-Base'!
 SystemOrganization addCategory: #'Seaside-Core-Cache'!
@@ -10,7 +9,6 @@ SystemOrganization addCategory: #'Seaside-Core-Exceptions'!
 SystemOrganization addCategory: #'Seaside-Core-Filter'!
 SystemOrganization addCategory: #'Seaside-Core-HTTP'!
 SystemOrganization addCategory: #'Seaside-Core-Libraries'!
-SystemOrganization addCategory: #'Seaside-Core-Manifest'!
 SystemOrganization addCategory: #'Seaside-Core-Rendering'!
 SystemOrganization addCategory: #'Seaside-Core-RequestHandling'!
 SystemOrganization addCategory: #'Seaside-Core-Server'!

diff --git a/repository/Seaside-GemStone-Adaptors-Zinc.package/.filetree b/repository/Seaside-GemStone-Adaptors-Zinc.package/.filetree
@@ -1,5 +1,4 @@
 {
-	"separateMethodMetaAndSource" : false,
 	"noMethodMetaData" : true,
-	"useCypressPropertiesFile" : true
-}
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }
diff --git a/repository/Seaside-GemStone-Adaptors-Zinc.package/WAGsZincAdaptor.class/instance/process..st b/repository/Seaside-GemStone-Adaptors-Zinc.package/WAGsZincAdaptor.class/instance/process..st
@@ -1,7 +1,9 @@
 as yet unclassified
 process: aNativeRequest
-
-	^GRPlatform current 
-		seasideProcessRequest: aNativeRequest 
-		adaptor: self
-		resultBlock: [:aRequest | super process: aRequest ]
+  aNativeRequest isSafeToStream
+    ifTrue: [ ^ self processStreamingRequest: aNativeRequest ]
+    ifFalse: [ 
+      ^ GRPlatform current
+        seasideProcessRequest: aNativeRequest
+        adaptor: self
+        resultBlock: [ :aRequest | self processBufferedRequest: aRequest ] ]
diff --git a/repository/Seaside-GemStone-Adaptors-Zinc.package/WAGsZincAdaptor.class/properties.json b/repository/Seaside-GemStone-Adaptors-Zinc.package/WAGsZincAdaptor.class/properties.json
@@ -1,11 +1,14 @@
 {
-	"commentStamp" : "",
-	"super" : "ZnZincServerAdaptor",
 	"category" : "Seaside-GemStone-Adaptors-Zinc",
-	"classinstvars" : [ ],
-	"pools" : [ ],
-	"classvars" : [ ],
-	"instvars" : [ ],
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
 	"name" : "WAGsZincAdaptor",
-	"type" : "normal"
-}
+	"pools" : [
+		 ],
+	"super" : "ZnZincServerAdaptor",
+	"type" : "normal" }
diff --git a/repository/Seaside-Session.package/.filetree b/repository/Seaside-Session.package/.filetree
@@ -1,5 +1,4 @@
 {
-	"separateMethodMetaAndSource" : false,
 	"noMethodMetaData" : true,
-	"useCypressPropertiesFile" : true
-}
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }
diff --git a/repository/Seaside-Session.package/WASession.class/instance/actionUrlForKey..st b/repository/Seaside-Session.package/WASession.class/instance/actionUrlForKey..st
@@ -1,5 +1,8 @@
 accessing
 actionUrlForKey: aString
-	^ self url
-		addField: self actionField value: aString;
-		yourself
+  | url |
+  url := self url.
+  url addField: self actionField value: aString.
+  self requestContext request isSafeToStream
+    ifTrue: [ url addField: '_f' ].
+  ^ url
diff --git a/repository/Seaside-Session.package/WASession.class/properties.json b/repository/Seaside-Session.package/WASession.class/properties.json
@@ -1,16 +1,17 @@
 {
-	"commentStamp" : "pmm 2/18/2012 11:03",
-	"super" : "WARequestHandler",
 	"category" : "Seaside-Session-Base",
-	"classinstvars" : [ ],
-	"pools" : [ ],
-	"classvars" : [ ],
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "pmm 2/18/2012 11:03",
 	"instvars" : [
 		"continuations",
 		"properties",
 		"documentHandlers",
-		"key"
-	],
+		"key" ],
 	"name" : "WASession",
-	"type" : "normal"
-}
+	"pools" : [
+		 ],
+	"super" : "WARequestHandler",
+	"type" : "normal" }
diff --git a/repository/Seaside-Session.package/monticello.meta/categories.st b/repository/Seaside-Session.package/monticello.meta/categories.st
@@ -1,4 +1,3 @@
-SystemOrganization addCategory: #'Seaside-Session'!
 SystemOrganization addCategory: #'Seaside-Session-Base'!
 SystemOrganization addCategory: #'Seaside-Session-Continuations'!
 SystemOrganization addCategory: #'Seaside-Session-Filter'!

diff --git a/...y/Seaside-Welcome.package/WAWelcomeGettingStarted.class/instance/renderExamplesStepOn..st b/...y/Seaside-Welcome.package/WAWelcomeGettingStarted.class/instance/renderExamplesStepOn..st
@@ -1,23 +1,27 @@
 rendering-steps
 renderExamplesStepOn: html
+
 	html heading
 		level3;
 		with: 'Try out some examples'.
-
-	html
-		unorderedList: [ 
-			html listItem: [ 
-				html anchor
-					callback: [ self show: WAWelcomeExampleCounter new ];
-					with: 'Counter'.
-				html text: ', a simple Seaside component.' ].
-			html listItem: [
-				html anchor
-					callback: [ self show: WAWelcomeExampleMultiCounter new ];
-					with: 'Multi-Counter'.
-				html text: ', showing how Seaside components can be re-used.' ].
-			html listItem: [ 
-				html anchor
-					callback: [ self show: WAWelcomeExampleFlow new ];
-					with: 'Task'.
-				html text: ', illustrating Seaside''s innovative approach to application control flow.' ] ]
+
+	html unorderedList: [ 
+		html listItem: [ 
+			html anchor
+				safeToStream;
+				navigation;
+				callback: [ self show: WAWelcomeExampleCounter new ];
+				with: 'Counter'.
+			html text: ', a simple Seaside component.' ].
+		html listItem: [ 
+			html anchor
+			safeToStream ;
+				callback: [ self show: WAWelcomeExampleMultiCounter new ];
+				with: 'Multi-Counter'.
+			html text: ', showing how Seaside components can be re-used.' ].
+		html listItem: [ 
+			html anchor
+				callback: [ self show: WAWelcomeExampleFlow new ];
+				with: 'Task'.
+			html text:
+				', illustrating Seaside''s innovative approach to application control flow.' ] ]
diff --git a/repository/Zinc-Seaside.package/.filetree b/repository/Zinc-Seaside.package/.filetree
@@ -1,5 +1,4 @@
 {
-	"separateMethodMetaAndSource" : false,
 	"noMethodMetaData" : true,
-	"useCypressPropertiesFile" : true
-}
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }
diff --git a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside
+crlf
+	self nextPut: 13; nextPut: 10
diff --git a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside
+space
+  self nextPut: 32
diff --git a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "ZdcAbstractSocketStream" }
diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/isStreamingResponse.st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/isStreamingResponse.st
@@ -0,0 +1,3 @@
+writing
+isStreamingResponse
+  ^ true
diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json
@@ -1,13 +1,14 @@
 {
-	"commentStamp" : "<historical>",
-	"super" : "ZnResponse",
 	"category" : "Zinc-Seaside",
-	"classinstvars" : [ ],
-	"pools" : [ ],
-	"classvars" : [ ],
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
 	"instvars" : [
-		"onWrite"
-	],
+		"onWrite" ],
 	"name" : "ZnDeferredResponse",
-	"type" : "normal"
-}
+	"pools" : [
+		 ],
+	"super" : "ZnResponse",
+	"type" : "normal" }
diff --git a/repository/Zinc-Seaside.package/ZnRequest.extension/instance/hasQueryField..st b/repository/Zinc-Seaside.package/ZnRequest.extension/instance/hasQueryField..st
@@ -0,0 +1,3 @@
+*Zinc-Seaside
+hasQueryField: aString
+	^self uri hasQueryField: aString
diff --git a/repository/Zinc-Seaside.package/ZnRequest.extension/instance/isSafeToStream.st b/repository/Zinc-Seaside.package/ZnRequest.extension/instance/isSafeToStream.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside
+isSafeToStream
+	^self hasQueryField:'_f'
diff --git a/repository/Zinc-Seaside.package/ZnRequest.extension/instance/nativeRequest.st b/repository/Zinc-Seaside.package/ZnRequest.extension/instance/nativeRequest.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside
+nativeRequest 
+	^self
diff --git a/repository/Zinc-Seaside.package/ZnRequest.extension/properties.json b/repository/Zinc-Seaside.package/ZnRequest.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "ZnRequest" }
diff --git a/repository/Zinc-Seaside.package/ZnResponse.extension/instance/isStreamingResponse.st b/repository/Zinc-Seaside.package/ZnResponse.extension/instance/isStreamingResponse.st
@@ -0,0 +1,3 @@
+*Zinc-Seaside
+isStreamingResponse
+  ^ false
diff --git a/repository/Zinc-Seaside.package/ZnResponse.extension/properties.json b/repository/Zinc-Seaside.package/ZnResponse.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "ZnResponse" }
diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/isSafeToStream.st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/isSafeToStream.st
@@ -0,0 +1,3 @@
+accessing
+isSafeToStream 
+	^true
diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st
@@ -1,3 +1,4 @@
 accessing
 nativeRequest: anObject
+
 	nativeRequest := anObject
diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st
@@ -1,3 +1,4 @@
 accessing
 nativeRequest
+
 	^ nativeRequest
diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/hasQueryField..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/hasQueryField..st
@@ -0,0 +1,5 @@
+*Zinc-Seaside
+hasQueryField: aString
+
+	self queryAt: aString ifAbsent: [ ^ false ].
+	^ true
diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json b/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "ZnUrl"
+}
diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/bufferedResponseFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/bufferedResponseFor..st
@@ -0,0 +1,4 @@
+converting
+bufferedResponseFor: aZnRequest
+
+	^ super responseFor: aZnRequest
diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/bufferedResponseFrom..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/bufferedResponseFrom..st
@@ -0,0 +1,19 @@
+converting
+bufferedResponseFrom: aRequestContext
+	| partialHeaders cookies fullHeaders seasideResponse contents entity contentType |
+	seasideResponse := aRequestContext response.
+	partialHeaders := seasideResponse headers.
+	cookies := seasideResponse cookies.
+	fullHeaders := ZnHeaders defaultResponseHeaders.
+	partialHeaders keysAndValuesDo: [ :key :value |
+		fullHeaders at: key add: value greaseString ].
+	cookies do: [ :each |
+		fullHeaders at: 'Set-Cookie' add: each rfc6265String ].
+	contentType := seasideResponse contentType greaseString.
+	contents := seasideResponse contents.
+	entity := (ZnEntity bytes: contents) contentType: contentType; yourself.
+	^ ZnResponse new
+		statusLine: (ZnStatusLine code: seasideResponse status);
+		headers: fullHeaders;
+		entity: entity;
+		yourself
diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/process..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/process..st
@@ -0,0 +1,5 @@
+processing
+process: aZnRequest
+  ^ aZnRequest isSafeToStream
+    ifTrue: [ self processStreamingRequest: aZnRequest ]
+    ifFalse: [ self processBufferedRequest: aZnRequest ]
diff --git a/...sitory/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/processBufferedRequest..st b/...sitory/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/processBufferedRequest..st
@@ -0,0 +1,3 @@
+processing
+processBufferedRequest: aZnRequest
+  ^ super process: aZnRequest