./src/queue.tcl

::pwtk::queue::clear

::pwtk::queue::clear

SYNOPSIS

proc ::pwtk::queue::clear {queueSystem {what all}} {

PURPOSE

Clear the content of a specific part of batch queuing shell-script.

ARGUMENTS

queueSystem -- one among supported queue-systems (slurm, lsf, ll)
what -- which part of batch queuing shell-script to clear (possibilities are: head, specs, body, tail, or all)

SOURCE

    variable scriptHead
    variable scriptSpecs
    variable scriptBody
    variable scriptTail
    variable opt_list

    switch -- $what {
        head - all {
            set scriptHead($queueSystem) ""  
            array unset ::pwtk::queue::opt_list $queueSystem,*
        }
        specs - all {
            set scriptSpecs($queueSystem)  ""   
        }
        var {
            ::pwtk::warning "# usage of \"::pwtk::queue::clear queueSystem var\" is deprecated,\nuse \"::pwtk::queue::clear queueSystem specs\" instead"
            set scriptSpecs($queueSystem)  ""   
        }
        body - all {
            set scriptBody($queueSystem) ""
        }
        tail - all {
            set scriptTail($queueSystem) ""      
        }
        default {
            pwtk::error "wrong clearing spec \"$what\", must be one of head, var, body, tail, or all"
        }
    }
}

TABLE OF CONTENTS

::pwtk::queue::clear