diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:51:49 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:51:49 +0200 |
| commit | abadbd7bdae62e28a8533befb0023d5b01b47e73 (patch) | |
| tree | 7b1ece6e051b0c2ee907b694e71855933ddb2a28 | |
| parent | 20d06da971f9577aed3077489b3ecbd1a4082ddc (diff) | |
high: Add grid-engine? procedure.
* drmaa/v1/high.scm (grid-engine?): New procedure.
| -rw-r--r-- | drmaa/v1/high.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/drmaa/v1/high.scm b/drmaa/v1/high.scm index e0f4fbb..d93922b 100644 --- a/drmaa/v1/high.scm +++ b/drmaa/v1/high.scm @@ -288,6 +288,10 @@ (set! result (low:get-drmaa-implementation)) result))))) +(define (grid-engine?) + (or (string-prefix? "UGE " (implementation)) ; Univa Grid Engine + (string-prefix? "SGE " (implementation)))) + (define-method (lower-job-template (instance <job-template>)) (define klass (class-of instance)) (define t (low:allocate-job-template!)) |