diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-23 00:01:41 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-23 00:01:41 +0300 |
| commit | 4dd474afa888942150559a41a7cd702b639e3722 (patch) | |
| tree | 83d7dc59aeaac84bd12ed8acf0fa9c79ab89c072 /modules/ssh/message.scm | |
| parent | Merge branch 'master' into wip-sftp (diff) | |
| download | guile-ssh-4dd474afa888942150559a41a7cd702b639e3722.tar.gz | |
message-func.c (guile_ssh_message_get_req): Handle subsystem requests
* libguile-ssh/message-func.c (guile_ssh_message_get_req): Handle subsystem
requests.
(get_subsystem_req): New procedure.
* modules/ssh/message.scm (subsystem-req:subsystem): New procedure.
Diffstat (limited to 'modules/ssh/message.scm')
| -rw-r--r-- | modules/ssh/message.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/ssh/message.scm b/modules/ssh/message.scm index d356a94..e387cd3 100644 --- a/modules/ssh/message.scm +++ b/modules/ssh/message.scm @@ -69,7 +69,8 @@ env-req:name env-req:value - global-req:addr global-req:port)) + global-req:addr global-req:port + subsystem-req:subsystem)) (define (service-req:service req) (vector-ref req 0)) @@ -98,6 +99,8 @@ (define (global-req:addr req) (vector-ref req 0)) (define (global-req:port req) (vector-ref req 1)) +(define (subsystem-req:subsystem req) (vector-ref req 0)) + (define (message-reply-success msg . args) "Reply 'success' to the message MSG. This procedure is a convenient |