diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-12-25 18:29:31 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-12-25 18:29:31 +0300 |
| commit | 596abc086e00da7adac7351026aea7e100e6703c (patch) | |
| tree | 3a46c50b9ee6d77c962e43d726faed0bf2682abc /modules/ssh/shell.scm | |
| parent | shell.scm: Add/update docstrings (diff) | |
| download | guile-ssh-596abc086e00da7adac7351026aea7e100e6703c.tar.gz | |
shell.scm (fallback-pgrep): Add dumb 'full?' option
* modules/ssh/shell.scm (fallback-pgrep): Add dumb 'full?' option so the
procedure can be used as drop-in replacement to 'pgrep' where full search is
performed (e.g. in (ssh dist node)).
* modules/ssh/dist/node.scm (node-server-running?): Update.
Diffstat (limited to 'modules/ssh/shell.scm')
| -rw-r--r-- | modules/ssh/shell.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/ssh/shell.scm b/modules/ssh/shell.scm index 1e67309..0adeb5b 100644 --- a/modules/ssh/shell.scm +++ b/modules/ssh/shell.scm @@ -110,10 +110,11 @@ return code." signal pattern))) -(define (fallback-pgrep session pattern) +(define* (fallback-pgrep session pattern #:key (full? #f)) "Guile-SSH implementation of 'pgrep' that uses pure bash and '/proc' filesystem. Check if a process with a PATTERN cmdline is available on a NODE. -Return two values: a check result and a return code." +Note that FULL? option is not used at the time (the procedure always perform +full search.) Return two values: a check result and a return code." (define (make-command ptrn) (format #f "\ echo ' |