Update schemas to match new identifier restrictions.

This commit is contained in:
Tony Garnock-Jones 2021-06-25 09:45:55 +02:00
parent 92bf8d8ed9
commit fc83937f0f
3 changed files with 9 additions and 9 deletions

View File

@ -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)

View File

@ -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>
.

View File

@ -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))]