diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:54:38 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:54:38 +0200 |
| commit | 0d64ab8a41e500d46d61b1304d3734bbfd38bdf2 (patch) | |
| tree | 1f88a150013a08831610c81043b3176d056a7a72 | |
| parent | 295879ee60650281e63fd34d464ad923938668b2 (diff) | |
high: Add helper for setting native specification.
* drmaa/v1/high.scm (add-to-native-specification!): New procedure.
| -rw-r--r-- | drmaa/v1/high.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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) |