Make ZnDefaultServerDelegate aware of the server it is embedded in (n…

…ot just through ZnCurrentServer during a request/response cylce, but also statically)
svenvc · Dec 2, 2023 · aeacce3 · aeacce3
1 parent 2422eca
commit aeacce3
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 2 deletions.
diff --git a/repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/instance/server..st b/repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/instance/server..st
@@ -0,0 +1,5 @@
+accessing
+server: znServer
+	"Set my server to snServer, the one I am the delegate for"
+
+	server := znServer
diff --git a/repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/instance/server.st b/repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/instance/server.st
@@ -0,0 +1,5 @@
+accessing
+server
+	"Return the ZnServer I was configured with, the one I am the delegate for"
+
+	^ server
diff --git a/repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/properties.json b/repository/Zinc-HTTP.package/ZnDefaultServerDelegate.class/properties.json
@@ -7,7 +7,8 @@
 	"classvars" : [ ],
 	"instvars" : [
 		"prefixMap",
-		"byteArray"
+		"byteArray",
+		"server"
 	],
 	"name" : "ZnDefaultServerDelegate",
 	"type" : "normal"

diff --git a/repository/Zinc-HTTP.package/ZnServer.class/instance/delegate.st b/repository/Zinc-HTTP.package/ZnServer.class/instance/delegate.st
@@ -4,4 +4,6 @@ delegate
 	the object that will be sent #handleRequest: to handle a request and produce a response.
 	The default delegate is ZnDefaultServerDelegate"
 
-	^ self optionAt: #delegate ifAbsentPut: [ ZnDefaultServerDelegate new ]
+	^ self 
+		optionAt: #delegate
+		ifAbsentPut: [ ZnDefaultServerDelegate new server: self; yourself ]