syndicate-lang
/
racket-ssh-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

I've decided to rename "virtual" flows to "monitor" flows.

This commit is contained in:
Tony Garnock-Jones 2012-07-04 16:36:30 -04:00
parent ab5b1850d0
commit a44b7ba3e2
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
new-server.rkt
View File

@ -27,7 +27,7 @@
(define listener
(transition 'no-state
(role 'connection-waiter (topic-subscriber (tcp-channel (wild) server-addr (wild))
#:virtual? #t)
#:monitor? #t)
#:state state
#:topic t
#:on-presence (match t
@ -38,7 +38,7 @@
;; PAPER NOTE: This second clause can be replaced with
;; [_ state] for presentation economy
[(topic 'publisher (tcp-channel remote-addr (== server-addr) _) #t)
;; Ignore virtual flows. They just mean there's
;; Ignore monitor flows. They just mean there's
;; someone willing to supply connections to us
;; at some point in the future.
state]))))
@ -58,8 +58,8 @@
(define (repl-boot self-pid)
(transition 'no-repl-state
(role 'spy (or (topic-subscriber (wild) #:virtual? #t)
(topic-publisher (wild) #:virtual? #t))
(role 'spy (or (topic-subscriber (wild) #:monitor? #t)
(topic-publisher (wild) #:monitor? #t))
#:state state
[message
(write `(APP ,message))
@ -72,7 +72,7 @@
#:state state
#:topic t
#:on-presence
(if (topic-virtual? t)
(if (topic-monitor? t)
state
(match t
[(topic _ (channel-message (channel-stream-name _ cname) _) _)
@ -134,8 +134,8 @@
(bytes-append #"Unknown channel type " type))))))]))
(define (spy marker)
(role 'spy (or (topic-subscriber (wild) #:virtual? #t)
(topic-publisher (wild) #:virtual? #t))
(role 'spy (or (topic-subscriber (wild) #:monitor? #t)
(topic-publisher (wild) #:monitor? #t))
#:state state
[message
(write `(,marker ,message))

6
ssh-session.rkt
View File

@ -681,14 +681,14 @@
;; remote peer by virtue of our installation of the handler for
;; SSH_MSG_CHANNEL_OPEN above.
(role 'channel-connector
(set (topic-publisher arbitrary-locally-originated-traffic #:virtual? #t)
(topic-subscriber arbitrary-locally-originated-traffic #:virtual? #t))
(set (topic-publisher arbitrary-locally-originated-traffic #:monitor? #t)
(topic-subscriber arbitrary-locally-originated-traffic #:monitor? #t))
#:state conn
#:topic t
#:on-presence
(match t
[(topic _ _ #t)
;; Virtual topics appearing indicate receptivity to incoming
;; Monitor topics appearing indicate receptivity to incoming
;; channels, and are nothing to do with outgoing channels.
conn]
[(or (topic 'publisher (channel-message (channel-stream-name #f cname) _) #f)