./src/queue.tcl

::pwtk::queue::getHead

::pwtk::queue::getHead

SYNOPSIS

proc ::pwtk::queue::getHead {queueSystem} { 
    variable scriptHead
    variable direct

PURPOSE

Returns the content of the head of the script for the queueSystem.

ARGUMENTS

queueSystem -- name of batch queuing system (e.g. slurm, ll, lsf, ...)

SOURCE

    if { [info exists scriptHead($queueSystem)] } {
        if { $scriptHead($queueSystem) == "" } {
            # load default head
            if { [info exists ::pwtk::queue::profile($queueSystem,default)] } {
                parseOptions_ $queueSystem default
            }
        }
        if { ! $direct } {
            return "$scriptHead($queueSystem)\n[addVariables_]"
        } else {
            return "$scriptHead($queueSystem)"
        }
    }
}

TABLE OF CONTENTS

::pwtk::queue::getHead