diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 17:56:53 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 17:56:53 +0300 |
| commit | 310c4bb6b292fd1c8eb0073268c06e19dda497d0 (patch) | |
| tree | 8ff7469b90acacd79d1db7bd772d7274ac971cdc /modules/ssh/message.scm | |
| parent | libguile-ssh: Add basic support of session callbacks (diff) | |
| download | guile-ssh-310c4bb6b292fd1c8eb0073268c06e19dda497d0.tar.gz | |
message-func: Add a procedure to handle global requests
* libguile-ssh/message-func.c (gssh_message_global_request_reply_success): New
procedure.
* modules/ssh/message.scm (message-global-request-reply-success): New procedure.
(message-reply-success): Use it to handle global requests.
Diffstat (limited to 'modules/ssh/message.scm')
| -rw-r--r-- | modules/ssh/message.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/ssh/message.scm b/modules/ssh/message.scm index 8805eab..b255714 100644 --- a/modules/ssh/message.scm +++ b/modules/ssh/message.scm @@ -60,6 +60,8 @@ message-channel-request-reply-success message-channel-request-open-reply-accept + message-global-request-reply-success + pty-req:term pty-req:width pty-req:height pty-req:pxwidth pty-req:pxheight @@ -129,7 +131,7 @@ to use will be selected depending on a type of the message MSG." (message-channel-request-reply-success msg)) ((request-global) - (error "Not implemented yet" (cadr msg-type)))))) + (message-global-request-reply-success msg (car args)))))) (load-extension "libguile-ssh" "init_message") |