diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-03 05:50:10 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-03 05:50:10 +0300 |
| commit | 08e71bf2a4a09dbd4c310d1ec3814305d4aaac49 (patch) | |
| tree | 52a9ef0d853371c999db943ab74661623bd52008 /doc | |
| parent | tests/shell.scm ("loadavg"): New TC (diff) | |
| download | guile-ssh-08e71bf2a4a09dbd4c310d1ec3814305d4aaac49.tar.gz | |
doc/api-dist.texi: Add description of 'node-loadavg'
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/api-dist.texi | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/doc/api-dist.texi b/doc/api-dist.texi index 04e7b25..635ae2d 100644 --- a/doc/api-dist.texi +++ b/doc/api-dist.texi @@ -54,6 +54,31 @@ Get underlying SSH session from @var{node}. Get REPL port number from a @var{node}. @end deffn +@deffn {Scheme Procedure} node-loadavg node +Get average load of a @var{node}. Return multiple values. The 1st value is +an alist of five elements as described in proc(5) man page. The rest of +values are as described in documentation for @code{node-eval} procedure. + +For example: + +@lisp +(use-modules (ssh auth) + (ssh session) + (ssh dist node)) + +(let ((s (make-session #:host "example.org"))) + (connect! s) + (userauth-agent! s) + (let ((n (make-node s))) + (node-loadavg n))) +@result{} ((one . 0.15) (five . 0.14) (fifteen . 0.16) (scheduling-entities 1 189) (last-pid . 15629)) +@result{} 1 +@result{} "(guile-user)" +@result{} "scheme" +@end lisp + +@end deffn + Interaction with remote REPLs: @deffn {Scheme Procedure} distribute nodes expr ... @@ -202,7 +227,6 @@ Read from @var{rrepl-channel} until REPL is observed. Throw @code{node-error} on an error. @end deffn - @subsubsection Jobs @tindex job |
