From 0d64ab8a41e500d46d61b1304d3734bbfd38bdf2 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 26 Apr 2021 08:54:38 +0200
Subject: high: Add helper for setting native specification.

* drmaa/v1/high.scm (add-to-native-specification!): New procedure.
---
 drmaa/v1/high.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/drmaa/v1/high.scm b/drmaa/v1/high.scm
index 9c7ff63..042f404 100644
--- a/drmaa/v1/high.scm
+++ b/drmaa/v1/high.scm
@@ -292,6 +292,11 @@
   (or (string-prefix? "UGE " (implementation))   ; Univa Grid Engine
       (string-prefix? "SGE " (implementation))))
 
+(define (add-to-native-specification! t spec)
+  (let ((specs (low:get-attribute t (low:DRMAA 'NATIVE_SPECIFICATION))))
+    (low:set-attribute! t (low:DRMAA 'NATIVE_SPECIFICATION)
+                        (string-append specs " " spec))))
+
 (define-method (lower-job-template (instance <job-template>))
   (define klass (class-of instance))
   (define t #false)
-- 
cgit v1.2.3