./src/queue.tcl

::pwtk::queue::submit

::pwtk::queue::submit

SYNOPSIS

proc ::pwtk::queue::submit {queueSystem {scriptName ""}} {

PURPOSE

Dummy proc, used just to define the API. An implementation of specific queing system should define the submit proc, which purpose is to create the batch queing script and to submit the script to queuing system.

ARGUMENTS

queueSystem -- name of batch queuing system (e.g. slurm, ll, lsf, ...)
scriptName -- filename of script that will be written (optional, default = job.queue)

SOURCE

    if { $scriptName == "" } {
        set scriptName job.$queueSystem
    }

    if { $queueSystem == "queue" } {
        # prevent an infinite recursive call to ::pwtk::queue::submit
        
        ::pwtk::writeFile $scriptName [getScript $queueSystem]
        
    } elseif { [info commands ::pwtk::${queueSystem}::submit] != {} } {
        # the submit command for a $queueSystem is defined
        
        ::pwtk::${queueSystem}::submit $scriptName    
        
    } else {
        # the ::pwtk::$queueSystem::submit command is not defined, signal an error
        
        ::pwtk::writeFile $scriptName [getScript $queueSystem]  
        ::tclu::errorDialog "don't know how to submit jobs for queuing system $queueSystem. Please defined the appropriate proc"
    }
}

TABLE OF CONTENTS

::pwtk::queue::submit