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