FEAT: Added (limited) support for a TLS _server_ role

Author: Oldes

src/boot/sysobj.reb

@@ -244,6 +244,7 @@ standard: object [
 	port: construct [ ; Port specification object
 		spec:		; published specification of the port
 		scheme:		; scheme object used for this port
+		parent:     ; port's parent (for example HTTPS port in TLS)
 		actor:		; port action handler (script driven)
 		awake:		; port awake function (event driven)
 		state:		; internal state values (private)

src/mezz/codec-ssh-key.reb

@@ -94,7 +94,7 @@ wrap [
 					pkix/binary: aes/stream d pkix/binary
 				][	return none ]
 			]
-			sys/log/info 'REBOL ["Trying to resolve:" pkix/label]
+			sys/log/info 'REBOL ["Importing:" pkix/label]
 
 			switch pkix/label [
 				"SSH2 PUBLIC KEY" [

src/mezz/prot-http.reb

@@ -141,7 +141,8 @@ read-sync-awake: func [event [event!] /local error][
 ]
 http-awake: func [event /local port http-port state awake res][
 	port: event/port
-	http-port: port/extra
+	http-port: port/parent
+
 	state: http-port/state
 	if any-function? :http-port/awake [state/awake: :http-port/awake]
 	awake: :state/awake
@@ -798,7 +799,7 @@ sys/make-scheme [
 			]
 
 			conn/awake: :http-awake
-			conn/extra: port
+			conn/parent: port
 			sys/log/info 'HTTP ["Opening connection:^[[22m" conn/spec/ref]
 			open conn