Nested VM for application processes

new-server.rkt

@@ -24,6 +24,10 @@
 	   "Invalid peer identification string ~v"
 	   peer-identification-string)))
 
+(define (repl-boot self-pid)
+  (write 'repl-boot) (newline) (flush-output)
+  'no-repl-state)
+
 (define (connection-handler local-addr remote-addr)
   (define local-identification #"SSH-2.0-RacketSSH_0.0")
   (nested-vm
@@ -69,6 +73,7 @@
 		    (send-message (inbound-credit 1))
 		    (spawn (ssh-session local-identification
 					remote-identification
+					repl-boot
 					'server)
 			   #:debug-name 'ssh-session))))])))
 	#:debug-name 'ssh-reader)

ssh-session.rkt

@@ -528,6 +528,7 @@
 
 (define (ssh-session local-identification-string
 		     peer-identification-string
+		     application-boot
 		     session-role)
   (lambda (self-pid)
     (transition (connection #f
@@ -540,6 +541,10 @@
 			    local-identification-string
 			    peer-identification-string
 			    #f)
+
+      (spawn (nested-vm 'ssh-application-vm application-boot)
+	     #:debug-name 'ssh-application-vm)
+
       (role 'rekey-waiter (topic-subscriber (timer-expired 'rekey-timer (wild)))
 	#:state conn
 	[(timer-expired 'rekey-timer now)