summaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorArtyom V. Poptsov <poptsov.artyom@gmail.com>2017-01-03 05:50:10 +0300
committerArtyom V. Poptsov <poptsov.artyom@gmail.com>2017-01-03 05:50:10 +0300
commit08e71bf2a4a09dbd4c310d1ec3814305d4aaac49 (patch)
tree52a9ef0d853371c999db943ab74661623bd52008 /doc
parenttests/shell.scm ("loadavg"): New TC (diff)
downloadguile-ssh-08e71bf2a4a09dbd4c310d1ec3814305d4aaac49.tar.gz
doc/api-dist.texi: Add description of 'node-loadavg'
Diffstat (limited to 'doc')
-rw-r--r--doc/api-dist.texi26
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