diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-28 11:23:48 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-28 11:23:48 +0200 |
commit | 6be7bfc916e449927ff7ff090f4dabb98c0dcb67 (patch) | |
tree | b07d4ea01560b588077bd10b22af2581ca7c8993 | |
parent | 199d4e9457fc30300996ee51c53d40f5232df24e (diff) |
Update README.0.1.0
-rw-r--r-- | README.org | 31 |
1 files changed, 28 insertions, 3 deletions
@@ -1,8 +1,8 @@ -*- mode: org; coding: utf-8; -*- -#+TITLE: README for Guile Drmaa +#+TITLE: README for Guile DRMAA -Hi there! Currently, this project only provides low-level bindings to DRMAA version 1. Here’s an example: +Hi there! This project provides low-level bindings to DRMAA version 1. Here’s an example: #+begin_src scheme (use-modules (drmaa v1 low)) @@ -23,4 +23,29 @@ Hi there! Currently, this project only provides low-level bindings to DRMAA ver (exit-session!) #+end_src -Higher level bindings will be added eventually. +Higher level bindings are also provided: + +#+begin_src scheme +(use-modules (drmaa v1 high)) + +(define j1 + (job-template #:job-name "drmaa-test-rekado" + #:remote-command "/bin/ls")) + +(define j2 + (job-template #:job-name "drmaa-test-rekado-2" + #:remote-command "/bin/ls" + #:arguments '("/"))) + +(with-drmaa-session + (let ((jid1 (run-job j1)) + (jid2 (run-job j2))) + (control jid1 'release) + (call-with-values + (lambda () (wait '*)) + (lambda (jid status resources) + (pk jid resources) + (control jid2 'release))))) +#+end_src + +See the Info manual for a description of all procedures. |