forked from syndicate-lang/marketplace-ssh-2014
Update schemas to match new identifier restrictions.
This commit is contained in:
parent
92bf8d8ed9
commit
fc83937f0f
|
@ -130,7 +130,7 @@
|
|||
(write-bytes data c2s-out)
|
||||
(flush-output c2s-out)
|
||||
(send-bytes-credit source (bytes-length data))]
|
||||
[(Mode-object (:parse (SshChannelObject-extended-data type-code)))
|
||||
[(Mode-object (:parse (SshChannelObject-extendedData type-code)))
|
||||
(match type-code
|
||||
[SSH_EXTENDED_DATA_STDERR
|
||||
(log-info "2> ~s" data)]
|
||||
|
@ -167,7 +167,7 @@
|
|||
#:on-connect (lambda (s) (send-credit s (CreditAmount-unbounded) (Mode-bytes)))
|
||||
#:on-data (lambda (data _mode)
|
||||
(send-data sink data
|
||||
(Mode-object (SshChannelObject-extended-data
|
||||
(Mode-object (SshChannelObject-extendedData
|
||||
SSH_EXTENDED_DATA_STDERR)))))
|
||||
(linked-thread #:name 'repl
|
||||
(lambda (_facet)
|
||||
|
|
|
@ -3,17 +3,17 @@ embeddedType EntityRef.Ref .
|
|||
|
||||
SshChannelTypeAvailable = <channel-type-available @type bytes>.
|
||||
|
||||
SshChannelRemote = <channel-remote @type bytes @extra-data bytes>.
|
||||
SshChannelLocal = <channel-local @type bytes @extra-data bytes>.
|
||||
SshChannelRemote = <channel-remote @type bytes @extraData bytes>.
|
||||
SshChannelLocal = <channel-local @type bytes @extraData bytes>.
|
||||
|
||||
SshChannelOpenResponse =
|
||||
/ @ok <channel-open-confirmation @sink #!stream.Sink @extra-data bytes>
|
||||
/ @ok <channel-open-confirmation @sink #!stream.Sink @extraData bytes>
|
||||
/ @fail <channel-open-failure @sink #!stream.Sink @reason int @description bytes>
|
||||
.
|
||||
|
||||
SshChannelObject =
|
||||
/ @extended-data <channel-extended-data @type-code int>
|
||||
/ @request <channel-request @type bytes @want-reply bool>
|
||||
/ @extendedData <channel-extended-data @typeCode int>
|
||||
/ @request <channel-request @type bytes @wantReply bool>
|
||||
/ @success <channel-reply #t>
|
||||
/ @failure <channel-reply #f>
|
||||
.
|
||||
|
|
|
@ -487,7 +487,7 @@
|
|||
|
||||
(with-incoming-task
|
||||
(SSH_MSG_CHANNEL_EXTENDED_DATA _ (ssh-msg-channel-extended-data local-ref $type-code $data))
|
||||
(send-data sink data (Mode-object (SshChannelObject-extended-data type-code))))
|
||||
(send-data sink data (Mode-object (SshChannelObject-extendedData type-code))))
|
||||
|
||||
(with-incoming-task (SSH_MSG_CHANNEL_EOF _ (ssh-msg-channel-eof local-ref))
|
||||
(send-eof sink))
|
||||
|
@ -548,7 +548,7 @@
|
|||
(! (ssh-msg-channel-data remote-ref (bytes-append data "\n")))]
|
||||
[(Mode-lines (LineMode-crlf))
|
||||
(! (ssh-msg-channel-data remote-ref (bytes-append data "\r\n")))]
|
||||
[(Mode-object (:parse (SshChannelObject-extended-data type-code)))
|
||||
[(Mode-object (:parse (SshChannelObject-extendedData type-code)))
|
||||
(! (ssh-msg-channel-extended-data remote-ref type-code data))]
|
||||
[(Mode-object (:parse (SshChannelObject-request type want-reply)))
|
||||
(! (ssh-msg-channel-request remote-ref type want-reply data))]
|
||||
|
|
Loading…
Reference in New Issue