diff options
| -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. |