queue.tcl

::pwtk::queue::get

::pwtk::queue::get

SYNOPSIS

proc ::pwtk::queue::get {queueSystem {profileName {}}} {

PURPOSE

Returns the content of the whole $queueSystem batch shell script.

If the 'profileName' is not specified, the last used profile is used and if no profile was used, the default profile is used.

ARGUMENTS

queueSystem -- name of batch queuing system (e.g. slurm, ll, lsf, ...)
profileName -- (optional) for which profile to return the content of the whole $queueSystem batch shell-script;

SOURCE

    variable queue
    variable profile

    if { $profileName eq {} } {
        if { [info exists queue($queueSystem,profile)] } {
            set profileScript $queue($queueSystem,profile)
        } else {
            set profileScript [::pwtk::varvalue profile($queueSystem,default)]
        }
    } else {
        ::pwtk::ifnotexist profile($queueSystem,$profileName) {
            ::pwtk::error "the $queueSystem profile '$profileName' does not exist" 1
        }
        set profileScript $profile($queueSystem,$profileName)
    }
    return ${profileScript}[::pwtk::varvalue queue($queueSystem,head)][::pwtk::varvalue queue($queueSystem,pwtk)][::pwtk::varvalue queue($queueSystem,tail)]
}

TABLE OF CONTENTS

::pwtk::queue::get