From 6be7bfc916e449927ff7ff090f4dabb98c0dcb67 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 28 Apr 2021 11:23:48 +0200 Subject: Update README. --- README.org | 31 ++++++++++++++++++++++++++++--- 1 file changed, 28 insertions(+), 3 deletions(-) diff --git a/README.org b/README.org index 01fe187..8c4329b 100644 --- a/README.org +++ b/README.org @@ -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. -- cgit v1.2.3