Nested VM for application processes
This commit is contained in:
parent
f857cfdbf9
commit
03560599a1
|
@ -24,6 +24,10 @@
|
||||||
"Invalid peer identification string ~v"
|
"Invalid peer identification string ~v"
|
||||||
peer-identification-string)))
|
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 (connection-handler local-addr remote-addr)
|
||||||
(define local-identification #"SSH-2.0-RacketSSH_0.0")
|
(define local-identification #"SSH-2.0-RacketSSH_0.0")
|
||||||
(nested-vm
|
(nested-vm
|
||||||
|
@ -69,6 +73,7 @@
|
||||||
(send-message (inbound-credit 1))
|
(send-message (inbound-credit 1))
|
||||||
(spawn (ssh-session local-identification
|
(spawn (ssh-session local-identification
|
||||||
remote-identification
|
remote-identification
|
||||||
|
repl-boot
|
||||||
'server)
|
'server)
|
||||||
#:debug-name 'ssh-session))))])))
|
#:debug-name 'ssh-session))))])))
|
||||||
#:debug-name 'ssh-reader)
|
#:debug-name 'ssh-reader)
|
||||||
|
|
|
@ -528,6 +528,7 @@
|
||||||
|
|
||||||
(define (ssh-session local-identification-string
|
(define (ssh-session local-identification-string
|
||||||
peer-identification-string
|
peer-identification-string
|
||||||
|
application-boot
|
||||||
session-role)
|
session-role)
|
||||||
(lambda (self-pid)
|
(lambda (self-pid)
|
||||||
(transition (connection #f
|
(transition (connection #f
|
||||||
|
@ -540,6 +541,10 @@
|
||||||
local-identification-string
|
local-identification-string
|
||||||
peer-identification-string
|
peer-identification-string
|
||||||
#f)
|
#f)
|
||||||
|
|
||||||
|
(spawn (nested-vm 'ssh-application-vm application-boot)
|
||||||
|
#:debug-name 'ssh-application-vm)
|
||||||
|
|
||||||
(role 'rekey-waiter (topic-subscriber (timer-expired 'rekey-timer (wild)))
|
(role 'rekey-waiter (topic-subscriber (timer-expired 'rekey-timer (wild)))
|
||||||
#:state conn
|
#:state conn
|
||||||
[(timer-expired 'rekey-timer now)
|
[(timer-expired 'rekey-timer now)
|
||||||
|
|
Loading…
Reference in New Issue