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